safety.asp

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

<%
UID=request("uid")

Function  EncodeTxt(fString)
if not(isnull(fString)) then
	fString  =  Replace(fString,  ">",  "&gt;")  
	fString  =  Replace(fString,  "<",  "&lt;")  
	fString  =  Replace(fString,"  ",  "&nbsp;")  
	fString  =  Replace(fString,"""",  "&quot;")  
	fString  =  Replace(fString,CHR(13),  "<br>")  
	'fString  =  Replace(fString,  CHR(32),  "&nbsp;")  
	EncodeTxt  =  fString
end if
End  Function

set rs = Server.CreateObject("ADODB.Recordset")
sql = "select AlbumType_ID,pwdonly,visitstop,expiredate,url,alias,email,createdate,goods_id,visitcount,bulletin from W_bottom_view where UID="&uid&"  "
rs.Open sql,conn,3
alias=rs("alias")
email=rs("email")
createdate=rs("createdate")
visitcount=rs("visitcount")
bulletin=rs("bulletin")


'禁止非法访问
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-2" or rs("visitstop") then
	response.redirect("/htm/error.htm")
end if
'访问需要密码
if rs("pwdonly") then
	if request.cookies("pwdonly")<>uid then
	response.redirect("/templet/pwdonly.asp?uid="&uid&" ")
	end if
end if
'页面已经过期
if rs("goods_id")<>"A00000" and date>rs("expiredate") then
	response.redirect("/templet/expiredate.asp?uid="&uid&" ")
end if
rs.close

%>