%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim tongzhi__MMColParam tongzhi__MMColParam = "1" If (Request.QueryString("id") <> "") Then tongzhi__MMColParam = Request.QueryString("id") End If %> <% Dim tongzhi Dim tongzhi_numRows Set tongzhi = Server.CreateObject("ADODB.Recordset") tongzhi.ActiveConnection = MM_book_STRING tongzhi.Source = "SELECT * FROM tongzhi WHERE id = " + Replace(tongzhi__MMColParam, "'", "''") + "" tongzhi.CursorType = 0 tongzhi.CursorLocation = 2 tongzhi.LockType = 1 tongzhi.Open() tongzhi_numRows = 0 %>
| 关于我们 | |||
|
|||