%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_hbgz_STRING Recordset1.Source = "SELECT * FROM pic WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %>
![]() |
![]() |
||||||||||
| 首页 | 鹤高概览 | 教学园地 | 教育动态 | 学生园地 | 留言板 | 联系我们 | |||||||||||
|
|||||||||||
| 版权所有:鹤壁高中信息技术部保留所有权利 电话:86-0392-2696847 | |||||||||||