asp页面提示Response 对象 错误 ASP 0156 : 80004005 HTTP 头错误
其实这类问题就是因为缓存问题,大家可以参考下面的方法解决:有些ASP页面第一次打开的时候会出现Response 对象 错误 'ASP 0156 : 80004005' HTTP 头错误,但刷新后又正常了,解决方法如下复制代码 代码如下:Response.Buffer = True '应该是这行,去掉就ok '如果还不行就把 Response.Buffer = True Response.Expir... [阅读全文]
asp读取excel表名的实现代码
看代码: 复制代码 代码如下:%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"% % dim conn,rs,excelFileName excelFileName=Server.MapPath("Data/test.xls") set conn = Server.CreateObject("ADODB.Connection") conn.connectionstrin... [阅读全文]
ASP读取Request.QueryString编码的函数代码
1. 支持参数纯汉字 ?a=深山老熊 2. 支持参数gb2312 Urlencode编码: ?a=%C9%EE%C9%BD%C0%CF%D0%DC 3. 支持参数UTF-8 Urlencode编码: ?a=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A 复制代码 代码如下:%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"% % Option E... [阅读全文]
判断dll文件是否已经注册的ASP函数代码
asp判断服务器是否安装了某个组件,也就是是否安装了某个dll文件,判断某个组件是否在服务器注册了,asp组件很多,它的判断可以减少很多asp错误,主要是用下面的函数: 复制代码 代码如下:% '功能:检查是否存在系统组件或组件是否安装成功 '参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInsta... [阅读全文]
ASP调用远程XML数据的代码(alexa排名数据)
复制代码 代码如下:% URL="http://news.163.com/special/00011K6L/rss_newstop.xml" Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", url, False xml.Send Set xmlDom = server.createObject("microsof... [阅读全文]
asp仿php的一些函数分享
复制代码 代码如下:'过程:输出字符串[代替Response.Write] Sub echo(Str) response.Write(Str) End Sub '函数:获取表单[代替Request.Form] Function reqf(Str) reqf = Request.Form(Str) End Function '过程:结束页面并输出字符串 Sub die(Str) response.W... [阅读全文]
asp 空值测试判断函数
复制代码 代码如下:'函数:空值测试 Function inull(Val) Dim tmp tmp = False If IsNull(Val) Then tmp = True ElseIf IsEmpty(Val) Then tmp = True ElseIf Trim(Val) = "" Then tmp = True End If inull = tmp End Function 测试变量... [阅读全文]
ASP出现问题?修复ASP的批处理
这是个批处理文件,复制下来保存为RepairASP.bat执行即可~ echo 正在修复,这个过程可能需要几分钟,请稍候…… 复制代码 代码如下:rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot... [阅读全文]
通过ASP禁止指定IP和只允许指定IP访问网站的代码
一、禁止指定IP防问网站,并执行相应操作: 复制代码 代码如下:% Dim IP,IPString,VisitIP '设置IP地址,用“|”隔开 IPString="|192.168.0.42|192.168.0.43|" '获取IP地址 IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Reques... [阅读全文]
ASP Err.Number 错误描述详解
1 应用程序定义的错误或对象定义的错误。 2 应用程序定义的错误或对象定义的错误。 3 此错误号已过时,不再使用。 5 过程调用或参数无效。 6 溢出。 7 内存不足。 9 下标超出范围。 10 此数组被固定或临时锁定。 11 被零除。 13 类型不匹配。 14 字符串空间不足。 16 表达式过于复杂。 17 无法执行请求的操作。 18 发生了用户中断。 20 无错误继续执行。 28 堆栈空间不足... [阅读全文]
较为全面的asp防CC攻击代码分享
复制代码 代码如下:% Dim CC_Info(4),strInfo,strTemp If Session("CC_Info") = "" Then CC_Info(0) = "cclog.txt" '日志文件名 CC_Info(1) = Request.ServerVariables("HTTP_X_FORWARDED_FOR") CC_Info(2) = Request.ServerVaria... [阅读全文]
防ASP注入终极防范
下面给出4个函数,足够你抵挡一切SQL注入漏洞!读懂代码,你就能融会贯通。 注意要对所有的request对象进行过滤:包括 request.cookie, request.ServerVariables 等等容易被忽视的对象: 程序代码 复制代码 代码如下:function killn(byval s1) '过滤数值型参数 if not isnumeric(s1) then killn=0 els... [阅读全文]
asp目录读写权限检测脚本 TestFolder
效果图: 复制代码 代码如下:% 'Response.Buffer = FALSE Server.ScriptTimeOut=999999999 Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"jec"&"t") % % sPath=replace(request("sPath"),"/","\"... [阅读全文]
ASP:ActiveX不能创建Scripting.FileSystemObject对象解决办法
今天遇到个问题,一个ASP网站生成静态页面时报错: Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象: 'Scripting.FileSystemObject' 其实这个问题比较常见,报错原因是服务器不支持FSO组件。像风讯、科汛、动易这些ASP的主流CMS系统中经常会遇到这种情况,因为他们都是采取静态生成机制的,需要FSO组件支持。在... [阅读全文]
asp提示Server 对象 错误 ASP 0178 : 80070005
尤其是刚安装的那些组件,需要手工设置下权限,因为为了安全考虑,权限限制的很低。大家可以参考下面的方法设置下。错误提示: Server 对象 错误 'ASP 0178 : 80070005' Server.CreateObject 访问错误 ../asp.asp,行 123 检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问。 错误如提示,存在以权限。 解决方法:... [阅读全文]
asp在服务器把 XML 转换为 XHTML的实现代码
复制代码 代码如下:% 'Load XML set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = false xml.load(Server.MapPath("cdcatalog.xml")) 'Load XSL set xsl = Server.CreateObject("Microsoft.XMLDOM") xsl.asyn... [阅读全文]
一个改进的ASP生成SQL命令字符串类的代码[已测]
复制代码 代码如下:% class SQLString '************************************ '变量定义 '************************************ 'sTableName ---- 表名 'iSQLType ----SQL语句类型:0-增加,1-更新,2-删除,3-查询 'sWhere ---- 条件 'sOrder ----... [阅读全文]
Asp限制IP访问 阻止某一个IP段禁止访问本站的代码
复制代码 代码如下:% ''获取访问者的地址 ip=Request.ServerVariables("REMOTE_ADDR") ''允许的IP地址段为10.0.0.0~10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.writecheckip(ip,allowip1,allowip2) functioncheckip... [阅读全文]
ASP上传漏洞之利用CHR(0)绕过扩展名检测脚本
今天Demon 提到了这个问题,正好想到之前看到的一篇文章《Automatic file upload using IE+ADO without user interaction - VBSscript》 。这篇文章给出了本地无交互自动上传脚本的示例,正好今天可以借来一用,原脚本利用了InternetExplorer.Application组件,我改写了一下,用WinHttp.WinHttpReq... [阅读全文]
ASP中Server.Execute和Execute实现动态包含(include)脚本的区别
最近打算尝试一下在ASP中实现MVC架构,肯定有人问我:ASP都淘汰了,为什么还研究?这点我也知道,自从微软放弃ASP 3.0转向ASP.NET后,ASP已经远远落后于和它几乎同时开始的PHP和JSP,开源比闭源的好处就像PHP和ASP一样,ASP说淘汰就淘汰,谁也救不了,但是值得注意的是ASP在中国市场还是蛮广泛的,尤其是一些中小企业的一些应用,简单的CMS不在话下,而且部署简单,在一些老旧的W... [阅读全文]
asp 获取参数值与sql安全过滤参数函数代码
复制代码 代码如下:'获取参数值 Function getForm(element,ftype) Select case ftype case "get" getForm=trim(request.QueryString(element)) case "post" getForm=trim(request.Form(element)) case "both" if isNul(request.Qu... [阅读全文]
asp去除html的函数代码分析附实例说明
下面这段代码,不会替换ldsad中间的,所以内容仍然是正常的 复制代码 代码如下:% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\.[^\]*\)" str=re.replace(str," ") re.Pattern="(\\/[^\]*\)" str... [阅读全文]
ASP分页时计算页面总数的几种算法小结
下面是我从网上找到三种ASP分页时计算页面总数的方法,此方法仅为分页时计算页面总数,并非整个分页代码: 方法一 复制代码 代码如下:' HTMer_RecordCount为要计算的页面总数 ' HTMer_RecordCount为记录集数 ' HTMer_PageSize为每页记录数 If HTMer_RecordCount Mod HTMer_PageSize=0 Then HTMer_Page... [阅读全文]
asp短信接口源码 比较简单但也挺实用用的(两个写法)
写法一: 复制代码 代码如下:% Sub sendsms(mobile,msg) '如需要发送多个手机号,请自动循环,多个手机号之间用“,”分隔,最后手机号码后不加,号 '或调用我们 HttpInterfaceMore.aspx 接口,后跟参数一样或调用我们的webservers接口 dim userid,password,username,sms,status dim xmlObj,httpse... [阅读全文]
Asp WinHttp.WinHttpRequest.5.1 对象使用详解 伪造 HTTP 头信息
由于微软封锁了 XmlHttp 对象,所以无法伪造部分 HTTP 头信息,但是 WinHttp.WinHttpRequest.5.1 对象,它居然用可以成功伪造所有 http 请求的 header 信息! 从msdn得知,WinHttp.WinHttpRequest.5.1 是 msxml 4.0 的底层对象,也就是说 XMLHTTP/ServerXMLHTTP 也是在它的基础上封装而来,WinH... [阅读全文]
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法 页面编码声明
出现这样的问题是当你浏览UTF-8编码的时候,服务器默认用UTF-8的引擎来输出html,当你用再浏览GB2312的页面时,它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码。 为了这个问题烦了我一个早上,终于的蓝色理想上得到解决。 首先让我们来了解一下Session对象提供了四个属性。 1.CodePage 读/写。整型。 定义用于在浏览器中显示页内容的代码页(Code Page)。... [阅读全文]
在asp中使用js的encodeURIComponent方法
大家知道,在js里encodeURIComponent 方法是一个比较常用的编码方法,但因工作需要,在asp里需用到此方法,查了好多资料,没有很好的方法,最后用了下面这个方法,基本解决了问题。 复制代码 代码如下:% Function aspEncodeURIComponent(sStr) aspEncodeURIComponent = myEncodeURIComponent(sStr) % s... [阅读全文]
ASP运行出错:缺少对象: ''xmlDoc.documentElement''错误解决方法
原本运行正常的ASP页面,今天突然提示: 复制代码 代码如下:Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'xmlDoc.documentElement' /work/Menu.asp,行 80 找到相关代码如下: 复制代码 代码如下:Set xmlDoc=Server.CreateObject("MicroSoft.XmlDom") xmlDoc.a... [阅读全文]
通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件
1、新建DLL打开VB6--文件--新建工程--选择ActiveX DLL--确定2、将默认工程、类重命名工程重命名:工程--工程1 属性(此名称对应窗体内工程项目名称)--在打开对话框中将“工程名称”重命名为ASP2DLL(当DLL组件在系统中注册后,在asp中默认的调用方法是“工程名.类名”)--确定类重命名在属性窗口中将名称重命名为Demo3、定义ASP基本对象添加模块:工程--添加模块--... [阅读全文]
asp中记录集对象的getrows和getstring用法分析
GetRows 方法 将 Recordset 对象的多个记录复制到数组中。 语法 复制代码 代码如下:array = recordset.GetRows( Rows, Start, Fields ) 返回值 返回二维数组。 参数 Rows 可选,长整型表达式,指定要检索记录数。默认值为 adGetRowsRest (-1)。 Start 可选,字符串或长整型,计算得到在 GetRows 操作开始处... [阅读全文]