-
通过ASP阻止指定IP和只允许指定IP访问网站的代码
所属栏目：[Asp教程] 日期：2023-08-01 热度：9739
通过ASP禁止指定IP和只允许指定IP访问网站的代码
一、禁止指定IP防问网站,并执行相应操作:
复制代码 代码如下:
<%
Dim IP,IPString,VisitIP
'设置IP地址，用“|”隔开
IPString="|192.168.0[详细] -
总结了适用于 ASP 的几个有用函数，涉及到了 utf8。
所属栏目：[Asp教程] 日期：2023-08-01 热度：3398
ASP关于编码的几个有用的函数小结(utf8)
1、'UTF转GB---将UTF8编码文字转换为GB编码文字
复制代码 代码如下:
function UTF2GB(UTFStr)
for Dig=1 to len(UTFStr)
'如果UTF8编码文字以%开头则进行[详细] -
总结一下Asp常见的挂马方法
所属栏目：[Asp教程] 日期：2023-08-01 热度：7960
一:框架挂马
<iframe src=地址 width=0 height=0></iframe>
其中“地址”处可以输入恶意网站链接等
二:js文件挂马
只要是JS文件，都可以通过被恶意修改从而被挂上恶意代码，一般被全站引用的J[详细] -
从某个网站扒下的asp生成静态页面的代码
所属栏目：[Asp教程] 日期：2023-08-01 热度：617
从一个网站扒下的asp生成静态页面的代码
复制代码 代码如下:
<%
webfolder="/"
host="index_cn.asp"'前台动态地址
folder="/"'文件夹
filename="index_cn.html"'生成静态文件名
Fso_info ho[详细] -
VBScript ASP CDbl() 函数变换为双精度类型
所属栏目：[Asp教程] 日期：2023-08-01 热度：3755
CDbl 函数
返回表达式，此表达式已被转换为 Double 子类型的 Variant。
CDbl(expression)
expression 参数是任意有效的表达式。
说明
通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结[详细] -
asp页面呈现Response 对象 错误 ASP 0156 : 80004005 HTTP 头错误
所属栏目：[Asp教程] 日期：2023-08-01 热度：8522
其实这类问题就是因为缓存问题，大家可以参考下面的方法解决:
有些ASP页面第一次打开的时候会出现Response 对象 错误 'ASP 0156 : 80004005' HTTP 头错误，但刷新后又正常了，解决方法如下
复制代码 代码[详细] -
asp CutStrX字符串截取函数(过滤全部HTML标签)
所属栏目：[Asp教程] 日期：2023-08-01 热度：3544
复制代码 代码如下:
Function CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'过滤全部HTML标记
Set r=New RegExp
r.Global=True
r.MultiLine=True
r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)"[详细] -
ASP获取Excel表格名称的实现代码
所属栏目：[Asp教程] 日期：2023-08-01 热度：9726
看代码：
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn,rs,excelFileName
excelFileName=Server.MapPath("Data/test.xls")
set conn = Server.CreateObject("ADODB.Connectio[详细] -
asp去除html的函数代码分析附案例说明
所属栏目：[Asp教程] 日期：2023-08-01 热度：3135
下面这段代码，不会替换ld<sad中间的<，所以内容仍然是正常的
复制代码 代码如下:
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(/<.[^/<]*/>)"[详细] -
ASP Eval、Execute、ExecuteGlobal不同分析
所属栏目：[Asp教程] 日期：2023-07-31 热度：7291
Eval 计算一个表达式的值并返回结果。
语法：[result = ]eval_r(expression_r)
expression_r 为任意有效 VBScript 表达式的字符串
示例：
复制代码 代码如下:
response.Write(eval_r("3+2")) '输出 5[详细] -
ASP运行出错：缺少对象: 'xmlDoc.documentElement'错误处理方式
所属栏目：[Asp教程] 日期：2023-07-31 热度：6819
原本运行正常的ASP页面，今天突然提示：
复制代码 代码如下:
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'xmlDoc.documentElement'
/work/Menu.asp，行 80
找到相关代码如下[详细] -
ASP获取Request.QueryString编码的函数代码
所属栏目：[Asp教程] 日期：2023-07-31 热度：2957
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[详细] -
ASP分页时计算页面总数的几种算法总结
所属栏目：[Asp教程] 日期：2023-07-31 热度：7889
下面是我从网上找到三种ASP分页时计算页面总数的方法，此方法仅为分页时计算页面总数，并非整个分页代码：
方法一
复制代码 代码如下:
' HTMer_RecordCount为要计算的页面总数
' HTMer_RecordCount为记[详细] -
asp目录读取和写入测试编写了授权检查脚本 TestFolder
所属栏目：[Asp教程] 日期：2023-07-31 热度：1610
asp目录读写权限检测脚本 TestFolder
复制代码 代码如下:
<%
'Response.Buffer = FALSE
Server.ScriptTimeOut=999999999
Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy&qu[详细] -
通过VB6将ASP编译打包成DLL组件最简教程 附全部工程源文件
所属栏目：[Asp教程] 日期：2023-07-31 热度：6747
通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件
1、新建DLL
打开VB6-->文件-->新建工程-->选择ActiveX DLL-->确定
2、将默认工程、类重命名
工程重命名：工程-->工程1 属性（此名称对应窗体内工程[详细] -
评判dll文件是否已经注册的ASP函数代码
所属栏目：[Asp教程] 日期：2023-07-31 热度：7278
asp判断服务器是否安装了某个组件，也就是是否安装了某个dll文件，判断某个组件是否在服务器注册了，asp组件很多，它的判断可以减少很多asp错误，主要是用下面的函数：
复制代码 代码如下:
<%
'功能:检查是[详细] -
asp短信接口源码 比较简单但也很实用的（两个写法）
所属栏目：[Asp教程] 日期：2023-07-31 热度：9333
写法一：
复制代码 代码如下:
<%
Sub sendsms(mobile,msg)
'如需要发送多个手机号，请自动循环，多个手机号之间用“,”分隔，最后手机号码后不加,号
'或调用我们 HttpInterfaceMore.aspx 接[详细] -
ASP:ActiveX不能构建Scripting.FileSystemObject对象解决办法
所属栏目：[Asp教程] 日期：2023-07-31 热度：8580
今天遇到个问题，一个ASP网站生成静态页面时报错：
Microsoft VBScript 运行时错误 错误 '800a01ad'
ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'
其实这个问题比较常见，报错原[详细] -
Asp下Access不能更新的解决方法
所属栏目：[Asp教程] 日期：2023-07-31 热度：386
在windows＋iis服务器上运行asp程序可能会出现数据库无法更新的情况，具体错误信息可能为：
1、Microsoft JET Database Engine (0x80040E09) 不能更新。数据库或对象为只读
2、Microsoft OL[详细] -
ASP借用远程XML数据的代码(alexa排名数据)
所属栏目：[Asp教程] 日期：2023-07-29 热度：6931
复制代码 代码如下:
<%
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.crea[详细] -
Asp WinHttp.WinHttpRequest.5.1 对象使用详解 虚构 HTTP 头信息
所属栏目：[Asp教程] 日期：2023-07-29 热度：5248
由于微软封锁了 XmlHttp 对象，所以无法伪造部分 HTTP 头信息，但是 WinHttp.WinHttpRequest.5.1 对象，它居然用可以成功伪造所有 http 请求的 header 信息！
从msdn得知，WinHttp.WinHttpRequest.5.1 是 msxml 4[详细] -
asp提醒Server 对象 错误 ASP 0178 : 80070005
所属栏目：[Asp教程] 日期：2023-07-29 热度：2566
尤其是刚安装的那些组件，需要手工设置下权限，因为为了安全考虑，权限限制的很低。大家可以参考下面的方法设置下。
错误提示:
Server 对象 错误 'ASP 0178 : 80070005'
Server.CreateObject 访问错误[详细] -
asp仿php的一些函数共享
所属栏目：[Asp教程] 日期：2023-07-29 热度：5537
复制代码 代码如下:
'过程：输出字符串[代替Response.Write]
Sub echo(Str)
response.Write(Str)
End Sub
'函数：获取表单[代替Request.Form]
Function reqf(Str)
reqf = Request.Form(Str)[详细] -
ASP中Utf-8与Gb2312编码变换乱码问题的解决方法 页面编码声明
所属栏目：[Asp教程] 日期：2023-07-29 热度：4531
出现这样的问题是当你浏览UTF-8编码的时候，服务器默认用UTF-8的引擎来输出html，当你用再浏览GB2312的页面时，它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码。
为了这个问题烦了我一个早上，终于的蓝色理[详细] -
在asp中采用js的encodeURIComponent方法
所属栏目：[Asp教程] 日期：2023-07-29 热度：4442
大家知道，在js里encodeURIComponent 方法是一个比较常用的编码方法，但因工作需要，在asp里需用到此方法，查了好多资料，没有很好的方法，最后用了下面这个方法，基本解决了问题。
复制代码 代码如下:
<%
Func[详细]
