Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb תc# - .NET¼¼Êõ / ASP.NET

´ó¼Ò°ïæÎÒ°Ñvb ת³ÉC# °É £¬ÏÂÃæÊǽâÎöÔ¶³ÌxmlµÄ´úÂ룬
Function liansuo() 'allcityÒ³ÃæÁ¬Ëø¾ÆµêÆ·ÅÆÍ¼Æ¬
Dim xml,strxml,j,array0,array1
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
Dim HttpReq,xd,i,hotelid
set HttpReq = server.CreateObject("Microsoft.XMLHTTP")
HttpReq.open "GET",tcxmlapi&"getpinpai.asp",False  
HttpReq.send
strxml = HttpReq.responseText
xml.validateonparse = true
xml.async=false
xml.loadXML(strXML)
Set XMLlinks=xml.getElementsByTagName("pingpai")
iLength = XMLLinks.length
For i = 0 To iLength -1
xmlstring=xmlstring&XMLLinks(i).selectSingleNode("id").Text&","& XMLLinks(i).selectSingleNode("name").Text&","& XMLLinks(i).selectSingleNode("url").Text&"|"
Next
array0=Split(xmlstring,"|")
Response.write ("<table width=""95%"" align=""center""><tr>")

Set XMLLinks = Nothing
Set XMLItems = Nothing
Set xml = Nothing
End Function{{


Ïà¹ØÎÊ´ð£º

asp.net³ÌÐòÔ±ÇóÖ° - .NET¼¼Êõ / ·Ç¼¼ÊõÇø

±¾È˹¤×÷¾­ÑéÒ»ÄêÒÔÉÏ
ÊìϤasp.net
ÊìϤjavascript
ÊìϤCss
ÊìϤajax
ÊìϤsqlserver2005
ÓÐÒ»ÄêµÄÏîÄ¿¾­Ñé
¾ßÌåÏîÄ¿ºÍÆäËûµÄ¾Í²»ÔÚÕâдÁË
ÓÐÒâÕßÁªÏµ£º
QQ:359233910
ÒýÓÃ
±¾È˹¤×÷¾­ÑéÒ»ÄêÒÔÉÏ
ÊìϤasp ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ