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
Ïà¹ØÎÊ´ð£º
ÓÐÒ»¸öÀà
class adc
{
dim a,b,c
}
ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý
class getmenber
{
dim menbers()
function getmenbers(resclass)
'resΪһδ֪Àà
'getmenber ......
function CheckOpwd(){//ÑéÖ¤Óû§Ãû
var pwd=document.all.txtOpwd;
var div1=document.getElementById("divPwd");
if (pwd.value=="")
{
......
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
ÕâÖÖ©¶´Ôõôȥ± ......