%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Dim webdata__MMColParam
webdata__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
webdata__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim webdata
Dim webdata_numRows
Set webdata = Server.CreateObject("ADODB.Recordset")
webdata.ActiveConnection = MM_webdata_STRING
webdata.Source = "SELECT * FROM news WHERE id = " + Replace(webdata__MMColParam, "'", "''") + ""
webdata.CursorType = 0
webdata.CursorLocation = 2
webdata.LockType = 1
webdata.Open()
webdata_numRows = 0
%>
最新消息
<%
webdata.Close()
Set webdata = Nothing
%>