Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考Access VBA 中的Dlookup函数 '由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来 Dim strsql Dim rs Set rs = server.CreateObject("adodb.recordset") '下面要调用外部的一个自定义函数...[ 查看全文 ]
1.Array() FUNCTION: Returns a variant containing an array. SYNTAX: Array(list) ARGUMENTS: list is a comma-delimited list of values to add to the array. EXAMPLE: <% Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next % RESULT: Creates...[ 查看全文 ]
21. IsObject() FUNCTION: Returns a boolean value indicating whether an expression refers to an automation object. SYNTAX: IsObject(expression) ARGUMENTS: expression is any valid expression. EXAMPLE: <% Set con = Server.CreateObject("ADODB.Connection") response.write IsObject(con) % RESULT: Tru...[ 查看全文 ]
dddggg [原作] Function SwitchExcelInfo(xlsFileName) Dim xlsStr Dim rs Dim i,j,k Dim ExcelConn Dim ExcelFile Dim objExcelApp Dim objExcelBook Dim bgColor xlsStr = "" ExeclFile = Server.MapPath(xlsFileName) Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Quit Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Quit objExcelApp.DisplayAle...[ 查看全文 ]
实现函数: function isCharsInBag (s, bag) { var i,c; for (i = 0; i < s.length; i++) { c = s.charAt(i);//字符串s中的字符 if (bag.indexOf(c) -1) return c; } return \"\"; } 检查函数:  ...[ 查看全文 ]
function checkIP2(sIPAddress) { var exp=/^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$/; var reg = sIPAddress.match(exp); var ErrMsg="你输入的是一个非法的IP地址段!\nIP段为::xxx.xxx.xxx.xxx(xxx为0-255)!" var Msg="你输入的是一个合法的IP...[ 查看全文 ]