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 操作开始处... [阅读全文]
