网页注册程序的修改:
注册网页系统的把reg.asp
打开把下面代码覆盖就可以了:
<!--#include file="conn.asp" -->
<HTML><HEAD><TITLE>Gonde3会员注册系统</TITLE>
<meta http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="image/style.css" rel=stylesheet>
<script language="Javascript">
<!--
function CheckForm( ){
var txtNewUserID = document.frmSelUserID.NewUserID
var sUserID = txtNewUserID.value;
if(sUserID==""){
alert("请输入用户名!");
txtNewUserID.focus(); file://set focus
return false;
}
if( (sUserID.length<3) || (sUserID.length>20) ){
alert("用户名必须是3-20个字符!请重新输入。");
txtNewUserID.vlaue = ""; file://clear vlaue
txtNewUserID.focus();
return false;
}
return true;
}
file://-->
</script>
<meta content="MSHTML 5.50.4807.2300" name=GENERATOR>
</HEAD>
<BODY bgColor=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width="100%">
<DIV align=center>
<!--#include file="head.asp" -->
</DIV></TD></TR></TBODY></TABLE>
<TABLE height=59 cellSpacing=0 cellPadding=0 width="100%" background=""
border=0>
<TBODY>
<TR height=5>
<TD></TD></TR>
<TR>
<TD vAlign=center align=middle width="100%" bgColor=#7b0000
height=273><BR><BR>
<TABLE width=702 height=130 border=0 align="center" cellPadding=0 cellSpacing=0
valign="center">
<TBODY>
<TR>
<TD width=700
height=21 colSpan=2 class=white><FONT color=#ffffff>Gonde3账号注册系统</FONT></TD>
</TR>
<TR>
<TD vAlign=top align=left width=700 height=30>
<HR width=680 color=#c0c0c0 SIZE=1>
</TD></TR>
<TR>
<TD vAlign=top align=left width=644 height=9>
<%
if request("action")="add" then
username=trim(request("NewUserID"))
if username="" then
Response.Write ("用户名不能为空!!")
set rs=nothing
set conn=nothing
Response.End
end if
if Instr(1,username,"-")>=1 or instr(1,username,"'")>=1 then
Response.Write ("请输入有效的用户名!!")
set rs=nothing
set conn=nothing
Response.End
end if
sql="select * from TBL_ACCOUNT where FLD_LOGINID='"&username&"'"
conn.open connstr
rs.open sql,conn,1,3
if not rs.eof then
response.write "<strong><font color=#ffffff>错误:对不起,用户名</font><font color=#55ffff>"&username&"</font><font color=#ffffff>已经存在!请选择新的用户名。</font></strong>"
else
rs.addnew
rs("FLD_LOGINID")=trim(request.form("NewUserID"))
rs("FLD_PASSWORD")=trim(request.form("NewUserPAS"))
rs.update
rs.close
conn.close
set rs=nothing
Set Conn = Nothing
response.redirect "reg_form.asp?userid="&username&""
end if
end if
%><br>
<BR>
<B><FONT
color=#c0c0c0>用户名填写规则:</FONT></B> <BR><FONT color=#c0c0c0>◆ 3-16
个字,中/英文或数字皆可。 <BR>◆ 用户名中不可出现空格符。 <BR>◆ 可以使用这些字符: "破折号 -", "下划线 _",
"点 ."。 <BR>◆ 不可使用“&、%、$、*”等字符。 </FONT></TD></TR>
<TR>
<TD vAlign=top align=left width=644 height=191>
<FORM name=frmSelUserID
action=reg.asp?action=add method=post>
<P> </P>
<P><FONT color=#ffffff>用户名: </FONT>
<INPUT maxLength=16
size=16 name=NewUserID>
<br>
<FONT color=#ffffff>密 码: </FONT>
<INPUT name=NewUserPAS id="NewUserPAS"
size=16 maxLength=16>
<INPUT type=image
src="http://www.5uwl.net/wyjs/2005/image/button-next.gif" align=absMiddle border=0> <A
href="javascript :history.back();"><IMG
src="http://www.5uwl.net/wyjs/2005/image/button-cancel.gif" align=absMiddle border=0></A>
</P>
</FORM></TD></TR></TBODY></TABLE>
<CENTER></CENTER>
<DIV></DIV></TD></TR>
<TR>
<TD width="100%" colSpan=2>
<TABLE height=101 cellSpacing=0 cellPadding=0 width="100%" bgColor=#000000
border=0>
<TBODY>
<TR>
<TD vAlign=top align=left bgColor=#000000 colSpan=4 height=21>
<HR color=#983625>
</TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#983625 colSpan=4
height=80><!--#include file="copyright.asp" --></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>