user.asp

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

	rs.close
	set rs=nothing
end if
session("verifycode")=""
call Sysmsg(msgtitle,msginfo)
end sub

sub logout()  ' ==========================退出================================
	Response.Cookies("mesky").path=cookies_path
	'Response.Cookies("mesky").Expires=Date-1
	Response.Cookies("mesky")("username")=""
	Response.Cookies("mesky")("password")=""
	Response.Cookies("mesky")("userclass")=""
	Response.Cookies("mesky")("userid")=""
	Response.Cookies("mesky")("usercookies")=""
    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 cUserName="" or cPassWord="" 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("RealName")=Trim(Request.Form("RealName"))
	  rs("Address")=Trim(Request.Form("Address"))
	  rs("Phone")=Trim(Request.Form("Phone"))
	  rs("CategoryName")=CategoryName
	  rs("RegDate")=Now()
	  rs("SoftDown_Addflag")=""
	  rs("SoftDown_Adminflag")=""
	  rs("Article_Addflag")=""
	  rs("Article_Adminflag")=""
	  rs("isActive")=0
	  rs("isAdmin")=0
	  rs("UserClass")=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()  ' ==========================保存修改================================
if request.Cookies("mesky")("usercookies")="" then
response.Redirect "default.htm"
'    call login()
	'exit sub
end if

     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='"& cUserName &"' and CategoryName='"&CategoryName&"'"
       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" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#D8D8D8"> 
      <th colspan="2"><%=myformTitle%></th>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="80" align="right">用户名：</td>
      <td> <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 bgcolor="#EFEFEF"> 
      <td width="80" align="right">密 码：</td>
      <td> <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="#EFEFEF"> 
      <td align="right">真实姓名：</td>
      <td><input type="text" name="RealName" value="<% if isedit then  response.write rs("RealName")%>" size="38" maxlength="30">
        <font color="#FF0000">* </font> </td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="80" align="right">邮箱地址：</td>
      <td> <input type="text" name="Email" value="<% if isedit then  response.write rs("Email")%>" size="38" maxlength="50"> 
        <font color="#FF0000">* </font></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td align="right">联系地址：</td>
      <td><input type="text" name="Address" value="<% if isedit then  response.write rs("Address")%>" size="38" maxlength="100">
        <font color="#FF0000">* </font></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td align="right">联系电话：</td>
      <td><input type="text" name="Phone" value="<% if isedit then  response.write rs("Phone")%>" size="38" maxlength="30">
        <font color="#FF0000">* </font></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="80" align="right">&nbsp;</td>
      <td> <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(request.Cookies("mesky")("username"))) and request.Cookies("mesky")("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" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC" class="tableBorder">
    <tr bgcolor="#D8D8D8"> 
      <th height="23" colspan="2">用户登录</th>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%">请输入您的用户名</td>
      <td> <input name="UserName" type="text" size="18" maxlength="12">
        <a href="User.Asp?action=UserReg">没有注册？</a></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%">请输入您的密码</td>
      <td> <input name="PassWord" type="password" size="18" maxlength="12"></td>
    </tr>
    <tr bgcolor="#EFEFEF">
      <td>请输入您的附加码</td>
      <td><INPUT name=verifycode type=text size="18" maxlength="6"> 请在附加码框输入  <b><span style="background-color: #FFFFFF"><font color=#000000><%=session("verifycode")%></font></span></b></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%" valign="top"><strong>Cookie 选项</strong><br>
        请选择你的 Cookie 保存时间，下次访问可以方便输入。</td>
      <td> <input type=radio name=CookieDate value=0 checked>
        不保存，关闭浏览器就失效<br> <input type=radio name=CookieDate value=1>
        保存一天<br> <input type=radio name=CookieDate value=2>
        保存一月<br> <input type=radio name=CookieDate value=3>
        保存一年</td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%">&nbsp;</td>
      <td bgcolor="#EFEFEF"> 
        <input type="submit" name="Submit3" value=" 登 录 "> <input type="reset" name="Submit22" value=" 重 设 ">
      </td>
    </tr>
  </table>  
	  	  </form> 
      <% end if 
	  end sub   
Response.Write(replace(strFooter,"../","./")) 
CloseDatabase 
%>
<% sub Sysmsg(msgtitle,msginfo) %>
<br>
<table width="65%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#D8D8D8" class="tdbg1"><strong><%= msgtitle %></strong></td>
  </tr>
  <tr> 
    <td bgcolor="#EFEFEF" class="tdbg2"><%= msginfo %></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#EFEFEF" class="tdbg2"><a href="<%=Request.ServerVariables("HTTP_REFERER")%>">&lt;&lt;返回上一页</a></td>
  </tr>
</table>
<br>
<% end sub %>