const.asp

一个不错的音乐网站

<%
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=3>正在登陆"
	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.htm"
	response.end
end if
membername=Checkin(request.cookies("bzmtvmusic")("username"))
memberword=Checkin(request.cookies("bzmtvmusic")("password"))
userid=request.cookies("bzmtvmusic")("userid")
Founduser=false
set rs=server.createobject("adodb.recordset")
sql="select username,password,loginIP,vipdate,Adddate,loginDate,lockuser,id from [user] where username='"&membername&"' and lockuser=false"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	errmsg=errmsg+""+"尚未通过。<meta http-equiv='Refresh' content='0; URL=userlogin.asp'><br><br><a href='index.asp' target=_blank>请先登陆或续费</a>"
	Founduser=true
else
	if rs("password")<>memberword then
		errmsg=errmsg+""+"密码错误"
		Founduser=true
        else	
dim isvip
isvip=cint(rs("vipdate")-datediff("d",rs("Adddate"),now()))
              if isvip<=0 then
	errmsg=errmsg+""+"请先续费<br>"
	rs("vipdate")=0
	rs("lockuser")=1
	rs("loginDate")=NOW()
	rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
	rs.update
	Founduser=true
              end if
        end if
end if
if Founduser=true then
        Response.Cookies("bzmtvmusic").path="/"
	Response.Cookies("bzmtvmusic")("username")=""
	Response.Cookies("bzmtvmusic")("password")=""
	Response.Cookies("bzmtvmusic")("userid")=""
	Response.Cookies("bzmtvmusic")("usercookies")=""	 
	session.contents("Username")=null
	session("Password")=null
	call error()
	Response.End 
end if
%>