²É¼¯³ÌÐò¡¾ASP¡¿
²É¼¯³ÌÐò
ÔÀí
²É¼¯³ÌÐòʵ¼ÊÉÏÊÇͨ¹ýÁËXMLÖеÄXMLHTTP×é¼þµ÷ÓÃÆäËüÍøÕ¾ÉϵÄÍøÒ³¡£±ÈÈçÐÂÎŲɼ¯³ÌÐò£¬ºÜ¶à¶¼Êǵ÷ÓÃÁËsinaµÄÐÂÎÅÍøÒ³£¬²¢ÇÒ¶ÔÆäÖеÄhtml½øÐÐÁËÒ»Ð©Ìæ»»£¬Í¬Ê±¶Ô¹ã¸æÒ²½øÐÐÁ˹ýÂË¡£Óòɼ¯³ÌÐòµÄÓŵãÓУºÎÞÐëά»¤ÍøÕ¾£¬ÒòΪ²É¼¯³ÌÐòÖеÄÊý¾ÝÀ´×ÔÆäËûÍøÕ¾£¬Ëü½«Ëæ×ŸÃÍøÕ¾µÄ¸üжø¸üУ»¿ÉÒÔ½ÚÊ¡·þÎñÆ÷×ÊÔ´£¬Ò»°ã²É¼¯³ÌÐò¾Í¼¸¸öÎļþ£¬ËùÓÐÍøÒ³ÄÚÈݶ¼ÊÇÀ´×ÔÆäËûÍøÕ¾¡£È±µãÓУº²»Îȶ¨£¬Èç¹ûÄ¿±êÍøÕ¾³ö´í£¬³ÌÐòÒ²»á³ö´í£¬¶øÇÒ£¬Èç¹ûÄ¿±êÍøÕ¾½øÐÐÉý¼¶Î¬»¤£¬ÄÇô²É¼¯³ÌÐòÒ²Òª½øÐÐÏàÓ¦Ð޸ģ»ËÙ¶È£¬ÒòΪÊÇÔ¶³Ìµ÷Óã¬ËٶȺÍÔÚ±¾µØ·þÎñÆ÷É϶ÁÈ¡Êý¾Ý±ÈÆðÀ´£¬¿Ï¶¨ÒªÂýһЩ¡£
Ò»¡¢ÊÂÀý
ÏÂÃæ¾ÍXMLHTTPÔÚASPÖеÄÓ¦ÓÃ×ö¸ö¼òµ¥ËµÃ÷
<%
’³£Óú¯Êý
’1¡¢ÊäÈëurlÄ¿±êÍøÒ³µØÖ·£¬·µ»ØÖµgetHTTPPageÊÇÄ¿±êÍøÒ³µÄhtml´úÂë
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBstr(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
'2¡¢×ª»»ÂÒÂֱ꣬½ÓÓÃxmlhttpµ÷ÓÃÓÐÖÐÎÄ×Ö·ûµÄÍøÒ³µÃµ½µÄ½«ÊÇÂÒÂ꣬¿ÉÒÔͨ¹ýadodb.stream×é¼þ½øÐÐת»»
Function BytesToBstr(body)
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 = "GB2312" ’ת»»ÔÀ´Ä¬ÈϵÄUTF-8±àÂëת»»³ÉGB2312±àÂ룬·ñÔòÖ±½ÓÓÃXMLHTTP×é¼þµ÷ÓÃÓÐÖÐÎÄ×Ö·ûµÄÍøÒ³µÃµ½µÄ½«ÊÇÂÒÂë
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
’ÏÂÃæÊÔ×ŵ÷ÓÃhttp://www.googleµÄhtmlÄÚÈÝ
Dim Url,Html
Url="http://ww
Ïà¹ØÎĵµ£º
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='¼Ò×°¿ÎÌÃ' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("ÔÝʱûÓмǼ")
else
%>
......
Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕÆ¬£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......
1¡£Éî²ã´ÎÀ´ËµÕâ²»ÊÇasp.net µÄÎÊÌ⣬¶øÊÇhtml form µÄsubmit °´Å¥¾ÍÊÇÈçºÎÉè¼Æ¡£
µ±ÄãµÄ¹â±ê½¹µã½øÈëij¸ö±íµ¥ÔªËصÄʱºò£¬»á¼¤»î¸Ã±íµ¥µÄµÚÒ»¸ö£¨
Á÷²¼¾Ö˳´Ó×óµ½ÓÒ£¬´ÓÉÏÖÁÏ£©
type=submit µÄ°´Å¥£¨¼ÙÈçÓУ©£¬µÈ´ýÏìÓ¦»Ø³µÊ¼þ£¬²¢Ìá½»¸Ãform
Äã¿ÉÒÔ²âÊÔһϴúÂë
<form action="">
<input type ="t ......
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûÒª×¢ÖØÐ§ÂÊ£¬MarLenµÄѡȡºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒѡȡµÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......
Õ⼸Ììѧϰ¶¯Ì¬ÍøÕ¾µÄÖÆ×÷£ºASP¡£ÓÉÓÚÀÏʦ½²µÄºÜÈÏÕæ£¬ºÜÏêϸ£¬¿Î³ÌÄÜÌý¶®£¬×Ô¼ºÒ²ÂòÁËÒ»±¾¹ØÓÚASPµÄÊé¼®£¬ASPµÄһЩ¹¦ÄܵÄʵÏÖ£¬Ôõô×ö³öÀ´ÄÜ¿´µÄ²î²»¶à£¬¿É¾ÍÊÇ×öµÄʱºòºÃ²î¾¢£¬²»ÊÇij¸öÓ¢Óïµ¥´Ê²»»áд£¬¾ÍÊÇÖØ¸´´íÎó³öÏÖ£¬Éî¿ÌµÄÃ÷°×£¬×öÍøÕ¾ÔÀ´ÕâôÄÑ£¬²»½öÐèÒªÑϽ÷µÄÂ߼˼άÄÜÁ¦£¬¶ø ......