config.asp

千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

<%'系统变量
useragent=Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
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?id=1"
   response.end
end if

set rs=conn.execute("select home,homes,url,urls,pthy,bjhy,hjhy,zcdj,zcms,zcst,zcsd from [home]")
home=rs(0)
homes=rs(1)
url=rs(2)
urls=rs(3)
pthy=rs(4)
bjhy=rs(5)
hjhy=rs(6)
zcdj=rs(7)
zcms=rs(8)
zcst=rs(9)
zcsd=rs(10)
rs.close
set rs=nothing

function iperror()
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
  response.redirect "error.asp?id=3"
end if
End function

%>