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{{
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
´úÂëÈçÏ Çë¸ßÊÖ Ö¸µãÏ лл
ajax_http.js
-------------
function getXMLHTTP() {
var xmlhttp;
if (window.ActiveXObject) {
//IE
try {
......