為您找到相關(guān)結(jié)果40個
用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 XMLHTT
www.dbjr.com.cn/article/260...htm 2025-5-30
使用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 then strContent ="遠(yuǎn)程通訊故障!" CallLogToFile(strContent,1) response.end end if...
www.dbjr.com.cn/article/721...htm 2025-5-14
獲取外網(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
用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
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-11
[紅色]一次性下載遠(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
完美解決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
XMLHTTP 亂碼的解決方法(UTF8,GB2312 編碼 解碼)_javascript技巧_腳本...
bytes2BSTR = strReturn End Function strA = URLEncoding("submit1=Submit&text1=中文") oReq = CreateObject("MSXML2.XMLHTTP") oReq.open "POST","http://ServerName/VDir/TstResult.asp",false oReq.setRequestHeader "Content-Length",Len(strA) ...
www.dbjr.com.cn/article/259...htm 2025-6-10