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¿ª·¢wapÕ¾µã£¬Íê³ÉºóÈ¥http://validator.w3.org/ÕâÀïÑéÖ¤ÎÒµÄWapÒ³ÃæÊÇ·ñ±ê×¼£¬ÆäËüÎÊÌâ¶¼¸ÄºÃÁË£¬
¾ÍÊ£ÕâÒ»¸ö´íÎóÁË£¬°´×ÖÃæÒâ˼Àí½âÊÇ˵nameÊôÐÔÒÑ´æÔÚ£¬ÀàËÆÕâÑùµÄ´íÎó»¹Óв»ÄÜÓÃborder ,align,sizeµ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
1.asp.net×öµÄÒ»¸ö´ðÌâÒ³Ãæ£¬ÈçºÎʵʱÏÞʱºó×Ô¶¯Ìá½»£¬Çë´ó¼Ò¸øµã˼·
ÏÞʱµÄʱ¼äÐÅÏ¢´æ·ÅÔÚÊý¾Ý¿âÖÐ
2.Èç¹û´ðÌâʱ¼äÉèÖõĽϳ¤£¬ÈçºÎ·½Ê½session³¬Ê±ºóÒ³ÃæÎÞЧ
лл
ÓÃjs·½·¨À´¿ØÖÆ
»Ø¸´ÄÚÈÝÌ«¶ÌÁË¡£¡£
js ......