www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/reg.asp
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<link href=css.css rel=stylesheet type=text/css>
<title>超文本论坛 申请免费论坛第一步</title>
</head>
<body topmargin=0 style="background-attachment: fixed">
<!--#include file="conn.asp"-->
<!--#include file="hs_.asp"-->
<table cellpadding="0" cellspacing="0" width="97%" align=center height="406">
<tr>
<td height="147">
<p align="center">
<a href="http://www.textbbs.com"><img src="images/logo.gif" border="0"></a><p align="center">
</td>
</tr>
<%if request("pds")=empty then%>
<tr>
<td height="121" style="border: 2px solid #C0C0C0" bgcolor="#FFFFFF">
<form method="POST" action="reg.asp?pds=true">
<p align="center" class="text">用户名:<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="10" --><input type="text" name="T1" size="20" maxlength="10" value="<%=request("qz")%>">
<font color="#FF0000"><%=(request("errs"))%></font><input type="submit" value="提 交" name="B1">
<input type="reset" value="重 置" name="B2"></p>
</form>
</td>
</tr>
<%end if%>
<%
if request("pds")="true" then
A="reg.asp"
cnuser=Trim(Request("T1"))
if cnuser=empty then
response.redirect A & "?errs=请输入用户名!"
response.end
end if
if Fsql(cnuser)=true then
response.redirect A & "?errs=请不要输入特殊符号!"
response.end
end if
sql="select cnuser from zwuser where cnuser='"&cnuser&"'"
set rs=conn.execute(sql)
if not rs.eof then
response.redirect A & "?errs=对不起!该用户已注册请换一个用户名."
response.end
rs.close
set rs=nothing
dbcolse
else
response.redirect"reg1.asp?username="& cnuser
response.end
end if
pds="falsh"
end if
%>
<tr>
<td height="138">
<%bq%>
</td>
</tr>
</table>
</body>