📄 index.asp

📁 使用Asp+Access+FSO+Jmail+Servu开发
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file="../inc/conn.asp"-->
<%
if Application("domain_database")="" then 
Application("domain_database")=connstr
domain_info=""
rs.Open ("select * from [domain] order by [top] desc"),conn,1,1
do while not (rs.bof or rs.eof) 
domain_info=domain_info&rs(0)&"|"&rs(1)&"|"&rs(2)&"|"&rs(3)&"|"&rs(4)&"|"
rs.movenext
loop
Application("domain_online")=0
Application("domain_info")=domain_info
rs.close
rs.Open ("select * from [system]"),conn,1,1
Application("domain_filter")=rs(0)
Application("domain_sift")=rs(1)
rs.Close
set rs=nothing
conn.Close
set conn=nothing
end if


sURL=replace(Request.ServerVariables("HTTP_HOST"),"www.","")
if InStr(sURL,"=")<>0 or InStr(sURL,"`")<>0 or InStr(sURL,"'")<>0 or InStr(sURL," ")<>0 or InStr(sURL,"　")<>0 or InStr(sURL,"'")<>0 or InStr(sURL,chr(34))<>0 or InStr(sURL,"\")<>0 or InStr(sURL,",")<>0 or InStr(sURL,"<")<>0 or InStr(sURL,">")<>0 then 
Response.Status= "404 no found"
Response.End 
end if
first_name=split(sURL,".")
if ubound(first_name)>2 then 
Response.Status= "404 no found"
Response.End 
end if
user=first_name(0)
seldomain=first_name(1)&"."&first_name(2)
if user="reg" then Response.Redirect "http://dns.9cool.net"
geturl=False
msg=Application("domain_info")
msg=split(msg,"|")
for i=lbound(msg) to ubound(msg)-1 step 5
if msg(i)=seldomain then
geturl=True
ad=msg(i+1)
height=msg(i+2)
width=msg(i+3)
adurl=msg(i+4)
exit for
end if
next
if geturl then 
Response.Status= "404 no found"
response.end
end if
set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.Open Application("domain_database")
rs.Open ("select * from [user] where username='"&user&"' and seldomain='"&seldomain&"'"),conn
if rs.BOF or rs.EOF then 
rs.Close
set rs=nothing
conn.Close
set conn=nothing
Response.write "<br><br><center><font style='font-size:12px;color:ff0000'>对不起，不存在此域名，请检查您的输入是否有误！</font></center>"
Response.End 
end if
url=rs("url")
hidden=rs("hidden")
userad=rs("ad")
title=rs("sitename")
rs.Close
set rs=nothing
conn.Close
set conn=nothing
if ad=1 then
Response.Write "<script language=javascript>window.open('"&adurl&"','ads','top=0,left=0,width="&width&",height="& height &"')</script>"
end if
select case userad
case 0
case 1
Response.Write "<script language='javascript'>window.open('"&adurl&"','ads','top=0,left=0,width="&width&",height="& height &"')</script>"
case 2
Response.write "<br><br><center><font style='font-size:12px;color:ff0000'>对不起，该网站域名被封锁，如有问题请与管理员联系！</font></center>"
end select


if hidden=0 then 
Response.write  "<html><head><title>Loading...</title><meta http-equiv=refresh content='0;url=http://"&url&"'></head><body>Loading...</html>"
else
Response.Write "<html><head><title>"&title&"</title></head><frameset rows=""100%,*"" border=""0"" frameborder=""0"" framespacing=""0"" framecolor=""#000000""><frame src=http://"&url&"  scrolling=""auto""></frameset><noframes><body></body><noframes></body></html>"
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -