-
新增加一个防垃圾评论的asp代码，以表扬代替批评
所属栏目：[Asp教程] 日期：2023-12-01 热度：5505
最近开通了，可以发表评论就一直被垃圾评论和留言困扰，一直没有找到很好的解决办法。事实上wordpress有一些强悍的插件可以防治spam，比如Akismet，不过这只能让我留着口水羡慕，因此最近一直在寻找一个相对较好的解[详细]
-
asp下用实现模板加载的的几种方法概括
所属栏目：[Asp教程] 日期：2023-12-01 热度：5505
asp下用实现模板加载的的几种方法概括
1、使用adodb.stream实现的 一般虚拟主机都提供
复制代码 代码如下:
function loadtempletfile(byval path)
on error resume next
dim objstream
se[详细] -
ASP中实现URL和电子邮件地址转化功能的代码
所属栏目：[Asp教程] 日期：2023-12-01 热度：5505
网址和邮件地址的转换函数
<%
function URLconvert(str)
convertstr=str
urlLocation=instr(convertstr,"http://")
if (urlLocation=0) and (mailLocation=0) then
URLconvert=convertstr
exit function[详细] -
asp下利用XMLHTTP 从其他页面收集数据的代码
所属栏目：[Asp教程] 日期：2023-12-01 热度：5505
利用XMLHTTP 从其他页面获取数据
我们在编写ASP代码的时候，大家都知道可以通过post或者get获得form表单的数据，那么我们如何直接获得其他页面上的数据呢？这就要借助xmlhttp协议了。xmlhttp是xmldom技术的一部分[详细] -
使用ASP可以非常方便地插入上传的照片到数据库中
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
很久就想自己写一写程序了，不过由于赖就不想写我，今天刚好有空，所以写了这个小小的程序很容易一看就知道的，不多说了就此开始：
我们做一个上传的。数据据库的字段就id自动编号 big 字段类型是 OLE[详细] -
asp cint clng的范围与防止cint和clng的溢出解决方案
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
首先我们需要了解的是
cint范围 -32,768 到 32,767。
clng范围 -2,147,483,648 到 2,147,483,647。
cint与clng含义：
都可以强制将一个表达式转换成数据类型
cint与clng处理数据的范围：
CInt Integ[详细] -
在ASP中编写获取记录集中的随机一条记录的方法
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
记录集内随机取记录的代码
<%
' Moving to random record - Steven Jones' Extension
If Not(记录集名称.bof and 记录集名称.eof) Then
' reset the cursor to the beginning
If (记录集名称.Cu[详细] -
通过asp中使用 adodb.stream 并下潜而非开启文件
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法：
1、设置你的服务器的[详细] -
如何在Windows 2003中使用WScript.Shell进行ASP设定
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
在windows2000下，IIS默认设置是可以web和可执行程序通信的。但是在2003下IIS关于这方面的服务是禁止的。
我现在遇到的问题是，利用web和一个带参数的可执行程序连接。并运行这个带参赛的可执行程序。
在windo[详细] -
asp常用函数集合，相当不错
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
<%
function loadtempletfile(byval path)
on error resume next
dim objstream
set objstream = server.createobject("adodb.stream")
with objstream
.type = 2
.mode = 3[详细] -
利用 asp 的 datediff 功能来实现求解不同日期之间差异的算法
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
计算两个时间差的函数
'******************************
'||Function TimeDiff(sBegin, sEnd)
'||本函数计算两个时间的差，可以不用更改直接使用
'||作者：machinecat 2001/10/26
'*****[详细] -
asp删除application的方法
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
Application 对象
web 上的一个应用程序可以是一组 ASP 文件。这些 ASP 文件一起协同工作来完成某项任务。ASP 中的 Application 对象用来把这些文件捆绑在一起。
Application 对象用于存储和访问来自任何页面的[详细] -
asp下利用fso实现文件夹或文件移动更名等操作函数
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
asp利用fso实现文件的移动
function movefiles(sFolder,dFolder)
on error resume next
dim fso
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(server.ma[详细] -
asp下最简易的多重查询的解决方案
所属栏目：[Asp教程] 日期：2023-11-29 热度：9479
最简洁的多重查询的解决方案
[前言]
我们经常会遇到多重查询问题，而长长的SQL语句往往让人丈二和尚摸不着头脑。特别是客户端部分填入查询条件时，如用普通方法将更是难上加难。
以下巧妙地利用"where 1=1"的恒[详细] -
在 ASP.NET 中使用 MySQL 数据库需要注意到实现方面的事情
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
不同的地方：
1、插入数据时候，mysql 应尽量使用 insert into语句，避免使用 rs.addnew，如果非的要用，应先设置 conn.CursorLocation=3 否则，肯定报错，而且我发现，用insert 要比 addnew 快大约3倍。还有，如果[详细] -
去除 img 内部冗余代码，实现 asp 内置替换功能
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
<%
Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src="&[详细] -
用于在asp中使用的常见代码
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
点击提示“确定”与“取消”提示框
onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}'
删除.LDB文件
<%
Application.Contents.Removeall()[详细] -
根据日期获取生肖的ASP函数
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
根据生日时间返回所属生肖
复制代码 代码如下:
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", [详细] -
ASP生成伪参数程序设计指南
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
前两天在做一个站内版的企搜引擎，发现某些站点可以链接站点内容。。
奇怪之下看了看，原来是按照数据库ID的自动编号规律进行链接的~~
闲暇之余弄了下面这个东东，希望对大家在以后的编写ASP程序中有所帮助！ [详细] -
如何使用正则表达式来提取文件名称
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
下面这段子程基本上可以算是比较不错的通用匹配了。(PS:我突然发现CODE_LITE把我的UBB转义了！！！晕,我只好自己转义了。。。)
Dim objRegExp,Matches,i,DC9_DOT_CN_MATCH
Dim aryMatch()
Redim Preserve aryMa[详细] -
利用asp语言实现的 string completion()
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
复制代码 代码如下:
<%
'功能:在一个字符串前后补全另一字符串
'来源:http://jorkin.reallydo.com/article.asp?id=452
Public Function Fill(ByVal sString, ByVal sStr)
Fill = RFill(LFill[详细] -
asp正则html的图片,对图自动调整大小
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
下面这个是比较不错的一个
复制代码 代码如下:
Function FormatImg2(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.P[详细] -
asp下sql和access数据库随机获得10条记录的代码newid()
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
MSSQL:select top 10 * from [table] order by newid()
ACCESS:
复制代码 代码如下:
'以利用rs.move嘛
'如随机取10条
n = 10
'先要判断总记录数是否少于10，若小于10，则有多少取多少 [详细] -
重复取值Request.QueryString的用法
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
当页面上的FORM以GET方式向页面发送请[/url]求数据(如数据含有不安全字符，则浏览器先将其转换成16进制的字符再传送，如空格被转成%20)时，WEB SERVER 将请求数据放入一名为QUERY_STRING的环境变量中，QueryStri[详细]
-
修改正确的asp冒泡排列
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
网上搜到的代码，千篇一律是这个
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary[详细]
