私は地元のポータルで働いており、Web サイトの天気情報を毎日更新する必要があります。時間が経つと、かなり面倒になったので、予定のニュース泥棒を書きました。投稿後にシステム要件を参照してください。 FSO、サーバー UDP TCP/IP をサポートします。
以下は泥棒の内容です。
ファイル名 TianQi.asp
Nioked による書き込み QQ408611119
www.downcodes.com
<%
時間(現在)=9かつ分(現在)<30の場合
getカテゴリ()
終了する場合
関数 getカテゴリ()
エラー時は次から再開
Dim oXMLHTTP 'オブジェクトとして
Dim oCategory ' オブジェクトとして
ディムボディテキスト
ディムポジション、ポジション1
oXMLHTTP = CreateObject("Microsoft.XMLHTTP") を設定します
'--- XMLHTTP 呼び出しを設定し、送信を発行します (カテゴリとして parm はありません)
'--- が URL に含まれています
oXMLHTTP.open "GET"," http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False 'この場所を自分の住所に置き換えます
oXMLHTTP.send
'--- 応答をカテゴリ データ アイランドにロードします
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(本文テキスト,"<本文")
pos1=Instr(BodyText,"</body>")
BodyText=mid(BodyText,pos,pos1)
BodyText=split(BodyText,"<テーブル")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Body=mid(BodyText(4),pos,len(BodyText(4))-pos)
body=split(body,"</table>")
body1=split(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"天気" )
for i= 1 から ubound(body1)
body3=split(body1(i),"<td")
Weather=weather & "document.write("""& i&"$" & "天気" & HTMLEncode(trim(body3(0))) & """);"
次
Weather=replace(weather,"1$","<FONT color=#ffffff>【今日】</FONT>")
Weather=replace(weather,"2$","<FONT color=#ffffff>【明日】</FONT>")
Weather=replace(weather,"3$","<FONT color=#ffffff>【明後日】</FONT>")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True)
f.write("document.write('綿陽天気予報:');" &vbcrlf & replace(weather,"<BR>",""))
f.閉じる
f = 何も設定しない
fs = 何も設定しない
response.write "綿陽の天気予報:"&天気
oXMLHTTP = なしを設定します
err.number<>0 の場合
response.write "エラーが発生しました。エラーの説明:"&err.description & "<br>エラーのソース"& err.source
応答.End()
終了する場合
終了関数
Function BytesToBstr(body,Cset)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
終了機能
パブリック関数 HTMLEncode(fString)
IsNull(fString) でない場合は、
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ") '
fString = Replace(fString, CHR(9), " ") '
fString = Replace(fString, CHR(34), "")
fString = Replace(fString, CHR(39), "'") '一重引用符フィルタリング
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLエンコード = fString
終了の場合
終了機能
%>