没有用正常的循环tr内循环td的方法，所以就没有计算最后一页的记录集数量。 但当记录集不足时也同样能够自动补空行空列，如有不足请指出，谢谢。 使用方法很简单： 代码如下:<% showData("查询语名") Call pagehead(行数,列数) '------------------------------------------------------------------------------- '可以把下面的Response.Write()写到函数里面，看个人的爱好了。 Response.Write(FormatCRtable(表格宽度,表格...
<% '取字段数据每个汉字的拼音首字母 Function getpychar(char) tmp = 65536 + Asc(char) If(tmp>= 45217 And tmp<= 45252) Then getpychar = "A" ElseIf(tmp>= 45253 And tmp<= 45760) Then getpychar = "B" ElseIf(tmp>= 47761 And tmp<= 46317) Then getpychar = "C" ElseIf(tmp>= 46318 And tmp<= 46825) Then getpychar = "D" ElseIf(tmp>= 46826 And tmp<= 47009) ...
代码如下:<% '//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug ----// Function Trace(s) On Error Resume Next Response.Write(s & vbCrLf) Response.End() End Function %> 下面的是个修改升级版,还在测试中... 代码如下:<% '//---- 输入字符串并结束当前页面(调试用) ----// Function Trace(s) On Error Resume Next If IsArray(s) Then For i = 0 To UBound(s) ...
代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s) Dim t = Now() While DateDiff("s", t, Now) < s Wend End Function %> 转载自：http://jorkin.reallydo.com/article.asp?id=224
作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP) Dim lsResults Dim lnTemp Dim lnIndex For lnIndex = 3 To 0 Step -1 lnTemp = Int(anNewIP / (256 ^ lnIndex)) lsResults = lsResults & lnTemp & "." anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex)) Next lsResults = Left(lsResults, Len(lsResults) - 1) CStrIP = lsResults End Function %>
作用:把IP地址转为长整型 <% Function CLngIP(ByVal asNewIP) Dim lnResults Dim lnIndex Dim lnIpAry lnIpAry = Split(asNewIP, ".", 4) For lnIndex = 0 To 3 If Not lnIndex = 3 Then lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex)) End If lnResults = lnResults + lnIpAry(lnIndex) Next CLngIP = lnResults End Function %>
输出RSS和XML时经常用到,和HTMLEncode还不完全一样 原理:Character Converted To" " & &< <> > 代码<%Function XMLEncode(byVal sText) sText = Replace(sText, "&" , "&") sText = Replace(sText, "<" , "<") sText = Replace(sText, ">" , ">") sText = Replace(sText, "" , "") sText = Replace(sText, """", """) XMLEncode = sTextEnd Function%>还有个:<%Public Function XmlEncode(ByVal strText As Stri...
功能:获取服务器所在时区 代码如下:<% Function TimeZone() Set oShell = CreateObject("WScript.Shell") atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _ "Control\TimeZoneInformation\ActiveTimeBias" TimeZone = - oShell.RegRead(atb) / 60 End Function %>
<% '创建多级目录，可以创建不存在的根目录 '参数：要创建的目录名称，可以是多级 '返回逻辑值，True成功，False失败 '创建目录的根目录从当前目录开始 '--------------------------------------------------- Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFo...
Eval 函数 计算一个表达式的值并返回结果。 [result = ]Eval(expression) 参数 result 可选项。 是一个变量，用于接受返回的结果。如果未指定结果，应考虑使用 Execute 语句代替。 expression 必选项。可以是包含任何有效 VBScript 表达式的字符串。 说明 在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试 x 和 y 是否相等。如果相等，result 为 True；否则 result 为 False。Eva...
<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or IsNull(GetClientIP) or IsEmpty(Ge...
<% Function HTMLDecode(sText) Dim I sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, """", Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">" , Chr(62)) sText = Replace(sText, " ", Chr(32)) For I = 1 To 255 sText = Replace(sText, "&#" & I & ";", Chr(I)) Next HTMLDecode = sText End Function %>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% StartTime=timer() '程序执行时间检测 '############################################################### '┌──VIBO───────────────────┐ '│ VIBO STUDIO 版权所有 │ '└───────────────────────┘ ' Author:Vibo ' Email:vibo_cn@hotmail.com '----------------- Vibo ASP站点开发常用函数库 ------------...
今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用. 代码: 代码如下:Sub Write2File(strFile, strContent, blnAppend) ' 写入文件 ' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加 On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If blnAppend Then Set objWriteText = objFSO....
============================================================= ' 感谢您使用ASP001工作室开发的实用函数程序 ' HTTP://WWW.ASP001.NET '============================================================= 'ASP001工作室为您提供订制程序开发、企业互联网拓展服务 'QQ：1974229 'E-Mail：Shenyangchuqi@tom.com '更多程序下载请到HTTP://WWW.ASP001.NET '=============================================...