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
2 halaman Total halaman sebelumnya halaman berikutnya