ASP進(jìn)階:用ASP判斷文件地址是否有效_ASP教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
推薦:怎么判斷一個(gè)對(duì)象是否已被釋放以下為引用的內(nèi)容: <% Dim conn'聲明 Set conn = Server.CreateObject("ADODB.Connection")'創(chuàng)建 '使用 Set conn = Nothing'釋放 %>
<%
Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>") On Error Resume Next Dim thisurl,thistext thisurl=Request("thisurl") '定義文件地址(非Html格式文檔)! if thisurl="" then Response.Write("<span>請(qǐng)先輸入文件地址!</span>") Response.End End if Function objxmlhttp(xmlurl) On Error Resume Next Set objxml = CreateObject("Microsoft.XMLHTTP") objxml.Open "get",xmlurl,false objxml.setrequestheader "content-type","application/x-www-form-urlencoded" objxml.send objxmlhttp = objxml.responsebody if Err then Err.Clear Response.Write("<span>建立連接失敗,文件不存在或網(wǎng)絡(luò)有問題!;錯(cuò)誤原因:"&Err.Description&"!</span>") Response.End End if End Function Function bytes2BSTR(vIn) 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 = strReturn & Chr(CLng(ThisCharCode) * &H100 CInt(NextCharCode)) i = i 1 End If Next bytes2BSTR = strReturn End Function thisurl2=Split(thisurl,",") For Each ii In thisurl2 thistext=bytes2BSTR(objxmlhttp(ii)) if InStr(thistext,"<html>")<>0 then Response.Write("<span>"& ii &" <b>×</b></span><br>") Else Response.Write("<span>"& ii &" <b>√</b></span><br>") End if Next if Err then Err.Clear Response.Write("<span>碰到意外!;錯(cuò)誤原因:"&Err.Description&"!</span>") Response.End End if %> |
分享:IIS虛擬主機(jī)網(wǎng)站防木馬權(quán)限設(shè)置安全配置整理參考了網(wǎng)絡(luò)上很多關(guān)于WIN2003的安全設(shè)置以及自己動(dòng)手做了一些實(shí)踐,綜合了這些安全設(shè)置文章整理而成,希望對(duì)大家有所幫助,另外里面有不足之處還請(qǐng)大家多多指點(diǎn),然后給補(bǔ)上,謝謝! 一、系統(tǒng)
相關(guān)ASP教程:
- asp FSO 讀寫文件本文件實(shí)現(xiàn)代碼
- asp中isNull、isEmpty和空字符串的區(qū)別
- asp獲取用戶真實(shí)IP地址的方法
- asp連接sqlserver數(shù)據(jù)庫實(shí)現(xiàn)代碼
- asp中正則表達(dá)式過濾html代碼函數(shù)
- asp中g(shù)et post提交表單區(qū)別
- 網(wǎng)頁模板:ASP內(nèi)建對(duì)象Request
- xmlhttp的open方法使用詳解
- ASP的常用的自定義函數(shù)大全
- asp中用for循環(huán)的一個(gè)小技巧
- eWebEditor v3.8 列目錄
- ASP無組件分頁實(shí)現(xiàn)思路及代碼
ASP教程Rss訂閱編程教程搜索
ASP教程推薦
- 分享:XML HTTP Request的屬性和方法簡(jiǎn)介
- asp中正則表達(dá)式過濾html代碼函數(shù)
- ASP常見數(shù)學(xué)函數(shù) Abs Atn Cos 等詳解
- asp獲取用戶真實(shí)IP地址的方法
- 設(shè)置IIS中某個(gè)目錄禁止執(zhí)行ASP程序方法
- Asp定時(shí)執(zhí)行操作、Asp定時(shí)讀取數(shù)據(jù)庫(網(wǎng)頁定時(shí)操作詳解)
- 用ASP編程實(shí)現(xiàn)網(wǎng)絡(luò)內(nèi)容快速查找
- 怎樣隱藏圖片的真實(shí)地址
- 實(shí)例詳解ASP中斷開記錄集的使用方法
- ASP讀sql數(shù)據(jù)時(shí)出現(xiàn)亂碼問題的解決方法
- 相關(guān)鏈接:
- 教程說明:
ASP教程-ASP進(jìn)階:用ASP判斷文件地址是否有效。