UserLogin.asp 爱美尔女性商城源码 1.0源码程序 - php源码程序

www.gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/User/UserLogin.asp
    <!--#include file="../Inc/conn.asp"-->
<!--#include file="../Inc.asp"-->
<!--#include file="../Inc/md5.asp"-->
<%
If useroff=0 then Call Alert("网站目前已经关闭会员功能","../")
	if request("action") = "login" then 
		call login()
	elseif request("action")="logout" then
		call logout()
	elseif request("action")="list" then
		call list()
	else
		call list()
	end if

Sub logout()
Response.Cookies("Yao").path=SitePath
Response.Cookies("Yao")("UserName")=""
Response.Cookies("Yao")("UserPass")=""
Response.Cookies("Yao")("ID")=""
Response.Redirect SitePath
End Sub

Sub login
UserName = LoseHtml(trim(request.form("UserName")))
PassWord = md5(replace(trim(request.form("PassWord")),"'",""),16)
CookieDate=trim(request("CookieDate"))
if UserName="" then
	Call Alert ("请输入用户名","-1")
end if
if password="" then
	Call Alert ("请输入密码","-1")
End if

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "Select [username],[password] From ["&tbname&"_User] where password='" &password&"' and username='" &UserName&"'" , conn, 3,3
if rst.bof then
	Call Alert ("用户名或密码错误!","-1")
End if
rst.close
set rst=nothing

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select [ID],[username],[password],[LastIP],[LastTime],[yn] From ["&tbname&"_User] where username='" &UserName&"'", conn, 3,3
if not rs.bof then
	If rs("yn")=0 then
		Call Alert ("您的帐号还没有通过审核","-1")
	End if
	rs("LastIP")=GetIP
	rs("LastTime")=Now()
	rs.update
	Response.Cookies("Yao").path=SitePath
		If CookieDate<>"" then
		Response.Cookies("Yao").Expires=Date+30
		End if
     	Response.Cookies("Yao")("UserName")=username
     	Response.Cookies("Yao")("UserPass")=PassWord
      	Response.Cookies("Yao")("ID")=rs("ID")
end if
rs.close
set rs=nothing
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub

Sub list
If LaoYID<>"" then
Response.Redirect SitePath
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=Sitekeywords%>" />
<link href="<%=SitePath%>images/css<%=Css%>.css" ID="skin" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title>用户登录</title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%><div class="mw">
<div style='margin:100px auto;'>
  <form action="<%=SitePath%>User/Userlogin.asp?action=login" method="post" name=loginForm>
<table width="300" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30" colspan="2" align="left">您还没有登陆，请登录或者<a href="userreg.asp"><u>点此免费注册</u></a></td>
    </tr>
  <tr>
    <td width="90" height="30">用户名：</td>
    <td width="210" align="left"><input name="Username" class="borderall" type="text" size="15" style="width:100px;height:15px;"></td>
  </tr>
  <tr>
    <td height="30">密　码：</td>
    <td align="left"><input name="PassWord" class="borderall" type="password" size="15" style="width:100px;height:15px;"></td>
  </tr>
  <tr>
    <td height="30">&nbsp;</td>
    <td align="left"><input type="submit" name="Submit" value="登录" class="borderall" style="height:19px;"/></td>
  </tr>
</table>
</form>
</div>
<%=Copy%>
</div>
</body>
</html>
<%
End Sub
%>