强制刷新和判断文件地址是否有效

admin

2011年2月16日 9:14 本文热度 2654

强制刷新网页
<%
　 '强制性刷新随机验证码
　 '让随机验证码每次按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协同办公管理系统。