const.asp

全站生成htm静态页面

<%
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>正在登陆<font color=red><b>|音乐酒吧|-VIP系统</b></font>……<br><br>本系统要求使用COOKIES，假如您的浏览器禁用COOKIES，您将不能登录本系统……"
	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 "../index.htm"
	response.end
end if
membername=Checkin(request.cookies("wwwy98cnmtv")("username"))
memberword=Checkin(request.cookies("wwwy98cnmtv")("password"))
userid=request.cookies("wwwy98cnmtv")("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+""+"您尚未登陆VIP系统。<br><br><a href='index.asp' target='_blank'>请先登陆VIP系统</a>"
	Founduser=true
else
	if rs("password")<>memberword then
		errmsg=errmsg+""+"您输入的密码不正确，请重新登陆VIP系统。"
		Founduser=true
        else	
dim isvip
isvip=cint(rs("vipdate")-datediff("d",rs("Adddate"),now()))
              if isvip<=0 then
	errmsg=errmsg+""+"你的VIP资格已经到期，请联系我们，我们马上帮你开通帐号！<br><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("wwwy98cnmtv").path="/"
	Response.Cookies("wwwy98cnmtv")("username")=""
	Response.Cookies("wwwy98cnmtv")("password")=""
	Response.Cookies("wwwy98cnmtv")("userid")=""
	Response.Cookies("wwwy98cnmtv")("usercookies")=""	 
	session.contents("Username")=null
	session("Password")=null
	call error()
	Response.End 
end if
%>