%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if(Request.QueryString("news_id") <> "") then uphits__rID = Request.QueryString("news_id") %> <% Dim showgg__MMColParam showgg__MMColParam = "1" If (Request.QueryString("news_id") <> "") Then showgg__MMColParam = Request.QueryString("news_id") End If %> <% Dim showgg Dim showgg_numRows Set showgg = Server.CreateObject("ADODB.Recordset") showgg.ActiveConnection = MM_conn_STRING showgg.Source = "SELECT * FROM news WHERE news_id = " + Replace(showgg__MMColParam, "'", "''") + "" showgg.CursorType = 0 showgg.CursorLocation = 2 showgg.LockType = 1 showgg.Open() showgg_numRows = 0 %> <% set uphits = Server.CreateObject("ADODB.Command") uphits.ActiveConnection = MM_conn_STRING uphits.CommandText = "UPDATE news SET news_hits = news_hits + 1 WHERE news_id = " + Replace(uphits__rID, "'", "''") + " " uphits.CommandType = 1 uphits.CommandTimeout = 0 uphits.Prepared = true uphits.Execute() %> <% Function HTMLcode(fString) If Not IsNull(fString) Then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = replace(fString, "", "") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
HTMLcode = fString
End if
End Function
%>
|
||||
> Returns news page < |