中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

本例原代碼: 下載
演示:
http://skyworm@skyworm.com
http://skyworm.com/domain/reg.asp

　　前些天看到一篇關(guān)于使用Http1.1協(xié)議支持"username:password@server'，(其中"password:"可以省略)的文章，(呵呵，有些過(guò)時(shí)啦！)，突來(lái)的想法，決定根據(jù)這個(gè)特性寫(xiě)一個(gè)實(shí)現(xiàn)@虛擬域名轉(zhuǎn)向(http://xxx@xxx.xxx)的系統(tǒng).

　　由于最開(kāi)始一直在ASP中鉆研,總是沒(méi)辦法獲得http://xxx@xxx.com的完全地址,無(wú)從入手,今得how172兄的提醒
http://m.95time.cn/bbs/newsdetail.asp?id=1179134&posts=current

　　先使用JS取得當(dāng)前頁(yè)地址,然后轉(zhuǎn)向,才恍然大悟,花了兩個(gè)小時(shí)完成了這個(gè)系統(tǒng)的雛形(源代碼在帖頂!).

　　給大家我的思路,希望對(duì)某些感興趣的朋友些許幫助:

　　首先必須有自己的頂級(jí)域名:-),還要犧牲自己的首頁(yè)index.asp的命名(比如說(shuō):將首頁(yè)改名為index1.asp,不過(guò)在程序里可以通過(guò)判斷將沒(méi)有帶@參數(shù)的域名再跳轉(zhuǎn)到首頁(yè)).

　　首先在將域名所在根目錄下的默認(rèn)首頁(yè)index.asp作為獲取@前參數(shù)跳轉(zhuǎn)
index.asp
<script>
file://獲取當(dāng)前頁(yè)的完整URL:http://xxx@xxx.xxx形式
var xx=location.href
file://將輸入的域名url以u(píng)rl參數(shù)形式傳遞到go.asp
document.location.href="go.asp?url="+xx
</script>

go.asp處理域名并實(shí)現(xiàn)跳轉(zhuǎn)
<%'數(shù)據(jù)庫(kù)連接,存放用戶注冊(cè)信息,內(nèi)容為域名,以及域名所指向的具體URL地址,域名訪問(wèn)簡(jiǎn)單記數(shù),以及一些用戶信息%> <!--#include file="conn.asp" --> <% '獲取URL參數(shù) url=request.QueryString("url") '判斷是否是以虛擬@域名形式傳遞過(guò)來(lái) if instr(url,"@")=0 then '如果沒(méi)有則直接跳轉(zhuǎn)到自己的首頁(yè)index1.asp response.Redirect("index1.asp") else '處理url參數(shù),取得http://username@domain.com中的username url=right(url,(len(url)-len("http://"))) url=left(url,(instr(url,"@")-1)) user=url '從數(shù)據(jù)庫(kù)中取出于username對(duì)應(yīng)的轉(zhuǎn)向目標(biāo)url地址 set rs=conn.execute("select siteurl from url where user='"&user&"'") if rs.bof or rs.eof then '如果沒(méi)有記錄則顯示:該域名不存在 response.Write("<a ><font size=2><center>該域名不存在</center></font></a>") else '對(duì)域名訪問(wèn)率簡(jiǎn)單記數(shù) conn.execute("update url set count=count+1 where user='"&user&"'") '跳轉(zhuǎn)到虛擬域名對(duì)應(yīng)的目標(biāo)url地址,程序結(jié)束! response.Redirect(rs(0)) end if rs.close set rs=nothing end if conn.close set conn=nothing %>
[Ctrl+A 全部選擇 然后拷貝]

　　主程序就是這些,很簡(jiǎn)單吧,就是要看你想不想的到!數(shù)據(jù)庫(kù)部分是提供用戶注冊(cè)來(lái)的,具體實(shí)現(xiàn)不在此研究范圍類,我就不說(shuō)了,這僅僅是一個(gè)示例思路,請(qǐng)感興趣的朋友擴(kuò)展!

出處：藍(lán)色理想
責(zé)任編輯：藍(lán)色

◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論