ÓÃasp¶ÁÈ¡xmlʱÇå³ý»º´æµÄÎÊÌâÓë½â¾ö°ì·¨
Ç°¶Îʱ¼ä¸ø¿Í»§×öÁ˼¸¸öÍøÒ³£¬¿Í»§ÒªÇóÔÚ×Ô¼ºµÄÍøÕ¾ÖÐÏÔʾ×Ô¼ºÔÚÐÂÀ˲©¿ÍÀïµÄÎÄÕ£¬×÷ΪÍøÕ¾µÄÒ»²¿·Ö¡£ÕâÑùµÄÇé¿ö¿ÉÒÔ½â¾ö£¬Ö÷Òª¿ÉÒÔͨ¹ý²©¿ÍÖÐµÄ XMLÀ´ÊµÏÖ£¬Í¨¹ýÓÃaspÀ´¶ÁÈ¡²©¿ÍÖÐXML£¬½«²©¿ÍÖеıêÌâ¡¢·¢²¼Ê±¼äµÈÐÅÏ¢ÏÔʾÔÚÍøÕ¾ÖС£µ«ÊÇÔÚʹÓõĹý³ÌÖУ¬³öÏÖÁËÒ»¸öÎÊÌ⣺µ±²©¿ÍÖÐÌí¼ÓÎÄÕºó£¬ÔÚÍøÒ³ÖжÁÈ¡²©¿ÍÖеÄXMLºó½øÐиüУ¬µ«ÊÇȴûÓм°Ê±¸üУ¬²éѯÁ˺ܶàÐÅÏ¢£¬·¢ÏÖÊÇÍøվûÓм°Ê±¸üÐÂXMLÊý¾Ý¶øÔì³ÉµÄ¡£ÈçºÎ½â¾ö£¿ÏÈÊdz¢ÊÔÇå³ýÍøÕ¾µÄ»º´æ£¬ÉèÖÃÍøÕ¾ÖеÄHTTPÍ·£ºCache-ControlºÍÖµ£ºno-cache¡£ÉèÖúó½øÐвâÊÔ£¬·¢ÏÖЧ¹û²»ºÃ£¬Ö÷ÒªÎÊÌâÊÇÕâÑùµÄÉèÖÃÖ»ÊÇÇå³ýÁËÍøÕ¾ÄÚËù°üº¬µÄͼƬ£¬Îı¾µÈ»º´æ£¬Ã»ÓиüÐÂXML»º´æ£¬ËùÒÔûÓнâ¾öÇ°ÃæµÄÎÊÌâ¡£
ÎÞÄÎÖ»ÄÜÔÙ²éÕÒ£¬ËùÐÒÔÚCSDNÖп´µ½Ò»ÆªÎÄÕ£¬½éÉÜÇå³ý»º´æµÄºÃ°ì·¨ÊǸıä˼·£¬²»ÊÇÇå³ýÄÚÈÝ£¬¶øÊÇÇ¿ÐмÓÔØÒª¸üеÄÄÚÈÝ¡£Ö÷Ҫ˼·ÊÇÔÚ´ò¿ªµÄ·¾¶ÖÐÌí¼ÓËæ»úÊý£¬ÒòΪÔÚiisÖзÃÎʲ»Í¬µÄ·¾¶Ê±£¬ÄÚÈÝÊÇÇ¿ÐмÓÔصģ¬Ã»Óе÷Óûº´æ¡£ÓÐÁËÕâ¸ö˼·£¬¸Ä¶¯³ÌÐò¾Í±È½Ï·½±ãÁË¡£¾ßÌå´úÂëÈçÏ£º
<%
dim xmlDoc
dim http
dim bitem
dim bi
dim title
dim link
dim pubdate
dim days
dim months
dim NM
dim xmlseed
dim conn,strconn,rs
dim ReadSinaRss
Randomize 'Ôö¼ÓËæ»úÊý³õʼ»¯Óï¾ä
'Ô±¾µÄ¸³ÖµÓï¾äΪ£ºxmlseed="http://blog.sina.com.cn/rss /adsbaby.xml"£¬Ð޸ĺóΪ£º
xmlseed="http://blog.sina.com.cn/rss/adsbaby.xml?tmp="&int(rnd*1000)
’×¢Ò⣺ÔÚURLµØÖ·ÖУ¬×îºóÔö¼Ó”?xxx=number“ÕâÖÖÐÎʽ¶Ôä¯ÀÀÄÚÈݲ»»áÓ°Ï죬ÊÇÈÃä¯ÀÀµØÖ·ÄÚÈÝÖØмÓÔصÄÒ»ÖֱȽϺõİ취
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set bitem=xmlDoc.getElementsByTagName("item")
if bitem.Length>=0 then
ReadSinaRss="<table width=100% cellpadding=0 cellspacing=0>"
For bi=0 To (bitem.Length-1)
if bi<=5 then
Set pubdate=bitem.Item(bi).getElementsByTagName("pubDate")
Set title=bitem.Item
Ïà¹ØÎĵµ£º
xmlÎļþÈçÏ£º<?xml version="1.0" encoding="gb2312"?>
<Èí¼þ¹ÜÀíϵͳ>
<¹ÜÀíÔ±>
<Óû§Ãû>Ã÷ÈտƼ¼</Óû§Ãû>
<ÃÜÂë>123456</ÃÜÂë>
<µØÖ·>³¤´ºÊÐ</µØÖ·>
</¹ÜÀíÔ±>
<¹ÜÀíÔ±>
<Óû§Ãû>Ã÷ÈÕÈí¼þ</Óû§Ãû ......
http://topic.csdn.net/t/20021102/16/1142056.html
use classes in System.Xml namespace, for example (assume your xml is in string s and it contains an xmlns definition) ......
1.ÈçºÎÓÃAspÅжÏÄãµÄÍøÕ¾µÄÐéÄâÎïÀí·¾¶
´ð£ºÊ¹ÓÃMappath·½·¨
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
......
¹¦ÄÜ×÷ÓãºASP²úÉú²»Öظ´µÄËæ»úÊý£¨Ä£ÄâÓÎÏ·Ï´ÅÆ£©
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......
Ê×ÏÈ£¬Ò»°ã²Ù×÷ϵͳĬÈϾù²»°²×°IIS·þÎñ£¬Òò´Ë±ØÐëÏÈ°²×°IIS·þÎñ¡£°²×°¹ý³ÌÖУ¬ÐèÒªÓõ½²Ù×÷ϵͳµÄ°²×°ÅÌ£¬ÓÐЩϵͳ»¹ÐèÒªÌض¨°æ±¾µÄ²¹¶¡¡£±ÈÈçXPÐèÒªSP2¡£
´Ë´¦²»ÔÙ½éÉÜÍøÕ¾µÄÊôÐÔÅäÖã¬ÒòΪÓÐÖî¶àµÄÎÄÕ¶¼»á½«Õâ·½ÃæµÄÄÚÈÝ¡£
1¡£VISTA HOME BASIC
²»ÄÜ°²×°IIS·þÎñ
2¡£WINDOWS XP
ÐèҪȷ±£ÔÚASPÍøվĿ¼µÄ°²È ......