📄 new1.asp
字号:
<!--#include file="conn2.asp"-->
<!--#include file="chkinput.asp"-->
<%If Request.Cookies("enshi")("VIPManages")="enshi" Then%>
<%
dim key1, key2, key3, name, pass, passwen, passda, email, xingming, sex, oicq, icq, msn, shengri, home, touxing
name=Request("name")
pass=Request("password")
Passwen=Request("Passwen")
Passda=Request("Passda")
email=Request("email")
xingming=Request("xingming")
Sex=Request("Sex")
Oicq=Request("Oicq")
Icq=Request("Icq")
MSN=Request("MSN")
shengri=Request("shengri")
Home=Request("Home")
touxiang=Request("touxiang")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>my bbs</title>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#include file="top2.asp"-->
<%
if name="" and pass="" and passwen="" and passda="" and email="" and sex="" Then
key1="添 加 失 败"
key2="new.asp"
key3="非法的操作"
Else
Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL1= "Select * from id Where name='"&name&"'"
rs1.open sql1, conn, 1, 1
if name="" or strLength(name)>Cint("16") or strLength(name)<Cint("3") then
key1="添 加 失 败"
key2="new.asp"
key3="用户名的长度不能小于3或是大于16"
else
if pass="" or strLength(pass)>Cint("16") or strLength(pass)<Cint("6") Then
key1="添 加 失 败"
key2="new.asp"
key3="密码的长度不能小于6或是大于16"
else
if IsValidEmail(trim(request("email")))=false Then
key1="添 加 失 败"
key2="new.asp"
key3="您填写的Email地址是错误的"
else
if rs1.bof and rs1.eof Then
rs.AddNew
rs("name")=name
rs("pass")=pass
rs("passwen")=passwen
rs("passda")=passda
rs("email")=email
if xingming="" Then
xingming="保密"
rs("xingming")=xingming
Else
rs("xingming")=xingming
End if
rs("sex")=sex
if oicq="" Then
oicq="保密"
rs("oicq")=oicq
Else
rs("oicq")=oicq
End if
if icq="" Then
icq="保密"
rs("icq")=icq
Else
rs("icq")=icq
End if
if msn="" Then
msn="保密"
rs("msn")=msn
Else
rs("msn")=msn
End if
if shengri="" Then
shengri="保密"
rs("shengri")=shengri
Else
rs("shengri")=shengri
End if
if home="" Then
home="保密"
rs("home")=home
Else
rs("home")=home
End if
rs("touxiang")=touxiang
rs.Update
key1="添 加 成 功"
key2="admin.asp"
key3="添加成功,请返回首页!"
Else
key1="添 加 失 败"
key2="new.asp"
key3="用户名重复,请返回重新填写!"
End if
End if
End if
End if
End if
%>
<br><br><br>
<table border="1" cellspacing="0" cellpadding="0" width="416" align="center" height="10" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<TR>
<td colspan="2" height="20" background="images/mmTo.gIf" width="416" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699">
<%=key1%></font></p>
</div>
</td>
</TR>
<TR>
<td height="50">
<p align="center"><font color="#336699"><a id="backforumlink" href="<%=key2%>"><%=key3%></a></font></p>
<SCRIPT language="javascript" type="text/javascript">setTimeout("location.href = backforumlink.href",3000);</SCRIPT>
</td>
</TR>
</table>
</body>
</html>
<%
Else
response.redirect "login2.asp"
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -