-
asp Fix、Int、Round、CInt函数使用介绍
所属栏目：[Asp教程] 日期：2023-10-18 热度：7407
Fix(number) 和 Int(number) 都是返回数字的整数部分。
number 为正数时，二者返回值一样。比如：Fix(3.6)=3，Int(3.6)=3。
number 为负数时，Fix 直接去除小数部分，Int 返回小于或等于 number 的第一个负整数。[详细] -
使用innerHTML时留意处理空格和回车符
所属栏目：[Asp教程] 日期：2023-10-18 热度：7407
代码如下：
复制代码 代码如下:
Function ReplaceEx(strOri,replStr)
Set regEx=New RegExp
regEx.Global=True
regEx.MultiLine=True
regEx.Pattern="/r/n"
regEx.IgnoreCase=True
ReplaceEx=regEx.Replace([详细] -
Asp限制IP访问 抑制某一个IP段禁止访问本站的代码
所属栏目：[Asp教程] 日期：2023-10-18 热度：7407
复制代码 代码如下:
<%
''获取访问者的地址
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.w[详细] -
一个asp CutStrX自定义字符串截取函数
所属栏目：[Asp教程] 日期：2023-10-17 热度：9870
复制代码 代码如下:
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]*[^>]*>)"
st[详细] -
较为完善的asp防CC攻击代码分享
所属栏目：[Asp教程] 日期：2023-10-17 热度：9870
复制代码 代码如下:
<%
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[详细] -
asp页面遇到Response 对象 错误 ASP 0156
所属栏目：[Asp教程] 日期：2023-10-17 热度：9870
其实这类问题就是因为缓存问题，大家可以参考下面的方法解决:
有些ASP页面第一次打开的时候会出现Response 对象 错误 'ASP 0156 : 80004005' HTTP 头错误，但刷新后又正常了，解决方法如下
复制代码 代码[详细] -
从一个网站扒下的asp形成静态页面的代码
所属栏目：[Asp教程] 日期：2023-10-17 热度：9870
复制代码 代码如下:
<%
webfolder="/"
host="index_cn.asp"'前台动态地址
folder="/"'文件夹
filename="index_cn.html"'生成静态文件名
Fso_info host,folder,filename
response.write"生成网站中[详细] -
VBScript ASP CDbl() 函数转换成双精度类型
所属栏目：[Asp教程] 日期：2023-10-17 热度：9870
CDbl 函数
返回表达式，此表达式已被转换为 Double 子类型的 Variant。
CDbl(expression)
expression 参数是任意有效的表达式。
说明
通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结[详细] -
ASP Eval、Execute、ExecuteGloba不同分析
所属栏目：[Asp教程] 日期：2023-10-17 热度：2137
Eval 计算一个表达式的值并返回结果。
语法：[result = ]eval_r(expression_r)
expression_r 为任意有效 VBScript 表达式的字符串
示例：
复制代码 代码如下:
response.Write(eval_r("3+2")) '输出 5
"3[详细] -
保护 ASP.NET 不受攻击的完全保障
所属栏目：[Asp教程] 日期：2023-10-17 热度：2137
下面给出4个函数，足够你抵挡一切SQL注入漏洞！读懂代码，你就能融会贯通。
注意要对所有的request对象进行过滤：包括 request.cookie, request.ServerVariables 等等容易被忽视的对象：
程序代码
复制代码 代[详细] -
ASP中读取出Excel表格名称的实现代码
所属栏目：[Asp教程] 日期：2023-10-17 热度：2137
看代码：
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn,rs,excelFileName
excelFileName=Server.MapPath("Data/test.xls")
set conn = Server.CreateObject("ADODB.Connection"[详细] -
asp清除html的函数代码分析
所属栏目：[Asp教程] 日期：2023-10-17 热度：2137
下面这段代码，不会替换ld<sad中间的<，所以内容仍然是正常的
复制代码 代码如下:
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(/<.[^/<]*/>)"
str[详细] -
Asp下Access无法更新的处理方法
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
在windows＋iis服务器上运行asp程序可能会出现数据库无法更新的情况，具体错误信息可能为：
1、Microsoft JET Database Engine (0x80040E09) 不能更新。数据库或对象为只读
2、Microsoft OLE DB Provider for [详细] -
asp中记录集对象的getrows和getstring用法解析
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
GetRows 方法
将 Recordset 对象的多个记录复制到数组中。
语法
复制代码 代码如下:
array = recordset.GetRows( Rows, Start, Fields )
返回值
返回二维数组。
参数
Rows 可选，长整型表达式，指定要检索[详细] -
ASP:ActiveX不支持创建Scripting.FileSystemObject对象解决办法
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
今天遇到个问题，一个ASP网站生成静态页面时报错：
Microsoft VBScript 运行时错误 错误 '800a01ad'
ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'
其实这个问题比较常见，报错原[详细] -
判别dll文件是否已经注册的ASP函数代码
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
asp判断服务器是否安装了某个组件，也就是是否安装了某个dll文件，判断某个组件是否在服务器注册了，asp组件很多，它的判断可以减少很多asp错误，主要是用下面的函数：
复制代码 代码如下:
<%
'功能:检查是否[详细] -
asp短信接口源码 比较简单但也非常实用用的
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
写法一：
复制代码 代码如下:
<%
Sub sendsms(mobile,msg)
'如需要发送多个手机号，请自动循环，多个手机号之间用“,”分隔，最后手机号码后不加,号
'或调用我们 HttpInterfaceMore.aspx 接口[详细] -
通过VB6将ASP编译封装成DLL组件最简单指南
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
通过VB6将ASP编译封装成DLL组件最简教程
1、新建DLL
打开VB6-->文件-->新建工程-->选择ActiveX DLL-->确定
2、将默认工程、类重命名
工程重命名：工程-->工程1 属性-->在打开对话框中将“工程名称&rdq[详细] -
asp目录读写权限测试脚本 TestFolder
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
复制代码 代码如下:
<%
'Response.Buffer = FALSE
Server.ScriptTimeOut=999999999
Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&&quo[详细] -
ASP获得Request.QueryString编码的函数代码
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
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="[详细] -
总结常用的 ASP 分页算法，用于计算页面总数
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
下面是我从网上找到三种ASP分页时计算页面总数的方法，此方法仅为分页时计算页面总数，并非整个分页代码：
方法一
复制代码 代码如下:
' HTMer_RecordCount为要计算的页面总数
' HTMer_RecordCount为记[详细] -
Asp截取后台登录密码的代码
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
核心代码:
复制代码 代码如下:
set fso=server.createobject("scripting.filesystemobject")
if fso.FileExists(server.mappath("log.txt"))=true then
set fin=fso.OpenTextFile(server.mappath("log.txt"))
t[详细] -
在 ASP 中出现错误 无对象无法访问 xmlDoc.documentElement 可尝试解决此问题
所属栏目：[Asp教程] 日期：2023-10-16 热度：6090
原本运行正常的ASP页面，今天突然提示：
复制代码 代码如下:
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'xmlDoc.documentElement'
/work/Menu.asp，行 80
找到相关代码如下：[详细] -
Asp WinHttp.WinHttpRequest.5.1 对象使用解析
所属栏目：[Asp教程] 日期：2023-10-14 热度：2652
由于微软封锁了 XmlHttp 对象，所以无法伪造部分 HTTP 头信息，但是 WinHttp.WinHttpRequest.5.1 对象，它居然用可以成功伪造所有 http 请求的 header 信息！
从msdn得知，WinHttp.WinHttpRequest.5.1 是 msxml 4[详细] -
asp 空值测试通用函数
所属栏目：[Asp教程] 日期：2023-10-14 热度：4144
复制代码 代码如下:
'函数：空值测试
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 I[详细]
