ÓÃ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
Ïà¹ØÎĵµ£º
MSXML2::IXMLDOMDocumentPtr pDoc;
MSXML2::IXMLDOMElementPtr xmlRoot ;
// ´´½¨DOMDocument¶ÔÏó
HRESULT hr = pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40));
if ( ! SUCCEEDED(hr))
{
MessageBox( " ÎÞ·¨´´½¨DOMDocument¶ÔÏó£¬Çë¼ì²é ......
½ÓÉÏһƪ
ÏÔʾËùÓнáµãµÄÄÚÈÝ
1 ÔxmlÎļþ bookstore.xml
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book ISBN="1234123">
<title>who am i </title>
<author>who</author>
<price> ......
µ÷ÊÔ³ÌÐòºÍ×ö³ÌÐòµÄʱºò£¬ºÃ¶àÖظ´µÄ´úÂëÒ»Ö±ÊäÈëºÜÂé·³£¬Ò²ºÜûÓÐЧÂÊ£¬·â×°Ò»¸ö×Ô¼ºµÄAsp°ü°ü£¬Í¦ÓÐÓеÄ
ÏÂÔظö¾«¼ò°æµÄVB6.0£¬Ð½¨ ActiveX dll£¬ÒÔÏÂÊÇ·â×°µÄ´úÂ룬ÖØÒª²¿·Ö¶¼ÓÐ×¢ÊÍ£¬²»¶®¿ÉÒÔ¸úÌû
Option Explicit
Public Resp As Response, Requ As Request, Appl As Application, Serv As Server, Sess As Sessio ......
¹¦ÄÜ×÷Óãº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ÍøվĿ¼µÄ°²È ......