��ASP灏����(杩�绋���版����峰��)绋�搴������ラ�ㄦ��绋�
杩�������璇寸�����灏�������������������ASP涓�杩����XML涓����XMLHTTP缁�浠舵��渚����寮哄ぇ�����斤�����杩�绋�缃�绔�涓������版��锛���剧��锛�缃�椤靛����朵�����浠讹����������版����帮��缁�杩����绉�澶���������剧ず��伴〉���涓�������瀛���ㄨ����版��搴����涓�绫荤��搴����浣����浠ラ��杩�杩�绉�灏���风��搴�锛�瀹����杩���讳��浜�浼间��瀹���ㄤ�������藉����扮��浠诲�★��姣�濡�璇存�����涓�绔����椤甸�㈠�锋����㈡�卞�����������宸辩��椤甸��锛�������������涓�绔����涓�浜���版��锛����绔�锛���剧��锛�淇�瀛���版����版�版��搴�涓����浠ュ�╃�ㄣ�����灏���封�����浼���规��锛����椤荤淮��ょ��绔�锛����涓哄����风��搴�涓������版����ヨ����朵��缃�绔�锛�瀹�灏�������璇ョ��绔������存�拌����存�帮�����浠ヨ�����澶ч����������″�ㄨ��婧�锛�涓����灏���风��搴�灏卞��涓����浠讹��������缃�椤靛��瀹归�芥����ヨ����朵��缃�绔����缂虹�瑰�ㄤ��锛�涓�绋冲��锛�濡����������缃�绔���洪��锛�绋�搴�涔�浼���洪��锛����涓�锛�濡����������缃�绔�杩�琛����绾х淮��わ����ｄ��灏���风��搴�涔�瑕�杩�琛���稿��淇���癸�����搴�锛����涓烘��杩�绋�璋����锛����搴������ㄦ����版����″�ㄤ��璇诲����版��姣�璧锋�ワ�����瀹�瑕����涓�浜�������涔���凤�����璧锋�ュ��绁�濂���э�����浠���板�ㄥ氨寮�濮���ュ��涔�涓�浜����灏���封��绋�搴������ラ�ㄧ�ヨ����э��

���浠���夸釜绠������圭��涓�瑗挎�ョ��绌朵��涓���э��QQ缃�绔�涓����澶╂��棰���ョ��搴�

浠ｇ��濡�涓�锛�

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

���棣����锛�杩�琛�灏���风��搴����涓�浜����濮����璁剧疆锛�浠ヤ��浠ｇ�����浣���ㄥ��������蹇界�ユ�������������村�芥�ч��璇�锛����灏���风��搴����杩�琛�瓒���舵�堕�磋�剧疆寰�寰���匡��杩���蜂��浼���虹�拌��琛�瓒���剁�����璇�锛�锛�杞���㈠����ラ��璁ょ��UTF-8缂����杞���㈡��GB2312缂����锛���������存�ョ��XMLHTTP缁�浠惰����ㄦ��涓����瀛�绗����缃�椤靛����扮��灏����涔辩�����

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

�����跺��璋����XMLHTTP缁�浠跺��寤轰��涓�瀵硅薄骞惰��琛����濮����璁剧疆���

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function

���澶���������������ョ����版�����瑕�璋����adodb.stream缁�浠跺苟杩�琛����濮����璁剧疆���%>

���浠ヤ����充负椤甸�㈡�剧ず��ㄥ��

<%
Dim wstr,str,url,start,over,city
���瀹�涔�涓�浜����瑕�浣跨�ㄥ�扮��������

city = Request.QueryString("id")
���绋�搴�浼�������ID������锛���崇�ㄦ�烽����╃�����甯�锛�璧�缁�id

url="http://appnews.qq.com/cgi-bin/news_qq_search?city="&city&""
���杩����璁剧疆���瑕����������椤甸�㈠�板��锛�褰���朵��涔����浠ョ�存�ユ��瀹����涓���板�����涓�浣跨�ㄥ�����

wstr=getHTTPPage(url)
�����峰�����瀹�椤甸�㈢����ㄩ�ㄦ�版��

start=Newstring(wstr," ")
���杩����璁剧疆���瑕�澶���������版�����澶撮��锛�杩�涓�������搴�瑙�涓���������佃��璁剧疆锛���蜂�����瀹瑰��浠ラ��杩���ョ�����瑕����������椤甸�㈢��婧�浠ｇ����ョ‘瀹�������涓哄�ㄨ��涓�绋�搴�������浠����瑕���������翠釜椤甸��,���浠ヨ�剧疆涓洪〉��㈠�ㄩ�ㄦ��������娉ㄦ��锛�璁剧疆������瀹瑰��椤绘��椤甸�㈠��瀹瑰��涓����锛�涓����浠ラ��澶����

over=Newstring(wstr," ")
������start��稿�瑰�����灏辨�����瑕�澶���������版�����灏鹃��锛������风��锛�璁剧疆������瀹瑰��椤绘��椤甸��涓����涓�������

body=mid(wstr,start,over-start)
���璁剧疆��剧ず椤甸�㈢��������

���涓���㈠氨�����ㄧ�ㄤ咕��ゆ��绉�+++�����跺��浜�锛����杩�replace���浠ョ�ㄤ��浜�瀛�绗���挎�㈡����版��涓����瀹����瀛�绗����

body = replace(body,"skin1","澶╂��棰���� - ������缃�缁�")
body = replace(body,"http://appnews.qq.com/cgi-bin/news_qq_search?city","tianqi.asp?id")

������绋�搴�涓�宸茬��瀹����浜���挎�㈢��宸ヤ��锛�濡���������朵�����瑕����璇����浠ョ户缁�杩�琛�绫讳技�����挎�㈡��浣����
response.write body
%>

��挎�㈠�����瑕�淇���圭�����瀹瑰��锛�灏卞��浠ユ��淇���圭�����瀹规�剧ず��ㄩ〉���涓�浜������虫�ょ��搴�缁����



绋�搴�浣跨�ㄦ�规�����缁����锛����涓�杩颁唬�����绘��璇存����ㄥ�����淇�瀛�涓�tianqi.asp锛�涓�浼���版�����ASP���XML���绌洪�翠��锛���ㄦ��瑙���ㄤ腑杩�琛���冲�����浣����浠ュ�ㄥ�ㄨ��涓�绋�搴������虹��涓�杩�琛�杩�涓�姝ョ�������㈢�����������绋�搴�浼�������

浠ヤ��������涓�浜���充��XMLHTTP缁�浠剁�����绾у�����锛�瀹����涓�瀹�杩���藉����扮�������借�����寰�澶�锛�姣�濡�璇翠��瀛�杩�绋���剧����版����版����″�ㄤ��锛�������adodb.stream缁�浠跺��浠ユ����峰����ョ����版��淇�瀛�杩���版��搴����灏���风��浣���ㄥ��浣跨�ㄨ����撮�藉��骞裤��浣����涓����浠ユ�挎�ュ��杩�娉����浜����锛�

涔�璁歌�����浜鸿�����浜�锛�杩�绉����灏���封��绋�搴���鹃��������ASP���涓���╁��锛����涔�锛�PHP���杩�fopen��芥�颁����峰��浠ュ����板����风��������锛���变��PHP���韬�������绉���圭�癸�������烘�ョ��灏���风��搴����ASP��告��锛���ㄤ��绉������ц��������涓���芥����������剧��浼���匡��浣����浜�绡�骞�锛�杩����灏变��涓�涓�璇存��浜����


  ¶ 4/16/1990 07:38:00 上午 0 评论