%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim recYiyao__MMColParam recYiyao__MMColParam = "1" If (Request.QueryString("ID") <> "") Then recYiyao__MMColParam = Request.QueryString("ID") End If %> <% Dim recYiyao Dim recYiyao_numRows Set recYiyao = Server.CreateObject("ADODB.Recordset") recYiyao.ActiveConnection = MM_connXmk_STRING recYiyao.Source = "SELECT * FROM yiyao WHERE ID = " + Replace(recYiyao__MMColParam, "'", "''") + "" recYiyao.CursorType = 0 recYiyao.CursorLocation = 2 recYiyao.LockType = 1 recYiyao.Open() recYiyao_numRows = 0 %>
项目信息 |
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||