login.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!--#include file ="setup.asp"-->
<!--#include file ="inc/function.asp"-->
<%
if Request.ServerVariables("request_method")="POST" then
Userid=trim(Request.Form("Userid"))
password=Encrypt(trim(Request.Form("userpass")))
GoUrl=Request.Form("GoUrl")
if Len(Userid)>10 Then Error 2,"错误的登陆信息！\请重新登陆！",""
	Sql="Select UserName_2,UserID,UserPsd,UserGrade From UserInfo where UserName_2='"&Userid&"' and DelThis=False"
	
	Set Rs = Conn.Execute(Sql)
	if Rs.Eof or Rs.Bof then Error 2,"错误的登陆信息！\请重新登陆！",""
	
	if trim(Rs("UserPsd")) <> password Then Error 2,"错误的登陆信息！\请重新登陆！",""
	
	Response.Cookies("User")=Rs("UserID")				'用户ID
	Response.Cookies("Username")=Rs("UserName_2")
	Response.Cookies("password")=password				'用户密码
	Response.Cookies("Product")=Rs("UserGrade")			'用户类型
	
	if Request.Form("xuansave")="1" Then
		Response.Cookies("User").Expires=date+3650
		Response.Cookies("Username").Expires=date+3650
		Response.Cookies("password").Expires=date+3650
		Response.Cookies("Product").Expires=date+3650
	End if
	
Response.Cookies("OrderProduct")=""
If trim(Rs("UserGrade")) > 4  Then
if conn.execute("Select FunctionOC from Functions where FunctionID=16")(0)=false Then Response.write "<script>window.open('RegNums.asp','','height=1,width=1,left=10000,top=0,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no');</script>"
if conn.execute("Select FunctionOC from Functions where FunctionID=11")(0) Then Response.write "<iframe name=1111 width=0 height=0 marginwidth=0 marginheight=0 border=0 frameborder=0 src=http://www.shopii.com/RegNums.asp?RegNums="&registered&"&ThisUrl="&Request.ServerVariables("server_name")&"&edition="&conn.execute("Select FunctionInfo from Functions where FunctionID=12")(0)&" scrolling=no></iframe>"
End if
Userid=Rs("UserID")
Rs.close


	Response.Cookies("UserMaster")=""
	Sql="Select SortID,SortMan From Product_Sort where SortMan Like '%"&","&Userid&","&"%'"
	Set Rs = Conn.Execute(Sql)
	do while not rs.eof
	if instr(Rs("SortMan"),","&Userid&",")>0 Then Response.Cookies("UserMaster")=Request.Cookies("UserMaster")&Rs("SortID")&","
	Rs.Movenext
	loop
	Set Rs = Nothing

OnlineUs
Set Rs = Nothing


if len(GoUrl)>0 or instr(GoUrl,"login.asp")=0 or instr(GoUrl,"left.htm")=0 or instr(GoUrl,"defau.asp")=0 then
response.write "<SCRIPT>window.top.location='index.asp';</SCRIPT>"
else
response.redirect GoUrl
end if

End if
Call Top
Call table()
%>
	<style><!--TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style>
	<br>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<tr>
	<td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
	　 <b>■ </b><%=Community%></td>
	</tr>
	</table>



	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR>
	<TD  height=25 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9">请先登陆商城！</TD>
	</TR>
	</TABLE>



	<table width=100% align="center" border="0">
	<tr>
	<td vAlign="center" align="top">　</td>
	</tr>
	</table>
	<form action="login.asp" method="post">
	<TABLE cellSpacing=0 cellPadding=0 width=333 align=center bgColor=a4b6d7 border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
	<TR>
	<TD style="border-right: 0px none; border-top: 0px none">
	<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
	<TBODY></TBODY></TABLE></TD></TR></TABLE>
	<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-left:0px none; border-top:0px none; border-bottom:1px none; border-collapse: collapse">
	<tr bgcolor=ACABC4>
	<td background=images/title_sub.gif width="328" style="border-right: 0px none; border-top: 0px none" height="25"><div align="center">
	<font color="#000000">登陆商城</font></div>
	</td></tr><tr>
	<td height="19" width="328" valign="top" bgcolor="#F2F8FF" style="border-right: 0px none; border-top: 0px none">
	<div align="center">用户名称:	<input size="15" name="Userid">&nbsp; <a href="register.asp">没有注册?</a><br>
	  用户密码: <input type="password" size="15" value name="userpass">&nbsp;
	<a href="fotgetpsd.asp">忘记密码?</a><br>
	<input type="checkbox" value="1" name="xuansave">记住密码&nbsp;
	<input type="checkbox" value="1" name="eremite">隐身登陆<br>
	<input type="submit" value=" 登陆 " name="Submit1">　<input type="reset" value=" 取消 " name="Submit" OnClick=Javascript:javascript:history.back();>
	<input type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER")%>" name="GoUrl"></div></td></tr> </form></table>
	<p><br></p>
	<center>
	<p><a href=javascript:history.back()>BACK </a><br>
	
	</p>
<%Htmlend%>