📄 user.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="../inc/md5.asp"-->
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="安徽二手市场">
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></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 leftMargin=0 topMargin=0>
<!--#include file="top.asp" -->
<table width="770" 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=""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>"
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("UserName1")=Request.Form("UserName1")
rs("year")=Request.Form("year")
rs("licencetype")=Request.Form("licencetype")
rs("sex")=Request.Form("sex")
rs("address")=Request.Form("address")
rs("code")=Request.Form("code")
rs("number")=Request.Form("number")
rs("book")=Request.Form("book")
rs("phone")=Request.Form("phone")
rs("Email")=Trim(Request.Form("Email"))
rs("CategoryName")=CategoryName
rs("RegDate")=Now()
rs("CatePub")=""
rs("CateAdm")=""
rs("isActive")=1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -