為您找到相關(guān)結(jié)果40個
使用vbs獲取雅虎匯率_vbs_腳本之家
next bytes2bstr = strreturn EndFunction FunctionGetURL(url) SetRetrieval = CreateObject("Microsoft.XMLHTTP") WithRetrieval .Open"GET", url,False .Send GetURL = bytes2bstr(.responsebody) if len(.responsebody)<2
www.dbjr.com.cn/article/721...htm 2025-5-14
用asp獲取微軟安全更新列表的代碼 小偷程序_小偷/采集_腳本之家
Bytes2bStr = StringReturn End Function Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP") m_queryURL = "http://www.microsoft.com/china/technet/security/current.mspx" XMLHTTP.Open "GET", m_queryURL, false XMLHTTP.send() s = XMLHTTP.responseBody aa = Bytes2bStr(s,"GB2312") Set re =...
www.dbjr.com.cn/article/260...htm 2025-5-30
獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測]_vbs_腳本之家
http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=mid(ss,intStrA) intStrB = InStr(1,sss,"]",1)-1 ss=mid(ss,intStrA,intStrB) 'wscript.echo ss Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCod...
www.dbjr.com.cn/article/303...htm 2025-5-22
淺談自動采集程序及入庫_小偷/采集_腳本之家
Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) '對取得信息進(jìn)行驗證,如果信息長度小于100則說明截取失敗 if len(.responsebody)<100 then response.write "獲取遠(yuǎn)程文件 "&url&" 失敗。" response.end end if End With...
www.dbjr.com.cn/article/1...htm 2025-5-23
通過MSXML2自動獲取QQ個人頭像及在線情況(給初學(xué)者)_應(yīng)用技巧_腳本之家
先建立兩個函數(shù),用來處理一個URL 代碼如下: <% function getHTTPPage(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytes2BSTR(Http.responseBody) ...
www.dbjr.com.cn/article/75...htm 2025-5-24
asp一次性下載遠(yuǎn)程頁面上的所有內(nèi)容_ASP基礎(chǔ)_腳本之家
Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strRetur...
www.dbjr.com.cn/article...htm 2025-6-9
完美解決JS中漢字顯示亂碼問題(已解決)_基礎(chǔ)知識_腳本之家
bytes2BSTR = strReturn End Function set Http = CreateObject("Microsoft.XMLHTTP" Http.open "Get",URL,false //URL是您需要獲取的頁面的網(wǎng)址 Http.send "" document.write(bytes2BSTR(Http.responseBody)) </SCRIPT> 注:上面的bytes2BSTR只能對responseBody操作阿,responseText操作就不能正常顯示阿,因為responseText...
www.dbjr.com.cn/article/56...htm 2025-5-23
用ADODB.Stream轉(zhuǎn)換_javascript技巧_腳本之家
' bytes2BSTR = strReturn 'End Function '函數(shù),得到內(nèi)容 function getContentByUrl(url) '建立對象 set oXmlHttp = CreateObject("MSXML2.XMLHTTP") oXmlHttp.open "GET",url,false oXmlHttp.send getContentByUrl = streamtochar(oXmlHttp.responseBody) ...
www.dbjr.com.cn/article/65...htm 2025-5-25
[紅色]一次性下載遠(yuǎn)程頁面上的所有內(nèi)容284415實現(xiàn)方法_ASP基礎(chǔ)_腳本...
Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) ...
www.dbjr.com.cn/article/2844...htm 2025-3-17
用asp+xmlhttp編寫web采集程序_小偷/采集_腳本之家
直接讀取服務(wù)器返回的中文內(nèi)容會出現(xiàn)亂碼,myHttpGet函數(shù)中引用的bytes2BSTR的作用是正確讀取服務(wù)器返回的文件中的雙字節(jié)文本(比如說中文) 'myHttpGet helper 處理雙字節(jié)文本 Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) ...
www.dbjr.com.cn/article/90...htm 2025-6-3