login.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/md5.asp"-->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: login.asp
'Version:2.0
'UpdateTime: 2004-10-5 13:39:19
'Script Written by www.aspease.com 
'=========================================================
path=Request.ServerVariables("HTTP_REFERER")
stats=easeloginstats
call header
If request("action")="chk" then
	call chklogin()
else
	call mainlogin()
end if
call activeonline()
call footer()
sub mainlogin() 
response.Write("<script language=""JavaScript"" src=""js/checklogin.js""></script>")
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.Write(tr&"<td width=""974"" height=""50"" id=""b2""><nobr>&nbsp;&nbsp;&nbsp;<br>")
response.Write("<b><font id=""f3"">" & easelogintitlestr & "</font></b></nobr></td></tr>")
response.Write("	<tr><td height=""1"" id=""bg03""><img width=""1"" height=""1"">" & ctdr & aspeasetableclose)
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=""b1"">")
response.Write("  <form method=post name=lg action=""login.asp?action=chk"" onsubmit=""return checklogin(this)"">")
response.Write(tr & "      <td width=""239"" id=""bg06""><nobr><span id=""b2""><font id=""f1"">&middot;</font>" & easeloginifyou & "　<font id=""f3""><b><font id=""f1"">" & easeloginnotisuser & "</font></b></font></span></nobr></td>")
response.Write("      <td width=""1"" bgcolor=""#999999"" rowspan=""6""><img width=""1""></td>")
response.Write("      <td width=""298"" height=""40"" id=""b2""><nobr>　<font id=""f3"">&middot;</font>" & easeloginifyou & "　<b><font id=""f3"">" & easeloginisuser & "</font></b></nobr></td>")
response.Write("    </tr>")
response.Write("    <tr id=""b1""> ")
response.Write("      <td height=""40"" id=""bg06"">　&nbsp;&nbsp;<a href=""")
response.Write(weburl)
response.Write("reg.asp""> ")
response.Write("        <input name=""bt13"" type=button onClick=""window.open('reg.asp')"" id=""b1"" style=""color: white;border-color: #CECBCE; background-color: #EF7508;"" value=""  " & easeloginregbtn & "  "" >")
response.Write("        </a><nobr></nobr></td>")
response.Write("      <td height=""40""><nobr>&nbsp;&nbsp;" & easelogintellstr & """<b><font id=""f4"">" & easeloginsubmitbtn & "</font></b>""。</nobr></td>")
response.Write(ctr&tr)
response.Write("      <td id=""bg06"">　&nbsp;&nbsp;" & easeloginleftrow1 & "<nobr></nobr></td>")
response.Write("      <td height=""20"" style=""padding-left:10px""><nobr>" & easeloginuserfld & ":<input name=""aspeasename"" type=""text"" tabindex=""1"" size=""20""></nobr> </td>")
response.Write(ctr&tr)
response.Write("      <td id=""bg06"">　&nbsp;&nbsp;" & easeloginleftrow2 & "</td>")
response.Write("      <td height=""20"" style=""padding-left:10px""><nobr>" & easeloginpwdfld & ":")
response.Write("<input name=""aspeasepass"" type=""password"" tabindex=""2"" size=""20"">")
response.Write("        　<a href=""losspass.asp"">" & easeloginforgetpwd & "</a> ")
response.Write("        <input type=""hidden"" name=""path"" value=")
response.Write(path)
response.Write(">")
response.Write("        </nobr> " & ctdr & tr)
response.Write("      <td id=""bg06""></td>")
response.Write("      <td height=""50"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <nobr>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ")
response.Write("        <input name=""bt1"" type=submit id=""bt1"" STYLE=""color: white;border-color: #CECBCE; background-color: #EF7508;"" value=""  " & easeloginsubmitbtn & "  "">" & ctdr)
response.Write("  </form>" & aspeasetableclose)
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.Write("<tr>")
response.Write("<td height=""1"" id=""bg03""><img width=""1"" height=""1""></td>")
response.Write("</tr>")
response.Write("</table>	")
end sub
sub chklogin()
	topath="my.asp"
	path=rst("path")
	If instr(path,"login.asp") Then 
		path=topath
	elseif instr(path,"losspass.asp") Then
		path=topath
	elseif instr(path,"save.asp") then
		path=topath
	Elseif path="" then
		path=topath
	else
		path=path
 	End If 	
	uname=request("aspeasename")
	upass=md5(request("aspeasepass"))
	userIP=replace(replace(Request.ServerVariables("REMOTE_HOST"),".",""),"'","")	
	sql="select * from users where regUsername="&sqlstr(uname)&" and regPassword="&sqlstr(upass)&""
	set rs=conn.execute(sql)	
	if not rs.eof then			
		session("user")=uname
		session("userid")=rs("regid")
		user=session("user")
		userid=session("userid")
		founduser=true
		response.redirect path
		response.end		
	else 
		response.Write("<script language=javascript>{alert( '" & easeloginerr1 & "');location.href='losspass.asp';}</script>")
		response.end
	end if
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: login.asp
'Version:2.0
'UpdateTime: 2004-10-5 13:39:19
'Script Written by www.aspease.com 
'=========================================================%>