%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim whnc__MMColParam whnc__MMColParam = "1" If (Request.QueryString("id") <> "") Then whnc__MMColParam = Request.QueryString("id") End If %> <% Dim whnc Dim whnc_numRows Set whnc = Server.CreateObject("ADODB.Recordset") whnc.ActiveConnection = MM_whnc_STRING whnc.Source = "SELECT * FROM cun WHERE id = " + Replace(whnc__MMColParam, "'", "''") + "" whnc.CursorType = 0 whnc.CursorLocation = 2 whnc.LockType = 1 whnc.Open() whnc_numRows = 0 %>