📄 admindatasearch.asp
字号:
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试题管理</title>
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function editit(id)
{
page="admindatabaseedit.asp?id="+id
window.open (page,'查看编辑题目','width=560,height=400')
}//编辑题目弹出固定大小的窗口
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}//选择题目
function viewit(myform)
{
if (confirm("确定浏览此条件下的纪录吗？"))
{
myform.action="admindatasearch.asp";
myform.submit();
}
}
function searchit(myform)
{
if (document.viewaddform.subjectview.value!="")
subject=document.viewaddform.subjectview.value;
else
subject="所有";
if (document.viewaddform.typeadd.value!="")
type=document.viewaddform.typeadd.value;
else
type="所有";
if (document.viewaddform.mykey.value!="--关键字--")
mykey=document.viewaddform.mykey.value;
else
mykey="";
result="在<"+subject+">科目中<"+type+">题型中搜索关键字<"+mykey+">？"
if (confirm(result))
{
myform.action="admindatasearch.asp";
myform.submit();
}
}//按照关键字查找
}//添加题目
function delit(myform)
{
result="是否从题库中删除所选项？"
if (confirm(result))
{
myform.action="admindatabasedel.asp";
myform.submit();
}
}//删除题目
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<a href="news.asp">系统管理</a> > <a href="admindatabaseselect.asp">题库管理</a> > 试题管理</td>
</tr>
</table>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%">
<form name="viewaddform" method="POST" action="admindatasearch.asp">
<tr>
<td>
<select size="1" name="subject" onChange="submit();">
<option value="选择科目" selected>选择科目</option>
<%
v_subID = trim(request("subject"))
vknow = request("sknow")
vsdiff = request("sdiff")
vsuser=request("suser")
vstatime = request("statime")
vendtime=request("endtime")
if v_subID = "选择科目" or v_subID = "" then
sql="select * from subject_info"
else
sql="select * from subject_info where SubID <> "&v_subID&""
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
%>
<option value="<%=rs("SubID")%>"><%=rs("SubName")%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
<%
if v_subID <> "选择科目" and v_subID<>"" then
sql="select * from subject_info where SubID = "&v_subID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<option selected value="<%=rs("SubID")%>"><%=rs("SubName")%></option>
<%
rs.close
set rs = nothing
end if
%>
</select>
<select name="sknow">
<option selected value="知识点">-知识点-</option>
<%
if v_subID<>"" and v_subID <> "选择科目" then
sql = "select * from knowledge_info where Sub_ID="&v_subID
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
%>
<option value="<%=rs("KnowID")%>"><%=rs("KnowName")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
end if
%>
</select>
<select ct name="sdiff">
<option>难度系数</option>
<option value="1">简单</option>
<option value="2"> 较易</option>
<option value="3"> 中等</option>
<option value="4"> 较难</option>
<option value="5">困难</option>
</select>
<select size="1" name="typeadd">
<option selected value="题型">--题型--</option>
<%
sql1 = "select * from question_type "
set rs1 = server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
do while not rs1.eof
%>
<option value="<%=rs1("QueType")%>"><%=rs1("QueTypeName")%></option>
<%rs1.movenext
loop
rs1.close
%>
</select>
<select name="suser">
<option>出题人</option>
<%
if v_subID = "选择科目" or v_subID = "" then
sql = "select set_User_ID from question_database group by set_User_ID"
ELSE
sql = "select set_User_ID from question_database where Sub_ID = "&v_subID&" group by set_User_ID"
END IF
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
%>
<option value="<%=rs("set_User_ID")%>">
<%
sqlU = "select * from user_info where UserID = "&rs("set_User_ID")
set rsU= server.CreateObject("adodb.recordset")
rsU.open sqlU,conn,3,2
response.Write(rsU("UserRName"))
rsU.close
set rsU = nothing
%>
</option>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</select>
出题时间：
<input name="statime" type="text" size="15" value="<%
sql = "select min(setTime) as mtime from question_database"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
vmintime = rs("mtime")
response.Write(vmintime)
rs.close
set rs = nothing
%>">
到
<input name="endtime" type="text" size="15" value="<%
sql = "select max(setTime) as mtime from question_database"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
response.Write(rs("mtime"))
vmaxtime = rs("mtime")
rs.close
set rs = nothing
%>">
<input type="submit" value="浏 览" name="I32" onClick="viewit(this.form)" class="s02"></td></tr>
<tr >
<td bordercolor="#CCCCCC" bgcolor="#FFFFFF">根据关键字查询
<input type="text" name="mykey" size="10" value="--关键字--" onFocus="this.select()" class="s01">
<input type="submit" value="查 询" name="I7" onClick="searchit(this.form)" class="s02"></td>
</tr>
</form>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="30">
<tr>
<td>
<p align="right">
<form name="myform" method="post" >
<div align="right">
<div ALIGN="right"></div>
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)" style="font-size: 9pt; color: #000000">
全部选择/取消
<input type="submit" value="删除所选项" name="I3" onClick="delit(this.form)" class="s02">
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<tr>
<td width="36" align="center" bgcolor="#E1E1E1" height="20"> </td>
<td width="72" align="center" bgcolor="#E1E1E1"><b>序号</b></td>
<td align="left" bgcolor="#E1E1E1" width="212">
<p align="center"> <b>科目名称</b></td>
<td width="369" align="left" bgcolor="#E1E1E1">
<p align="center"><b>题目内容</b></td>
<td align="left" bgcolor="#E1E1E1" width="58">
<p align="center"><b>操作</b></td>
</tr>
<%
v_subID = trim(request("subject"))
vknow = request("sknow")
typeadd = request("typeadd")
mykey = request("mykey")
vknow = request("sknow")
vsdiff = request("sdiff")
vsuser=request("suser")
vstatime = request("statime")
vendtime=request("endtime")
if vknow="" or vknow = "知识点" then
vknow = "%%"
end if
if vsdiff="" or vsdiff = "难度系数" then
vsdiff = "%%"
end if
if vsuser="" or vsuser = "出题人" then
vsuser = "%%"
end if
if v_subID="选择科目" or v_subID="" then
v_subID="%%"
end if
if typeadd="题型" or typeadd="" then
typeadd="%%"
end if
if mykey= "--关键字--" or mykey="" then
mykey="%%"
end if
' response.Write("vsdiff:"&vsdiff&"<br>")
' response.Write("vknow:"&vknow&"<br>")
' response.Write("vsuser:"&vsuser&"<br>")
' response.Write("v_subID:"&v_subID&"<br>")
'response.Write("typeadd:"&typeadd&"<br>")
if vstatime = "" then
vstatime = vmintime
end if
if vendtime = "" then
vendtime = vmaxtime
end if
' response.Write("vstatime:"&vstatime&"<br>")
' response.Write("vendtime:"&vendtime&"<br>")
'base.Knowledge_ID like '"&vknow&"' and base.DiffRate like '"&vsdiff&"' and base.set_User_ID like '"&vsuser&"' and setTime>='"&vstatime&"' and setTime <= '"&vendtime&"' and
PageCount=0
sql="select * from question_database base, subject_info sub where base.Knowledge_ID like '"&vknow&"' and base.DiffRate like '"&vsdiff&"' and base.set_User_ID like '"&vsuser&"' and setTime>='"&vstatime&"' and setTime <= '"&vendtime&"' and base.Sub_ID = sub.SubID and sub.SubID like '"&v_subID&"' and Que_Type like '"& typeadd &"' and Question like '%" & mykey &"%'"
set rs=conn.execute(sql)
while not rs.eof
PageCount=PageCount+1
rs.movenext
wend
sql="select * from question_database base, subject_info sub where base.Knowledge_ID like '"&vknow&"' and base.DiffRate like '"&vsdiff&"' and base.set_User_ID like '"&vsuser&"' and setTime>='"&vstatime&"' and setTime <= '"&vendtime&"' and base.Sub_ID = sub.SubID and sub.SubID like '"&v_subID&"' and Que_Type like '"& typeadd &"' and Question like '%" & mykey &"%'"
set rs=conn.execute(sql)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
PageSize = 10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
%>
<tr>
<td align="center" bgcolor="#E1E1E1">
<input name="id" type="checkbox" id="id" value="<%=rs("QueID")%>">
</td>
<td align="center"><%=i%></td>
<td align="left"><%=rs("SubName")%> </td>
<td align="left"><%=rs("Question")%> </td>
<td align="left">
<p align="center"><a href="javascript:editit(<%=rs("queid")%>)"> <img border="0" src="images/edit.gif" alt="查看/编辑"></a></td>
</tr>
<% rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</table>
<div ALIGN="right"> </div>
</div>
</form>
</td>
</tr>
</table>
<div ALIGN="right"></div>
<div ALIGN="right">
<table class="z1">
<form ACTION="<%=Myself%>?&subject=<%=v_subID%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>&sknow=<%=vknow%>&sdiff=<%vsdiff%>&suser=<%=vsuser%>&statime=<%=vstatime%>&endtime=<%=vendtime%>%>" METHOD="GET">
<tr>
<td style="font-size: 9pt; color: #000000">
<p ALIGN="right">
<%If Page <> 1 and Page <> 0 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&subject=<%=v_subID%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>&sknow=<%=vknow%>&sdiff=<%vsdiff%>&suser=<%=vsuser%>&statime=<%=vstatime%>&endtime=<%=vendtime%>">
<span class="z1">第一页</span></a>
<span class="z1"><a HREF="<%=Myself%>?Page=<%=(Page-1)%>&subject=<%=v_subID%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>&sknow=<%=vknow%>&sdiff=<%vsdiff%>&suser=<%=vsuser%>&statime=<%=vstatime%>&endtime=<%=vendtime%>">
上一页</a>
<%
End If
If Page <> PageCount Then ' 如果不是位于最后一页
%>
<a HREF="<%=Myself%>?Page=<%=(Page+1)%>&subject=<%=v_subID%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>&sknow=<%=vknow%>&sdiff=<%vsdiff%>&suser=<%=vsuser%>&statime=<%=vstatime%>&endtime=<%=vendtime%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=PageCount%>&subject=<%=v_subID%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>&sknow=<%=vknow%>&sdiff=<%vsdiff%>&suser=<%=vsuser%>&statime=<%=vstatime%>&endtime=<%=vendtime%>">
最后一页</a>
<% End If %>
输入页次:
<input NAME="Page" SIZE="3" CLASS="s01">
页次:<font COLOR="Red" ><%=Page%>/<%=PageCount%></font></span></p>
<p></td>
</tr>
</form>
</table>
</div>
</div>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -