📄 user.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="inc/md5.asp"-->
<HTML><HEAD><TITLE><%= Title_Name %><%= CategoryName_CHS %> ==>> 系统用户</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="视听新时空（网络电视，网络广播，免费电影：全球最大的中文网络电视，广播网站）">
<LINK href="style.css" type=text/css rel=stylesheet>
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>
<script language="javascript">
function openWin(files) {
var Win = window.open(files,"openScript","width=640,height=480,resizable=1,scrollbars=1,menubar=0,status=1" );
}
</script>
<SCRIPT language=javascript>
function Juge(){
if (document.myform.UserName.value==""){
alert ("你的用户名不可为空！");
document.myform.UserName.focus();
return(false);
}
if (checkusername(myform.UserName.value))
{
alert("注册名请使用数字,字母或中文字符,必须2-8有效字符,不能有空格!,");
myform.UserName.select();
myform.UserName.focus();
return (false);
}
if (document.myform.PassWord.value==""){
alert ("你的密码不可为空！");
document.myform.PassWord.focus();
return(false);
}
if (checktext(myform.PassWord.value))
{
alert("您输入的 \"密码\" 包含无效字符 !");
myform.PassWord.select();
myform.PassWord.focus();
myform.PassWord.value="";
return (false);
}
if (document.myform.Email.value==""){
alert ("你的邮箱地址不可为空！");
document.myform.Email.focus();
return(false);
}
if ((document.myform.Email.value.indexOf("@") == -1) || (document.myform.Email.value.indexOf(".") == -1)){
alert("请查看您的E-mail地址是否正确，请重录入!");
document.myform.Email.focus();
return(false);
}
if (Check_Email(document.myform.Email.value)==true) {
alert("请您正确填好电子邮件栏！");
document.myform.Email.focus();
return(false);
}
}
function checkusername(text)
{
allValid = false;
if (text.length < 2)
{
allValid = true;
}
var notuser = "°′″＄￡￥‰％℃¤￠≈≡≠＝≤≥＜＞≮≯∷±＋－×÷／∫∮∝∞∧∨∑∏∪∩∈∵∴⊥∥∠⌒⊙≌∽√々＿￣〓＾＼→←↑↓※§№★☆○●◎◇◆□■△▲＃＆＠１２３４５６７８９０～！＂＇·＃￥％……ˇ＠¨〈〉「」『』．‖々〃〔〕〖〗—（），。【】《》？；‘：“”［］｛｝—＋＝｜｀、《》~`!@#$%^&*()_+|-=\'?/<>[],.:;";
for (i = 0; i < text.length; i++)
{
for (j = 0; j < notuser.length; j++)
{
if (text.charAt(i) == notuser.charAt(j))
{
allValid = true;
break;
}
}
if (text.charAt(i) == " ")
{
allValid = true;
break;
}
}
return allValid;
}
function checktext(text)
{
allValid = false;
if (text.length < 2)
{
allValid = true;
}
if (text.length > 12)
{
allValid = true;
}
var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_";
for (i = 0; i < text.length; i++)
{
ch = text.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = true;
break;
}
}
return allValid;
}
function Check_Email(string){
var str_len = string.length;
if (str_len<=5){
return(false);
}
for(i=0;i<str_len;i++){
if (string.charCodeAt(i)>127){
return(false);
}
}
if (string.indexOf("@")<2){
return(false);
}
if (string.indexOf(".")<4){
return(false);
}
if (string.indexOf(":")!=-1){
return(false);
}
}
</SCRIPT>
<BODY text=#003300 vLink=#002200 bgColor=#336699 leftMargin=0 topMargin=0>
<!--#include file="head.asp" -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF" ><br>
<%
select case request("action")
case "login" '登录
call login()
case "logout" '退出
call logout()
case "UserEdit" '编辑页面
call UserEdit()
case "UserReg" '注册页面
call UserReg()
case "addUser" '注册
call addUser()
case "UserKill" '自杀
call UserKill()
case "modfiy" '修改
call modfiy()
case else
call loginPage() '登录
end select
sub login() ' ==========================登录================================
UserName=Checkstr(request.form("UserName"))
PassWord=md5(Checkstr(Trim(Request.Form("PassWord"))))
set rs=server.createobject("adodb.recordset")
sql="select UserName,PassWord from Admin_UserInfo where UserName='" & UserName & "' and PassWord='" & PassWord & "' and isActive=-1 and CategoryName='"&CategoryName&"'"
rs.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
response.end
else
if not rs.eof and not rs.bof then
session("sUserName")=rs("UserName")
session("sPassWord")=rs("PassWord")
msgtitle="用户登录"
msginfo="<li>用户登录成功！</li><li><a href=""Admin_index.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>"
else
msgtitle="用户登录"
msginfo="<li>提示：密码错误、帐号可能被锁定或者用户不存在！</li>"
end if
end if
rs.close
set rs=nothing
call Sysmsg(msgtitle,msginfo)
end sub
sub logout() ' ==========================退出================================
session("sUserName")=""
session("sPassWord")=""
msgtitle="用户退出"
msginfo="<li>用户退出成功！</li><li><a href=""User.Asp"" class=""articlelist"">重新登录</a></li><br><li><a href=""./"" class=""articlelist"">返回首页</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
sub UserEdit() ' ==========================编辑================================
if session("sUserName")="" or session("sPassWord")="" then
msgtitle="修改信息"
msginfo="<li>非法操作！你没有登录系统，或者登录超时。</li><li><a href=""User.asp"" class=""articlelist"">重新登录</a></li><br><li><a href=""./"" class=""articlelist"">返回首页</a></li>"
call Sysmsg(msgtitle,msginfo)
else
isedit=true
call myform(isedit)
end if
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")=0
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="65%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" bgcolor="#E4E4E4" class="tdbBig"><%=myformTitle%></td>
</tr>
<tr>
<td width="80" align="right" bgcolor="#FFFFFF">用户名：</td>
<td 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="80" align="right" bgcolor="#FFFFFF">密 码：</td>
<td bgcolor="#FFFFFF"> <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>
<td width="80" 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="80" 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_index.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="65%" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" bgcolor="#E4E4E4" class="tdbBig">用户登录 >>></td>
</tr>
<tr>
<td width="80" align="right" bgcolor="#FFFFFF">用户名：</td>
<td bgcolor="#FFFFFF"><input name="UserName" type="text" size="18" maxlength="12">
(<a href="User.Asp?action=UserReg">新用户注册</a>)</td>
</tr>
<tr>
<td width="80" align="right" bgcolor="#FFFFFF">密 码：</td>
<td bgcolor="#FFFFFF"><input name="PassWord" type="password" size="18" maxlength="12"></td>
</tr>
<tr>
<td width="80" 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="65%" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#E4E4E4" 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>
<!--#include file="foot.asp" -->
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -