📄 user.asp
字号:
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="750" height="384" border="0" cellpadding="5" cellspacing="0" bgcolor="#CCCCCC" class="index">
<tr bgcolor="#F2F2F2">
<td colspan="2" class="tdbBig" height="21" valign="middle">注册必须信息：</td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#FFFFFF" height="34">用户名：</td>
<td bgcolor="#FFFFFF" height="34"><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="100" 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="#F2F2F2">
<td colspan="2" class="tdbBig" height="21" valign="middle">用户个人信息：</td>
</tr>
<tr>
<td width="100" 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="100" 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>
<option>靓妹</option>
</select> <font color="#FF0000">* </font> </td>
</tr>
<tr>
<td width="100" 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="100" align="right" bgcolor="#FFFFFF" height="3">省份：</td>
<td bgcolor="#FFFFFF" height="3"> <select name="LicenceType" size="1">
<selected value=all>选择所在地区 <OPTION
value=1>北京</OPTION><OPTION value=2>上海</OPTION><OPTION
value=3>天津</OPTION><OPTION value=4>重庆</OPTION><OPTION
value=5>黑龙江</OPTION><OPTION value=6>吉林</OPTION><OPTION
value=7>辽宁</OPTION><OPTION value=8>内蒙</OPTION><OPTION
value=9>新疆</OPTION><OPTION value=10>甘肃</OPTION><OPTION
value=11>宁夏</OPTION><OPTION value=12>山西</OPTION><OPTION
value=13>陕西</OPTION><OPTION value=14 selected>河南</OPTION><OPTION
value=15>河北</OPTION><OPTION value=16>山东</OPTION><OPTION
value=17>西藏</OPTION><OPTION value=18>四川</OPTION><OPTION
value=21>青海</OPTION><OPTION value=23>湖南</OPTION><OPTION
value=24>湖北</OPTION><OPTION value=25>江西</OPTION><OPTION
value=26>安徽</OPTION><OPTION value=27>江苏</OPTION><OPTION
value=28>浙江</OPTION><OPTION value=29>福建</OPTION><OPTION
value=30>云南</OPTION><OPTION value=31>贵州</OPTION><OPTION
value=32>广西</OPTION><OPTION value=34>广东</OPTION><OPTION
value=35>海口</OPTION><OPTION value=36>香港</OPTION><OPTION
value=37>澳门</OPTION><OPTION value=38>台湾</OPTION><OPTION
value=39>其他</OPTION> </select> </td>
</tr>
<tr>
<td width="100" 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="100" 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="100" 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="100" 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="100" 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="100" align="right" bgcolor="#FFFFFF" height="18">邮箱地址：</td>
<td bgcolor="#FFFFFF" height="18"> <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="80" align="right" bgcolor="#FFFFFF" height="27"> </td>
<td bgcolor="#FFFFFF" height="27"> <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=""default.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="770" border="0" cellpadding="3" cellspacing="0" bgcolor="#CCCCCC" class="index">
<tr bgcolor="#F2F2F2">
<td height="26" colspan="2" class="tdbBig"><div align="center">管理员登录 >>></div></td>
</tr>
<tr>
<td width="351" height="30" align="right" bgcolor="#FFFFFF">用户名：</td>
<td width="405" bgcolor="#FFFFFF"><input name="UserName" type="text" size="18" maxlength="12"></td>
</tr>
<tr>
<td width="351" height="31" align="right" bgcolor="#FFFFFF">密 码：</td>
<td bgcolor="#FFFFFF"><input name="PassWord" type="password" size="18" maxlength="12"></td>
</tr>
<tr>
<td width="351" 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="750" border="0" cellpadding="3" cellspacing="0" bgcolor="#CCCCCC" class="index">
<tr>
<td height="31" bgcolor="#F2F2F2" class="tdbBig"><div align="center"><strong><%=msgtitle%></strong></div></td>
</tr>
<tr>
<td height="32" bgcolor="#FFFFFF" class="tdbBig"><div align="center"><%=msginfo%></div></td>
</tr>
<tr>
<td height="29" align="center" bgcolor="#FFFFFF" class="tdbBig"><a href="javascript:history.go(-1)" class="ArticleList"><<返回上一页</a></td>
</tr>
</table>
<%end sub %>
<br>
</td>
</tr>
</table>
<!--#include file="end.asp" -->
</BODY></HTML>
<%
CloseDatabase
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -