user.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<!--#include file="inc/md5.asp"-->
<% strHeader=replace(strHeader,"</HEAD>","</HEAD>"&Copyright&"")
strTitle=System_info(0)&" → 用户操作"
strHeader=replace(strHeader,"$Title$",""&strTitle&"")
Response.Write(replace(strHeader,"../","./")) %>
<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.RealName.value==""){
       alert ("你的真实姓名不可为空！");
       document.myform.RealName.focus();
       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);
	}	

    if (document.myform.Address.value==""){
       alert ("你的联系地址不可为空！");
       document.myform.Address.focus();
       return(false);
    }
    if (document.myform.Phone.value==""){
       alert ("你的联系电话不可为空！");
       document.myform.Phone.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>
<%
CategoryName="SoftDown"


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
			dim num1
			dim rndnum
			Randomize
			Do While Len(rndnum)<4
			num1=CStr(Chr((57-48)*rnd+48))
			rndnum=rndnum&num1
			loop
			session("verifycode")=rndnum
 call loginPage() '登录
end select 

sub login()  ' ==========================登录================================
msgtitle="用户登录"
	Response.Cookies("mesky").path=cookies_path
	Response.Cookies("mesky")("username")=""
	Response.Cookies("mesky")("password")=""
	Response.Cookies("mesky")("userclass")=""
	Response.Cookies("mesky")("userid")=""
	Response.Cookies("mesky")("usercookies")=""	
usercookies=request("CookieDate")
UserName=Checkstr(request.form("UserName"))
PassWord=md5(Checkstr(Trim(Request.Form("PassWord"))))
if session("verifycode")<>trim(request("verifycode")) then
	msginfo="<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
else
	set rs=server.createobject("adodb.recordset")
	sql="select UserID,UserName,PassWord,UserClass from Admin_UserInfo where UserName='" & UserName & "' and PassWord='" & PassWord & "' and isActive=true and CategoryName='"&CategoryName&"'"
	rs.open sql,conn,1,1
	if not rs.eof and not rs.bof then	
		if isnull(usercookies) or usercookies="" then usercookies="0"
		select case usercookies
		case "0"
			Response.Cookies("mesky")("usercookies") = usercookies
		case 1
  		 	Response.Cookies("mesky").Expires=Date+1
			Response.Cookies("mesky")("usercookies") = usercookies
		case 2
			Response.Cookies("mesky").Expires=Date+31
			Response.Cookies("mesky")("usercookies") = usercookies
		case 3
			Response.Cookies("mesky").Expires=Date+365
			Response.Cookies("mesky")("usercookies") = usercookies
		end select
		Response.Cookies("mesky")("username") = rs("UserName")
		Response.Cookies("mesky")("userid") = rs("UserID")
		Response.Cookies("mesky")("password") = rs("PassWord")
		Response.Cookies("mesky")("userclass") = rs("userclass")
		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
		msginfo="<li>提示：密码错误、帐号可能被锁定或者用户不存在！</li>"		   	   
	end if