📄 admindatasearch3.asp

📁 网络考试系统最终备份
💻 ASP
字号:
<!--#include file="conn.inc"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>试题查询</title>
<style type="text/css">
<!--
.STYLE3 {font-size: 9pt}
.STYLE4 {
	font-size: larger;
	font-weight: bold;
}
.STYLE5 {
	font-family: "宋体";
	font-size: 10pt;
}
-->
</style>
</head>

<body>
<%
v_subject=request("Subject")
v_knowledge=request("Knowledge")
v_diffrate=request("Diffrate")
v_questype=request("Questype")

bool_Subject=1
bool_Knowledge=1
bool_Questype=1

if v_subject=999 then
bool_Subject=0
end if

if v_knowledge=999 then
bool_Knowledge=0
end if

if v_questype=999 then
bool_Questype=0
end if
%>

<%
if bool_Subject=0 and bool_Knowledge=0 and bool_Questype=0 then
 sql="select * from question_database where DiffRate="&v_diffrate&""
 
elseif bool_Subject=0 and bool_Knowledge=0 and bool_Questype=1 then
 sql="select * from question_database where DiffRate="&v_diffrate&" and Que_Type="&v_questype&""
 
elseif bool_Subject=0 and bool_Questype=0 and bool_Knowledge=1 then
 sql="select * from question_database where DiffRate="&v_diffrate&" and Knowledge_ID="&v_knowledge&""
 
elseif bool_Questype=0 and bool_Knowledge=0 and bool_Subject=1 then
 sql="select * from question_database where DiffRate="&v_diffrate&" and Sub_ID="&v_subject&""
 
elseif bool_Subject=0 and bool_Knowledge=1 and bool_Questype=1 then
 sql="select * from question_database where DiffRate="&v_diffrate&" and Knowledge_ID="&v_knowledge&" and Que_Type="&v_questype&""
 
elseif bool_Subject=1 and bool_Knowledge=0 and bool_Questype=1 then
 sql="select * from question_database where DiffRate="&v_diffrate&" and Que_Type="&v_questype&" and Sub_ID="&v_subject&""
 
elseif bool_Subject=1 and bool_Knowledge=1 and bool_Questype=0 then
 sql="select * from question_database where DiffRate="&v_diffrate&" and Sub_ID="&v_subject&" and Knowledge_ID="&v_knowledge&""

else
 sql="select * from question_database where DiffRate="&v_diffrate&" and Sub_ID="&v_subject&" and Knowledge_ID="&v_knowledge&" and Que_Type="&v_questype&""
 
end if
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
%>

<table width="100%" height="25" border="0" cellspacing="0" bordercolor="#111111" id="AutoNumber2" style="border-collapse: collapse">
  <tr>
    <td width="100%" bgcolor="#ecf4ff"><span class="STYLE3">当前位置：<a href="news.asp">系统管理</a> &gt; <a href="admindatabaseselect.asp">题库管理</a> &gt; <a href="admindatabase.asp">试题管理</a> &gt; 试题查询</span></td>
  </tr>
</table>
<table width="100%" border="0">
  <tr>
    <td width="12%" height="40"><img src="images/3.jpg" width="85" height="31"></td>
    <td width="88%">&nbsp;</td>
  </tr>
</table>
<form name="form1" method="post" action="admindatabase.asp">
  <table width="100%" border="1" align="left" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C9DEF3">
    <tr>
      <td colspan="3"><div align="center" class="STYLE4 STYLE5">查询结果如下</div></td>
    </tr>
    <tr>
      <td height="23"><div align="center"><strong>试题号</strong></div></td>
      <td><div align="center"><strong>题干</strong></div></td>
      <td><div align="center"><strong>操作</strong></div></td>
    </tr>

	<%while not rs.eof%>	
	
    <tr bordercolor="#FFFFFF" bgcolor="#C9DEF3">
      <td width="10%" height="20"><%=rs("QueID")%>&nbsp;</td>
      <td width="84%"><%=rs("Question")%>&nbsp;</td>
      <td width="6%"><a href="admindatabaseedit.asp?QueID=<%=rs("QueID")%>">修改</a>&nbsp;</td>
    </tr>
<%
rs.movenext
wend
rs.close
%>	
	
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -