-
在JScript中使用缓存技术的实践示例
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
在使用VBScript时，我们可以用Application缓存数组来实现缓存，例：
程序代码：
复制代码 代码如下:
Dim rs,arr
rs.Open conn,sql,1,1
arr=rs.GetRows()
Application.Lock()
Application("cache")=arr [详细] -
asp收集捕捉网上房产信息的代码
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/function.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional/[详细] -
在ASP里面搭建GUID
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
代码如下：
JScript
复制代码 代码如下:
function GenerateGuid() {
var TypeLib = new ActiveXObject("Scriptlet.TypeLib");
return (TypeLib.Guid);
}
VBScript
复制代码 代码如下:
Func[详细] -
ASP计算str2在str1中显示的次数
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
function CountStr(str1,str2)
dim tmp,i,j
if str1="" or isnull(str1) then
j=0
elseif str2="" or isnull(str2) then
j=1
else
[详细] -
ASP日常的系统配置函数
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
sub SaveConfig()
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write[详细] -
把日期和时间的格式转换为 ASP 的代码
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
' ============================================
' 格式化时间(显示)
' 参数：n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
&[详细] -
阻止网页后退 asp禁止缓存
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
像一般网上很多禁止缓存的代码，有时并不可靠，这时你只要在操作的页面加上就可以了，在网页的里指定要定向的新页，再点后退，看是不是不会再退到刚才的操作页面了，实际上已经把这个历史给删除了
'''[详细] -
把ASP源代码转换成XML的工具有了
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
下边这个存为Pack.asp,打包文件时运行
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%OptionExplicit%>
<%OnErrorResumeNext%>
<% Response.Charset="UTF-8"%>
<% Server.ScriptTimeou[详细] -
一种适用于ASP 的普遍注入防护措施
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
放在conn.asp里就行了。
'屏蔽通过地址栏攻击
url=Request.ServerVariables("QUERY_STRING")
if instr(url,";")>=1 then
url=Replace(url,";","；") : Response.Redirect("?" & url)
end if
'[详细] -
ASP把长的数字用逗号分隔显示的代码
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
复制代码 代码如下:
<%
Function Comma(str)
If Not(IsNumeric(str)) or str = 0 Then
Result = 0
ElseIf Len(Fix(str)) < 4 Then
Result = str
Else
Pos = Instr(1,str,".")
If Pos > 0 Then
De[详细] -
ASP,vbs正则轮翻在文章段落后加上网址等信息
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
<script language ="vbs">
'函数名称：RegExpTest
'参数： strng－－》要处理的字符串;patrn－－》以|隔开的各种结尾标志如：<br/>|</p>|<br>; patrn2－－》要替换成的字符串，也以|隔
开
'作者[详细] -
利用Asp下的响应缓冲功能提升速度
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
for i=1 to 256
yongfa365=yongfa365&"<!--这里主要是让前边先产生２５６个字符，这样才可以实时输出-->"
if len(yongfa365)>=256 then exit for
next
MadeBasic()
MadeModel()
[详细] -
ASP中的一个检查是否有异常的链接
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
Function urlChk(sUrl)
on error resume next
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET",sUrl,false
xmlHttp.send
if xmlHttp.Status <> 200 then
urlChk=fals[详细] -
asp实现的可以提示生日的几种方法附代码
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
asp生日自动提醒小程式 用ASP编写，调试通过，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use
最初写的一个用于班级网站的最近一个月同学生日的提[详细] -
以下是常用于天枫的ASPFunction封装
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
复制代码 代码如下:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'天枫ASP class v1.0，集常用asp函数于一体
'天枫版权所有
'QQ:76994859 EMAIL:Chensha[详细] -
asp从字符串里截取N个包含HTML的字符的函数
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
'函数名:getHTMLContent'参数:NO-->要取得的字符数, txtContent-->要处理的字符串
'功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放[详细] -
有两个方法可以处理扫描了10万个Access表格的分页
所属栏目：[Asp教程] 日期：2023-11-21 热度：1717
我采用的方式是每页装入20条记录,循环写在表格中显示出来,再定四个翻页键用来查看数据,但问题是虽然是 每次装入页面的记录只有二十条,但每次要打开记录集时还是必须一次性装入所有的记录,所以才慢。
解决方法一：[详细] -
利用ASP 和 FSO 可以实现的函数是文件创建设置和删改
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
'////////////////////////////////////////////////FSO操作/////////////////////////////////////
'判断文件夹是否存在
Function FolderExits(Folder)
Folder=Server.Mappath(Folder)
Set FSO= Server[详细] -
使用 ASP 的方法来实现高效的搜寻功能源代码
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
<%
Function AutoKey(strKey)
Const lngSubKey=2
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 '若为空串，转到出错页
Response.Redirect "Error.htm"
Case 1 '若长度为1，则不设任[详细] -
使用 "user.id" 这个参数来建立与 asp 数据库的链接
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
最近在给客户做一个客户管理系统时遇到一个问题:
使用下列这个连接字符串时情况如下
connstr="DBQ="+server.mappath("db/#kehumsg.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn[详细] -
比较具体的Asp伪静态化方法及Asp静态化探讨
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
目前，各大搜索引擎如google、百度、雅虎已经对动态页面诸如asp，php有着不错的支持了，只要动态页面后面的参数不要太长，如控制在3个参数内，页面内容做点优化，各大搜索对该类页面收录甚至不比静态html页面差[详细]
-
在 asp.net 中使用 command 对象时，会出现某些字段的显示问题只针对单个记录
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
edit_rs_cmd.CommandText = "SELECT * FROM dbo.usertable WHERE id = ?"
这时候要把不能显示的字段,在放到sql中,显示出来
edit_rs_cmd.CommandText = "SELECT *,[不能显示的字段],[不能显示的字段], FROM dbo.u[详细] -
对ASP分页技术的全面深入解析
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
首先，来看看效果！
看看功能：分页程序首先读取每页预置的记录条数，在此是5条，其它将在下页中显示，同时提示当前页数、总页数、总记录数，当显示的页数为第一页时，“首页”、“上一页”链[详细] -
使用ASP的一个函数，可以依次访问文件夹和其子文件夹
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
<%@ Language=vbscript %>
<%
'遍历目录以及目录下文件的函数
%>
<%
Function Bianli(path)
Set Fso=server.createobject("scripting.filesystemobject")
On Error Resume Next [详细] -
前往Asp offset GoTo Page的第一或第二张
所属栏目：[Asp教程] 日期：2023-11-21 热度：9047
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("AD[详细]
