ASP實用技巧：強制刷新和判斷文件地址
| 天極軟件專題專區精選到天極軟件“讀編交流區”暢所欲言 | |||
| Google專區 | POPO專區 | QQ專區QQ掛機 | 了解Web2.0 |
| Flash MX 視頻教程 | Photoshop視頻教程 | 網頁設計視頻教程 | 照片處理數字暗房 |
| PPT動畫演示教程 | Excel動畫教程集 | Word動畫演示教程 | Windows Vista專區 |
| 特洛伊木馬專區 | 黑客知識教程專區 | 防火墻應用專區 | 注冊表應用專區 |
| Windows API開發專區 | 網絡編程專區 | VB數據庫編程專區 | 圖像處理與多媒體編程 |
強制刷新網頁
| ＜% ’強制性刷新隨機驗證碼 ’讓隨機驗證碼每次按IE的后退按鈕時，返回登錄頁面的隨即碼都自動刷新， Response.expires=-1 Response.AddHeader"pragma","no-cache" Response.AddHeader"cache-control","no-store" %＞ |
判斷文件地址是否有效
| ＜% ’原創作者:小藝 QQ:52093 時間:2005.6.30 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>請先輸入文件地址!</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>建立連接失敗,文件不存在或網絡有問題!;錯誤原因:"&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>碰到意外!;錯誤原因:"&Err.Description&"！</span>") Response.End End if %＞ |