user_add.asp

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

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->

<%
dim rs,sql,rs1,sql1
dim zkz,namer,pass,class1,school,jianjie
zkz=request.form("zkz")
pass=request.form("password")
namer=request.form("name")
class1=request.form("class")
school=request.form("school")
set rs1=server.createobject("adodb.recordset")
sql1="select * from user where zkz='"&zkz&"'"
rs1.open sql1,conn,1,1
if rs1.eof then
set rs=server.CreateObject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,2,3
rs.addnew
rs("zkz")=zkz
rs("name")=namer
rs("password")=pass
rs("class")=class1
rs("school")=school
rs("kt")="unlock"
rs.update
rs.close
set rs=nothing
%>
<script language="vbscript">
msgbox("恭喜你添加考生操作成功~!")
window.location.href"user.asp"
</script>
<%
else
%>
<script language="vbscript">
msgbox("此准考证号已经被使用~!")
window.location.href"user.asp"
</script>
<%
rs1.close
set rs1=nothing
set conn=nothing
%>