コードコピーは次のとおりです。
<％
'---------------------------------------------------------------------------------------------------------------------------------------------------------
dbname = "../ data/flash.mdb" 'データベースファイルの場所を変更すると、.aspファイルに変更することを強くお勧めします！
setConn = server.createObject（ "adodb.connection"）
connstr = "provider = microsoft.jet.oledb.4.0; dataSource ="＆server.mappath（dbname）
conn.openconnstr
'--------------------------------------------------------------------------------------------------------------------------------------
setList = conn.execute（ "select*fromsystem"）
webname = list（ "webname"）
weburl = list（ "weburl"）
webemail = list（ "webemail"）
zzname = list（ "zzname"）
qq = list（ "webqq"）
％>
<％
server.scripttimeout = 999999999
％>
<％
ifrequest（ "overid"）= "" then
response.write「終了IDは空にすることはできません」
Response.End
ElseifRequest（ "download"）= "" then
Response.Write「ダウンロードするかどうかを選択してください」
Response.End
endif
ifrequest（ "id"）= request（ "overid"）then
Response.Write「コレクションタスクが終了」
Response.End
endif
gourl1 = request（ "id"）
Gourl1 = Gourl1+1
％>
<％
functiongetpy（str）
fori = 1tolen（str）
getpy = getpy＆getpychar（mid（str、i、1））
次
エンド機能
functiongeturl（url）
setretrieval = createObject（ "microsoft.xmlhttp"）
withretrieval
.open "get"、url、false
。送信
geturl = bytes2bstr（.responsebody）
iflen（.responsebody）<100then
Response.Write「リモートファイルを取得できませんでした<ahref = "＆url＆" target = _blank> "＆url＆" </a> "
Response.Write "<Metahttp-equiv =" "reffery" content = "" 0; url = getId.asp？id = "＆gourl1＆" ""> "
Response.End
endif
終わりに
setretrieval =何もない
エンド機能
functionbytes2bstr（vin）
strreturn = ""
fori = 1tolenb（vin）
thischarcode = ascb（midb（vin、i、1））
ifthischarcode <＆h80then
strreturn = strreturn＆chr（thischarcode）
それ以外