📄 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-amil不能为空★"
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%}
body {
background-color: #86BF78;
}
-->
</style>
<meta name="generator" content="microsoft frongpage4.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<p class="font">
为了我们更好的为您服务,更准确及时的将您的订购的商品送到您的手中和你联系,请您务必详细填写您的信息,并核对无误;
国内用户请留下您的真实中文姓名.<br>请放心:您的资料未经您的允许,我们将只用于处理您的订货信息,对外保密.
<font face="arial">(</font>带<font color="#ff0000"><strong><span
class="main2">*</span></strong></font><font
color="#000080">号为必填项<font face="aroal">)</font></font></samp>
<br>
<form method="post" action="">
<p><table width="398" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#C479C8">
<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")+";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
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 + -