📄 join.asp
字号:
<!-- #include virtual="../itest/DB.fun" -->
<head>
<title>注册成功，请记住账号</title>
<%
'得到传递的信息
Name = Request("Name")
Address = Request("Address")
Email = Request("Email")
Subject = Request("subject")
creer = Request("creer")
' 检查是否为空白
If name = Empty Or address = Empty Or email = Empty Or subject = Empty Or creer = Empty Then
ShowMessage "单元留白，不接受!"
End If
' 检查 Email
If InStr( Email, "@" ) = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
ShowMessage "Email 错误，请重新输入!"
End If
'给学员按一定的要求编号
UserID=right(year(date),2)&month(date)&day(date)&hour(time)&minute(time)&second(time)'培训注册时间编号参数
'province=cstr(20) '广东省的编号
randomize()
RndNo=cstr(fix(rnd*10)+1) '随机数编号，如果这种情况下还有重复就忽略了
UserID=UserID & RndNo
SQL = "Select * From 成绩单"
Set rs = GetMdbRecordset( "Test.mdb", SQL )
'信息入库
rs.AddNew
rs("学号") = UserID
rs("姓名") = Name
rs("Address") = Address
rs("Email") = Email
rs("Subject") = Subject
rs("Creer") =Creer
rs.Update
ShowMessage "您已经成功注册！学号是" & UserID
%>
<%
Sub ShowMessage( msg )
%>
</head>
<CENTER>
<H2><%=msg%><HR></H2>
<FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();">
</FORM>
</CENTER>
<p align="center"><font size="2" color="#FF0000">
注：此处由系统提供的学号（注册号）一定要用笔记下来，进入考试的时候需要通过该账号登录。</font></p>
<div align="center"><font size="2"><a href="ENTER.ASP">返回考试</a></font></div>
<%
Response.End
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -