?? index.asp
字號:
<%@ Language=VBScript %>
<%
'****************************************************************
'* Dynamic 3760.Net DNS Version1.0/信陽在線二級域名系統 Version1.0(測試版)
'*
'* 版權所有: 信陽在線信息網(3760.Net)
'*
'* 程序制作: 信陽在線信息網
'*
'* 主頁地址: http://www.3760.Net 信陽在線信息網
'*
'* 論壇地址: http://www.3760.Net/bbs、http://bbs.3760.Net
'*
'****************************************************************
'* Dynamic 3760.Net DNS Version1.0
'* Copyright 2004-2005 3760.Net - All Rights Reserved.
'* 信陽在線 is a trademark of 3760.Net
'****************************************************************
'*【版權聲明】
'*
'* 本軟件為共享軟件(shareware)提供個人網站免費使用，請勿非法修改,
'* 轉載，散播，或用于其他圖利行為，并請勿刪除版權聲明。
'* 如果您的網站正式起用了這個腳本，請您通知我們，以便我們能夠知曉
'* 如果可能，請在您的網站做上我們的鏈接，希望能給予合作。謝謝！
'****************************************************************
if Application("domain_database")="" then
datafile="3760.asp"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Data Source="& Server.MapPath(datafile)
set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.Open connstr
Application("domain_database")=connstr
domain_info=""
rs.Open ("select [domain],[ad],[height],[width],[url] 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 [filter],[sift] 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=Request.ServerVariables("HTTP_HOST")
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://my.3760.net/reg/index.asp"
'這里的這個指向是你給這個程序設置的域名的路徑
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=False 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 [name],[url],[hidden],[count],[ad],[seldomain],[title] from [user] where name='"&user&"' and seldomain='"&seldomain&"'"),conn
if rs.BOF or rs.EOF then
rs.Close
set rs=nothing
conn.Close
set conn=nothing
Response.Redirect "http://www.3760.Net/index.asp"
'這里的這個指向是說明：如果在數據庫里找不到二級域名，所訪問的路徑
Response.End
end if
url=rs("url")
hidden=rs("hidden")
userad=rs("ad")
title=rs("title")
rs.Close
set rs=nothing
nowtime=now()
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
conn.execute("update [user] set [count]=[count]+1")
conn.Close
set conn=nothing
if ad=1 then Response.Write "<script>window.open('"&adurl&"','ad','scrollbars=yes,resizable=yes,width="&width&",height="& height &"')</script>"
select case userad
case 0
case 1
Response.Write "<script>window.open('"&adurl&"','ad','scrollbars=yes,resizable=yes,width="&width&",height="& height &"')</script>"
case 2
Response.Write "<font size=2>對不起!您所訪問的域名己被我們停止訪問!<br>可能有如下問題:<br>1:)您的網頁存有國家所禁止內容!<br>2:)您的網頁存有色情,暴力內容!<br>3:)您的頁面有病毒(如惡意修改訪問者IE及注冊表)<br>4:)此域名長期無人訪問或長期打不開頁面!<br>解決方法:去除非法頁面!清理網頁病毒!或直接<a href=mailto:webmaster@3760.Net>與免費域名提供者聯系</a>!</font><br><br>在您解決您網站的問題一至兩天,我們會重新開通您的域名!或直接與我們郵件聯系<p>------<a href=http://www.3760.Net>www.3760.Net</a>-------</P>"
end select
if hidden=0 then
Response.Redirect "http://"&url
else
Response.Write "<html><head><script language=javascript>document.write('<title>"&title&"</title>');function start(url){this.txt.document.write('Loading......');this.txt.location.href='http://"+url+"'}</script></head><frameset cols=0,* rows=* border=0 framespacing=0 frameborder=NO onload=start('"&url&"')><frame src=about:blank marginwidth=0 marginheight=0 name=top noresize><frame src=about:blank name=txt></frameset></html>"
Response.Write "<frameset cols=0,* rows=* border=0 framespacing=0 frameborder=NO><frame src=about:blank marginwidth=0 marginheight=0 name=top noresize><frame src=http://"&url&" name=txt></frameset>"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -