www.ting88.comのウェブサイトを入力し、歌手アルバムページのURLをテキストボックスにコピーして、http：//www.ting88.com/musiclist/4141.htmなどの曲のダウンロードパスを取得するために送信します。
ソースプログラムは次のとおりです。
<％
onerrorresumenext
Dimid、url、getcode、m、i、j、s、d、ns、nd、ns、num、name
id = trim（request.querystring（ "id"））
'1。元のページのすべての内容を取得します
functiongethttppage（url）
dimhttp
setthttp = server.createObject（ "microsoft.xmlhttp"）
http.open "get"、url、false
http.send（）
ifhttp.ReadyState <> 4then
exitFunction
endif
gethttppage = bytestobstr（http.responsebody、 "gb2312"）
setthttp =何もない
iferr.number <> 0thenerr.clear
エンド機能
'2。変換のエンコード
functionbytestobstr（body、cset）
DimobjStream
setobjstream = server.createObject（ "adodb.stream"）
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
setobjstream =何もない
エンド機能
'明示的なURLを取得します
functionmyreplace（convstr）
convstr =置換（convstr、 "yvi"、 "1"）
convstr =置換（convstr、 "esr"、 "2"）
convstr =置換（convstr、 "sxn"、 "3"）
convstr =置換（convstr、 "sti"、 "4"）
convstr =置換（convstr、 "wfu"、 "5"）
convstr =置換（convstr、 "lqu"、 "6"）
convstr =置換（convstr、 "qgi"、 "7"）
convstr =置換（convstr、 "bla"、 "8"）
convstr =置換（convstr、 "jfu"、 "9"）
convstr =置換（convstr、 "lsn"、 "0"）
convstr =置換（convstr、 "xpg"、 "/"）
convstr =置換（convstr、 "xqd"、 "。"）
convstr =置換（convstr、 ""、 ""）
convstr =置き換え（convstr、 "％20"、 ""）
convstr =置換（convstr、 "kwd"、 "wma"）
myreplace = convstr
エンド機能
ifid = "1"次に
url = trim（request.form（ "txturl"））
ifurl = "" then
Response.redirect（ "getMusic.asp"）
Response.End（）
endif
'url = "http://www.ting88.com/musiclist/1454.htm"
S = 0
d = 0
ns = 0
nd = 0
getCode = gethttppage（url）
num = mid（getCode、instrrev（getCode、 "。<ahref"）-3,2） '曲の数を取得します
name = mid（getCode、strun（getCode、 "Singer name："）+5,10） 'シンガーを取得します
M = "http://218.75.78.189/33445566/"
response.write "<center>このページは、このページに「＆name＆" songs "＆" <br/> <br/> <by "＆name＆"の合計が見つかりました。