الموصى به: يقوم ASP بإرجاع الموقع الأخير من السلسلة ٪ dwwwstr = divdwww.cn/divdivww.dwww.cn/div design home dwwwstr = instrrev (dwwwstr ،/div) استجابة. dwwwstr ٪ instrev الوصف إرجاع الموقف من نهاية سلسلة تظهر في سلسلة أخرى. Syntax Instrrev (String1 ، String2 [، start [، Compare]]) Instrre
عندما كنت أعمل في الصباح ، رأيت الثلج يسقط في الخارج. .
لذلك وجدت طريقة لكتابة إجراء للتنبؤ بالطقس ، ورأيت أن توقعات الطقس على QQ كانت جيدة جدًا. . هيه. . سألتقطك!
كما هو موضح في الصورة:
شفرة:
<٪
'عند استئناف الخطأ التالي
المؤلف: Wuqing المصدر: يرجى الحفاظ على المصدر عند إعادة الطباعة
استجابة. contenttype = text/html ؛
استدعاء الطقس ()
الطقس الفرعي ()
url = http: //weather.news.qq.com/inc/07_ss252.htm 'Weather in Shanghai
استدعاء isobjinstalled (microsoft.xmlhttp)
Weatherstr = gethttppage (url)
إذا كان weatherstr = ثم
استجابة. تكتب آسف ، فشلت توقعات الطقس في التحميل!
آخر
تعيين reg = جديد regexp
reg.Multiline = صحيح
reg.global = false
reg.ignorecase = صحيح
reg.pattern = <td height = 77 class = wht2 lk37> ((. |/n)*؟) </td>
تعيين المطابقات = reg.execute (Weatherstr)
لكل مباراة 1 في المباريات
Weatherstr = match1.value
التالي
تعيين المباريات = لا شيء
ضبط ريج = لا شيء
إذا instr (weatherstr ، لم يتم العثور عليه مع)> 0 ثم
استجابة. تكتب آسف ، فشلت توقعات الطقس في التحميل!
آخر
Weathersstr = استبدال (Weathersstr ، <TD Hight = 77 Class = WHT2 LK37> ،)
Weathersstr = استبدال (Weathersstr ، <div class = txbd> ،)
Weatherstr = استبدال (Weatherstr ، </div> ،)
Weatherstr = استبدال (Weatherstr ، </td> ،)
Response.write شنغهاي الطقس توقعات: & weatherstr &
إنهاء إذا
إنهاء إذا
نهاية الفرعية
'// استخدم مكون microsoft.xmlhttp لجمع البيانات
وظيفة gethttppage (url)
'عند استئناف الخطأ التالي
خافت HTTP
تعيين http = server.createBject (microsoft.xmlhttp)
http.Open get ، url ، false
http.send ()
إذا http.readyState <> 4 ثم
وظيفة الخروج
إنهاء إذا
gethtpage = bytes2bsstr (http.responsebody)
تعيين http = لا شيء
إذا err.number <> 0 ثم err.clear
وظيفة نهاية
مشاركة: تحليل التصويت في برنامج DIG ASP ASP يقوم ASP بإجراء تصويت في برنامج DIG (يطلق عليه بعضها أعلى وخطوة). الناخبون.
صفحتان في إجمالي الصفحة السابقة 12 الصفحة التالية