<%@LANGUAGE="VBSCRIPT"%> <% Dim message__MMColParam message__MMColParam = "1" If (Request.QueryString("id") <> "") Then message__MMColParam = Request.QueryString("id") End If %> <% Dim message Dim message_numRows Set message = Server.CreateObject("ADODB.Recordset") message.ActiveConnection = MM_jzh_STRING message.Source = "SELECT * FROM message WHERE id = " + Replace(message__MMColParam, "'", "''") + "" message.CursorType = 0 message.CursorLocation = 2 message.LockType = 1 message.Open() message_numRows = 0 %> :::连中彩票官网欢迎您:::
创先争优活动栏
<% message.Close() Set message = Nothing %>