useradd.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<%
if Request("action")="action" then
if Trim(Request.Form("UserId"))="" or Trim(Request.Form("PassWd"))="" then response.redirect "error.asp?id=004"
set rs=server.createobject("adodb.recordset")
sql="select * from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
rs.close
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=autohost.md5(Trim(Request.Form("PassWd")))
Set Autohost=nothing
else
passwd=Trim(Request.Form("PassWd"))
end if
sql="select * from [Agent_User] where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserId")=Trim(Request.Form("UserId"))
rs("PassWd")=passwd
rs("Email")="Email|00000"
rs("Grade")=Request.Form("Grade")
rs("Other")=Request.Form("Other")
rs("CreateDate")=date()
rs.update
rs.close
set rs=nothing
response.redirect "UserList.asp"
response.end
end if
%>

<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
添加会员
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 用户名称:
</td>
<td bgcolor=FFFFFF width=26%>
<input name="UserId" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
用户登录时所用ID号，英文或数字。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 用户密码:
</td>
<td bgcolor=FFFFFF>
<input name="PassWd" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF>
用户登录时所用密码
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 用户等级:
</td>
<td bgcolor=FFFFFF>
<SELECT name=Grade style="width:120px">
<%for i=1 to 5%>
<OPTION value="<%=i%>"><%=GradeText(i)%></OPTION>
<%next%>
</SELECT>
</td>
<td bgcolor=FFFFFF>
用户等级
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 备注说明:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="Other" style="width:370px" value="系统管理员手工添加">
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;
</td>
</tr>
</form>
</table>
<br>

</td>
</tr>
</table>

</TD></TR></TABLE>
<!--#include file="foot.asp"-->