%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim bou__MMColParam bou__MMColParam = "1" If (Request.QueryString("aboutid") <> "") Then bou__MMColParam = Request.QueryString("aboutid") End If %> <% Dim bou Dim bou_numRows Set bou = Server.CreateObject("ADODB.Recordset") bou.ActiveConnection = MM_liaodaba_STRING bou.Source = "SELECT * FROM about WHERE aboutid = " + Replace(bou__MMColParam, "'", "''") + "" bou.CursorType = 0 bou.CursorLocation = 2 bou.LockType = 1 bou.Open() bou_numRows = 0 %>