ASP之函数的定义
asp常用的函数介绍
大家知道 asp 常用的函数吗?下面我们就给大家详细介绍一下吧!我们积 累了一些经验，在此拿出来与大家分享下，请大家互相指正。 /opt1 小数 opt2 负数 //当 opt2 为 1 时检查 num 是否是负数 //当 opt1 为 1 时检查 num 是否是小数 //返回 1 是正确的，0 是错误的 function chknbr(num,opt1,opt2) { var i=num.length; var staus; //staus 用于记录.的个数 status=0;
function chkdate(datestr) { var lthdatestr if (datestr != ““) lthdatestr= datestr.length ; else lthdatestr=0; var tmpy=““; var tmpm=““; var tmpd=““; //var datestr; var status; status=0;
if ( lthdatestr== 0) return 0 for (i=0;i { (datestr.charAt(i)== ‘-’) { status++; } if (status>;2) { //alert(“Invalid format of date!”); return 0; }
if ((status==0) && (datestr.charAt(i)!=‘-’)) { tmpy=tmpy+datestr.charAt(i) } if ((status==1) && (datestr.charAt(i)!=‘-’)) { tmpm=tmpm+datestr.charAt(i) 相信大家已经学会 asp 常用的函数了吧!
ASP脚本变量、函数、过程和条件语句
通过上面的学习，大家应该已经能够理解函数在程序中的作用，当然我们不必去死背函数，但要做到熟练运用只有一条捷径 -- 多实践。接下来让我们来看看 VBScript 的基本语法。
了解编程语言的朋友一定知道在程序中控制程序流程的语句主要可以分为条件语句和循环语句，在 VBScript 中可使用以下条件语句： If...Then...Else 语句
在上一期中作者向诸位简要介绍了 ASP 脚本语言之一 VBScript 的一些基本常识，本期将继续给大家讲解 VBScript 的脚本编写方法，并通过展示 VBScript 在ASP 程序编写过程中的一系列实例使大家对 VBScript 有更进一层的理解。
大家在学习了脚本语言 VBScript 的变量、常量和过程的基本概念后，本期将继续向各位介绍 VBScript 的函数和语法。
Your First Name< INPUT NAME="FirstName" MaxLength=20>< p>
Your Last Name< INPUT NAME="LastName" MaxLength=20>< p>submit>< INPUT TYPE=reset>
Hi.Your name reminds me of someone,but I am not sure who!< p>
< % else %>
Hi!Nice to Meet You
< % end if %>
可以添加任意多个 ElseIf 子句以提供多种选择。但使用多个 ElseIf 子句经常会使程序变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句。
ASP函数大全
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函数大全
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实用自定义函数
If InStr("$!<>?#^%@~`&*();:+='""? ", c) > 0 Then
IsValidUserName = False
Exit Function
IsValidEmail = false
Exit Function
End If
Next
If Left(name, 1) = "." or Right(name, 1) = "." Then
chkpost=false
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,Len(server_v2))<>server_v2 then
IsValidEmail = False
Exit Function
End If
For Each name IN names
If Len(name) <= 0 Then
IsValidEmail = False
Exit Function
End If
For i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
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的自定义实用函数表(1)
ASP的自定义实用函数表(1)2004-9-20 6:55:00 作者：模板天下收集整理来源：未知网友评论 0 条论坛'汉字判断function isChinese(para)on error resume nextif isNUll(para) thenisChinese=falseexit functionend ifif trim(para)="" thenisChinese=falseexit functionend ifdim cfor i=1 to len(para)c=asc(mid(para,i,1))if c>=0 thenisChinese=falseexit functionend ifnextisChinese=trueif err.number<>0 then err.clearend function%>如：if not isChinese(request("name")) thenerrmsg=errmsg+""+"<li>用户名应为汉字"founderr=trueelseusername=trim(request("name"))end if----------------------------------------------'替换指定文件内字符串的函数<%function FSOlineedit(filename,Target,String)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True) FiletempData = objCountFile.ReadAllobjCountFile.CloseFiletempData=Replace(FiletempData,Target,String)Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True) objCountFile.Write FiletempDataobjCountFile.CloseSet objCountFile=NothingSet objFSO = NothingEnd Functionresponse.write FSOlineedit("test.txt","世界","明天是一个好天去")%>----------------------------------------------'获取中文字符串拼音首字母串的函数<%response.write "<link href=style.css rel=stylesheet>"if request.form("content")="" thenresponse.write "<center><form method=post action=asd.asp><input name=content type=text>__<input type=submit></form>"elsefunction getpychar(char)tmp=65536+asc(char)if(tmp>=45217 and tmp<=45252) thengetpychar= "A"elseif(tmp>=45253 and tmp<=45760) thengetpychar= "B"elseif(tmp>=45761 and tmp<=46317) thengetpychar= "C"elseif(tmp>=46318 and tmp<=46825) thengetpychar= "D"elseif(tmp>=46826 and tmp<=47009) thengetpychar= "E"elseif(tmp>=47010 and tmp<=47296) thengetpychar= "F"elseif(tmp>=47297 and tmp<=47613) thengetpychar= "G"elseif(tmp>=47614 and tmp<=48118) thengetpychar= "H"elseif(tmp>=48119 and tmp<=49061) thengetpychar= "J"elseif(tmp>=49062 and tmp<=49323) thengetpychar= "K"elseif(tmp>=49324 and tmp<=49895) thengetpychar= "L"elseif(tmp>=49896 and tmp<=50370) thengetpychar= "M"elseif(tmp>=50371 and tmp<=50613) thengetpychar= "N"elseif(tmp>=50614 and tmp<=50621) thengetpychar= "O"elseif(tmp>=50622 and tmp<=50905) thengetpychar= "P"elseif(tmp>=50906 and tmp<=51386) thengetpychar= "Q"elseif(tmp>=51387 and tmp<=51445) thengetpychar= "R"elseif(tmp>=51446 and tmp<=52217) thengetpychar= "S"elseif(tmp>=52218 and tmp<=52697) thengetpychar= "T"elseif(tmp>=52698 and tmp<=52979) thengetpychar= "W"elseif(tmp>=52980 and tmp<=53640) thengetpychar= "X"elseif(tmp>=53689 and tmp<=54480) thengetpychar= "Y"elseif(tmp>=54481 and tmp<=62289) thengetpychar= "Z"else '如果不是中文，则不处理getpychar=charend ifend functionfunction getpy(str)for i=1 to len(str)getpy=getpy&getpychar(mid(str,i,1))nextend functioncontent=request.form("content")response.write "<center>"&getpy(content)&chr(10)response.write "<br><br><br><a href=# onclick=javascript:history.go(-1)>返回</a>" end if%>--------------------------------------------ip限制函数'******************************'Function CheckIp(cInput_Ip,cBound_Ip)'Created by qqdao, qqdao@ 2001/11/28'说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内'参数： cInput_Ip,代检查的ip' cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位' 每个范围后添加":ALLOW"表示允许登陆，添加":REFUSE"表示拒绝登陆。
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函数大全之函数(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函数
┃Trim(string) ┃ 将字符串前后的空格去掉 ┃Trim(" abcd "),返回 "abcd" ┃
表3-7常用的字符串函数及功能
┏━━━━━━━━━━━━━━┳━━━━━━━━━━━━━━━━━━━┳━━━━━━━━━━━━━━━━━━━━━┓
┃ 函 数 ┃ 功 能 ┃ 示 例 ┃
┣━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━━┫
┃ Int(number) ┃ 返回数的整数部分。对于负数，将返回小于 ┃ Int(10.8)，返回10 ┃
┃ ┃或等于number的第一个负整数 ┃ Int(-10.8)，返回-11 ┃
┃ ┃的子字符串 ┃ ┃
┗━━━━━━━━━━━━━━┻━━━━━━━━━━━━━━━━━━━┻━━━━━━━━━━━━━━━━━━━━━┛
┃Abs(number) ┃ 返回数的绝对值 ┃ Abs(-10)，返回10 ┃
┣━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━━┫
┣━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━━┫
┃Atn(number) ┃ 返回角度的反正切值 ┃Atn(10),返回 1.47112767430373 ┃
┗━━━━━━━━━━━━┻━━━━━━━━━━━━━━━━━━━━━┻━━━━━━━━━━━━━━━━━┛
┃Rtrim(string) ┃将字符串后面的空格去掉 ┃Rtrim("abcd "),返回"abcd" ┃
ASP常用函数库
ASP常用函数库1.函数array()功能:创建一个数组变量格式:array(list)参数:list 为数组变量中的每个数值列,中间用逗号间隔例子:结果: i 被赋予为数组2.函数Cint()功能:将一表达式/其它类型的变量转换成整数类型(int)格式:Cint(expression)参数:expression 是任何有效的表达式/其它类型的变量例子:结果: 236函数Cint()将字符"234"转换成整数234.如果表达式为空, 或者无效时,返回值为0;3.函数: Creatobject()功能:创建及返回一个ActiveX对象.格式:Creatobject(obname)参数:obname 是对象的名称例子:结果:4.函数Cstr()功能:将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression)参数:expression是任何有效的表达式/其它类型的变量例子:结果:函数Cstr()将整数5 转换成字符"5".5.函数Date()功能:返回当前系统(server端)的日期格式:Date()参数:无例子:结果:05/10/006.函数Dateadd()功能:计算某个指定的时间和格式:dateadd(timeinterval,number,date)参数:timeinterval是时间单位(月,日..); number是时间间隔值,date是时间始点.例子:结果:11/4/993:34:45 PM其中"m" = "month";"d" = "day";如果是currentDate 格式,则,"h" = "hour";"s" = "second";7.函数Datediff()功能:计算某量个指定的时间差格式:datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]]) 参数:timeinterval 是时间单位; date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear 是任意选项.例子:结果:There are 150 days to millenium from 8/4/99.8.函数day()功能:返回一个整数值,对应于某月的某日格式:day(date)参数:date是一个有效的日期表达式;例子:结果:49.函数formatcurrency()功能:转换成货币格式格式:formatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])参数:expression 是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项.例子:结果:$34.3510.函数Formatdatetime()功能:格式化日期表达式/变量格式:formatdatetime(date[,nameformat])参数:date为有效的日期表达式/变量;nameformat是指定的日期格式常量名称.例子:结果:Wednesday,August 04,199911.函数formatnumber()功能:格式化数字表达式/变量格式:formatnumbe(expression [,digit[,leadingdigit[,paren[,groupdigit]]]]) 参数:express为有效的数字表达式, digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项例子:结果: 23.22212.函数formatpercent()功能:格式化百分数表达式/变量格式:formatnumber(expression [,digit [,leading [,paren[,groupdigit]]]])参数:expression 是有效的数字表达式,digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项例子:结果: 45.23313.函数: hour()功能:返回一个数值,对应于的指定时间.格式:hour(time)参数:time对应于的指定时间.例子:结果:16 (24 小时制)14.函数instr()功能:返回一个数值,对应于某字符(串)在另一字符串中的位置.格式:instr([start,]strtobesearched,strsearchfor [,compare])参数:start(任选)是从第start位寻找,strtobesearched 是被搜索的字符串,strsearchfor是被寻找的目标.compare是任意选项例子:结果:9,(字符"a"在strtext字符串的第九位)15.函数instrrev()功能:返回一个数值,对应于某字符(串)在另一字符串中的位置(从后面起开始寻找).格式:instrrev([start,] strtobesearched,strsearchfor[,compare])参数:参考instr(),例子:结果:13, 字串"s"是strtext的第13个字符(从后面起开始寻找)16.函数int()功能:数字取整格式:int(number)参数:number 是任何有效的数字表达式/其它类型的变量例子:结果:322 (如果用Cint()则结果是323)17.函数isarray()功能:返回一个布尔值,判断变量是否为数组.格式: isarray(name)参数:name是变量名称例子:结果:false18.函数isdate()功能:返回一个布尔值,判断变量是否为日期变量.格式:isdate(expression)参数:expression 是任意的变量.例子:结果:true19.函数isempty()功能:返回一个布尔值,判断变量是否为空.格式:isempty(expression)参数:expression 是任意的变量.例子:结果:true20.函数isnull()功能:返回一个布尔值,判断变量是否包含非法的数据. 格式:isnull(expression)参数:expression 是任意的变量.例子:结果:false21.函数Isnumeric()功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量.格式:isnumeric(expression)参数:expression 是任意的变量.例子:结果: true.22.函数Isobject()功能:返回一个布尔值,判断变量是否为对象的变量,格式:isobject(expression)参数:expression 是任意的变量.例子:结果: true23.函数: Lbound()功能:返回一个数组的下界.格式:Lbound(arrayname[,dimension])参数:arrayname 是数组变量,dimension 是任意项例子:结果:024.函数Lcase()功能:将一字符类型变量的字符全部变换小写字符. 格式:Lcase(string)参数:string是字串变量例子:结果:this is lcase!25.函数left()功能:截取一个字符串的前部分;格式:left(string,length)参数:string字符串,length截取的长度.例子:结果:this i26.函数len()功能:返回字符串长度或者变量的字节长度格式:len(string |varname)参数:string字符串;varname任意的变量名称结果:1527.函数ltrim()功能:去掉字符串前的空格. 格式:ltrim(string)参数:string 字串.例子:结果:Today29.函数minute()功能:返回一数值, 表示分钟格式:minute(time)参数: time是时间变量例子:结果:2330.函数month()功能:返回一数值, 表示月份格式:month(time)参数:time是日期变量结果:931.函数monthname()功能:返回月份的字符串(名称).格式:Monthname(date [,abb])参数:date是日期变量,abb=true时则月份的缩写,例子:结果:April32.函数Now()功能:返回系统的当前时间和日期.格式:now()参数:无例子:结果: 05/10/00 8:45:32 pm33.函数: replace()功能:在字串中查找,替代指定的字串.格式:replace(strtobesearched,strsearchfor,strreplacewith[,start[,count[,compare]]])参数:strtobesearched是字串; strsearchfor是被查找的子字串;strreplacewith是用来替代的子字串.start,count,compare 是任意选项.例子:结果:this is an orange.34.函数right()功能:截取一个字符串的后部分格式:right(string,length)参数:string字符串,length截取的长度.例子:结果:st!35.函数rnd()功能:返回一个随机数值格式:rnd[(number)]参数:number是任意数值.例子:结果:0/1数值之一,无randomize(), 则不能产生随机数.36.函数round()功能:完整数值格式:round(expression[,numright])参数:expression数字表达式;numright任意选项.例子:结果: 1237.函数rtrim()功能:去掉字符串后的空格.格式:rtrim(string)参数:string 是字串例子:结果:this is a test!38.函数second()功能:返回一个整数值.格式:second(time)参数:time是一个有效的时间表达式;例子:39.函数strReverse()功能:返回与原字串排列逆向的字串. 格式:strreverse(string)参数:string是字串40.重新设定图片大小,返回百分比function resizeImg(ox,oy,nx,ny) resizeimg = 1If ox<=nx And oy<=ny Then Exit function dim x,y'先算xx = ny * ox / oyif x > nx then 'x不行y = nx * oy / oxresizeImg = y / oyresizeImg = x / oxend ifresizeImg = formatNumber(resizeImg,4)end function41.上传时生成自动目录(以2005_6 类似的名称)Function makeMonthDir(vitualRoot,virtual)Dim dirName,dirNameV,fsodirNameV = vitualRoot & "/" & Year(Now()) & "_" & Month(Now()) dirName = server.MapPath(dirNameV)'response.write DirName & "<br>"Set fso = server.CreateObject("Scripting.FileSystemObject")if not fso.FolderExists(dirName) thenfso.CreateFolder(dirName)end ifset fso = NothingIf virtual ThenmakeMonthDir = dirNameV & "/"ElsemakeMonthDir = dirName & "\"End ifEnd Function42. 删除指定的文件,必须传入虚拟路径Sub DoDelFile(sPathFile)On Error Resume NextDim oFSOSet oFSO = Server.CreateObject("Scripting.FileSystemObject") 'response.write "<br>" & Server.MapPath(sPathFile) oFSO.DeleteFile(Server.MapPath(sPathFile))Set oFSO = NothingEnd Sub43. 格式化时间(显示)' 参数：n_Flag' 1:"yyyy-mm-dd hh:mm:ss"' 2:"yyyy-mm-dd"' 3:"hh:mm:ss"' 4:"yyyy年mm月dd日"' 5:"yyyymmdd"' 6:"MM/DD"' ============================================ Function Format_Time(s_Time, n_Flag)Dim y, m, d, h, mi, sFormat_Time = ""If IsDate(s_Time) = False Then Exit Functiony = cstr(year(s_Time))m = cstr(month(s_Time))If len(m) = 1 Then m = "0" & md = cstr(day(s_Time))If len(d) = 1 Then d = "0" & dh = cstr(hour(s_Time))If len(h) = 1 Then h = "0" & hmi = cstr(minute(s_Time))If len(mi) = 1 Then mi = "0" & mis = cstr(second(s_Time))If len(s) = 1 Then s = "0" & sSelect Case n_FlagCase 1' yyyy-mm-dd hh:mm:ssFormat_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case 2' yyyy-mm-ddFormat_Time = y & "-" & m & "-" & dCase 3' hh:mm:ssFormat_Time = h & ":" & mi & ":" & sCase 4' yyyy年mm月dd日Format_Time = y & "年" & m & "月" & d & "日" Case 5' yyyymmddFormat_Time = y & m & dCase 6'mm/ddFormat_Time = m & "/" & dcase 7Format_Time = m & "/" & d & "/" & right(y,2)End SelectEnd Function44.' ============================================ ' 把字符串进行HTML解码,替换server.htmlencode ' 去除Html格式，用于显示输出' ============================================ Function outHTML(str)Dim sTempsTemp = stroutHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd IfsTemp = Replace(sTemp, "&", "&")sTemp = Replace(sTemp, "<", "<")sTemp = Replace(sTemp, ">", ">")sTemp = Replace(sTemp, Chr(34), """)sTemp = Replace(sTemp, Chr(10), "<br>")outHTML = sTempEnd Function45.' ============================================' 去除Html格式，用于从数据库中取出值填入输入框时' 注意：value="?"这边一定要用双引号' ============================================ Function inHTML(str)Dim sTempsTemp = strinHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd IfsTemp = Replace(sTemp, "&", "&")sTemp = Replace(sTemp, "<", "<")sTemp = Replace(sTemp, ">", ">")sTemp = Replace(sTemp, Chr(34), """)inHTML = sTempEnd Function46.' ============================================ ' 检测上页是否从本站提交' 返回:True,False' ============================================Function IsSelfRefer()Dim sHttp_Referer, sServer_NamesHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then IsSelfRefer = TrueElseIsSelfRefer = FalseEnd IfEnd Function47' ============================================' 得到安全字符串,在查询中使用' ============================================Function Get_SafeStr(str)Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")End Function48.' ============================================' 取实际字符长度' ============================================Function Get_TrueLen(str)Dim l, t, c, il = Len(str)t = lFor i = 1 To lc = Asc(Mid(str, i, 1))If c < 0 Then c = c + 65536If c > 255 Then t = t + 1NextGet_TrueLen = tEnd Function49.' ============================================' 判断是否安全字符串,在注册登录等特殊字段中使用' ============================================Function IsSafeStr(str)Dim s_BadStr, n, is_BadStr = "' &<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)n = Len(s_BadStr)IsSafeStr = TrueFor i = 1 To nIf Instr(str, Mid(s_BadStr, i, 1)) > 0 ThenIsSafeStr = FalseExit FunctionEnd IfNextEnd Function50.'================================================' 显示解释函数，返回根据参数允许显示的格式字符串，具体调用方法可从后台管理获得' 输入参数：' s_Content : 要转换的数据字符串' s_Filters : 要过滤掉的格式集，用逗号分隔多个'================================================Function jimmycode(s_Content, sFilters)Dim a_Filter, i, s_Result, s_Filtersjimmycode = s_ContentIf IsNull(s_Content) Then Exit FunctionIf s_Content = "" Then Exit Function's_Content = Replace(s_Content, Chr(10), "<br>")s_Result = s_Contents_Filters = sFilters' 设置默认过滤If sFilters = "" Then s_Filters = "script,object"a_Filter = Split(s_Filters, ",")For i = 0 To UBound(a_Filter)s_Result = jimmycodeFilter(s_Result, a_Filter(i))Nextjimmycode = s_ResultEnd Function51.' =============================================== ' 初始化下拉框' s_FieldName : 返回的下拉框名' a_Name : 定值名数组' a_Value : 定值值数组' v_InitValue : 初始值' s_Sql : 从数据库中取值时,select name,value from table' s_AllName : 空值的名称,如:"全部","所有","默认"' ===============================================Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName,s_onchange)Dim iInitSelect = "<select name='" & s_FieldName & "' size=1 onChange='" & s_onchange & "'>"If s_AllName <> "" ThenInitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>" End IfIf s_Sql <> "" Thenors.Open s_Sql, oConn, 0, 1Do While Not ors.EofInitSelect = InitSelect & "<option value=""" & inHTML(oRs(1)) & """"If ors(1) = v_InitValue ThenInitSelect = InitSelect & " selected"End IfInitSelect = InitSelect & ">" & outHTML(oRs(0)) & "</option>"ors.MoveNextLoopors.CloseElseFor i = 0 To UBound(a_Name)InitSelect = InitSelect & "<option value=""" & inHTML(a_Value(i)) & """" If a_Value(i) = v_InitValue ThenInitSelect = InitSelect & " selected"End IfInitSelect = InitSelect & ">" & outHTML(a_Name(i)) & "</option>" NextEnd IfInitSelect = InitSelect & "</select>"End Function%><Script Language=JavaScript RunAt=Server>52.//===============================================// 单个过滤// 输入参数：// s_Content : 要转换的数据字符串// s_Filter : 要过滤掉的单个格式//=============================================== function jimmycodeFilter(html, filter){switch(filter.toUpperCase()){case "SCRIPT": // 去除所有客户端脚本javascipt,vbscript,jscript,js,vbs,event,...html = eWebEditor_execRE("</?script[^>]*>", "", html);html = eWebEditor_execRE("(javascript|jscript|vbscript|vbs):", "$1：", html);html = eWebEditor_execRE("on(mouse|exit|error|click|key)", "<I>on$1</I>", html);html = eWebEditor_execRE("&#", "<I>&#</I>", html);break;case "TABLE": // 去除表格<table><tr><td><th>html = eWebEditor_execRE("</?table[^>]*>", "", html);html = eWebEditor_execRE("</?tr[^>]*>", "", html);html = eWebEditor_execRE("</?th[^>]*>", "", html);html = eWebEditor_execRE("</?td[^>]*>", "", html);break;case "CLASS": // 去除样式类class=""html = eWebEditor_execRE("(<[^>]+) class=[^ |^>]*([^>]*>)", "$1 $2", html) ;break;case "STYLE": // 去除样式style=""html = eWebEditor_execRE("(<[^>]+) style=\"[^\"]*\"([^>]*>)", "$1 $2", html);break;case "XML": // 去除XML<?xml>html = eWebEditor_execRE("<\\?xml[^>]*>", "", html);break;case "NAMESPACE": // 去除命名空间<o:p></o:p>html = eWebEditor_execRE("<\/?[a-z]+:[^>]*>", "", html);break;case "FONT": // 去除字体<font></font>html = eWebEditor_execRE("</?font[^>]*>", "", html);break;case "P": // 去除字体<P></P>html = eWebEditor_execRE("</?p[^>]*>", "", html);break;case "IMG": // 去除图片<IMG></IMG>html = eWebEditor_execRE("</?img[^>]*>", "", html);break;case "MARQUEE": // 去除字幕<marquee></marquee> html = eWebEditor_execRE("</?marquee[^>]*>", "", html);break;case "OBJECT": // 去除对象<object><param><embed></object> html = eWebEditor_execRE("</?object[^>]*>", "", html);html = eWebEditor_execRE("</?param[^>]*>", "", html);html = eWebEditor_execRE("</?embed[^>]*>", "", html);break;case "HTML":html = eWebEditor_execRE("</?[^>]*>", "", html);break;default:}return html;}53.// ============================================ // 执行正则表达式替换// ============================================ function eWebEditor_execRE(re, rp, content) {oreg = new RegExp(re, "ig");r = content.replace(oReg, rp);return r;}54．'用途:获取远程的网页内容'示例:response.write getHTTPPage("") 'response.write getHTTPPage("") function getHTTPPage(url)on error resume nextdim httpset http=Server.createobject("Microsoft.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystate<>4 thenexit functionend ifgetHTTPPage=bytes2BSTR(Http.responseBody)set http=nothingif err.number<>0 then err.Clearend functionFunction bytes2BSTR(vIn)dim strReturndim i,ThisCharCode,NextCharCodestrReturn = ""For i = 1 To LenB(vIn)ThisCharCode = AscB(MidB(vIn,i,1))If ThisCharCode < &H80 ThenstrReturn = strReturn & Chr(ThisCharCode)ElseNextCharCode = AscB(MidB(vIn,i+1,1))strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))i = i + 1End IfNextbytes2BSTR = strReturnEnd Function.55'用途:检查str是否为空Function checkNull(str)checkNull = Falseif trim(str)="" or isnull(str) thencheckNull = Trueend ifend Function56************************************************** '函数名：strLength'作用：求字符串长度。
ASP中的常用函数(函数大全)很全面的函数列表和说明
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的常用内置函数 日期时间函数
其中参数interval表示需要添加的时间间隔单位。其是以字符串的形式表达的，比如“yyyy”表示年，“q”表示季度，“m”表示月份，“d”表示天数，“ww”表示周数，“h”表示小时数，“n”表示分钟数，“s”表示秒数。
而参数number则表示添加的时间间隔数。其是以数值的形式表达的，可以为负值。参数date则要求是日期、时间的正确格式。
select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
当然weekdayname函数最终显示的字符串内容还与当前操作系统语系有关，比如中文操作系统将显示“星期一”这类的中文字符，而英文操作系统则显示为“Mon”(Monday简写)。
此外，在VBScript中还有一些关于时间间隔的计算函数:
(1)DateAdd函数:返回指定时间间隔的日期、时间。可以计算出相隔多少年、或相隔几个月、又或相隔几个小时等的新日期、时间。使用方法:dateadd(interval, number, date)。
(10)Weekday函数:返回一个星期中某天的整数。使用方法:weekday(date)。关于参数date的说明和year函数相同。该函数返回值为“1”到“7”，分别代表“星期日”、“星期一”……“星期六”。比如当返回值是“4”时就表示“星期三”。
asp介绍
asp介绍概述ASP是Active Server Page的缩写，意为“活动服务器网页”。
ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。
ASP的网页文件的格式是.asp，现在常用于各种动态网站中。
ASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或Web应用程序。
ASP 网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。
利用ASP可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的web应用程序。
与HTML相比，ASP网页具有以下特点：（1）利用ASP可以实现突破静态网页的一些功能限制，实现动态网页技术；（2）ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试；（3）服务器上的ASP解释程序会在服务器端制定ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页；（4）ASP提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强。
例如可以从web浏览器中获取用户通过HTML表单提交的信息，并在脚本中对这些信息进行处理，然后向web浏览器发送信息；（5）ASP可以使用服务器端ActiveX组件来执行各种各样的任务，例如存取数据库、发现和那个Email或访问文件系统等。
（6）由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器，因此使用者不会看到ASP所编写的原始程序代码，可防止ASP程序代码被窃取。
ASP的工作原理当在Web站点中融入ASP功能后，将发生以下事情：1、用户向浏览器地址栏输入网址，默认页面的扩展名是.asp。
2、浏览器向服务器发出请求。
3、服务器引擎开始运行ASP程序。
4、ASP文件按照从上到下的顺序开始处理，执行脚本命令，执行HTML页面内容。
5、页面信息发送到浏览器。
ASP的运行环境asp需要运行在PWS或IIS下。
asp
aspASP是Active Server Page的缩写，意为“活动服务器网页”。
ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。
ASP的网页文件的格式是.asp，现在常用于各种动态网站中。
目录[隐藏]∙ 1 基本概述∙ 2 工作原理∙ 3 运行环境∙ 4 意涵概述∙ 5 定义阐述∙ 6 应用范围∙7 发展阶段∙8 内置函数∙9 成员对象∙10 集合列表∙11 动态语言∙12 相关词条∙13 参考资料asp-基本概述aspASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或Web应用程序。
ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。
利用ASP可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的web应用程序。
与HTML相比，ASP网页具有以下特点：（1）利用ASP可以实现突破静态网页的一些功能限制，实现动态网页技术；（2）ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试；（3）服务器上的ASP解释程序会在服务器端制定ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页；（4）ASP提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强。
例如可以从web浏览器中获取用户通过HTML表单提交的信息，并在脚本中对这些信息进行处理，然后向web浏览器发送信息；（5）ASP可以使用服务器端ActiveX组件来执行各种各样的任务，例如存取数据库、发现哦那个Email或访问文件系统等。
（6）由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器，因此使用者不会看到ASP所编写的原始程序代码，可防止ASP程序代码被窃取。
asp-工作原理asp当在Web站点中融入ASP功能后，将发生以下事情：1、用户向浏览器地址栏输入网址，默认页面的扩展名是.asp。