📄 user.asp
字号:
end sub
sub addUser() ' ==========================新用户注册================================
set rs=server.createobject("adodb.recordset")
sql="select * from Admin_UserInfo where username='"&request.form("UserName")&"' and CategoryName='"&CategoryName&"'"
rs.open sql,conn,1,3
msgtitle="用户注册"
if not (rs.eof and rs.bof) then
msginfo="<br><li>对不起，您输入的用户名已经被注册，请重新输入。</li>"
else
rs.addnew
rs("UserName")=Checkstr(request.form("UserName"))
rs("PassWord")=md5(Checkstr(Trim(Request.Form("PassWord"))))
rs("Email")=Trim(Request.Form("Email"))
rs("CategoryName")=CategoryName
rs("RegDate")=Now()
rs("CatePub")=""
rs("CateAdm")=""
rs("isActive")=1
rs("isAdmin")=0
rs("CatePub")=0
rs("CateAdm")=0
rs.update
msginfo="<li>注册成功！</li><li><a href=""User.asp"" class=""articlelist"">登录系统</a></li><br><li><a href=""./"" class=""articlelist"">返回首页</a></li>"
end if
rs.close
set rs=nothing
call Sysmsg(msgtitle,msginfo)
end sub
sub modfiy() ' ==========================保存修改================================
set rs=server.createobject("adodb.recordset")
sql="select * from Admin_UserInfo where UserName='"&UserName&"' and UserID="&request.form("UserID")&" and CategoryName='"&CategoryName&"'"
rs.open sql,conn,1,3
msgtitle="修改信息"
if not(rs.eof and rs.bof) then
rs("PassWord")=md5(Checkstr(Trim(Request.Form("PassWord"))))
rs("Email")=Trim(Request.Form("Email"))
rs.update
msginfo="<li>修改成功！</li><li><a href=""User.asp"" class=""articlelist"">登录系统</a></li><br><li><a href=""./"" class=""articlelist"">返回首页</a></li>"
else
msginfo="<li>修改失败！</li>"
end if
rs.close
set rs=nothing
call Sysmsg(msgtitle,msginfo)
end sub
sub UserReg() ' ==========================注册页面================================
isedit=false
UserID=""
call myform(isedit)
end sub
sub myform(isEdit)
if isedit then
set rs=server.createobject("adodb.recordset")
sql="select * from Admin_UserInfo where UserName='"& session("sUserName") &"'"
rs.open sql,conn,1,1
myformTitle="修改信息"
else
myformTitle="用户注册"
end if
%>
<form name="myform" method="post" action="User.asp" target="_top" onSubmit="return Juge(this)" >
<input type="Hidden" name="action" value='<% If isedit then%>modfiy<% Else %>addUser<% End If %>'>
<%If isedit then%>
<input type="Hidden" name="UserID" value='<%=rs("UserID")%>'>
<%End If%>
<table width="73%" border="0" cellpadding="5" cellspacing="0" bgcolor="#CCCCCC" class="index">
<tr bgcolor="#F0F0F0">
<td colspan="2" class="tdbBig"><%=myformTitle%>：</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="34">用户名：</td>
<td width="406" height="34" bgcolor="#FFFFFF"><input type="text" name="UserName" size="38" maxlength="15" value=<% if isedit then
response.write "'"&rs("UserName")&"' disabled"
end if %>>
<font color="#FF0000">* <br>
</font> (2-12位 数字、大小字字母、“_”或者“-”)</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="25">密 码：</td>
<td bgcolor="#FFFFFF" height="25"> <input type="password" name="PassWord" value='<% if isedit then
response.write rs("PassWord")
end if %>' size="38" maxlength="15">
<font color="#FF0000">* </font></td>
</tr>
<tr bgcolor="#F0F0F0">
<td height="21" colspan="2" valign="middle" class="tdbBig">用户信息：</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="18">真实姓名：</td>
<td bgcolor="#FFFFFF" height="18"> <input name="UserName1" value='<% if isedit then
response.write rs("userName1")
end if %>' type="text" size="25" maxlength="12">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="18">性 别：</td>
<td bgcolor="#FFFFFF" height="18"> <select size="1" name="sex" value='<% if isedit then
response.write rs("sex")
end if %>' >
<option selected>帅哥</option>
<option>靓妹</option>
</select>
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="18">出生年月：</td>
<td bgcolor="#FFFFFF" height="18"> <input name="year" value='<% if isedit then
response.write rs("year")
end if %>' type="text" size="18" maxlength="12">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="3">城 市：</td>
<td bgcolor="#FFFFFF" height="3"> <select name="LicenceType" size="1">
<option value="合肥市" selected>合肥市</option>
<option value="其它市">其它市</option>
<option value="省外地区">省外地区</option>
<selected value=all> 选择所在地区
</select> </td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="3">通信地址：</td>
<td bgcolor="#FFFFFF" height="3"> <input name="address" value='<% if isedit then
response.write rs("address")
end if %>' type="text" size="18" maxlength="12">
</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="3">邮政编码：</td>
<td bgcolor="#FFFFFF" height="3"> <input name="code" value='<% if isedit then
response.write rs("code")
end if %>' type="text" size="18" maxlength="12">
</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="3">证件名称：</td>
<td bgcolor="#FFFFFF" height="3"> <select size="1" name="book" value='<% if isedit then
response.write rs("book")
end if %>'>
<option>身份证</option>
<option>工作证</option>
<option>军人证</option>
</select> </td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="3">证件号码：</td>
<td bgcolor="#FFFFFF" height="3"> <input name="number" value='<% if isedit then
response.write rs("number")
end if %>' type="text" size="18" maxlength="12">
</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF" height="3">电 话：</td>
<td bgcolor="#FFFFFF" height="3"> <input name="phone" value='<% if isedit then
response.write rs("phone")
end if %>' type="text" size="18" maxlength="12">
</td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF">邮箱地址：</td>
<td bgcolor="#FFFFFF"><input type="text" name="Email" value='<% if isedit then
response.write rs("Email")
end if %>' size="38" maxlength="50">
<font color="#FF0000">* </font></td>
</tr>
<tr>
<td width="78" align="right" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"> <input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit2" value="重 置"> <% if isedit then
rs.close
set rs=nothing
end if %> </td>
</tr>
</table>
</form>
<% end sub
sub loginPage()
if not isnull(UserName) and UserName<>"" then
msgtitle="用户操作"
msginfo="<li>用户登录成功！</li><li><a href=""Admin_Category.asp"" class=""articlelist""><b>添加二手信息</b></a></li><br><li><a href=""User.asp?action=UserEdit"" class=""articlelist"">修改用户信息</a></li><br><li><a href=""User.asp?action=logout"" class=""articlelist"">退出系统</a></li>"
call Sysmsg(msgtitle,msginfo)
else
%>
<form name="form1" method="post" action="User.Asp?action=login">
<table width="73%" border="0" cellpadding="3" cellspacing="0" bgcolor="#CCCCCC">
<tr bgcolor="#F0F0F0">
<td height="28" colspan="2" class="tdbBig">用户登录 >>></td>
</tr>
<tr>
<td width="82" align="right" bgcolor="#FFFFFF">用户名：</td>
<td width="409" bgcolor="#FFFFFF"><input name="UserName" type="text" size="18" maxlength="12">
(<a href="User.Asp?action=UserReg">新用户注册</a>)</td>
</tr>
<tr>
<td width="82" align="right" bgcolor="#FFFFFF">密 码：</td>
<td bgcolor="#FFFFFF"><input name="PassWord" type="password" size="18" maxlength="12"></td>
</tr>
<tr>
<td width="82" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF">
<input type="submit" name="Submit3" value=" 登 录 ">
<input type="reset" name="Submit22" value=" 重 设 ">
</td>
</tr>
</table>
</form>
<% end if
end sub
sub Sysmsg(msgtitle,msginfo)
%>
<table width="73%" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="27" bgcolor="#F0F0F0" class="tdbBig"><strong><%=msgtitle%></strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="tdbBig"><%=msginfo%></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" class="tdbBig"><a href="javascript:history.go(-1)" class="ArticleList"><<返回上一页</a></td>
</tr>
</table>
<%end sub %>
<br>
</td>
</tr>
</table>
<br>
<!--#include file="end.asp" -->
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -