📄 questionqmisty.asp
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<HTML>
<head>
</head>
<BODY>
<P align="center"><STRONG><FONT face="华文彩云" color=darkred size=6>试题模糊查询</FONT></STRONG></P>
<%
'set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
'rs1.Open "select * from term",conn,adOpenStatic
%>
<form action="QuestionQMisty.asp" method=post name="form1" >
<table align=center>
<tr>
<td align=right>题目类别：</td>
<td>
<select name="QuestionID" style="WIDTH: 190px" >
<option value=""> </option>
<%
sql_select="select * from course "
rs2.Open sql_select,conn,adOpenStatic
while not rs2.EOF
%>
<option value="<%=rs2(0)%>">
<%=rs2(1)%>
</option>
<%
rs2.MoveNext
wend
%>
</select>
</td>
</tr>
<tr>
<td align=right>题目类型（单选/多选）：</td>
<td>
<select name="choose" style="WIDTH: 190px" >
<option value=""> </option>
<option value="Single">单选</option>
<option value="Mulriple">多选</option></select>
</td>
</tr>
<tr>
<td align=right>题干包含的文字：</td>
<td><input type="text" name="letter" size=25></td>
</tr>
<tr>
<td></td>
<td align=center><INPUT type="submit" value=" 提交 " id=submit name=submit></td>
</tr>
</table>
</form>
<%
sign=request("submit")
session("QuestionID")=Request.Form("QuestionID")
session("choose")=Request.Form("choose")
session("letter")=trim(Request.Form("letter"))
if sign=" 提交 " then
Response.Redirect("QuestionQuery.asp")
end if
'rs1.Close
rs2.Close
conn.close
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -