【2009-03-25】asp创建和获取Session级的对象及变量
<%'定义Index作为序号Dim IndexIndex=1For Each SessItem In Session.Contents'如果是对象If IsObject(Session.Cont
【2009-03-25】asp创建和获取Application级的对象及变量
<%'定义Index作为序号Dim IndexIndex=1For Each AppItem In Application.Contents'如果是对象If IsObject(Applicati
【2009-03-25】创建VBScript编码模板
<%@ Language=VBScript %><!-- #include file="empty.asp" --><%'========================
【2009-03-25】实现VBScript和JavaScript的数据共享(Server to Client)
<%@ Language=VBScript %><% Dim strTemp strTemp = 1%><HTML><HEAD><TITLE>
【2009-03-25】实现VBScript和JavaScript的数据共享(VBScript to JavaScript)
<HTML><HEAD><TITLE>Untitled Document</TITLE><META HTTP-EQUIV="Content-Typ
【2009-03-25】VBScript和JavaScript的数据共享(JavaScript to VBScript)
【2009-03-25】asp判断奇数和偶数
<%'判断Num是奇数还是偶数Public Function IsOdd (Num) Dim TempNum TempNum=Num Mod 2 If TempNum = 1 Then 'Num
【2009-03-25】asp分位显示位数较长的数字
<%'分位显示数字Num1Public Function DigitDividing(Num1) Dim Num2, PointFlag, Sign, I, TempNum1, TempNum2
【2009-03-25】asp将每个单词的首个字母改成大写
<%'将Str中每个单词的首个字母改成大写Public Function WordsUpper(Str) Dim I, TempStr, Words, TempWords Str = Trim(
【2009-03-25】asp实现字符串和数组的转换
<%'将字符串String1转换为数组Public Function StringToArray(ByVal String1) Dim I,Array1() Redim Array1(Len(S