📄 selknowledge.asp
字号:
<% @language =VBScript %>
<%
Set objConn = Server.CreateObject ("ADODB.Connection")
strConnection = "Data Source = ks;"
strConnection = strConnection & "User ID =lili;Password=;"
objConn.Open strConnection
Set objRS = Server.CreateObject ("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
dim intloop
if request.QueryString("Added")<>"" then
refer="?Added="&request.QueryString("Added")
else
refer=""
end if
select Case Request("tx")
Case 1
Vgoto="./tjst/Dah.asp"&refer
Case 2
Vgoto="./tjst/Duh.asp"&refer
Case 3
Vgoto="./tjst/tiankongh.asp"&refer
Case 4
Vgoto="./tjst/pdh.asp"&refer
Case 5
Vgoto="./tjst/fxh.asp"&refer
Case 6
Vgoto="./tjst/chaxunh.asp"
case 7
Vgoto="./tjsj/selItemh.asp"
end select
if Request("tx")=7 and Request.QueryString ("mod")<>"" then
Vgoto="./tjsj/selItemh.asp?mod="& Request.QueryString ("mod")
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<meta name="Microsoft Border" content="none, default">
</head>
<body >
<div align="center">
<center>
<table border="0" cellpadding="0" width="763">
<tr>
<td>
<br>
<center>
<h2 align="center"><font face="黑体" color="#8080FF"><u><font color="#3333FF">请选择多知识点：</font></u></font></h2>
<form name="checkknowledge" method="POST" action=<%=Vgoto%>>
<table border="0" width="100%">
</table>
<table border="0" width="81%" height="54">
<% strQuery="Select MAX(KnowledgeChap) as maxchap From knowledge where CourseID="&Session("course_id")
objRS.Open strQuery
max=objRS("maxchap")
objRS.Close%>
<%for intloop= 1 to max %> <%strQuery="Select chapName,KnowledgeID,KnowledgeObject From knowledge where KnowledgeChap="&intloop&" and CourseID="&Session("course_id")
objRS.Open strQuery%> <%if not objRS.EOF then %>
<tr>
<td>
<p>
<h3>第<%=(intloop)%> 章:<%=objRS("chapName")%><font color="#fFF"></font></h3>
<p></p>
</td>
</tr>
<tr>
<td width="20%" height="53">
<table width="82%" border="0">
<%while Not objRS.EOF%>
<tr>
<td height="28" width="8%" nowrap>
<div align="center"><font color="#8080FF">
<input type="checkbox" name="<%=objRS("KnowledgeID")%>" value="<%=objRS("KnowledgeID")%>">
</font></div>
</td>
<td height="28" width="92%" nowrap><%=objRS("KnowledgeObject")%></td>
</tr>
<%objRS.MoveNext%>
<%wend%>
</table>
<div align="center"></div>
</td>
</tr>
<%objRS.Close%>
<%end if%>
<%next%>
</table>
<%objConn.Close
Set objRS= Nothing
Set objConn = Nothing%>
<p> </p>
<p align="center"><font color="#8080FF">
<input type="submit" value="提交选择" name="B1">
<input type="reset" value="取消选择" name="B2">
</font></p>
</form>
</center>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -