📄 search.asp
字号:
<%@ Language=VBScript%>
<%option explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''
%> <!-- #INCLUDE FILE = "connect_ama.asp" --> <%
dim myrs
set myrs = server.createobject("ADODB.recordset")
myrs.open "select q_id from q_bank",myconn
''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Question ID</title>
</head>
<body>
<table width="80%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong style="font-weight: 400"><span lang="zh-cn">
<font size="4">试题查询</font></span></strong> </P>
</td>
</tr>
</table><br>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%">
<tr>
<td width="100%">
<form method="POST" name="form_go" action="editor.asp">
<p><span lang="zh-cn">试题序号：</span> <select size="1" name="q_id">
<%
dim printstr
response.write "<option value="& myrs("q_id") &" selected>" & myrs("q_id") & "</option>"
myrs.movenext
while not myrs.EOF
response.write "<option value=" & myrs("q_id") & ">" & myrs("q_id") &"</option>"
myrs.movenext
wend
%>
</select> <input type="submit" value="GO" name="go">
</p>
</form>
<p> </td>
</tr>
</table>
<form method="POST" name="form_search" action="editor.asp">
<p> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%">
<tr>
<td width="50%"><span lang="zh-cn">试题关键字：</span></td>
<td width="50%"> <p><input type="text" name="T2" size="20"> <input type="submit" value="Search" name="search"></p>
<p> </td>
</tr>
</table>
</form>
<p> </p>
<table width="80%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong style="font-weight: 400"><span lang="zh-cn">
<font size="4">在线考试系统</font></span></strong> </P>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -