📄 reg3.asp

📁 学生在线考试系统：ASP+VBScript 本人自己精心编码

💻 ASP

字号:

<html>
<head>
<title>注册结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../../css/forum.css" rel=stylesheet type=text/css>
					  
<%
'连接数据库
Dim conn,dbpath
dbpath=Server.MapPath("..\..\data\exam.mdb") 
Set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & dbpath
'执行SQL查询并将查询结果放置在rlist中
Dim DateTimeStr
DateTimeStr=CSTR(NOW()+TIME_ADJUST/24)
Dim strRs
strRs=Request.QueryString("username")
Dim rlist
Set rlist=Server.CreateObject("ADODB.Recordset")
Set rlist=conn.Execute("SELECT username FROM userinfo WHERE username='" & strRs & "'")
'如果用户名不存在

If NOT rlist.EOF THEN
    Response.Write("对不起，用户名"&strRs&"已经存在，请更换用户名！<br><br><a href='reg1.asp'>返回注册页面</a>")
    rlist.Close
Else
    rlist.Close

    rlist.open "SELECT * FROM userinfo ORDER BY username",conn,2,2

    rlist.AddNew
    rlist("username")=strRs
    rlist("password")=Request.Form("pwd1")
    rlist("tname")=Request.Form("truename")
    rlist("sex")=Request.Form("sex")
    rlist("regdate")=DateTimeStr
    rlist("cardno")=Request.Form("card_no")
    rlist("email")=Request.Form("email")
    rlist("phone")=Request.Form("phone")
    rlist("address")=Request.Form("address")
    rlist("counter")=0
    rlist.Update
    rlist.close

%>
<div align=center><b><%=Request.QueryString("username")%></b> 同学，你已经成功注册！<br><br>
</div>
<%
End if
conn.Close %>					  

  <div align="center"><font color="#336699"><a href="../../index.htm">现在登陆</a></font></div>



</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -