-
ASP 包含文件中的路径问题与采用单一数据库连接文件的解决方案
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
啥都不说了，直接奉献原代码
复制代码 代码如下:
'==========注意===============================================
' 1、网站所在文件夹的名字不能为“root”
' 2、网站所在文件夹的名字[详细] -
在ASP语言中得到动态数组中的元素数量
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
一个动态数组 a，如果你已经使用redim 语句给它设定了大小，那么在此之后使用 ubound(a) 就可以得到它的上边界。
如果你没有使用 redim 语句给它设定大小，直接使用 ubound(a) 函数，那么运行时会报错，并会中断程序[详细] -
asp检验是否为中文字符函数
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
<%
'******************************
'函数：CheckChinese(strng)
'参数：strng,待验证字符
'描述：检测是否为中文字符，返回值：中文为true，否则false
'示例：<%=CheckChinese(strng)%>[详细] -
在Win2003 64位下ASP不能够连上Access数据库
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
复制代码 代码如下:
ADODB.Connection 错误 '800a0e7a'
未找到提供程序。该程序可能未正确安装。
/连接“网站内容管理”数据库.asp，行 2
原因：IIS是以64位方式来运行的，它只能加载64位模[详细] -
ASP的读写文件的程式码
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
'*************************************
'读取文件
'*************************************
Function LoadFromFile(ByVal File)
Dim objStream
Dim RText
RText = Array(0, "")
Set objStrea[详细] -
asp 去除非法字符函数
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
<%
Function cutbadchar(str)
badstr="不|文|明|字|符|列|表|格|式"
badword=split(badstr,"|")
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
str=Replace(str,badword(i),"***")
End If[详细] -
asp之自动闭合HTML/ubb标签函数附简易注释
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
Function closeUBB(strContent)
'*************************************
'自动闭合UBB
'*************************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Set[详细] -
aspjpeg 加入水印教程及生成缩略图教程
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
一、为图片加入水印功能
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 '[详细] -
ASP 根据用户权限判断展示的列标题
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:collapse" bordercolor="#6699CC" width="700" align="center">
<tr>
<td height="25" back[详细] -
asp Http_Referer,Server_Name及Http_Host
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
刚才运行了一段代码，来查看Request.ServerVariables里面有多少值，看了一下，共50个！
代码<%=Request.ServerVariables.count%>
以前感觉Request.ServerVariables里的值很多，现在看看还是那么多，不过今天谈其中[详细] -
通过asp程序来建构access数据库
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
如下所示:
复制代码 代码如下:
Set Catalog_object= Server.CreateObject("ADOX.Catalog")
Catalog_object.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Cuoxin.com.mdb"))
简[详细] -
利用 ASP 的 HTTP_REFERER 判定规则
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
只要不是HTTP_REFERER来源于（google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com）这些网址来源的请求，就通通转发至404
复制代码 代码如下:
<%
Dim a, reg
a = Request.ServerVariables("H[详细] -
asp base64 utf-8保证兼容asp.net的base64
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include file="base64.asp"-->
<%
Function AspUrlDecode(strValue)
Dim varAry, varElement, objStream, ln[详细] -
初学js者对javascript面向对象的认识解析
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
复制代码 代码如下:
var obj = document.getElementById("name");
function clickMe() {
alert(this.value);
this.value += "!!!!";
alert(this.value);
}
var ActionBinder = function() {//定义一个类
}[详细] -
asp 实现当有新信息时发出语音提示的效果
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
asp 实现当有新信息时播放语音提示的效果
1、信息表新建立一个字段，并用0、1的方法判断信息的状态。
2、新建一个页面，定时刷新，并查询表中是否有字段值为0的记录。
3、当管理员点击查看该信息的时候，将字段[详细] -
查阅access数据库中是否存在某个名字的表的asp代码
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
可以把本功能写成一个函数，函数的处理过程描述如下：
首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每[详细] -
单击asp 提供的关键词页面上的高亮显示
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
在这种配置下我们要实现关键词不区分大小写搜索并高亮显示要借助ASP的正则处理了，请看下面代码：
复制代码 代码如下:
<%
Function Takeout(patrn,string1,colors)
'提取搜索关键字匹配文字
Dim regEx, Mat[详细] -
ASP UTF-8编码下字符串截取和提取长度函数
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
复制代码 代码如下:
'************************************
'截取文字长度函数，支持UTF-8
'输入参数：
' 1、文字内容
' 2、文字最大长度
'************************************
P[详细] -
asp 批量删除所选的多条记录
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
好多网友问起来，·深度学习网址导航·深度学习整站系统 的后台管理能否增加批量删除功能，如何加：
就是列出N篇文章或网址信息，每篇文章或网址前有一个复选框，页面最底下有一个按钮“删除&rdqu[详细] -
在 ASP 中，利用面向对象的技术来实现三层的结构
所属栏目：[Asp教程] 日期：2023-11-02 热度：9457
但是Class这个东西,如果用得比较少,充其量只是一个大模块的包装方式. 只有大规模地用它来开发,才能显出它对项目管理的优越性来. 所谓的意大利面条式代码,就会和asp划上句号了.
我想目前大部分的asp程序员中都还没有[详细] -
所有 ASP Session 对象的获取方法实现代码
所属栏目：[Asp教程] 日期：2023-11-02 热度：9457
复制代码 代码如下:
Dim strName, iLoop
For Each strName in Session.Contents
Response.Write strName & " - " & Session.Contents(strName)& "[BR]"
Next
一般情况下，上面的代码可以工作得很好。但当Sess[详细] -
ajax+asp无限级分类树型布局
所属栏目：[Asp教程] 日期：2023-11-02 热度：9457
IE测试通过，FF有点小BUG
Cls_Leibie.asp
复制代码 代码如下:
<%
'数据库字段为类属性，添加、删除、修改、操作检查等函数为类的方法
Class Cls_Leibie
Private nClassID,sClassName,nParentID,sParentPat[详细] -
从大号变成下划线，从小号变成上托架的asp字符处理
所属栏目：[Asp教程] 日期：2023-11-02 热度：9457
LCase：转成小写
UCase：转成大写
下面是ASP中的代码，可以直接演示效果的。
复制代码 代码如下:
<%
dim str,str1,str2
str="AbCdEf"
str1=LCase(str)
str2=UCase(str)
Response.write("LCase转换小写"&str[详细] -
asp DateDiff实现文字在特定时间后隐藏
所属栏目：[Asp教程] 日期：2023-11-02 热度：9457
DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])
// timeinterval 表示相隔时间的类型，代码为：
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数[详细] -
asp #include file 与 #include virtual 的差异小结第1/2页
所属栏目：[Asp教程] 日期：2023-11-02 热度：9457
这里说的“相对路径”是相对于“主调文件”所在的文件夹。
#include file
#include file后面跟的是文件的“相对路径”，不可以用“绝对路径”。
使用相对路径,如：fil[详细]
