📄 zhucheok.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员注册</title>
<style type="text/css">
<!--
body {
background-color: #f9f9f9;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body scroll=no>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0"
<tr>
<td><img name="" src="" width="8" height="260" alt=""></td>
</tr>
<tr>
<td><div align="center" class="宋体 STYLE1">
<%
zzh=request("zzh")
if request("zmm1")=request("zmm2") then
zmm1=request("zmm1")
else
response.Write "密码不符合要求"
end if
znn=request("znn")
zxb=request("zxb")
doing=request("doing")
email=request("email")
zdh=request("zdh")
zdzi=request("zdzi")
if zzh="" or zmm1="" or znn="" or zxb="" or doing="" or email="" or zdh="" or zdzi="zdzi" then
response.Write "您还没有填完整哦"
end if
set strconn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("bookstore.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
strconn.open connstr
set rst=server.createobject("adodb.recordset")
strsql="select * from 注册表 where 帐号='"&zzh&"'"
rst.open strsql,strconn,1,1
if rst.recordcount>=1 then
response.write "<center><b><font size=2>错误提示:该信息已经存在!</font></b></center>"
response.end
else
set rst=server.createobject("adodb.recordset")
strsql="select * from 注册表 where 帐号='"&zzh&"'"
rst.open strsql,strconn,1,2
rst.addnew
rst("帐号")=zzh
rst("密码")=zmm1
rst("年龄")=znn
rst("性别")=zxb
rst("身份")=doing
rst("电子邮件")=email
rst("联系电话")=zdh
rst("居住地址")=zdzi
rst.update
response.write "<center><b><font size=2>恭喜您，您已成功注册!</font></b></center>"
response.end
end if
rst.close
set rst=nothing
strconn.close
set strconn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -