<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.Form("vcdcx") <> "") Then Recordset1__MMColParam = Request.Form("vcdcx") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_vcdml_STRING Recordset1.Source = "SELECT * FROM vcdml WHERE ksh = '" + Replace(Recordset1__MMColParam, "'", "''") + "'" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "1" If (Request.Form("lb") <> "") Then Recordset2__MMColParam = Request.Form("lb") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_vcdml_STRING Recordset2.Source = "SELECT * FROM VCD WHERE lb = '" + Replace(Recordset2__MMColParam, "'", "''") + "' ORDER BY bh DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> vcd查询结果
校园信息查询>>VCD视听教材          返回  

现有分类:
护理
妇产
内科
外科
儿科
传染
解剖
微寄
生物
病理
药理
五官
中药
中医
生理
卫生
政教
英语
理化
医信
文史
科普
电影
生化
资料

请输入类别: 

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>