getfile.asp
<%
''استخدم مكون xmlhttp للحصول على الملفات البعيدة وحفظها في المساحة الحالية
''هذا مثال على إنشاء موقع ويب. يمكنك الحصول على محتوى صفحة الويب عن بُعد وتصفية بيانات الطقس ذات الصلة. بالطبع، يمكنك تخطي تخزين الملفات المحلية ثم الحصول على البيانات.
'' تمت الإشارة إلى وظيفة xoyu، شكرًا هنا
fileurl = " http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath = "thistest"&mid(fileurl,dotloc) ''إنشاء أسماء ملفات من نفس النوع
''filepath = "thistest.htm"
استدعاء saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
الإعلانات الخافتة، الاسترجاع، GetRemoteData
تعيين الاسترداد = Server.CreateObject("Microsoft.XMLHTTP")
مع الاسترجاع
.فتح "الحصول على"، RemoteFileUrl، خطأ، ""، ""
.يرسل
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''يمكنك الحصول مباشرة على محتوى الملفات النصية، ولكن لا يمكن أن تدعم اللغة الصينية، ولا أعرف كيفية حل هذه المشكلة.
إنهاء مع
مجموعة الاسترداد = لا شيء
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''إنشاء الملف المقابل
مع الإعلانات
.النوع = 1
.يفتح
.اكتب GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.يلغي()
.يغلق()
نهاية مع
تعيين الإعلانات = لا شيء
end sub
''ما ورد أعلاه يكمل تخزين الملفات عن بعد، وما يلي ينطبق فقط على تشغيل الملفات النصية www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''اقرأ محتوى الملف
تعيين fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
تعيين الملف = لا شيء
تعيين fso=لا شيء
''response.write
contentarr=split(content,"<td") ''التصفية بناءً على المحتوى
لأني=1 إلى ubound(contentarr)
إذا كان instr(contentarr(i),"Enshi") فإن thisloc=i
التالي
خافت شو(5)
ل ي = 0 إلى 4
con1=contentarr(thisloc+j)
start1=instr(con1,>")
con1=يمين(con1,len(con1)-start1)
stop1=instr(con1,<")
con1=يسار(con1,stop1-1)
str=str&contentarr(thisloc+j)
شو (ي) = القطع (con1)
التالي
إذا xu(1)<>"" إذن
Response.write "document.write('توقعات الطقس لمحافظة إنشي خلال الـ 24 ساعة القادمة:"&xu(1)&"، درجة الحرارة الدنيا"&xu(2)&"°، درجة الحرارة القصوى"&xu(3)&"°، الرياح الاتجاه:" &xu(4)&".--صادر عن مرصد ووهان المركزي للأرصاد الجوية')؛"
آخر
Response.write "document.write('لم يتم إصداره بعد');"
نهاية إذا
''response.write server.htmlencode(str)
%>
اقتباس وعرض المحتوى الذي تم الحصول عليه في صفحة htm أخرى
<script src="getfile.asp"></script>