safety.asp

- 其中VIP源代码是经过测试

<%
UID=request("uid")

set rs = Server.CreateObject("ADODB.Recordset")
sql = "select AlbumType_ID,pwdonly,visitstop,expiredate,url from W_UserAlbum where UID="&uid&"  "
rs.Open sql,conn,3


'禁止非法访问
if rs.recordcount=0 then
	response.redirect("/htm/error.htm")
end if
'取的二级域名
if isnull(rs("url")) then
	url="Http://www.onlove.cn/templet/view.asp?uid=" & uid
else
	url="Http://" & rs("url") & ".onlove.cn"
end if
'如果主页被停止
if rs("AlbumType_ID")<>"A1-3" or rs("visitstop") then
	response.redirect("/htm/error.htm")
end if
'访问需要密码
if rs("pwdonly") then
	response.redirect("/templet/pwdonly.asp?uid="&uid&" ")
end if
'页面已经过期
if not(isnull(rs("expiredate"))) then
	if date>rs("expiredate") then
	response.redirect("/templet/expiredate.asp?uid="&uid&" ")
	end if
end if
rs.close
%>