ASP十进制数与自定义进制的转换程序
'本程序是用于将正整数与6位字串互相转换,可以应用于UserID、数据库自增ID的转换,转换后看来比较难以捉摸'本程序只能对单字节的字符进行处理
server.ScriptTimeout=3
response.write BaseEncode(1)&"<br />"
response.write BaseDecode("0a9nQR")&"<br />"
Const BASE_CHARACTERS = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXY...
转:ASP正则表达式详细说明示例
<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute...
ASP正则为@昵称 加上链接
微博的信息会把形如“@昵称“的部分显示成带链接的,显然是用正则实现的。起始标志是@,结束标志是:或空格、换行。替换好后在前台显示,然后可以用jQuery控制这类链接,比如鼠标悬停时弹出该用户的详细信息层。
'把@昵称 替换成带链接的
function RegNickName(fString)'\s 匹配任何空白字符,包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。
'? 当该字符紧跟在任何一个其他限制符后面时,匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串,而默认的贪婪模式则尽可能多的匹配所搜索的字符串。
Set re...
转:如何使得order by rnd(id)真正实现随机抽取数据库中记录
SQL server数据库有个NewID函数,可以很方便的用SQL语句得到数据表中的随机数据。但Access数据库没这么方便,虽然有个Rnd,可以通过“select top 10 * from tb order by rnd(id)”得到随机数据,VBA环境下使用没有问题,可惜在VB中使用,产生...
asp对数据库的连接状态判断
只要在所有页面底部包含这么一段代码,就可以关闭已打开的数据库连接,不必理会是否已经连接甚至还没建立连接。
Set conn=server.CreateObject("adodb.connection")
Set conn=server.CreateObject("adodb.connection")
.............
if isobject(conn) then
if isobject(conn) then
if conn.s...
ADODB.Stream读写文件ASP示例
Function ReplaceText(fString, patrn, replStr)Set regEx = New RegExp
&nb...
转:几个ASP开发框架
1.01-ZONE ASP framework
大小:53.8
KB
网站:http://www.01-zone.com/asp-framework/
协议:GNU通用公共授权第三版(GPL
3)
简要说明:
01-ZONE ASP framework 是一个开源的 ASP Web 开发...
ASP ServerVariables 集合
用这段代码输出所有ServerVariables: <% for each temp in Request.ServerVariables() response.write temp & ":::" & Request.ServerVariables(temp) & "" next %>The ServerVariables collection is used to retrieve the server variable values. ServerVariables集合的作用是获取服务...
ASP页面伪静态加速程序
比较实用的功能,原理是通过FSO生成txt页面来当作缓存,访问本页面时会优先从这些txt页面处读取,比起一般动态页面需要读取多次数据库等的资源消耗,这个方法的消耗量少得多。适合于更新量不大、动态页面较多、较集中的网站程序。缺点是不一定能删掉作为缓存的txt文件。不太常用但必须要知道的一些ASP语句
清空缓存Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Response.CacheControl = "no-cache"
Response.F...