asp´¦ÀíxmlÎÊÌâ - Web ¿ª·¢ / ASP
¸Õ¿ªÊ¼×öasp£¬ÎÒ×ö.netµÄ£¬¼æ×öÏÂasp£¬ÏÖÔÚ¹ØÓÚxmlÎÊÌ⣬Çë½Ì
Èç¹û±ð¸öÇëÇóÎÒµÄÒ³Ãæ£¬´«µÝµÄÊÇxml¸ñʽ
ÎÒ¿ÉÒÔÕâÑù½ÓÊÕ
VBScript code:
set xmlDOC=Server.CreateObject("MSXML.DOMDocument")
xmlDOC.async = False
xmlDOC.Load Request
If xmlDOC.parseError.errorCode <> 0 Then
Response.Write "²»ÊÇxml¸ñʽ"
Response.End()
End If
set blogchild=xmlDOC.getElementsByTagName("msg")
'........................´¦Àí
µ«ÊÇÏÖÔÚÊÇÎÒÇëÇó±ðÈË£¬·µ»ØÊÇxml¸ñʽµÄ£¬ÎÒ½ÓÊÕ²»ÁË£¬ÒªÔõô½ÓÊÕ
VBScript code:
str=getHTTPPage("http://www.xxxx.com") '¶Ô·½·µ»ØµÄÊÇxml¸ñʽ
set xmlDOC=Server.CreateObject("MSXML.DOMDocument")
xmlDOC.async = False
xmlDOC.Load [color=#FF0000]str[/color]
If xmlDOC.parseError.errorCode <> 0 Then
Response.Write "²»ÊÇxml¸ñʽ"
Response.End()
End If
set blogchild=xmlDOC.getElementsByTagName("msg")
'........................´¦Àí
ÕâÑù²»ÐÐ
VBScript code:
str=getHTTPPage("http://www.xxxx.com") '¶Ô·½·µ»ØµÄÊÇxml¸ñʽ
set xmlDOC=Server.CreateObject("MSXML.DOMDocu
Ïà¹ØÎÊ´ð£º
aspÐéÄâÖ÷»úʵÏÖα¾²Ì¬µÄ·½·¨£º
1¡¢ ÖØÐ´url²ÎÊý
Step1: ½¨Á¢Ç°Ì¨Îļþindex.asp£¬ÐÞ¸Äurl²ÎÊýÐÎʽ¡£ÓÉÓÚ¶ÁÈ¡Êý¾Ý¿âÖеļǼ²»ÊÇרÌâµÄÖØµã£¬¹ÊÖ±½Ó¸ø³ö:
<!--#include file="config.asp" -->
&l ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒÓÐÁ½¸ödropdownlist¶¼°óºÃÁËÖµ£¬ÏëÑ¡ÖÐÒ»¸ödropdownlistÖеÄÖµ£¬È»ºóÔÚÁíÒ»¸ödropdownlistÖÐÑ¡ÖÐÏàÓ¦µÄÒ»Ïî¡£
²»ÊÇ´Óа󶨵ڶþ¸ödropdownlist£¬ÊÇÔÚÒѾ°óºÃµÄÖµµ±ÖÐÑ¡ÖÐÒ»¸ö¡£
ÎÒÏëÓÃjsд
ÇóÖú
Äã¿ÉÒÔ°Ñdrop ......
¹ØÓÚÍøÕ¾°²È«µÄÎÊÌ⣡
ÎÒÁ˽⵽µÄÍøÕ¾°²È«ÎÊÌâ°üÀ¨£º
sql×¢Èë©¶´ºÍ±©¿â©¶´»¹ÓÐÉÏ´«Â©¶´
³ýÁËÕâЩ»¹ÓÐÆäËûµÄ©¶´Ã´£¿
×¢Èë©¶´¿ÉÒÔͨ¹ý¹ýÂËÀ´·ÀÖ¹
±©¿â©¶´Ôõô·ÀÖ¹
»¹ÓÐÈËÉÏ´«µÄľÂíÊÇ.gif
ÕâÖÖ©¶´Ôõôȥ± ......
ÎÒ×î½ü×öÁËÒ»¸öÍøÕ¾ÊǹØÓÚ²úƷչʾµÄ ~ Õû¸öÍøÕ¾Í¼Æ¬¶¼Õ¼ÓÃÁËÒ»´ó°ë
ÕâÑùµÄ»°·ÃÎÊËٶȾͷdz£Âý ÓÐʲô°ì·¨¿ÉÒÔ½â¾öÂð£¿
Âé·³´ó¼Ò¶à¶à¸øµãÒâ¼û £¡ ÓÐʲô¾¡¹Ü˵
3Q´ó¼Ò
htmlÒ³Ãæ.
Õâ¸ö,¼ÈÈ»Ö÷Ò ......