📄 regok.asp
字号:
<% @language="vbscript" %> <%
response.buffer=true
Response.Expires=0
%>
<!--#include file="articleconn.asp"-->
<%
username2=request("username2")
sexsele=request("sexsele")
passwd2=request("passwd2")
passwd3=request("passwd3")
email2=request("email2")
addr2=request("addr2")
ask=request("ask")
answer=request("answer")
oicq2=request("oicq2")
infor2=request("infor2")
Session.Contents("username2")=username2
Session.Contents("passwd2")=passwd2
if username2="" then
response.redirect "error.asp?id=012"
response.end
end if
if passwd2="" then
response.redirect "error.asp?id=013"
response.end
end if
if passwd2=username2 then
response.redirect "error.asp?id=027"
response.end
end if
if passwd2<>passwd3 then
response.redirect "error.asp?id=071"
response.end
end if
if email2="" then
response.redirect "error.asp?id=016"
response.end
end if
if Instr(email2,"@")=0 Then
response.redirect "error.asp?id=051"
response.end
end if
if ask="" then
response.redirect "error.asp?id=014"
response.end
end if
if answer="" then
response.redirect "error.asp?id=015"
response.end
end if
if infor2="" then
response.redirect "error.asp?id=017"
response.end
end if
if len(username2)<2 then
response.redirect "error.asp?id=024"
response.end
end if
if len(username2)>=20 then
response.redirect "error.asp?id=023"
response.end
end if
if len(passwd2)<6 then
response.redirect "error.asp?id=077"
response.end
end if
if len(passwd2)>=10 then
response.redirect "error.asp?id=072"
response.end
end if
if len(infor2)>=400 then
response.redirect "error.asp?id=050"
response.end
end if
set rstmp=conn.execute("Select * from admin Where username='"&trim(request.form("username2"))&"'")
if not rstmp.eof then
response.redirect "error.asp?id=030"
response.end
else
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from admin",conn,3,2
rst.addnew
rst("oskey")="input"
rst("Passwd")=Passwd2
rst("Username")=UserName2
rst("ask")=ask
rst("answer")=answer
rst("date")=year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
rst("sex")=sexsele
rst("email")=email2
rst("oicq")=oicq2
rst("amount")="0"
rst("grade")="1"
rst("addr")=addr2
rst("infor")=infor2
rst.update
%>
<html>
<head>
<title>注册成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
-->
</style>
<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>
<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<!--#include file="main.htm"-->
<table width="762" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td class="p1" align="center" height="8">
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#C0C0C0">
<tr>
<td class="f" > 您的位置>>风格写手>>会员注册</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="762" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000" align="center">
<tr >
<td bgcolor="#FFFFFF" height="326" width="282" valign="top" ><table width="95%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td class="f" > <font color="#993300"> ※ 为了更方便地便于作者进行自己文章和网友对文章的相关评论进行管理，增强网友与网络文学作者联系的交互性，建议您注册。</font>
<p class="font1"><font color="#993300"> ※ 用户进行注册时，所用笔名、密码以及Email为必填项目。其它可以自由填写，为了增加网站与作者的联系，我们强烈建议您尽量填写完整，你的资料不会对外公布。</font></p>
<p class="font1"><font color="#993300"> ※ 作者所发表的文章超过20篇后，系统在首面自动显示您的个人专栏，您可以进入管理页面对您的文章进行管理。</font></p>
<p class="font1"><font color="#993300"> ※ 如果您有问题以及意见，可以通过管理员邮件及时反馈给我们！</font></p>
</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" height="326" valign="top" class="f" >
<div align="center"><font color="#FF0000"><b>注册成功，您的资料</b></font>
</div>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="0" class="f" >
<tr>
<td width="63">用户名：</td>
<td width="340"> <%=rst("username")%></td>
</tr>
<tr>
<td>用户密码：</td>
<td> <%=rst("passwd")%></td>
</tr>
<tr>
<td>用户性别：</td>
<td> <%=rst("sex")%> </td>
</tr>
<tr>
<td>电子邮箱：</td>
<td> <%=rst("email")%></td>
</tr>
<tr>
<td>地 址：</td>
<td> <%=rst("addr")%> </td>
</tr>
<tr>
<td>OICQ号码：</td>
<td> <%=rst("oicq")%> </td>
</tr>
<tr>
<td>密码提示：</td>
<td> <%=rst("ask")%></td>
</tr>
<tr>
<td>提示答案：</td>
<td> <%=rst("answer")%> </td>
</tr>
<tr>
<td>当前等级：</td>
<td> 无</td>
</tr>
<tr>
<td height="75">个人签名：</td>
<td> <%=rst("infor")%> </td>
</tr>
<tr>
<td colspan="2">
<p align=center><font color="#FF0000">注册成功</font>，请到<a href="default.asp"><font color="#FF0000">首页</font></a>登录<span lang="zh-cn">后</span>发表作品
</p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="mai.htm"-->
</body>
</html>
<%
rs.close
set conn=nothing
set rs=nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -