<%
Rem ÅÐ¶ÏÓÃ»§µÇÂ½
response.buffer=true
dim cookiepath
cookiepath="/"
if Request.Cookies("iscookies")="" then
	Response.Cookies("iscookies")="0"
	Response.Cookies("iscookies").Expires=date+3650
	response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=5>·µ»ØÊ×Ò³µÇÂ½ÓÃ»§"
	response.end
end if
UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT")))
ScriptName=lcase(request.ServerVariables("PATH_INFO"))
If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"offline")>0 Then
	response.redirect "error.asp"
	response.end
end if
membername=Checkin(request.cookies("tt90music")("username"))
memberword=Checkin(request.cookies("tt90music")("password"))
userid=request.cookies("tt90music")("userid")
Founduser=false
set rs=server.createobject("adodb.recordset")
sql="select username,password,loginIP,Adddate,loginDate,lockuser,id from [user] where username='"&membername&"' and lockuser=0"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	errmsg=errmsg+""+"ÄúÉÐÎ´µÇÂ½,<a href='/index.html' target=_blank>ÇëÏÈµÇÂ½</a>"
	Founduser=true
else
	if rs("password")<>memberword then
		errmsg=errmsg+""+"ÃÜÂë´íÎó"
		Founduser=true                   
        end if
end if
if Founduser=true then
        Response.Cookies("tt90music").path="/"
	Response.Cookies("tt90music")("username")=""
	Response.Cookies("tt90music")("password")=""
	Response.Cookies("tt90music")("userid")=""
	Response.Cookies("tt90music")("usercookies")=""	 
	session.contents("Username")=null
	session("Password")=null
	call error()
	Response.End 
end if
%>





