<%@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 %> <%=(showgg.Fields.Item("news_title").Value)%>
<% If (showgg.Fields.Item("news_filename").Value)<>"" Then%> <% End If %>
<%=(showgg.Fields.Item("news_title").Value)%>
Promulgator: <%=(showgg.Fields.Item("news_editer").Value)%>  ;Issues the news the time : <%=(showgg.Fields.Item("news_addtime").Value)%> ; Click <%=(showgg.Fields.Item("news_hits").Value) +1%>time
    <%= HTMLcode(showgg.Fields.Item("news_content").Value)%>
Ïà¹Ø¸½¼þ:" target="_blank"><%=(showgg.Fields.Item("news_filename").Value)%>
Returns news page  <
<% showgg.Close() Set showgg = Nothing %>