<%
وظيفة GetPage(url)
استرجاع خافت
تعيين الاسترداد = CreateObject("Microsoft.XMLHTTP")
مع الاسترجاع
.افتح "الحصول على"، عنوان url، خطأ '، ""، ""
.يرسل
GetPage = BytesToBstr(.ResponseBody)
نهاية مع
تعيين الاسترجاع = لا شيء
وظيفة النهاية
BytesToBstr(body)
objstream خافت
تعيين 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.اكتب "开始更新首页..."
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'إذا لم يكن MyFile.FolderExists(server.MapPath("/html/")) ثم
'MyFile.CreateFolder(server.MapPath("/html/"))'
'انتهى إذا
إذا (fs.FileExists(server.MapPath("./")&"index.htm")) ثم
fs.DeleteFile(server.MapPath("./")&"index.htm")
إنهاء إذا
تم تعيين CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
تعيين CrFi = لا شيء
تعيين خ = لا شيء
Response.write "...<font color=red>هل أنت بخير!</font>"
%>