ASP常用函数列表.

合集下载

asp函数列表

参数:expression 是任意的变量.
例子:
结果:false
21.函数 Isnumeric()
功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量.
格式:isnumeric(expression)
参数:expression 是任意的变量.
例子:
格式:instr([start,]strtobesearched,strsearchfor [,compare])
参数:start(任选)是从第start位寻找,strtobesearched 是被搜索的字符串,strsearchfor是被寻找的目标.compare是任意选项
例子:
结果:9,(字符"a"在strtext字符串的第九位)
功能:转换成货币格式
格式:formatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])
参数:expression 是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项.
1.函数 array()
功能:创建一个数组变量
格式:array(list)
参数:list 为数组变量中的每个数值列,中间用逗号间隔
例子:
结果: i 被赋予为数组
2.函数 Cint()
功能:将一表达式/其它类型的变量转换成整数类型(int)
格式:Cint(expression)
参数:expression数字表达式;numright任意选项.
例子:
结果: 12

ASP函数大全

Right()
FUNCTION: 返回字符串右边第length个字符以前的字符（含第length个字符). SYNTAX: Right(string, length) ARGUMENTS: . EXAMPLE: $#@60;% strTest = "This is an test!" response.write Right(strTest, 3) %> RESULT: st!
Time()
FUNCTION: 返回系统时间. SYNTAX: Time() ARGUMENTS: . EXAMPLE: $#@60;%=Time%> RESULT: 9:58:28 AM
Trim()
FUNCTION: 去掉字符串左右的空格. SYNTAX: Trim(string) ARGUMENTS: string is any valid string expression. EXAMPLE: $#@60;% strTest = " This is a test!! " response.write Trim(strTest) %> RESULT: This is a test!!
Rnd()
FUNCTION: 产生一个随机数. SYNTAX: Rnd [ (number) ] ARGUMENTS: EXAMPLE: $#@60;% Randomize() response.write RND() %>
RESULT: 任何一个在0 到 1 之间的数
LCase()
FUNCTION: 返回字符串的小写形式 SYNTAX: Lcase(string) ARGUMENTS: string is any valid string expression. EXAMPLE: $#@60;% strTest = "This is a test!" response.write LCase(strTest) %> RESULT: this is a test!

ASP函数大全

IsDate函数：判断某一变量是否为或者可以转化为日期表达式
IsEmpty函数：判断变量是否为空
IsNull函数：判断表达式中是否包含有效数据
IsNumeric函数：判断表达式的值是否为数字
Is_object_函数：判断表达式的值是否为某一对象
VarType函数：返回指定变量的子类型
CCur函数：将表达式转化为Currency子类型
CDate函数：将日期表达式转化为Date子类型
CSng函数：将表达式转化为Single数值子类型
Asc函数：返回与字符串首字母相对应的ANSI字符代码（～）
Oct函数：返回八进制的字符串
Hex函数：返回十六进制的字符串
格式化函数
TypeName函数：返回指定变量子类型的信息
对话框函数
MsgBox函数：弹出含有提示信息的对话框
InputBox函数：弹出可输入数据的对话框
脚本引擎函数
ScriptEngine函数：返回一个代表当前所使用的脚本语言的字符串
ScriptEngineBuildVersion函数：返回所使用的脚本引擎的编译版本号
实例： <%=Date%>
返回结果: 9/9/00
DateAdd()
函数返回一个被改变了的日期。
表达式 DateAdd(timeinterval,number,date)
允许数据类型:
timeinterval is the time interval to add;
number is amount of time intervals to add;
表达式 FormatCurrency(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])

asp常用函数

ASP常用内置函数在ASP中，把带有返回值的这样的一段代码叫做函数。

例如通过编写一段代码计算出一个自然数是否是质数，返回给调用程序，由于调用程序需要知道那个自然数是否是质数，所以必须要返回一个值。

1，日期/时间函数这些函数包括对“年”、“月”、“日”、“时”、“分”、“秒”、“星期”等的显示。

（1）Now函数：根据计算机系统设定的日期和时间，返回当前的日期和时间值。

使用方法now()；（2）Date函数：只返回当前计算机系统设定的日期值。

使用方法：date()；（3）Time函数：只返回当前计算机系统设定的时间值。

使用方法：time()；（4）Year函数：返回一个代表某年的整数。

使用方法：year(date)，其中date参数是任意的可以代表日期的参数，比如“year(date())”就表示是从“date()”得出的日期中提取其中“年”的整数。

另外，还可以这样应用：“year(#520,2006#)”表示提取“2006年5月20日”中“年”的整数值。

关于“520,2006”，也可使用“5-20-2006”、“5/20/2006”等形式表现，即“某月某日”和“某年”的组合。

同时注意使用“#”进行包括以表示日期值。

（5）Month函数：返回1到12之间的整数值，表示一年中某月。

使用方法：month(date)。

关于参数date的说明和year函数相同。

但要注意日期的正确性，比如“#13-31-2006#”，根本就没有“13”月，肯定是错误的了。

（6）Day函数：返回1到31之间的整数值，表示一个月中的某天。

使用方法：day(date)。

关于参数date的说明和year函数相同。

同样要注意日期的正确性，比如“#2-30-2006#”其中对“2”月定义的“30”日这天就是错误的。

（7）Hour函数：返回0到23之间的整数值，表示一天中的某个小时。

使用方法：hour(time)。

其中参数time是任意的可代表时间的表达式。

asp常用函数

所有的关键字和运算等一切有关的关键词的集合HTML文件标记<html><head><!--><title><body>文字排版标记<br/><nobr><p><pre> 原始文字样式<center><blockquote> 向内缩排<h> 标题<strong>,<b> 粗体<em>,<i>,<cite> 斜体<U> 底线<strike> 删除线<blink> 文字闪烁<big> 大型字体<small> 小型字体<sup> 文字上标<SUB> 文字下标<basefont> 默认字体设置<font> 更改字体设置菜单标记<menu> 选项菜单<dir> 目录菜单<lh> 菜单格式(一)<ul> 菜单格式(二)<dl>,<dt>,<dd> 说明式菜单<ol>,<li> 标题菜单直线与表格标记<hr><table><tr><td><th><caption> 表格标题超链接标记<a> 锚图形标记<IMG> 插入图形框架标记<FRAME> 定义框架内容<NOFRAME> 不支持框架声明表单标记<FORM><INPUT><TEXTAREA><SELECT><OPTION>SCRIPT<script>VBSCRIPT标记索引基本运算+ 数字加法及字符串连接- 数字减法* 数字乘法/ 数字除法Mod 求余数\ 求商数& 字符串连接^ 次方= 相等<> 不相等>= 大于或等于> 大于<= 小于或等于< 小于Not 非And 且Or 或Xor 异或循环及决策if ....then 若...则...if ...then...else若...则...非else if...非若select case...群组选择条件end selectfor ... next计数循环while...wend 条件循环(一) do while...loop条件循环(二) do...loop while 条件循环(三) do until...loop条件循环(四) do...loop until 条件循环(五)数学函数Abs 绝对值Sgn 正负号Hex 转换成十六进制Oct 转换成八进制Sqr 平方根Int 取整数Fix 取整数Round 取整数Log 以e为底的对数Sin 正弦函数Cos 余弦函数Tan 正切函数字符串处理函数Len 字符串长度Mid 取部分字符串Left 从字符串开头取部分字符串Right 从字符串结尾取部分字符串Lcase 转换成小写Ucase 转换成大写Trim 清除字符串开头及结尾的空格符Ltrim 清除字符串开头空格符Rtrim 清除字符串结尾空格符Replace 替换字符串部分字符Instr 判断是否包含于另一个字符串(从起始搜寻) InstrRev 判断是否包含于另一个字符串(从结尾搜寻) Space 任意字符数的空格符String 任意字符数的任一字符StrReverse 反转字符串Split 以某字符分割字符串数据类型转换函数Cint 转换成整形Cstr 转换成字符串Clng 转换成常整数Cbool 转换成布尔函数Cdate 转换成日期函数CSng 转换成单精度CDbl 转换成双精度[page_break]日期时间函数Date 现在日期Time 现在时间NOw 现在日期时间DateAdd 增加日期DateDiff 两日期差DateSerial 日期设定Datevalue 日期设定Year 现在年份Month 现在月份Day 现在天Hour 现在时刻Minute 现在分钟Second 现在秒钟Timer 午夜距现在秒数TimeSerial 时间设定Timevalue 时间所属部分WeekDay 星期名称MonthName 月份名称其它函数Array 产生数组Asc 字符ASCII码Chr ASCII码字符Filter 过滤数组InputBox 输入窗口Join 合并数组中的元素MsgBox 信息窗口Lbound 数组下界Ubound 数组上界指令Const 设定常数Dim 定义变量或者数组Erase 清除数组ReDim 重新声明数组Randomize 起始随机数Rnd 取得随机数ASP对象Session对象IsEmpty 测试Session变量是否存在TimeOut 设定Session变量生存周期Abandon 强制清除Session变量Application对象IsEmpty 测试Application变量是否存在Lock 锁定Application变量Unlock 解除Lock指令的锁定Cookies对象Expires 设定Cookies变量的生存周期Connection对象Open 打开与数据库的连接Execute 打开Recordset对象Close 关闭Connection对象Recordset对象movefirst 将记录指针移至第一条movelast 将记录指针移至最后一条movenext 将记录指针移至下一条moveprevious 将记录指针移至上一条bof 测试是否为recordset的起始eof 测试是否为recordset的结束open 打开Recoreset对象close 关闭recordset对象fields 读取数据的子对象fileds.count 字段个数pagesize 每页记录条数absolutepage 设定为某页pagecount 总页数Absoluteposition 直接跳至某条记录sql="select * from bbs1 where xh like '%" & suibian & "%' or xq like '%" & suibian & "%'or bj like '%" & suibian & "%' or kc like '%" & suibian & "%'"。

ASP 常用的内置函数

ASP 常用的内置函数
介绍一个VBScript中为用户提供的各种类型内置函数。

使用他们可以使编写程序更加简单、快速、高效。

这些内置函数由VBScript预定义，其功能已经由VBSc ript系统实现，因此在编写程序时只需要直接调用即可。

1．字符串函数
在VBScript中字符串函数用于对字符串数据进行操作。

下面列出了一些常用的字符串函数及其功能，如表3-4所示。

2．数值函数
数值函数在程序中用于进行数值运算，如求某数的平方根，对数等。

表3-5列出了一些常用的数值函数。

表3-5 数值函数
3．转换函数
转换函数用于在Variant的各子类型之间进行数据类型的转换，这样方便进行各种运算。

下面将对常用的各种转换函数进行介绍，如表3-6所示。

表3-6 转换函数
4．布尔函数
VBScript中的布尔函数主要用于对数据类型的判断，以方便对该数据进行相应的处理。

例如，判断某数是否为数字类型。

在表3-7中列出了VBScript中常用的几个布尔函数。

表3-7 布尔函数
5．时间和日期函数
VBScript中的日期和时间函数用于获取系统的当前日期和时间，以及对日期时间类型数据进行处理。

表3-8列出了几种常用的时间和日期函数。

表3-8 时间和日期函数。

asp系列vb函数

ASP系列VB函数大全ASP函数大全　ASP函数与VBSCRIPT类似，以下举一些常用的函数 Array()　函数返回一个数组　表达式Array(list)　允许数据类型: 字符，数字均可　实例：<%　Dim myArray()　For i = 1 to 7　Redim Preserve myArray(i)　myArray(i) = WeekdayName(i)　Next　%>　返回结果: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday"　CInt()　函数将一个表达式转化为数字类型　表达式CInt(expression)　允许数据类型: 任何有效的字符均可　实例：<%　f = "234"　response.write cINT(f) + 2　%>　返回结果: 236　转化字符"234"为数字"234"，如果字符串为空，则返回0值　CreateObject()　函数建立和返回一个已注册的ACTIVEX组件的实例。

　表达式CreateObject(objName)　允许数据类型: objName 是任何一个有效、已注册的ACTIVEX组件的名字. 实例：<%　Set con = Server.CreateObject("ADODB.Connection"　%>　CStr()　函数转化一个表达式为字符串.　表达式CStr(expression)　允许数据类型: expression 是任何有效的表达式。

　实例：<%　s = 3 + 2　response.write "The 返回结果is: " & cStr(s)　%>　返回结果: 转化数字“5”为字符“5”。

asp函数大全之函数(DOC)

1、asp函数大全之函数array()函数array()功能:创建一个数组变量格式:array(list)参数:list为数组变量中的每个数值列,中间用逗号间隔例子:<%asp=array("1","2","3")%>结果:asp被赋予为数组2、asp函数大全函数Creatobject()函数:Creatobject()功能:创建及返回一个ActiveX对象.格式:Creatobject(obname)参数bname是对象的名称例子:<%Set asp = Server.CreateObject("ADODB.Connection")%>3、asp函数大全之函数Date()函数Date()功能:返回当前系统(server端)的日期格式:Date()参数:无例子<%=date()%>4、asp函数大全函数Datediff()函数Datediff()功能:计算某量个指定的时间差格式: datediff(timeinterval,date1,date2[,firstdayofweek[,firs tdayofyear]])参数:timeinterval是时间单位;date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear是任意选项.例子:<%fromDate=#8/8/2008#toDate=#8/8/2010#response.write"There are"&_DateDiff("d",fromDate,toDate)&_%>5、函数formatcurrency()函数formatcurrency()功能:转换成货币格式格式:formatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])参数:expression是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项.例子<%=FormatCurrency(34.3456)%>结果34.356、asp函数大全之函数Isnumeric()函数Isnumeric()功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量.格式:isnumeric(expression)参数:expression是任意的变量.例子:<%i="234"response.write isnumeric(i)%>结果:true.7、asp函数大全之函数:Lbound()函数:Lbound()功能:返回一个数组的下界.格式:Lbound(arrayname[,dimension])参数:arrayname是数组变量,dimension是任意项例子:<%i=array("1","2","3")response.write lbound(i)%>结果:08、asp函数大全之函数left()功能:截取一个字符串的前部分;格式:left(string,length)参数:string字符串,length截取的长度.例子:<%=left("asp is a web!",3)%>结果:asp9、asp函数大全之函数ltrim()功能:去掉字符串前的空格.格式:ltrim(string)参数:string字符串.例子:<%=ltrim("this is a test!")结果:this is a test!10、asp函数大全之函数minute()功能:返回一数值,表示分钟格式:minute(time)参数:time是时间变量例子lt;%=minute(#12:23:34#)%>结果:2311、asp函数大全之函数monthname()功能:返回月份的字符串(名称).格式:Monthname(date[,abb])参数:date是日期变量,abb=true时则月份的缩写,例子:<%=monthname(#4/5/99#)%>结果:April12、asp函数大全之函数replace()功能:在字符串中查找,替代指定的字符串.格式:replace(strtobesearched,strsearchfor,strreplacewit h[,start[,count[,compare]]])参数:strtobesearched是字符串;strsearchfor是被查找的子字符串;strreplacewith是用来替代的子字符串.start,count,compare是任意选项.例子:<%strtest="this is an apple."response.write replace(strtest,"apple","orange") %>结果:this is an orange.13、asp函数大全之函数rnd()功能:返回一个随机数值格式:rnd[(number)]参数:number是任意数值.例子:<%randomize()response.write rnd()%>结果:0/1数值之一,无randomize(),则不能产生随机数.14、asp函数大全之函数rtrim()功能:去掉字符串后的空格.格式:rtrim(string)参数:string是字符串例子:<%response.write rtrim("this is a test!")%>结果:this is a test!15、asp函数大全之函数strReverse()功能:返回与原字符串排列逆向的字符串.格式:strreverse(string)参数:string是字符串例子<%=strreverse("this is a test!")结果:!tset a si siht16、asp函数大全之函数trim()功能:删去字符串前,后的空格.格式:trim(string)参数:string字符串.例子:<%strtest="this is a test!"response.write trim(strtest)%>结果:this is a test!17、asp函数大全之函数UCase()功能:将一字符类型变量的字符全部变换成大写字符.格式:Ucase(string)参数:string是字符串变量例子:<%str="THIS is Lcase!"response.write Lcase(str)%>结果:THIS IS LCASE!18、asp函数大全之函数Weekday()功能:返回一个整数,对应一周中的第几天.格式:Weekday(date[,firstofweek])参数:date为日期变量,firstofweek为任选项.例子:<%d=#5/9/00#response.write weekday(d)%>结果:3(3表示是星期二)19、asp函数大全之函数year()功能:返回日期表达式所在的年份.格式:year(date)参数:date是有效的日期表达式例子:<%=year(#8/9/99#)%>结果:199920、asp函数大全之函数Cint()函数Cint()功能:将一表达式/其它类型的变量转换成整数类型(int)格式:Cint(expression)参数:expression是任何有效的表达式/其它类型的变量例子:<%asp="234"response.write cINT(asp)+2%>结果:236函数Cint()将字符"234"转换成整数234.如果表达式为空,或者无效时,返回值为0;21、asp函数大全之函数Cstr()函数Cstr()功能:将一表达式/其它类型的变量转换成字符类型(string)格式:Cstr(expression)参数:expression是任何有效的表达式/其它类型的变量例子:<%asp=3+2response.write"Theresultis:"&cStr(asp)%>结果:函数Cstr()将整数5转换成字符"5".22、asp函数大全函数Dateadd()函数Dateadd()功能:计算某个指定的时间和格式:dateadd(timeinterval,number,date)参数:timeinterval是时间单位(月,日..);number是时间间隔值,date是时间始点.例子:<%currentDate=#8/8/2008#newDate=DateAdd("m",3,currentDate) response.write newDate%><%currentDate=#01:23:45PM#newDate=DateAdd("h",3,currentDate) response.write newDate其中"m"="month";"d"="day";如果是currentDate格式,则,"h"="hour";"s"="second";23、asp函数大全函数day()函数day()功能:返回一个整数值,对应于某月的某日格式:day(date)参数:date是一个有效的日期表达式;例子<%=date(#8/8/2010#)%>24、函数Formatdatetime()函数Formatdatetime()功能:格式化日期表达式/变量格式:formatdatetime(date[,nameformat])参数:date为有效的日期表达式/变量;nameformat是指定的日期格式常量名称.例子<%=formatdatetime("08/08/2008",vblongdate)%>--------------------------------------------------------------------------------描述返回表达式，此表达式已被格式化为日期或时间。

ASP中的常用函数(函数大全)很全面的函数列表和说明

RmDir(path) 移除一个空的目录。
Rnd() 取得介于0 到1 之间的小数，如果每次都要取得不同的值，使用前需加上Randomize 叙述。
Rtrim(string) 去掉字符串的右边空白部分。
Second(time) 取得时间内容的秒部分，型态为Integer。
Sign(number) 取得数值内容是正数或负数，正数传回1，负数传回-1，0 传回0。
FileLen(pathname) 传回档案的长度，单位是Byte。
Filter(sourcearray, match[, include[, compare]]) 搜寻字符串数组中的指定字符串，凡是数组元素中含有指定字符串，会将它们结合成新的字符串数组并传回。若是要传回不含指定字符串的数组元素，则include 参数设为False。compare 参数则是设定搜寻时是否区分大小写，此时只要给TextCompare 常数或1 即可。
CBool(expression) 转换表达式为Boolyte 型态。
CChar(expression) 转换表达式为字符型态。
CDate(expression) 转换表达式为Date 型态。
CDbl(expression) 转换表达式为Double 型态。
IsDate(expression) 判断表达式内容是否为DateTime 型态，若是则传回True，反之则为False。
IsDbNull(expression) 判断表达式内容是否为Null，若是则传回True，反之则为False。
IsNumeric(expression) 判断表达式内容是否为数值型态，若是则传回True，反之则为False。
FormatDateTime(date[,namedformat]) 传回格式化的日期或时间数据。

asp实用function之大全

''==================取除左右括号============================ Function getReplace(Str)Str = Replace(Str,"(","")Str = Replace(Str,")","")getReplace = Trim(Str)End Function''==================取出数组中字符组成带括号的新字符========= Function getNewStr(tempArr)temp = ""For i = 0 To UBound(tempArr)If temp = "" Thentemp = "(" & tempArr(i) & ")"Elsetemp = temp & ",(" & tempArr(i) & ")"End ifNextgetNewStr = tempEnd Function''==================生成数组放入sql查询语句================== Function getInsql(tempArr)temp = ""if isarray(tempArr) thenfor i = 0 to ubound(tempArr)if temp = "" thentemp = "''" & tempArr(i) & "''"elsetemp = temp & ",''"& tempArr(i) &"''"end ifnextend ifgetInsql = tempEnd Function''================================================''''================字符串处理=======================''''================================================''''截取一定长度的字符串''Str为字符串，length为长度Function cutStr(Str,Length)If len(Str)>Length ThencutStr=left(Str,Length)&"..."ElsecutStr=StrEnd IfEnd Function''格式化文本输出,如空格、换行Function outputStr_BR(str)If str<>"" ThenoutputStr_BR=Server.HTMLEnCode(str)outputStr_BR=Replace(outputStr_BR," "," ")outputStr_BR=Replace(outputStr_BR,chr(13),"<br>")ElseoutputStr_BR=""End IfEnd Function''字符安全处理Function SafeStr(str,IfTrim)Dim temptemp=Replace(str,"''","''''")If IfTrim Thentemp=Trim(temp)End IfSafeStr=tempEnd Function''不够宽度用空格填充“ ”，区分汉字（2个字长）、字母（1个字长）Function FormatLen(str,length)Dim temp,tempLen,itemp=strtempLen=len(str)i=tempLenWhile i>0If len(temp)>0 And Asc(right(temp,1))<0 ThentempLen=tempLen+1End Ifi=i-1temp=left(temp,i)WendIf tempLen<length Thentemp=Replace(Space(length-tempLen)," "," ")End IfFormatLen=str&tempEnd Function''返回半字长度Function lLen(str)Dim temp,tempLen,itemp=strWhile Len(temp)>0If Asc(Left(temp,1))<0 ThentempLen=tempLen+2ElsetempLen=tempLen+1End Iftemp=Right(temp,Len(temp)-1)WendlLen=tempLenEnd Function''返回定长的HTML格式空格Function HTMLSpace(length)HTMLSpace=Replace(Space(length)," "," ")End Function''替换接收form内提交的字符串Function crequest(inputname)if inputname<>"" thencrequest=replace(trim(request(inputname)),"''","''''") elsecrequest=""end ifEnd Function''替换接收form内提交的字符串，主要为id Function irequest(inputname)irequest=replace(trim(request(inputname)),"''","''''")if irequest="" then irequest = "0"End Function''替换接受翻页的页数Function prequest(pageNumber)Dim tmpPageNumbertmpPageNumber= request(pageNumber)If IsNull(tmpPageNumber) Or tmpPageNumber="" Then prequest = 1ElseIf IsNumeric(tmpPageNumber) Thenprequest = CInt(tmpPageNumber)Elseprequest = 1End IfEnd Function''从字符串str中删除字符串str1function deleteStr(str,str1)dim pospos = Instr(str,str1)if pos >0 thendeleteStr = left(str,pos-1) & right(str,len(str)-pos-len(str1)+1) elsedeleteStr = strend ifend function''str字符串左起补0function leftZero(n,str)Dim zero_tag,zzero_tag = ""for z=0 to n-1zero_tag = zero_tag &"0"nextleftZero = right(zero_tag&str,n)end function''判断手机号码是否合法function isCellphone(str)if len(str)=11 and mid(str,1,1)="1" and mid(str,2,1)="3" then isCellphone = trueelseisCellphone = falseend ifend function''判断email地址是否合法function isValidEmail(email)dim names, name, i, cIsValidEmail = truenames = Split(email, "@")if UBound(names) <> 1 thenIsValidEmail = falseexit functionend iffor each name in namesif Len(name) <= 0 thenIsValidEmail = falseexit functionend iffor i = 1 to Len(name)c = Lcase(Mid(name, i,if InStr("abcdefghijklmnopqrstuvwxyz_-.+", c) <= 0 and not IsNumeric(c) then IsValidEmail = falseexit functionend ifnextif Left(name, 1) = "." or Right(name, 1) = "." thenIsValidEmail = falseexit functionend ifif Left(name, 1) = "+" or Right(name, 1) = "+" thenIsValidEmail = falseexit functionend ifnextif InStr(names(1), ".") <= 0 thenIsValidEmail = falseexit functionend ifif Left(names(1),1) ="+" thenIsValidEmail = falseexit functionend ifif Right(names(1),1) ="+" thenIsValidEmail = falseexit functionend ifi = Len(names(1)) - InStrRev(names(1), ".")if i <> 2 and i <> 3 thenIsValidEmail = falseexit functionend ifif InStr(email, "..") > 0 thenIsValidEmail = falseend ifend function''判断Fax是否合法Public Function IsValidFax(fax)Dim oRegExpSet oRegExp = New RegExpoRegExp.Pattern = "(^0\d{2,3}\-[1-9]\d{2,7}$)|(^[1-9]\d{2,7}$)|(^$0[1-9]{2,3}$[1-9]\d{2,7}$)" oRegExp.IgnoreCase = TrueoRegExp.Global = TrueIsValidFax = oRegExp.Test(fax)Set oRegExp = NothingEnd Function''去除字符串中最后一个字符Function eraseLastChr(var_Str,var_character)If IsNull(var_Str) Or var_Str="" TheneraseLastChr = ""ElseIf IsNull(var_character) Or var_character ="" TheneraseLastChr = var_StrElseIf Right(var_Str,1)=var_character TheneraseLastChr = Left(var_Str,Len(var_Str)-1)ElseeraseLastChr = var_StrEnd IfEnd IfEnd IfEnd Function''======小数点前补0Function addZeroPoint(str)tmpPosition = InStr(1,str,".",1)If tmpPosition = 1 Then str = "0" & straddZeroPoint = strEnd function''================================================''''================字符数组处理======================''''================================================''''转换字符串到数组function to_array(str,character) ''change the "xx,xx,xx" to array (xx,xx,xx)if isNull(str) thento_array = emptyelseif trim(str) = "" thento_array = emptyelseto_array = split(str,character)end ifend Function''转换数组到字符串Function to_String(arr,character) ''change the array (xx,xx,xx) to "xx,xx,xx" Dim x,returnStrIf IsArray(arr) ThenFor x=0 To UBound(arr)If returnStr = "" ThenreturnStr = arr(x)ElsereturnStr = returnStr & character & arr(x)End IfNextto_String = returnStrElseto_String = ""End IfEnd Function'' 从数组中删除function removeStr(str,arr) ''delete the string from the arraydim kk = 0redim temp_arr(k)if isArray(arr) thenfor i=0 to ubound(arr)midstr = arr(i)if not midstr = str thenredim preserve temp_arr(k)temp_arr(k) = midstrk = k + 1end ifnextelseremoveStr = arrend ifend function''判断字符串是否在1维数组中function strInArr(str,arr)strInArr = falseif not isarray(arr) thenstrInArr = falseelsefor x=0 to ubound(arr)midstr = trim(arr(x))if midstr = trim(str) thenstrInArr = trueend ifnextend ifend function''判断字符串是否在2维数组中function strInArr2(str,arr) strInArr2 = falseif not isarray(arr) thenstrInArr2 = falseelsefor x=0 to ubound(arr,2)midstr = trim(arr(0,x))if midstr = trim(str) thenstrInArr2 = trueend ifnextend ifend function''得到字符串在1维数组中的位置function indexOfArr(str ,arr) indexOfArr = -1if not isarray(arr) then indexOfArr = -1Elsefor x=0 to ubound(arr)midstr = cstr(arr(x))if CInt(midstr) = CInt(str) thenindexOfArr = xend ifNextend ifend Functionfunction AllindexOfArr(str ,arr) AllindexOfArr = -1if not isarray(arr) thenAllindexOfArr = -1Elsefor x=0 to ubound(arr)midstr = cstr(arr(x))if cstr(midstr) = cstr(str) thenIf tmpPostion = "" ThenAllindexOfArr = xElseAllindexOfArr = AllindexOfArr & "," & xEnd Ifend IfNextend ifend Function''更新数组内的特定位置的字符串内容''arr 为数组，pos为位置，str为新内容function updateArr(arr,pos,str) ''update the array content at special position if pos > ubound(arr) or pos < 0 or not isarray(arr) thenupdateArr = arrelsearr(pos) = strupdateArr = arrend ifend function''把1维数组输出sub writeArr(arr)Dim xif not isarray(arr) thenresponse.write "empty array!!!"elsefor x=0 to ubound(arr)response.write x&":["&trim(arr(x))&"]<br>"nextend ifend sub''删除数组中特定位置的字符串生成新的数组function removeIndex(arr,pos) ''delete one where positioned pos from arr if isarray(arr) thenredim temp_arr(0)dim kk= 0for x = 0 to ubound(arr)midstr = arr(x)if not x = pos thenredim preserve temp_arr(k)temp_arr(k) = midstrk = k + 1end ifnextremoveIndex = temp_arrelseremoveIndex = arrend ifend function''追加数组内容function arrAppend(arr,str)dim temp_arr,arr_lenif isarray(arr) thenarr_len = ubound(arr)redim preserve arr(arr_len+1)arr(arr_len+1) = strarrAppend = arrelseredim temp_arr(0)temp_arr(0) = strarrAppend = temp_arrend ifend function''删除数组中空的记录function deleteNull(arr) ''delete the null value in the arraydim temp_arrKeyword,z,temp_strif isarray(arr) thenfor z=0 to ubound(arr)temp_str = arr(z)if (Not IsNull(temp_str)) And (trim(temp_str) <> "") thentemp_arrKeyword = arrAppend(temp_arrKeyword,trim(temp_str)) end ifnextdeleteNull = temp_arrKeywordelsedeleteNull = arrend ifend function''================================================''''================窗口处理=========================''''================================================''''关闭非模态窗口Function ClosePop()Response.Write "<Script Language=''JavaScript''>"Response.Write "parent.window.close();"Response.Write "</Script>"End Function''================================================''''================警告处理=========================''''================================================''''生成客户端脚本，页面转向Function ForwardTo(URL)Response.Write "<Script Language=''JavaScript''>"Response.Write "top.Main.location.replace(''"&URL&"'');"Response.Write "</Script>"End Function''生成客户端脚本，页面转向Function ForwardListTo(URL)Response.Write "<Script Language=''JavaScript''>"Response.Write "this.parent.List_FRAME.location.href = (''"&URL&"'');" Response.Write "</Script>"End Function''生成客户端脚本，页面转向Function ForwardViewTo(URL)Response.Write "<Script Language=''JavaScript''>"Response.Write "this.parent.View_FRAME.location.href = (''"&URL&"'');" Response.Write "</Script>"End Function''生成客户端脚本，显示提示信息Function ShowMsg(Msg)Response.Write "<Script Language=''JavaScript''>"Response.Write "alert(''"&Msg&"'');"Response.Write "</Script>"End Function''生成客户端脚本，显示提示信息并返回前页Function ShowMsgAndBack(Msg)Response.Write "<Script Language=''JavaScript''>" Response.Write "alert(''"&Msg&"'');"Response.Write "history.back();"Response.Write "</Script>"Response.endEnd Function''生成客户端脚本，显示提示信息并关闭当前窗口Function ShowMsgAndClose(Msg)Response.Write "<Script Language=''JavaScript''>" Response.Write "alert(''"&Msg&"'');"Response.Write "window.close();"Response.Write "</Script>"End Function''生成客户端脚本，显示提示信息并关闭当前模态框架窗口Function ShowMsgAndClosePop(Msg)Response.Write "<Script Language=''JavaScript''>" Response.Write "alert(Response.Write "parent.window.close();"Response.Write "</Script>"End Function''生成客户端脚本，并转移到指定页面Function ShowMsgAndTo(Msg,URL)Response.Write "<Script Language=''JavaScript''>" Response.Write "alert(''"&Msg&"'');"Response.Write "location.href=''"&URL&"'';" Response.Write "</Script>"End Function''生成客户端脚本，返回前页Function PageBack()Response.Write "<Script Language=''JavaScript''>" Response.Write "history.back();"Response.Write "</Script>"End Function''生成客户端脚本，刷新父窗口Function FlashOpener(URL)Dim tempURLtempURL=URLIf tempURL="" ThentempURL="opener.location.href"ElsetempURL="''"&tempURL&"''"End IfResponse.Write "<Script Language=''JavaScript''>"Response.Write "opener.location.replace("&tempURL&");"Response.Write "</Script>"End Function''生成客户端脚本，刷新父窗口(非模态框架窗口)Function FlashPopOpener(URL)Response.Write "<Script Language=''JavaScript''>"If URL="" ThenResponse.Write "parent.ParentFun(''PopOpener.location.reload'');"ElseResponse.Write "parent.ParentFun(''PopOpener.location.replace$"""&URL&"""$'');" End IfResponse.Write "</Script>"End Function''生成客户端脚本，刷新父窗口，并且关闭自身Function FlashOpenerAndCloseMe(msg)Response.Write "<Script Language=''JavaScript''>"Response.Write "alert(''"&msg&"'');"Response.Write "window.close();"Response.Write "top.opener.location.reload();"Response.Write "</Script>"End Function''================================================''''================时间日期处理======================''''================================================''''得到标准日期19000101function getDate1()yyyy = cstr(year(now))mm = right("00"&cstr(month(now)),2)dd = right("00"&cstr(day(now)),2)h = right("00"&cstr(hour(now)),2)m = right("00"&cstr(minute(now)),2)s = right("00"&cstr(second(now)),2)getDate1 = yyyy&mm&dd&h&m&send functionfunction getDate(dateStr)if isdate(dateStr) thenyyyy = cstr(year(CDate(dateStr)))mm = right("00"&cstr(month(CDate(dateStr))),2)dd = right("00"&cstr(day(CDate(dateStr))),2)getDate = yyyy&mm&ddelsegetDate = "20000101"end ifend function''得到由时间生成的随机数20060101221022&4位随机数Function getDateTimeSeries()dim yyyy,mm,dd,h,m,s,MyValueyyyy = year(now)mm = right("00"&cstr(month(now)),2)dd = right("00"&cstr(day(now)),2)h = right("00"&cstr(hour(now)),2)m = right("00"&cstr(minute(now)),2)s = right("00"&cstr(second(now)),2)RandomizeMyValue = Int((1000 * Rnd) + 1)getDateTimeSeries = yyyy&mm&dd&h&m&s&"-"&MyValue End Function''得到标准日期1900-01-01function getFormatDate(dateStr)Dim yyyy,mm,ddif isdate(dateStr) thenyyyy = cstr(year(CDate(dateStr)))mm = right("00"&cstr(month(CDate(dateStr))),2)dd = right("00"&cstr(day(CDate(dateStr))),2) getFormatDate = yyyy&"-"&mm&"-"&ddelsegetFormatDate = "2000-01-01"end ifend function''得到标准时间2000-01-01 00:00:00Function getExactTime(str_Date)if isdate(str_date) thengetExactTime = formatdatetime(str_Date,2) & " " & formatdatetime(str_Date,4)elsegetExactTime = "2000-01-01 00:00:00"end ifEnd Function''得到中国时间表达方式function getChineseDate(var_date)yyyy = year(var_date)mm = month(var_date)dd = day(var_date)hh = hour(var_date)mi = minute(var_date)ss = second(var_date)getChineseDate = yyyy&"年"&mm&"月"&dd&"日"&hh&"时"&mi&"分"&ss&"秒" end function''显示两个时间相差多少天，时，分，秒function getDateDiff(var_dateSince,var_dateTill)var_s = DateDiff("s", CDate(var_dateSince), CDate(var_dateTill))var_d = var_s \ 86400if var_d>0 thenvar_s = var_s - 86400*var_d ''如果大于天，那么减去天的秒数getDateDiff = getDateDiff & var_d&"天"end ifif var_h>0 thenvar_s = var_s - 3600*var_h ''如果大于小时，那么减去小时的秒数getDateDiff = getDateDiff & var_h&"小时"end ifvar_m = var_s \ 60if var_h>0 thenvar_s = var_s - 60*var_m ''如果大于分钟，那么减去分钟的秒数getDateDiff = getDateDiff & var_m&"分钟"end ifgetDateDiff = getDateDiff & var_s&"秒"end function''小时下拉列表''intHour 已选项Function sHour(intHour)Dim iFor i=0 To 9If i=intHour ThenResponse.Write "<option value=""0"&i&""" Selected>0"&i&"</option>" ElseResponse.Write "<option value=""0"&i&""">0"&i&"</option>"End IfNextFor i=10 To 23If i=intHour ThenResponse.Write "<option value="""&i&""" Selected>"&i&"</option>" ElseResponse.Write "<option value="""&i&""">"&i&"</option>"End IfNextEnd Function''分钟下拉列表''intMinute 已选项Function sMinute(intMinute)If intMinute=0 ThenResponse.Write "<option value=""00"" Selected>00</option>"Response.Write "<option value=""15"">15</option>"Response.Write "<option value=""30"">30</option>"Response.Write "<option value=""45"">45</option>"ElseIf intMinute=15 ThenResponse.Write "<option value=""00"">00</option>"Response.Write "<option value=""15"" Selected>15</option>"Response.Write "<option value=""30"">30</option>"Response.Write "<option value=""45"">45</option>"ElseIf intMinute=30 ThenResponse.Write "<option value=""00"">00</option>"Response.Write "<option value=""15"">15</option>"Response.Write "<option value=""30"" Selected>30</option>"Response.Write "<option value=""45"">45</option>"ElseIf intMinute=45 ThenResponse.Write "<option value=""00"">00</option>"Response.Write "<option value=""15"">15</option>"Response.Write "<option value=""30"">30</option>"Response.Write "<option value=""45"" Selected>45</option>" ElseResponse.Write "<option value=""00"">00</option>"Response.Write "<option value=""15"">15</option>"Response.Write "<option value=""30"">30</option>"Response.Write "<option value=""45"">45</option>"End IfEnd FunctionFunction FormatEnTime()Dim y, m, d, h, mi, sFormatEnTime = ""''If IsDate(s_Time) = False Then Exit Functiony = cstr(month(now()))Select Case ycase 1y = "Jan "case 2y = "Feb "case 3y = "Mar "case 4y = "Apr "case 5y = "May "case 6y = "June "case 7y = "July "case 8y = "Oct "case 9y = "Sep "case 10y = "Oct "case 11y = "Nov "case 12y = "Dec "end selectFormatEnTime = hour(now())&":"&minute(now())&":"&second(now())&"  "&y &day(now())&", " &year(now())End Function''================================================''''================  金额处理======================''''================================================''''转换金额为人民币大写''需要调用以下两个自定义函数toChineseNum,toChineseUnitfunction toChineseAmount(num)dim idim num_strdim big_num,small_numdim num_fordim outputnum,outputnum1outputnum=""num_str=cstr(formatnumber(num,2,true,false,false))big_num=left(num_str,len(num_str)-3)small_num=right(num_str,2)if len(big_num)>13 thenresponse.write "所需要转换成人民币大写的数字超出系统运算范围，系统运算非正常退出....."response.endend iffor i=1 to len(big_num)num_for=right(left(big_num,len(big_num)-i+1),1)if toChineseNum(num_for)="零" and (toChineseUnit(i)="元" or toChineseUnit(i)="万" or toChineseUnit(i)="亿") then ''是标志位outputnum=toChineseUnit(i)&outputnumelseif toChineseNum(num_for)="零" and (toChineseUnit(i)<>"元" and toChineseUnit(i)<>"万" and toChineseUnit(i)<>"亿") then ''不是标志位outputnum=toChineseNum(num_for)&outputnumelse ''其他情况outputnum=toChineseNum(num_for)&toChineseUnit(i)&outputnumend ifnext''将连续的零替换成一个“零”outputnum=replace(outputnum,"零零零零","零")outputnum=replace(outputnum,"零零零","零")outputnum=replace(outputnum,"零零","零")''注意替换的先后顺序,换掉标志位前的零outputnum=replace(outputnum,"零元","元")outputnum=replace(outputnum,"零万","万")outputnum=replace(outputnum,"零亿","亿")''换掉大单位到小单位造成的误差，因为只可能出现万亿，而不可能出现亿万outputnum=replace(outputnum,"亿万","亿")''重新考虑整数为零的情况if big_num="0" thenoutputnum="" ''将整数位设置成空end if''处理小数outputnum1=""if left(small_num,1)<>"0" thenoutputnum1=toChineseNum(left(small_num,1))&"角"elseif big_num="0" thenoutputnum1=""elseoutputnum1="零"end ifend ifif right(small_num,1)<>"0" thenoutputnum1=outputnum1&toChineseNum(right(small_num,1))&"分" end ifif small_num="00" thenoutputnum1=""end iftoChineseAmount=outputnum&outputnum1&"整"if num_str="0.00" thentoChineseAmount="零元整"end ifend function''把传入的数字字符转换成大写，通过函数返回function toChineseNum(strT)select case strTcase "1"toChineseNum="壹"case "2"toChineseNum="贰"case "3"toChineseNum="叁"case "4"toChineseNum="肆"case "5"toChineseNum="伍"case "6"toChineseNum="陆"case "7"toChineseNum="柒"case "8"toChineseNum="捌"case "9"toChineseNum="玖"case "0"toChineseNum="零"end selectend functionfunction toChineseUnit(i)select case icase 1toChineseUnit="元"case 2toChineseUnit="拾"case 3toChineseUnit="佰"case 4toChineseUnit="仟"case 5toChineseUnit="万"case 6toChineseUnit="拾"case 7toChineseUnit="佰"case 8toChineseUnit="仟"case 9toChineseUnit="亿"case 10toChineseUnit="拾"case 11toChineseUnit="佰"case 12toChineseUnit="仟"case 13toChineseUnit="万"end selectend function''================================================'' ''===================文件处理======================'' ''================================================'' ''新建一个目录''返回目录全地址;返回-1表示失败，目录已经存在。

再分享一些常用的ASP函数

'过滤sql注射字符function chksql(txt)if instr(txt,"'")>0 then txt=replace(txt,"'","")if instr(txt,";")>0 then txt=replace(txt,";","")if instr(txt,"""")>0 then txt=replace(txt,"""","")if instr(txt,"<")>0 then txt=replace(txt,"<","")if instr(txt,">")>0 then txt=replace(txt,">","")chksql=trim(txt)end function'HTTP采集：'GB2312编码的网站Function httpGet(url, method, data)url=cstr(url)dim Httpset Http=server.createobject("MSXML2.ServerXMLHTTP")Call Http.setTimeouts(900000,900000,900000,900000)if data<>"" thenHttp.open "GET",url + "?" + data,falseelseHttp.open "GET",url,falseend ifHttp.send()if Http.readystate<>4 thenexit functionend ifhttpGet=bytesToBSTR(Http.responseBody,"gb2312")set http=nothingif err.number<>0 then err.ClearEnd Function'UTF-8编码的网站，貌似GB2312的用这个要乱码Function httpGet2(url, method, data, charset)Dim xmlhttpSet xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")xmlhttp.SetTimeOuts 10000,20000,20000,100000if data<>"" thenxmlhttp.open method, url + "?" + data, Falseelsexmlhttp.open method, url, Falseend ifxmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset="&charsetxmlhttp.setRequestHeader "Content-Length", Len(data)xmlhttp.send (Null)If (xmlhttp.Status = 200) ThenhttpGet2 = xmlhttp.responseTextelseexit functionend ifSet xmlhttp = NothingEnd Function'编码转换Function BytesToBstr(body,Cset)dim objstreamset objstream = Server.CreateObject("adodb.stream") objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetBytesToBstr = objstream.ReadTextobjstream.Closeset objstream = nothingEnd Function'编码转换Function encodeUrl(paraString,Encoding1,Encoding2) Session.CodePage=Encoding2encodeUrl=server.urlencode(paraString)Session.CodePage=Encoding1End Function'使用方法'encodeUrl(name,65001,936)'正在为替换超级链接Set reg=New RegExpreg.IgnoreCase = Truereg.Global = Truereg.MultiLine = Truereg.Pattern = "<a.+?href=(['""]?)([^>\s]+)\1.*?>([\S\s]+?)<\/a>" Set MC = reg.Execute(xmldata)For Each m In MCckURL = m.SubMatches(1)if instr(ckURL,"http://")>0 then response.Write ckURL & "<br>"Next'获取当前网址,含参数获取Function GetThisUrl()Dim ScriptAddress, M_ItemUrl, M_itemScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址M_ItemUrl = ""If (Request.QueryString <> "") ThenScriptAddress = ScriptAddress & "?"For Each M_item In Request.QueryStringIf InStr(page,M_Item)=0 ThenM_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"End IfNextend ifGetThisUrl = ScriptAddress & M_ItemUrlEnd Function'获取当前网址，完整的网址格式，包含参数部分的获取'可以获取到诸如/class/13.html?action=getdata&id=1Function GetUrl()Dim strHostName,strScriptName,strSubUrl,strRequestItemstrHostName=CStr(Request.ServerVariables("LOCAL_ADDR"))strScriptName=CStr(Request.ServerVariables("SCRIPT_NAME"))strSubUrl=""If Request.QueryString<>"" ThenstrScriptName=strScriptName&"?"For Each strRequestItem In Request.QueryStringIf InStr(strScriptName,strRequestItem)=0 ThenIf strSubUrl="" ThenstrSubUrl=strSubUrl&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strReq uestItem&""))ElsestrSubUrl=strSubUrl&"&"&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&s trRequestItem&""))End IfEnd IfNextEnd IfGetUrl="http://"&strHostName&strScriptName&strSubUrlEnd Function'简单的，获取不到参数GetUrl ="http://"&Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")'获取来路网址If Request.ServerVariables("HTTP_REFERER")<>"" Thenresponse.write Request.ServerVariables("HTTP_REFERER")Elseresponse.write ""End IfSQL防注射代码：'--------定义部份------------------Dim Fy_Post,Fy_Get,Fy_cook,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,logtxtaddOn Error Resume NextFy_In = "'|and|exec|insert|select|delete|update|count|chr|mid|master|truncate|char|declare|--|script" '常见的：Fy_In = "and|exec|insert|select|delete|update|chr|master|truncate|char|declare"Fy_Inf = split(Fy_In,"|")'--------POST部份------------------If Request.Form<>"" ThenFor Each Fy_Post In Request.FormFor Fy_Xh=0 To Ubound(Fy_Inf)If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Thencall Writesqlinlog(now()&" + "&Request.ServerVariables("REMOTE_ADDR")&" + "&Request.ServerVariables("URL")&" + post + "&Fy_post&" + "&replace(Request.Form(Fy_post),"'","*"))call Endthesqlin("对不起，您输入的数据中含有非法字符，请重新输入！<br /><br />本次操作记录如下：<br />操作IP："&Request.ServerVariables("REMOTE_ADDR")&"<br />发生时间："&Now()&"<br />操作页面："&Request.ServerVariables("URL")&"<br />提交方式：POST<br />提交参数："&Fy_Form&"<br />提交数据："&Request.Form(Fy_Post))End IfNextNextEnd If'--------GET部份-------------------If Request.QueryString<>"" ThenFor Each Fy_Get In Request.QueryStringFor Fy_Xh=0 To Ubound(Fy_Inf)If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Thencall Writesqlinlog(now()&" + "&Request.ServerVariables("REMOTE_ADDR")&" + "&Request.ServerVariables("URL")&" + get + "&Fy_get&" + "&replace(Request.QueryString(Fy_get),"'","*"))call Endthesqlin("对不起，您输入的数据中含有非法字符，请重新输入！<br /><br />本次操作记录如下：<br />操作IP："&Request.ServerVariables("REMOTE_ADDR")&"<br />发生时间："&Now()&"<br />操作页面："&Request.ServerVariables("URL")&"<br />提交方式：GET<br />提交参数："&Fy_Get&"<br />提交数据："&Request.QueryString(Fy_Get))End IfNextNextEnd If'--------cookies部份-------------------If Request.Cookies<>"" ThenFor Each Fy_cook In Request.CookiesFor Fy_Xh=0 To Ubound(Fy_Inf)If Instr(LCase(Request.Cookies(Fy_cook)),Fy_Inf(Fy_Xh))<>0 Thencall Writesqlinlog(now()&" + "&Request.ServerVariables("REMOTE_ADDR")&" + "&Request.ServerVariables("URL")&" + cookies + "&Fy_cook&" + "&replace(Request.Cookies(Fy_cook),"'","*"))call Endthesqlin("对不起，您输入的数据中含有非法字符，请重新输入！<br /><br />本次操作记录如下：<br />操作IP："&Request.ServerVariables("REMOTE_ADDR")&"<br />发生时间："&Now()&"<br />操作页面："&Request.ServerVariables("URL")&"<br />提交方式：POST<br />提交参数："&Fy_cook&"<br />提交数据："&Request.Cookies(Fy_cook))End IfNextNextEnd If'写入FSO记录Sub Writesqlinlog(txt)set fs_sqlin=server.CreateObject("Scripting.FileSystemObject")set file_sqlin=fs_sqlin.OpenTextFile(server.MapPath("SqlErrorLogs.txt"),8,True)file_sqlin.writeline txtfile_sqlin.closeset file_sqlin=nothingset fs_sqlin=nothingEnd Sub'sql注射，停止Sub Endthesqlin(txt)Response.Write txtResponse.Endend Sub万网域名查询接口：9.1域名check接口采用HTTP，POST，GET协议：调用URL：/cgi-bin/check.cgi参数名称：area_domain 值为标准域名，例：调用举例：/cgi-bin/check.cgi?area_domain= 返回XML：<?xml version="1.0" encoding="gb2312"?><property><returncode>200</returncode><key></key><original>210 : Domain name is available</original></property>返回XML结果说明：returncode=200 表示接口返回成功key=***.com表示当前check的域名original=210 : Domain name is available 表示域名可以注册original=211 : Domain name is not available 表示域名已经注册original=212 : Domain name is invalid 表示域名参数传输错误域名详情的查询接口：/cgi/whois?whois_nic=&type=domain。

ASP函数大全

ASP函数大全（按字母顺序常用）ASP函数实际上与VBScript脚本语言函数是一致和相同的，以下列举一些常用的函数：1．Array()返回一个数组表达式：Array(list)允许数据类型：字符，数字均可实例：<%Dim myArray()For i = 1 to 7Redim Preserve myArray(i)myArray(i) = WeekdayName(i)Next%>返回结果：建立了一个包含7个元素的数组myArraymyArray("Sunday","Monday", ... ... "Saturday")2．Cint()将一个表达式转化为数字类型表达式：Cint(expression)允许数据类型：任何有效的字符均可实例：<%f = "234"response.write cINT(f) + 2%>返回结果：236转化字符"234"为数字"234"，如果字符串为空，则返回0值3．CreateObject()建立和返回一个已注册的ACTIVEX组件的实例。

表达式：CreateObject(objName)允许数据类型：objName 是任何一个有效、已注册的ACTIVEX组件的名字.实例：<%Set con = Server.CreateObject("ADODB.Connection")%>4．CStr()转化一个表达式为字符串.表达式：CStr(expression)允许数据类型：expression 是任何有效的表达式。

实例：<%s = 3 + 2response.write "The 返回结果is：" & cStr(s)%>返回结果：转化数字“5”为字符“5”。

ASP常用的库函数大全

<%'判断文件名是否合法Function isFilename(aFilename)Dim sErrorStr,iNameLength,iisFilename=TRUEsErrorStr=Array("/","\",":","*","?","""","<",">","|") iNameLength=Len(aFilename)If iNameLength<1 Or iNameLength=null Then isFilename=FALSEElseFor i=0 To 8If instr(aFilename,sErrorStr(i)) ThenisFilename=FALSEEnd IfNextEnd IfEnd Function'去掉字符串头尾的连续的回车和空格function trimVBcrlf(str)trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))end function'去掉字符串开头的连续的回车和空格function ltrimVBcrlf(str)dim pos,isBlankCharpos=1isBlankChar=truewhile isBlankCharif mid(str,pos,1)=" " thenpos=pos+1elseif mid(str,pos,2)=VBcrlf thenpos=pos+2elseisBlankChar=falseend ifwendltrimVBcrlf=right(str,len(str)-pos+1)end function'去掉字符串末尾的连续的回车和空格function rtrimVBcrlf(str)dim pos,isBlankCharpos=len(str)isBlankChar=truewhile isBlankChar and pos>=2if mid(str,pos,1)=" " thenpos=pos-1elseif mid(str,pos-1,2)=VBcrlf thenpos=pos-2elseisBlankChar=falseend ifwendrtrimVBcrlf=rtrim(left(str,pos))end function'判断Email是否有效,返回1表示正确Function isEmail(aEmail)Dim iLocat,v,iLength,i,checkletterIf instr(aEmail,"@") = 0 Or instr(aEmail,".") = 0 ThenisEmail=0EXIT FUNCTIONEnd IfiLocat=instr(aEmail,"@")If instr(iLocat,aEmail,".")=0 Or instr(iLocat+1,aEmail,"@")>0 ThenisEmail=0EXIT FUNCTIONEnd IfIf left(aEmail,1)="." Or right(aEmail,1)="." Or left(aEmail,1)="@" Or right(aEmail,1)="@" Then isEmail=0EXIT FUNCTIONEnd Ifv="1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.@" iLength=len(aEmail)For i=1 To iLengthcheckletter=mid(aEmail,i,1)If instr(v,checkletter)=0 ThenisEmail=0EXIT FUNCTIONEnd IfNextisEmail=1End Function'测试用:显示服务器信息Sub showServerDim nameResponse.write "<Table border=1 bordercolor=lightblue CELLSPACING=0>"for each name in request.servervariablesResponse.write "<tr>"Response.write "<td>"&name&"</td>"Response.write "<td>"&request.servervariables(name)&"<br></td>"Response.write "</tr>"nextResponse.write "</table>"End Sub'测试用:显示Rs结果集以及字段名称Sub showRs(rs)Dim strTable,whateverResponse.write "<center><table><tr>"for each whatever in rs.fieldsresponse.write "<td><b>" & & "</B></TD>"nextstrTable = "</tr><tr><td>"&rs.GetString(,,"</td><td>","</tr><tr><td>"," ") &"</td></tr></table></center>"Response.Write(strTable)End Sub'用HTML格式显示文本Function txt2Html(str)if isnull(str) thentxt2Html=""exit Functionend ifstr=Replace(str,chr(34),""")str=Replace(str,"<","<")str=Replace(str,">",">")str=Replace(str,chr(13)+chr(10),"<br>")str=Replace(str,chr(9)," ")str=Replace(str," "," ")txt2Html=strEnd Function'测试用:显示调试错误信息Sub showErrorDim sErrMsgsErrMsg=Err.Source&" "&Err.DescriptionResponse.write "<center>"&sErrMsg&"</center>"Err.clearEnd Sub'显示文字计数器Sub showCounterDim fs,outfile,filename,countfilename=server.mappath("count.txt")Set fs = CreateObject("Scripting.FileSystemObject")If fs.fileExists(filename) ThenSet outfile=fs.openTextFile(filename,1)count=outfile.readlinecount=count+1Response.write "<center>浏览人次："&count&"<center>" outfile.closeSet outfile=fs.CreateTextFile(filename)outfile.writeline(count)ElseSet outfile=fs.openTextFile(filename,8,TRUE)count=0outfile.writeline(count)END IFoutfile.closeset fs=nothingEnd Sub%>Array()FUNCTION: 返回一个数组SYNTAX: Array(list)ARGUMENTS: 字符，数字均可EXAMPLE: <%Dim myArray()For i = 1 to 7Redim Preserve myArray(i)myArray(i) = WeekdayName(i)Next%>RESULT: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday")CInt()FUNCTION: 将一个表达式转化为数字类型SYNTAX: CInt(expression)ARGUMENTS: 任何有效的字符均可EXAMPLE: <%f = "234"response.write cINT(f) + 2%>RESULT: 236转化字符"234"为数字"234"，如果字符串为空，则返回0值CreateObject()FUNCTION: 建立和返回一个已注册的ACTIVEX组件的实例。

asp常用函数集(ASPcommonfunctionsets)

asp 常用函数集(ASP common function sets)1.function array ()Function: create an array variableFormat: array (list)Argument: list is the column of each column in the array variable, with a comma interval in the middleExample:I = array (〃1〃，〃2〃，〃3〃)％ >Results: I is assigned as an array2.function Cint ()Function: converts an expression / other type of variable into an integer type (int)Format: Cint (expression)Argument: expression is any valid expression / other type of variableExample:<F = 234Response, write cINT (f) + 2 % >Results: 236The function Cint () converts character 234 to integer 234. and returns 0 if the expression is null or invalid:3.function: Creatobject ()Function: creates and returns a ActiveX objectFormat: Creatobject (obname)The parameter bName is the name of the objectExample:<Set con = Server.CreateObject ("ADODB. Connection")% >Result:4.function Cstr ()a character type (string)Format: Cstr (expression)Argument: expression is any valid expression / other type of variable Example:<S = 3 + 2Response, write "The, result, is:" & cStr (s)% >Results: function Cstr () converts integer 5 to character "5”5.function Date ()Function: returns the date of the current system (server end) Format: Date ()Parameter: NoneExamples of date ()% >Results: 05/10/006.function Dateadd ()Function: calculates a specified time andFormat: DateAdd (timeinterval, number, date)Argument: timeinterval is the time unit (month, day, day). Number is the time interval value, and date is the time start pointExample:<CurrentDate = #8/4/99#NewDate = DateAdd ("m”, 3, currentDate)Response, write newDate% > <CurrentDate = #12:34:45 PM#NewDate = DateAdd ("H”, 3, currentDate)Response, write newDate% >Result:11/4/993:34:45 PMamong〃M〃 = "month"”;"D" = "day"”;If it is in currentDate format, then,〃TT〃〃1〃〃H = hour ;S = second ;7.function Datediff ()Function: calculates a specified amount of time differenceFormat: DateDiff (timeinterval, datel, date2[, firstdayofweek[, firstdayofyear>)Argument: timeinterval is a time unit: datel and date2 are valid date expressions: firstdayofweek and firstdayofyear are optionalExample:FromDate = #8/4/99#ToDate = #1/1/2000#Response, write "There are" & _DateDiff (D, fromDate, toDate & _)"Days, to, millenium, from, 8/4/99..% >Results: There, are, , days, to, millenium, from, 8/4/99.8.function day ()Function: returns an integer value corresponding to a certain month of the day Format: Day (date)Argument: date is a valid date expression;For example < = date (#8/4/99#)% >Results: 49.function formatcurrency ()Function: convert to currency format Format: formatcurrency (expression [, digit [, leadingdigit [, parent, groupdigit>>)Argument: expression is a valid numeric expression: digit stands for the digitsafter the decimal point: leadingdigit, paren, and groupdigit are optionalFor example < = FormatCurrency (34. 3456)% >Result 34. 3510.function Formatdatetime ()Function: formatting date expressions / variablesFormat: formatdatetime (date[, nameformat])Argument: date is a valid date expression / variable: nameformat is the specified date format constant nameFor example < = formatdatetime (08/04/99, vblongdate)% >Results: Wednesday, August 04,One thousand nine hundred and ninety-nineExplain:describeReturns an expression that has been formatted as date or time.grammarFormatDateTime (Date[, NamedFormat])The syntax of the FormatDateTime function has the following parameters:Parameter descriptionDate optional. A date expression to be formatted.NamedFormat optional. Indicates the value of the date / time format used, and if omitted, use vbGeneralDate.Set upThe NamedFormat parameter can have the following values:Constant value descriptionVbGeneralDate 0 displays date and / or time. If there is a part of the date, the part is displayed as a short date format. If there is a part of the time, the part is shown as a long format. If all of them exist, all parts are displayed.VbLongDate 1 displays the date in the long date format specified in the computer locale.VbShortDate 2 displays the date in a short date format specified in the computer locale.VbLongTime 3 displays the time in the time format specified in the computer locale.VbShortTime 4 displays the time in 24 hour format (hh:mm).ExplainThe following example uses the FormatDateTime function to format anexpression into a long date type and assigns it to MyDateTime:Function GetCurrentDate"FormatDateTime formats the date type as long date type. GetCurrentDate = FormatDateTime (Date, 1)End Function11.function Isnumeric ()Function: returns a Boolean value, determines whether a variable is a numeric variable, or any other variable that canbe converted into numbersFormat: IsNumeric (expression)Argument: expression is an arbitrary variableExample:<I = 234”Response, write IsNumeric (I)% >Results: true.12.function Isobject ()Function: returns a Boolean value to determine whether a variable is an object variable,Format: isobject (expression)Argument: expression is an arbitrary variableExample:Set con = server.creatobject ("adodb. connection")Response, write isobject (CON)% >Results: true13.function: Lbound ()Function: returns the lower bound of an arrayFormat: Lbound (arrayname[, dimension])Argument: arrayname is an array variable, and dimension is any entry Example:<I = array (〃1〃，〃2〃，〃3〃)Response, write lbound (I)% >Results: 014.function Lease ()Function: transforms all characters of a character type variable into lower case charactersFormat: Lease (string)Argument: string is a string variableExample:<STR = "THIS, is, Lease”!”Response, write Lease (STR)% >Results: this, is, lease!15.function left ()Function: to intercept the front part of a string;Format: left (string, length)Argument: string string, the length of length interception Example: < = left ("this is a test!”, 6)% >Results: this I16.function len ()Function: returns the length of a string or the length of a variableFormat: len (string, *varname)Argument: string string: Varname any variable name Example:<Strtest = "this, is, a, test”!”Response, write left (strtest)% >Results: 1517.function Itrim ()Function: removes the space before the string Format: Itrim (string)Argument: string stringExample: < = Itrim ("this is a test!”)Results: this, is, a, test!18.function Mid ()Function: intercepts strings from stringsFormat: Mid (string, start, [length]])Parameter: string string, the starting point of start interception, and the length of length to interceptExample:<Strtest = "this, is, a, test”,今天是星期一。

asp常用自定义函数大全(网站开发必备)

函数列表：'1：建立数据库的连接ConnOpen(DataBaseConnectStr,DBType,Conn_object)'2：断开数据库的连接ConnClose(Conn_object)'3：防止SQL注入SafeRequest(paraName,paraType)'4：格式化日期DateFormat(dateStr,dateType)'5：显示错误提示ShowErr(errStr)'6：查询字符串中特定数据SelectStr(contentStr,patternStr,patternNum)'7：过滤指定字符Leach(contentStr,badWords)'8：远程文件内容抓取Seize(urlStr)'9：数据流编码处理BytesToBstr(body,cset)'10：编码cookies codeCookie(contentStr)'11：解码cookies DecodeCookie(contentStr)'12：检验数据提交来源是否合法ChkPost()'13：个性化加密MyEncrypt(StrPassword)'14：禁止浏览器缓存本页NoBuffer()'15：网页格式化输入文本HTMLEncode(fString)'16：从头部截取字符串的指定长度(按字符数算) GotTopic(Str,StrLen)'17：检测验证码CheckRadomPass(RadomPass)'18：生成验证码GetCode()'19：获取客户端操作系统版本GetSystem()'20：数据库事务处理ConnManage(Conn_object)'21：快速排序（递归）QuickSort(arr,Low,High)'22：将数组的元素以特定字符串连起来arr_join(arr,character)'23：返回字符串以某分割符分割的数目count_character(str,character)'24：截取含有分割符的字符串中指定数目的字符串inter_str_by_character_num(str,character,start,num)'25：利用Stream下载文件downloadFile(strFile)'26：返回信息send_back(ResultWords)'27：获取错误信息get_err()'28：与SafeRequest相反SafeResponse(content)'29：保存远程图片SaveRemoteFile(LocalFileName,RemoteFileUrl)'30： ...dim language_arr(10)language_arr(0) = "数据库连接的参数设置错误！"language_arr(1) = "数据库连接的类型参数设置错误！"language_arr(2) = "数据库连接失败！"language_arr(3) = "非法的参数值！"language_arr(4) = "参数值不是有效的日期格式！"language_arr(5) = "操作失败！"language_arr(6) = "栏目有重名！"language_arr(7) = "栏目名称为空！"language_arr(8) = "栏目文件夹创建失败！"language_arr(9) = "您没有此权限！"'============================================================================================================================'函数ID：1'函数作用：建立数据库的连接'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-15 10：28'修改时间：'传人参数：' connectStr：数据库连接字符串' connectType：数据库类别-数字型，0为Access,1为MS SQL'返回值：'=================================================================== =========================================================sub ConnOpen(DataBaseConnectStr,DBType,Conn_object)Set Conn_object = Server.Createobject("adodb.connection")if DataBaseConnectStr = "" then call ShowErr(language_arr(0))if DBType = 0 thenConn_object.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DataBaseConnectStrelseif DBType = 1 thenConn_object.Open "Provider=SQLOLEDB.1;" & DataBaseConnectStrelsecall ShowErr(language_arr(1))end iferr.clearend sub'=================================================================== ========================================================='函数ID：2'函数作用：断开数据库的连接'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 15:10'修改时间：'传人参数：'返回值：'=================================================================== =========================================================Sub ConnClose(Conn_object)Conn_object.closeset Conn_object = nothingEnd sub'=================================================================== ========================================================='函数ID：3'函数作用：防止SQL注入'作者名称：/infoview/Article_2906.html'建立时间：2006-2-16 15:32'修改时间：'传人参数：' paraName:参数名称-字符型' paraType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)'返回值：' 过滤后的字符串'=================================================================== =========================================================Function SafeRequest(paraName,paraType)dim paraValueparaValue = Request(paraName)select case paraTypecase 0paraValue = replace(paraValue,"'","[system:34]")paraValue = replace(paraValue,"=","[system:61]")case 1if not IsNumeric(paraValue) then call ShowErr(language_arr(3))case -1if not IsNumeric(paraValue) then call ShowErr(language_arr(3))if paraValue = "" then paraValue = 0case elseif len(paraValue) > paraType then call ShowErr(language_arr(3))paraValue = replace(paraValue,"'","[system:34]")paraValue = replace(paraValue,"=","[system:61]")end selectSafeRequest = paraValueEnd function'=================================================================== ========================================================='函数ID：4'函数作用：格式化日期'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 15:45'修改时间：'传人参数：' dateStr:日期字符串' paraType:日期类型-数字型'返回值：' 格式化后的日期'=================================================================== =========================================================Function DateFormat(dateStr,dateType)Dim dateStringif IsDate(dateStr) = False thencall ShowErr(language_arr(4))end ifSelect Case dateTypeCase "1"dateString = Year(dateStr)&"-"&Month(dateStr)&"-"&Day(dateStr)Case "2"dateString = Year(dateStr)&"."&Month(dateStr)&"."&Day(dateStr)Case "3"dateString = Year(dateStr)&"/"&Month(dateStr)&"/"&Day(dateStr)Case "4"dateString = Month(dateStr)&"/"&Day(dateStr)&"/"&Year(dateStr)Case "5"dateString = Day(dateStr)&"/"&Month(dateStr)&"/"&Year(dateStr)Case "6"dateString = Month(dateStr)&"-"&Day(dateStr)&"-"&Year(dateStr)Case "7"dateString = Month(dateStr)&"."&Day(dateStr)&"."&Year(dateStr)Case "8"dateString = Month(dateStr)&"-"&Day(dateStr)Case "9"dateString = Month(dateStr)&"/"&Day(dateStr)Case "10"dateString = Month(dateStr)&"."&Day(dateStr)Case "11"dateString = Month(dateStr)&language_arr(6)&Day(dateStr)&language_arr(7)Case "12"dateString = Day(dateStr)&language_arr(7)&Hour(dateStr)&language_arr(8)case "13"dateString = Day(dateStr)&language_arr(7)&Hour(dateStr)&language_arr(8)Case "14"dateString = Hour(dateStr)&language_arr(8)&Minute(dateStr)&language_arr(9)Case "15"dateString = Hour(dateStr)&":"&Minute(dateStr)Case "16"dateString = Year(dateStr)&language_arr(5)&Month(dateStr)&language_arr(6)&Day(dateStr)&languag e_arr(7)Case ElsedateString = dateStrEnd SelectDateFormat = dateStringEnd Function'=================================================================== ========================================================='函数ID：5'函数作用：显示错误提示'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 16:29'修改时间：'传人参数：' errStr:错误提示-字符型'返回值：返回提交页面'=================================================================== =========================================================sub ShowErr(errStr)Response.Write("<script>alert("""&errStr&""");location.href=""javascript:history.back()"";</ script>")Response.EndEnd sub'=================================================================== ========================================================='函数ID：6'函数作用：查询字符串中特定数据'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 16:40'修改时间：'传人参数：' contentStr:查询字符串' patternStr:匹配式字符串' patternNum:查询定位-数字型'返回值：' 找不到返回false' patternNum为-1返回所有匹配字符串并以[10]隔开' 否则返回指定位置的字符串'=================================================================== =========================================================Function SelectStr(contentStr,patternStr,patternNum)dim objRegExp,matches,matcheif contentStr = "" thencall ShowErr(language_arr(12))end ifSet objRegExp=new RegExp '建立正则表达式objRegExp.pattern = patternStr '设置模式objRegExp.IgnoreCase =False '设置是否区分字符大小写objRegExp.Global=true '设置全局可用性objRegExp.pattern = patternStr '匹配式if objRegExp.test(contentStr) = false then '全局匹配SelectStr = falseelseSet matches = objRegExp.Execute(contentStr) '执行搜索if patternNum = -1 thenfor each matche in matchesSelectStr = SelectStr &"[10]"& matche.valuenextelseSelectStr = matches.Item(patternNum).valueend ifend ifSet objRegExp=NothingEnd Function'=================================================================== ========================================================='函数ID：7'函数作用：过滤指定字符'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 16:59'修改时间：'传人参数：' contentStr:源字符串' badWords:要过滤的字符串，若数目大于1则用英文状态的"^"隔开'返回值：' 返回过滤后的字符串'=================================================================== =========================================================Function Leach(contentStr,badWords)dim badWordsArr,ibadWordsArr = Split(badWords,"^")for i = 0 to UBound(badWordsArr)contentStr = replace(contentStr,badWordsArr(i),"")nextleach = contentStrend Function'=================================================================== ========================================================='函数ID：8'函数作用：远程文件内容抓取'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 17:24'修改时间：'传人参数：' urlStr:远程文件地址'返回值：' 返回远程文件内容'=================================================================== =========================================================function Seize(urlStr)dim connectif urlStr = "" thencall ShowErr(language_arr(13))elseSet connect = CreateObject("Microsoft.XMLHTTP") '建立XMLHTTP对象connect.open "GET",urlStr,false '设置参数，通信方式为get，请求为同步，后面还有两个可选属性：userID，password用于用户验证connect.send() '数据发送，Send方法的参数类型可以是字符串、DOM树或任意数据流Seize = BytesToBStr(connect.responseBody,"GB2312") '返回信息，编码为中文set connect = nothingend ifend function'=================================================================== ========================================================='函数ID：9'函数作用：数据流编码处理'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 17:30'修改时间：'传人参数：' body:数据内容' cset:编码格式'返回值：' 编码处理后的信息'=================================================================== =========================================================Function BytesT oBstr(body,cset)dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1 '以二进制模式打开objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = csetBytesToBstr = objstream.ReadT extobjstream.Closeset objstream = nothingEnd Function'=================================================================== ========================================================='函数ID：10'函数作用：编码cookies'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 17:36'修改时间：'传人参数：' contentStr:数据内容'返回值：' 编码处理后的信息，字符以"a"隔开'=================================================================== =========================================================Function codeCookie(contentStr)Dim i,returnStrFor i = Len(contentStr) to 1 Step -1returnStr = returnStr & Ascw(Mid(contentStr,i,1))If (i <> 1) Then returnStr = returnStr & "a"NextCodeCookie = returnStrEnd Function'=================================================================== ========================================================='函数ID：11'函数作用：解码cookies'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-17 16:58'修改时间：'传人参数：' contentStr:数据内容'返回值：' 解码处理后的信息'=================================================================== =========================================================Function DecodeCookie(contentStr)Dim iDim StrArr,StrRtnStrArr = Split(contentStr,"a")For i = 0 to UBound(StrArr)If isNumeric(StrArr(i)) = True ThenStrRtn = Chrw(StrArr(i)) & StrRtnElseStrRtn = contentStrExit FunctionEnd IfNextDecodeCookie = StrRtnEnd Function'=================================================================== ========================================================='函数ID：12'函数作用：检验数据提交来源是否合法'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-18 18:55'修改时间：'传人参数：''返回值：' Boolean'=================================================================== =========================================================Function ChkPost()Dim server_v1,server_v2Chkpost=Falseserver_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=TrueEnd Function'=================================================================== =========================================================。

ASP实用函数库

ASP实用函数库<%'判断文件名是否合法Function isFilename(aFilename)Dim sErrorStr,iNameLength,iisFilename=TRUEsErrorStr=Array("/","\",":","*","?","""","<",">","|") iNameLength=Len(aFilename)If iNameLength<1 Or iNameLength=null Then isFilename=FALSEElseFor i=0 To 8If instr(aFilename,sErrorStr(i)) ThenisFilename=FALSEEnd IfNextEnd IfEnd Function'去掉字符串头尾的连续的回车和空格function trimVBcrlf(str)trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))end function'去掉字符串开头的连续的回车和空格function ltrimVBcrlf(str)dim pos,isBlankCharpos=1isBlankChar=truewhile isBlankCharif mid(str,pos,1)=" " thenpos=pos+1elseif mid(str,pos,2)=VBcrlf thenpos=pos+2elseisBlankChar=falseend ifwendltrimVBcrlf=right(str,len(str)-pos+1)end function'去掉字符串末尾的连续的回车和空格function rtrimVBcrlf(str)dim pos,isBlankCharpos=len(str)isBlankChar=truewhile isBlankChar and pos>=2if mid(str,pos,1)=" " thenpos=pos-1elseif mid(str,pos-1,2)=VBcrlf thenpos=pos-2elseisBlankChar=falseend ifwendrtrimVBcrlf=rtrim(left(str,pos))end function'判断Email是否有效,返回1表示正确Function isEmail(aEmail)Dim iLocat,v,iLength,i,checkletterIf instr(aEmail,"@") = 0 Or instr(aEmail,".") = 0 ThenisEmail=0EXIT FUNCTIONEnd IfiLocat=instr(aEmail,"@")If instr(iLocat,aEmail,".")=0 Or instr(iLocat+1,aEmail,"@")>0 ThenisEmail=0EXIT FUNCTIONEnd IfIf left(aEmail,1)="." Or right(aEmail,1)="." Or left(aEmail,1)="@" Or right(aEmail,1)="@" Then isEmail=0EXIT FUNCTIONEnd Ifv="1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.@" iLength=len(aEmail)For i=1 To iLengthcheckletter=mid(aEmail,i,1)If instr(v,checkletter)=0 ThenisEmail=0EXIT FUNCTIONEnd IfNextisEmail=1End Function'测试用:显示服务器信息Sub showServerResponse.write "<Table border=1 bordercolor=lightblue CELLSPACING=0>"for each name in request.servervariablesResponse.write "<tr>"Response.write "<td>"&name&"</td>"Response.write "<td>"&request.servervariables(name)&"<br></td>"Response.write "</tr>"nextResponse.write "</table>"End Sub'测试用:显示Rs结果集以及字段名称Sub showRs(rs)Dim strTable,whateverResponse.write "<center><table><tr>"for each whatever in rs.fieldsresponse.write "<td><b>" & & "</B></TD>"nextstrTable = "</tr><tr><td>"&rs.GetString(,,"</td><td>","</tr><tr><td>"," ") &"</td></tr></table></center>"Response.Write(strTable)End Sub'用HTML格式显示文本function HTMLEncode(fString)if not isnull(fString) thenfString = replace(fString, ">", ">")fString = replace(fString, "<", "<")fString = Replace(fString, CHR(32), " ")fString = Replace(fString, CHR(34), """)fString = Replace(fString, CHR(39), "'")fString = Replace(fString, CHR(13), "")fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")fString = Replace(fString, CHR(10), "<BR> ")HTMLEncode = fStringend ifend function'测试用:显示调试错误信息Sub showErrorDim sErrMsgsErrMsg=Err.Source&" "&Err.DescriptionResponse.write "<center>"&sErrMsg&"</center>"End Sub'显示文字计数器Sub showCounterDim fs,outfile,filename,countfilename=server.mappath("count.txt")Set fs = CreateObject("Scripting.FileSystemObject")If fs.fileExists(filename) ThenSet outfile=fs.openTextFile(filename,1)count=outfile.readlinecount=count+1Response.write "<center>浏览人次："&count&"<center>" outfile.closeSet outfile=fs.CreateTextFile(filename)outfile.writeline(count)ElseSet outfile=fs.openTextFile(filename,8,TRUE)count=0outfile.writeline(count)END IFoutfile.closeset fs=nothingEnd Sub%>Array()FUNCTION: 返回一个数组SYNTAX: Array(list)ARGUMENTS: 字符，数字均可EXAMPLE: <%Dim myArray()For i = 1 to 7Redim Preserve myArray(i)myArray(i) = WeekdayName(i)Next%>RESULT: 建立了一个包含7个元素的数组myArraymyArray("Sunday","Monday", ... ... "Saturday")CInt()FUNCTION: 将一个表达式转化为数字类型SYNTAX: CInt(expression)ARGUMENTS: 任何有效的字符均可EXAMPLE: <%response.write cINT(f) + 2%>RESULT: 236转化字符"234"为数字"234"，如果字符串为空，则返回0值CreateObject()FUNCTION: 建立和返回一个已注册的ACTIVEX组件的实例。

好!asp常用函数大全

Request.QueryString(Varible)[(Index).Count]
Request.form("PassStrName")：读取Post方法传递的纯表单域的值
Request.Form(Parameter)[(Index).Count]
Request.ServerVaribles(Server Environment Variable)：读取客户端系统环境变量，详见参考
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
注：Session与Application变量都可以用来存储数组和系统对象，引用方法是变量名相当于数组名而已，但不能直接改变其值，需要借助临时
数组修改值后，再赋给Session与Application变量
Server:
Server.MapPath("FileUrl")：映射文件名的服务器站点绝对地址，Path=Server.MapPath(./)可以得到虚拟目录根路径
Response.write StrVar/"String"：向网页写出参数值或字符串等同于在Html标记中嵌入
Response.End：停止页面编译，并将已经编译内容输出到浏览器
Response.Buffer=True|False：页面编译时是否使用缓存的设置，一般在页面头部设置
Response.Flush：强制输出页面已编译部分内容

asp时间函数

一、下面先简单介绍一下常用的ASP时间函数：1、now() 获取当前系统日期和时间,<%=now()%>2、Year(now()) 获取年份，<%=Year(now())%>3、Month(now()) 获取当前月份，<%=Month(now())%>4、day(now()) 获取当天数，<%=day(now())%>5、hour(now())获取小时数，<%=hour(now())%>6、Minute(now()) 获取分钟数，<%=Minute(now())%>7、Second(now()) 获取秒钟数，<%=Second(now())%>8、date() 获取当前系统日期，<%=date()%>9、time() 获取当前系统时间，<%=time()%>10、weekdayname(weekday(now))获取当前系统星期，ASP输出：<%=weekdayname(weekday(now))%>二、下面就以现在的时间“2009-05-31 17:49:08 星期日”为例：1、<%=now()%> 输出结果为：2009-05-31 17:49:08 或2009-05-31 下午05:52:532、<%=Year(now())%> 输出结果为：20093、<%=Month(now())%> 输出结果为：54、<%=day(now())%> 输出结果为：315、<%=hour(now())%> 输出结果为：176、<%=Minute(now())%> 输出结果为：497、<%=Second(now())%> 输出结果为：088、<%=date()%> 输出结果为：2009-05-319、<%=time()%> 输出结果为：17:49:08 或下午06:05:1210、<%=weekdayname(weekday(now))%> 输出结果为：星期日三、更多ASP时间函数详解：Date 函数描述:返回当前系统日期。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

ASP常用函数列表
1 数学函数
1.1 取整函数
int(x) 取不大于x的最大整数。

fix(x) 舍去x的小数部分。

1.2 绝对值函数
abs(x) 求x的绝对值。

1.3 符号函数
sgn(x) 求x的符号代码，x为负数时函数值为-1 。

1.4 平方根函数
sqr(x) 求x的算术平方根，x必须大于0 。

1.5 指数函数
exp(x) 求以e为底x为指数的值。

1.6 对数函数
log(x) 求以e为底的对数函数值。

1.7 三角函数
sin(x) 求x的正弦值。

con(x) 求x的余弦值。

tan(x) 求x的正切值。

Atn(x) 求x的反正切值。

1.8 数制转换函数
hex(x) 十进制转换为对应的十六进制数。

oct(x) 十进制转换为对应的八进制数。

2 日期时间函数
2.1 系统日期时间函数
now() 读取系统当前日期时间。

date() 读取系统当前日期。

time() 读取系统当前时间。

2.2 日期时间分解函数
year(日期字符串) 返回日期字符串中的年份。

month(日期字符串) 返回日期字符串中的月份。

day(日期字符串) 返回日期字符串中的日子。

weekday(日期字符串) 返回日期字符串中的星期。

hour(时间字符串) 返回时间字符串中的小时。

minute(时间字符串) 返回时间字符串中的分钟。

secont(时间字符串) 返回时间字符串中的秒数。

2.3 日期时间数值化函数
dateValue(日期字符串) 把日期字符串转换为当日至1889-12-30的天数。

timeValue(时间字符串) 把时间字符串转换为0～1之间变体型时间值。

2.4 日期时间运算函数
dateSerial(年,月,日) 把年月日连接成日期字符串。

timeSerial(时,分,秒) 把时分秒连接成时间字符串。

timer() 计算午夜起至当前系统时间所历经的秒数。

3 字符串处理函数
3.1 删除空格函数
Trim(字符串) 删除字符串两端空格字符。

LTrim(字符串) 删除字符串左端空格字符。

RTrim(字符串) 删除字符串右端空格字符。

3.2 截取字符函数
left(字符串,n) 截取字符串左端n个字符。

right(字符串，n) 截取字符串右端n个字符。

mid(字符串,n,m) 截取字符串中间从m个字符起的n个字符。

mid(字符串,m) 截取字符串第m个字符起至末尾的所有字符。

3.3 字符测长函数
len（字符串）返回字符串中所包含的字符个数。

3.4 字符生成函数
string(n,字符串) 生成n个字符串首字母。

space(n) 生成n个空格。

3.5 大小写转换函数
Ucase(字符串) 把字符串中的字母转换为大写字母。

Lcase(字符串) 把字符串中的字母转换为小写字母。

3.6 字符转换函数
chr（表达式）求以表达式值为ASCII码的对应字符。

asc（字符串）求字符串中首字符的ASCII码。

val（字符串）把字符串中的数字转换为对应的数值。

str（数值表达式）把数值表达式的值转换为对应的字符串。

4 数据类型转换函数
4.1 转整型函数
Cint（数值表达式）把数值表达式的值转换为整型，小数四舍五入。

4.2 转长整型函数
Clng（数值表达式）把数值表达式值转换为长整型，小数四舍五入。

4.3 转货币型函数
Ccur（数值表达式）把数值表达式值转换为货币型，小数四舍五入。

4.4 转双精度型函数
Cdbl（数值表达式）把数值表达式值转换为双精度型。

4.5 转单精度型函数
Csng（数值表达式）把数值表达式值转换为单精度型。

4.6 转日期型函数
Cdate（表达式）把表达式值转换为日期型。

4.7 转变体型函数
Cvar（表达式）把表达式值转换为变体型。

5 输出格式函数
5.1 时间格式函数
Format（日期时间字符串，格式字符）按照格式字符规定的格式输出日期时间字符串。

一般使用"yyyy-mm-dd hh:mm:ss"格式。

5.2 数值格式函数
Format（数值表达式，格式字符）按照格式字符规定的格式输出数值表达式的值。

formatNumber(x,2) 取小数点后两位
6 交互式函数
6.1 输入函数
InputBox(提示信息[,标题][,默认数据]) 产生一个对话框作为用户输入数据的界面，并返回输入的内容。

6.2 输出函数
MsgBox(信息内容[,界面风格参数][,标题]) 产生一个对话框作为反馈一些信息用来提示用户。