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("")　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,"")<>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%＞ 天极软件专题专区精选　　　　　到天极软件“读编交流区”畅所欲言 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("")　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,"")<>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%＞ 下载本文示例代码


ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址ASP实用技巧：强制刷新和判断文件地址