<%
関数 GetPage(url)
薄暗い検索
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
検索あり
.Open "Get"、URL、False '、""、""
。送信
GetPage = BytesToBstr(.ResponseBody)
で終わる
取得 = なしを設定します
関数の終了
関数 BytesToBstr(body)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
終了機能
エラー時は次から再開
URL=" http://www.taiang.com.cn/index.asp "
response.write "开始更新首页..."
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'MyFile.FolderExists(server.MapPath("/html/")) でない場合
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
If (fs.FileExists(server.MapPath("./")&"index.htm")) then
fs.DeleteFile(server.MapPath("./")&"index.htm")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
CrFi=何も設定しない
fs=何も設定しない
response.write "...<font color=red>更新完了！</font>"
%>