📄 exam_signup.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>
<%
set myconn=Server.CreateObject("ADODB.Connection")
myconn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;data source=(local);User ID=sa;Initial Catalog=exam"
myconn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from userlogin where userid='"&Request.Form("userid")&"'",myconn,1,3
if rs.eof then
on error resume next
rs.AddNew
rs("userid")=Request.Form("userid")
rs("fname")=Request.Form("fname")
rs("lname")=Request.Form("lname")
rs("password")=Request.Form("passwd1")
rs("dob")=Request.Form("dob")
rs("gender")=Request.Form("gender")
rs("street")=Request.Form("street")
rs("city")=Request.Form("city")
rs("state")=Request.Form("state")
rs("country")=Request.Form("country")
rs("zipcode")=Request.Form("zipcode")
rs("phone1")=Request.Form("phone1")
rs("phone2")=Request.Form("phone2")
if err.number<0 then
%>
<h3><span style="font-weight: 400">输入不合法!</span></h3><!--#include file="exam_signup.htm"-->
<%
rs.CancelUpdate
else
rs.update
%>
<h3><span style="font-weight: 400">用户创建成功，请登录！</span></h3>
<!--#include file="exam_login.asp"-->
<%
end if
else%>
<h3><span style="font-weight: 400">用户名已经存在，请重新注册！</span></h3>
<!--#include file="exam_signup.htm"-->
<%end if%>
</P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -