&

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

admin

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

強制刷新網頁
<%
　 '強制性刷新隨機驗證碼
　 '讓隨機驗證碼每次按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("建立連接失敗,文件不存在或網絡有問題!;錯誤原因:"&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 編輯過

關鍵字查詢

是否有

判斷

文件

地址

正在查詢...

點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。

點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。

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

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。

91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

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