Contoh Program Analisis Untuk Mengambil Tutorial Forecast_asp Cuaca

Direkomendasikan: ASP mengembalikan lokasi terakhir dari suatu string
% dwwwstr = divdwww.cn/divdivwww.dwww.cn/div home dwwwstr = instrrev (dwwwstr,/div) response.write dwwwstr % instrrev description mengembalikan posisi dari akhir string yang muncul di string lain. Sintaks instrrev (string1, string2 [, start [, bandingkan]]) instrre

Ketika saya bekerja di perusahaan di pagi hari, saya melihat salju di luar. .

Jadi saya menemukan cara untuk menulis prosedur peramalan cuaca, dan saya melihat bahwa ramalan cuaca di QQ cukup bagus. . hehe. . Aku akan menangkapmu!

Seperti yang ditunjukkan pada gambar:

Kode:

<%

'Pada kesalahan resume berikutnya

'Penulis: Wuqing Sumber: Harap simpan sumbernya saat mencetak ulang

Response.contentType = Teks/html;

Panggil cuaca ()

Sub cuaca ()

url = http: //weather.news.qq.com/inc/07_ss252.htm 'cuaca di shanghai

Panggil isobjinstalled (microsoft.xmlhttp)

Weatherstr = getHttppage (URL)

jika weatherstr = lalu

Response.write Maaf, ramalan cuaca gagal memuat!

kalau tidak

Setel reg = regexp baru

Reg.Multiline = Benar

Reg.global = false

Reg.ignorecase = true

Reg.pattern = <td tinggi = 77 class = wht2 lk37> ((. |/n)*?) </td>

Set pertandingan = Reg.Execute (Weatherstr)

Untuk setiap match1 dalam pertandingan

weatherstr = match1.value

Berikutnya

Setel kecocokan = tidak ada

Setel Reg = Tidak Ada

if instr (weatherstr, tidak ditemukan dengan)> 0 lalu

Response.write Maaf, ramalan cuaca gagal memuat!

Kalau tidak

weatherstr = ganti (weatherstr, <td tinggi = 77 class = wht2 lk37>,)

weatherstr = ganti (weatherstr, <div class = txbd>,)

weatherstr = ganti (weatherstr, </div>,)

weatherstr = ganti (weatherstr, </td>,)

Response.write Prakiraan Cuaca Shanghai: & Weatherstr &

akhiri jika

akhiri jika

Akhir sub

'// Gunakan komponen microsoft.xmlhttp untuk mengumpulkan data

Function getHttppage (URL)

'pada kesalahan resume berikutnya

redup http

Setel http = server.CreateObject (microsoft.xmlhttp)

Http.open get, url, false

Http.send ()

Jika http.readystate <> 4 lalu

fungsi keluar

akhiri jika

getHttppage = bytes2btr (http.responseBody)

atur http = tidak ada

Jika err.number <> 0 maka err.clear

Fungsi akhir

Bagikan: Analisis pemungutan suara dalam program Dig Implementasi ASP
ASP membuat pemungutan suara dalam program penggalian (beberapa disebut top and step on) karena kode panjangnya, hanya bagian inti yang diposting: halaman kode dalam pemungutan suara menampilkan bagian suara: div class = vote1script src = '/ Pemilih. Asp? Id = 1Action = View '/Script/Div Efeknya ditunjukkan pada gambar: 520) This.width = 500 Border = 0>, lalu klik untuk melemparkan satu