mdbcz.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 98 行

ASP
98
字号
<!--#include file="checkuser.asp"-->
<!--#include file="conn.asp"-->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from index where id=1"
rs.open sql,conn,1,1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>吻宇考试管理系统</title>
<style type="text/css">
<!--
body {
	background-color: #EFF8FE;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
	color: #000000;
}
.style1 {color: #FF0000}
-->
</style>
<script language="vbscript">
sub scoredel()
if confirm("你真的要删除所有考生的考试成绩吗?") then
window.location.href"mdbxw.asp?action=scoredel"
end if
end sub
sub shitidel(i)
num=i-1
if confirm("你真的要删除你所选的题库里的所有试题吗?") then
window.location.href"mdbxw.asp?action=shitidel&mdb=shiti"&num
end if
end sub
sub jsdel()
if confirm("你真的要清空计数器的所有数据吗?") then
window.location.href"mdbxw.asp?action=jsdel"
end if
end sub
</script>
</head>

<body>
<table align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
  <tr>
    <td colspan="2" bgcolor="#EFF8FE"><div align="center">欢迎来到吻宇考试管理系统<span class="style1">数据库管理</span></div></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#EFF8FE"><span class="style1"><strong>警告:在操作之前一定要经过慎重的考虑后再操作,删除后的数据将不能再恢复~!</strong></span></td>
  </tr>
  <tr>
    <td height="6" bgcolor="#EFF8FE">分数表的的操作:<span class="style1"></span></td>
    <td height="6" bgcolor="#EFF8FE"><span class="style1"><a href="#" onClick="call scoredel()">删除一切考生的考试成绩信息</a></span></td>
  </tr>
  <tr>
    <td height="7" bgcolor="#EFF8FE">计数器的操作:</td>
    <td height="7" bgcolor="#EFF8FE"><a href="#" onclick="call jsdel()">清空计数器的所有流量</a></td>
  </tr>
  <tr>
    <td width="106" bgcolor="#EFF8FE">题库表格的操作:</td>
    <td width="361" bgcolor="#EFF8FE"><span class="style1">下面将分组显示题库里列表,点击将删除题库里的所有试题</span></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#EFF8FE"><table cellspacing="1" cellpadding="1">
      <%for i=1 to rs("sjzs")%>
  <td width="76"><a href="#" onClick="call shitidel(<%=i%>)">题库<%=i%></a></td>
      <%
	   if int(i/5)=i/5 then
	   response.write"<tr></tr>"
	   end if
	   next%>
    </table>      </td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
set conn=nothing
%>

⌨️ 快捷键说明

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