📄 newuseradd.asp
字号:
<%@ Language=VBScript %>
<%option explicit
dim name,tel,addr,email,zip,pw1,pw2,temp
dim founderr,errmsg
founderr=false
temp=request.form("nicename")
name=Request.Form("name")
if name="" then
founderr=true
errmsg="姓名不能为空"
end if
tel=Request.Form("tel")
if tel="" then
founderr=true
errmsg=errmsg & "联系电话不能为空"
end if
addr=Request.Form("addr")
if addr="" then
founderr=true
errmsg=errmsg & "联系地址不能为空"
end if
email=Request.Form("email")
if email="" then
founderr=true
errmsg=errmsg & "e-mail不能为空!"
end if
zip=Request.Form("zip")
if zip="" then
founderr=true
errmsg=errmsg & "邮编不能为空!"
end if
pw1=Request.Form("password1")
pw2=Request.Form("password2")
if (pw1="" or pw1<>pw2) then
founderr=true
errmsg=errmsg & "密码错误!"
end if
if founderr then
Response.Write errmsg
%>
<html>
<head>
<style>
<!--
.FONT {
COLOR: navy; FONT-FAMILY: "宋体"; FONT-SIZE: 12px; LINE-HEIGHT: 14px
}
.3dfont {
FILTER: glow(color=ffffff,strength=0) shadow(color=aaaaaa,direction:135); POSITION: relative; WIDTH: 100%
}
-->
</style>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body>
<p class="FONT">
为了我们更好的为您服务，更准确及时的将您订购的商品送到您的手中和与您联系，请您务必详细填写您的信息，并核对无误；
国内用户请留下您的真实中文姓名。<br>请放心：您的资料未经您的允许，我们将只用于处理您的订货信息，对外保密。 <font face="Arial">(</font>带<font color="#ff0000"><strong><span class="main2">＊</span></strong></font><span class="16v"><font color="#000080">号为必填项<font face="Arial">)</font></font></span>
<br>
<form method="POST" action="" >
<p><table border="1" cellPadding="1" cellSpacing="1" width="398" align="center">
<tr>
<td class="FONT" width="77" align="left">昵称</td>
<td width="305" align="left"><input type="hidden" name="nicename" size="20" value="<%=temp%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">姓名<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="text" name="name" size="20" value="<%=name%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">联系电话<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="text" name="tel" size="20" value="<%=tel%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">联系地址<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="text" name="addr" size="20" value="<%=addr%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">E_mail:<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="text" name="email" size="20" value="<%=email%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">邮编：<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="text" name="zip" size="20" value="<%=zip%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">密码：<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="password" name="password1" size="20" value="<%=pw1%>"></td></tr>
<tr>
<td class="FONT" width="77" align="left">确认密码<font color="#ff0000"><strong><span class="main2">＊</span></strong></font></td>
<td width="305" align="left"><input type="password" name="password2" size="20" value="<%=pw2%>"></td></tr></table>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
</body>
</html>
<%else
dim connstr,conn,rs,sql
connstr="dbq="+server.MapPath("mdb/bookshop.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from guest "
rs.open sql,conn,3,3
if rs.EOF=true then
rs.MoveLast
end if
rs.AddNew
rs("nicename")=temp
rs("name")=name
rs("tel")=tel
rs("addr")=addr
rs("zip")=zip
rs("email")=email
rs("password")=pw1
rs.Update
rs.Close
conn.Close
set conn=nothing
set rs=nothing
%>
<script language="javascript">
alert("已经成功添加了一条记录!谢谢!")
document.location="bookright.asp"
</script>
<% end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -