📄 save_setsapass_add.asp

📁 这是一个用ASP写的在线考试系统.特别一点就是考试试卷有两种考法,一种为系统自动出卷,另一种是老师出卷考试.前者的实现是参考网上代码.总的来说还是很值得参考的.

💻 ASP

字号:


<!--

****************************************************************
*
*                         【 版权声明 】
*
*     本系统只作为一种技术交流，不能用于商业，希望能给予合作。
*
****************************************************************
*
*　　如果你在使用这个程序的过程中有什么错误、意见、建议，请及时
*    告诉我，谢谢！
*
****************************************************************
*
* 安装说明：
*
*   默认的后台数据管理员用户名和密码都是：admin
*   默认的验证密码都是：firekinger
*　
****************************************************************几几点说明:

	题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a)	先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b)	添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c)	在试题后台设置中，选择要修改的考试题目，点击修改否
d)	再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e)	最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
-->
<!--#include file="conn2.asp"-->
<%
SaNameT=trim(request("SaName"))
SaPassT=trim(request("SaPass"))
tryT=request("try")
stuT=request("stu")
setT=request("set")
if tryT="" then
	tryT=False
end if
if stuT="" then
	stuT=False
end if
if setT="" then
	setT=False
end if
MaxIdSql="select Id from admin order by Id desc"
set rsT=conn.execute(MaxIdSql)
MaxIdT=rsT("ID")+1
adminSql="insert into admin values("&MaxIdT&",'"&SaNameT&"','"&SaPassT&"',"&tryT&","&stuT&","&setT&")"
'response.Write(adminSql)
'response.End()
set rsT=conn.execute(adminSql)
%>
<link href="../css/Style.css" rel="stylesheet" type="text/css">
<meta http-equiv="refresh" content="2;URL=setsapass.asp">
<body class="Xsmall">
<p><br>
<div align="center">正在添加新管理员数据...... </div>

<%
Session("sa_help")="添加新管理员完毕！"
conn.close
set conn=nothing
%>

</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -