📄 addrecord.asp
字号:
<!--#include file="adovbs.inc" -->
<html>
<head>
<title>添加记录 </title>
</head>
<body bgcolor="DFEFFD">
<%
Dim ConnStr,myConn,mySQL,myRec
dim myID
ConnStr="Provider=SQLOLEDB;data source=(local);initial catalog=masterasp;user id=sa;password=;" '
Set myConn=Server.CreateObject ("ADODB.Connection")
Myconn.ConnectionString=ConnStr
myConn.open '直接打开数据库连接
set myComm = Server.CreateObject("ADODB.COMMAND")
myID=request.form("login") '用户名
myName=request.form("realname") '真实姓名
myPass=request.form("passwd") '密码
myBirth=request.form("birth") '生日
myDip=request.form("diploma") '学历
if myDip="" then '在注册页面没有添加该表单控件
myDip="大学"
end if
myTel=request.form("telphone") '电话
myCell=request.form("cellphone") '手机
myIDCard=request.form("idCard") '身份证
myPro=request.form("state") '省份
myCity=request.form("city") '城市
myGender=request.form("gender") '性别
myQues=request.form("question") '提示问题
myAns=request.form("answer") '提示答案
myHomePage=request.form("homepage") '主页
myAdd=request.form("address") '地址
myPost=request.form("postcode") '邮政编码
if myID<>"" then
with myComm
.ActiveConnection = myConn
.CommandText ="insertrecord"
.CommandType =adCmdStoredProc
'创建存储过程参数
'获取存储过程的返回值，只需要设定CreateParameter的第3个参数为adParamReturnValue就可以了
set myPar=.CreateParameter("RetVal",adInteger,adParamReturnValue)
'将创建的参数添加到参数列表中
.Parameters.Append myPar
set myPar1=.CreateParameter("@UserID",adVarChar,adParamInput,50) '用户名
.Parameters.Append myPar1
.Parameters("@UserID")=myID
set myPar2=.CreateParameter("@UserPWD",adVarChar,adParamInput,50) '密码
.Parameters.Append myPar2
.Parameters("@UserPWD")=myPass
set myPar3=.CreateParameter("@UserName",adVarChar,adParamInput,50) '姓名
.Parameters.Append myPar3
.Parameters("@UserName")=myName
set myPar4=.CreateParameter("@Birth",adDate,adParamInput) '生日
.Parameters.Append myPar4
.Parameters("@Birth")=myBirth
set myPar5=.CreateParameter("@Diploma",adVarChar,adParamInput,50) '学历
.Parameters.Append myPar5
.Parameters("@Diploma")=myDip
set myPar6=.CreateParameter("@TelPhone",adVarChar,adParamInput,50) '电话
.Parameters.Append myPar6
.Parameters("@TelPhone")=myTel
set myPar7=.CreateParameter("@CellPhone",adVarChar,adParamInput,50) '手机
.Parameters.Append myPar7
.Parameters("@CellPhone")=myCell
set myPar8=.CreateParameter("@IDCard",adVarChar,adParamInput,50) '身份证
.Parameters.Append myPar8
.Parameters("@IDCard")=myIDCard
set myPar9=.CreateParameter("@Province",adVarChar,adParamInput,50) '省
.Parameters.Append myPar9
.Parameters("@Province")=myPro
set myPar10=.CreateParameter("@City",adVarChar,adParamInput,50) '市
.Parameters.Append myPar10
.Parameters("@City")=myCity
set myPar11=.CreateParameter("@Gender",adVarChar,adParamInput,50) '性别
.Parameters.Append myPar11
.Parameters("@Gender")=myGender
set myPar12=.CreateParameter("@PassQuestion",adVarChar,adParamInput,50) '提示问题
.Parameters.Append myPar12
.Parameters("@PassQuestion")=myQues
set myPar13=.CreateParameter("@PassAnswer",adVarChar,adParamInput,50) '答案
.Parameters.Append myPar13
.Parameters("@PassAnswer")=myAns
set myPar14=.CreateParameter("@HomePage",adVarChar,adParamInput,50) '主页
.Parameters.Append myPar14
.Parameters("@HomePage")=myHomePage
set myPar15=.CreateParameter("@Address",adVarChar,adParamInput,50) '地址
.Parameters.Append myPar15
.Parameters("@Address")=myAdd
set myPar16=.CreateParameter("@PostCode",adVarChar,adParamInput,50) '邮编
.Parameters.Append myPar16
.Parameters("@PostCode")=myPost
'因为不需要创建记录集，因此可以直接执行
.Execute()
end with
'判断返回值是否为0
if myComm.Parameters("RetVal")=0 then
response.write "<br>你注册成功，请回到登录页面！"
%>
<a href="../chap10/access/login.asp">单击这里链接到登录页面 </a>
<%
else
response.write "该帐号已经存在!"
%>
<!-- #include file="register.asp" -->
<%
end if
end if
myConn.close
set myConn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -