,,

強制刷新和判斷文件地址是否有效

admin

2011年2月16日 9:14 本文熱度 3238

強制刷新網(wǎng)頁
<%
　 '強制性刷新隨機驗證碼
　 '讓隨機驗證碼每次按IE的后退按鈕時，返回登錄頁面的隨即碼都自動刷新，
　 Response.expires=-1
　 Response.AddHeader"pragma","no-cache"
　 Response.AddHeader"cache-control","no-store"
%>

判斷文件地址是否有效
<%
　 Response.Write("<head><style></style></head>")
　 On Error Resume Next
　 Dim thisurl,thistext
　 thisurl=Request("thisurl") '定義文件地址(非Html格式文檔)!
　 if thisurl="" then
　　 Response.Write("請先輸入文件地址!")
　　 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("建立連接失敗,文件不存在或網(wǎng)絡(luò)有問題!;錯誤原因:"&Err.Description&"！
")
　　　 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(""& ii &" × ")
　　 Else
　　　 Response.Write(""& ii &" √ ")
　　 End if
　 Next
　 if Err then
　　 Err.Clear
　　 Response.Write("碰到意外!;錯誤原因:"&Err.Description&"！")
　　 Response.End
　 End if
%>

該文章在 2011/2/16 9:14:12 編輯過

關(guān)鍵字查詢

是否有

判斷

文件

地址

相關(guān)文章

點晴ERP是一款針對中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。

點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調(diào)度、堆場、車隊、財務(wù)費用、相關(guān)報表等業(yè)務(wù)管理，結(jié)合碼頭的業(yè)務(wù)特點，圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術(shù)的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點晴WMS倉儲管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質(zhì)期管理,貨位管理,庫位管理,生產(chǎn)管理,WMS管理系統(tǒng),標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務(wù)都免費，不限功能、不限時間、不限用戶的免費OA協(xié)同辦公管理系統(tǒng)。

日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

強制刷新和判斷文件地址是否有效