语法说明： Filter 函数 返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集。 Filter(InputStrings, Value[, Include[, Compare]]) 参数 InputStrings 必选项。一维数组，要在其中搜索字符串。 Value 必选项。要搜索的字符串。 Include 可选项。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不...
1、注册时验证数据库用户名是否存在。 2、输入密码时提示密码强度和验证2次密码输入是否一样。 3、注册时验证数据库联系邮箱是否存在。 4、注册时验证用户输入的验证码和系统产生的验证码是否一致。 5、对输入中文验证 6、QQ号码验证 7、身份证号码验证 代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.gxlsystem.com All Rights Reserved"/> <title>http://www.gxlsystem.com—会员注册</...
首先，必须有错误继续进行的声明On Error Resume Next 然后尝试简历jmail实例： Dim JMail Set JMail=Server.CreateObject("JMail.Message") 对实例做出判断，如果组件没有安装成功，则没有创建实例： If JMail Is Nothing Then Response.Write "不支持" Else Response.Write "支持" End If 其他组件同样处理，非常简单了。 最好在global文件中处理，里面使用的时候不用那么麻烦了。 最好的方法把邮件生成放到一个表里，然后再说发...
代码如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & Request.ServerVariables("SERVER_NAME") If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") end if strTemp = strTemp & Request.ServerVariab...
代码如下:public function fillzero(l1) if len(l1)=1 then fillzero="0"&l1 else fillzero=l1 end if end function 用法示例： 代码如下:response year(now)&month(now)&day(now) 结果:201116 response year(now)&fillzero(month(now))&fillzero(day(now)) 显示结果:20110106 如何控制长日期格式和短日期格式的显示： Short Date:FORMATDATETIME(DATE,vbShortDate) Long Date:FORMATDATETIME(DATE,vbLongDate) 当根据英国（美国...
代码如下:Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & "," 余数 num = num \ 10 整除 Next NumberSplit=Left(NumberSplit,Len(NumberSplit)-1) End Function
代码如下:'===================================== '获取内容中所有图片 '===================================== Function Get_ImgSrc(ByVal t0) Dim t1,Regs,Matches,Match t1="" IF Not(IsNull(t0) Or Len(t0)=0) Then Set Regs=New RegExp Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>" Regs.Ignorecase=True Regs.Global=True Set Matches=Regs.Execute(t0) IF Matches.Count>0 Then For Each Match In Matches IF Left(M...
代码如下:'============================== '格式化HTML，SDCMS加强版 '============================== Function Nohtml(ByVal t0) IF Len(t0)=0 Or IsNull(t0) Then Nohtml="" Exit Function End IF Dim Regs,Matches,Match Set Regs=New Regexp Regs.Ignorecase=True Regs.Global=True '过滤掉JS,Iframe Regs.pattern ="<script.+?/script>" t0=Regs.Replace(t0,"") Regs.pattern ="<iframe.+?/iframe>" t0=Regs.Replace(t0,"")...
提问： 代码如下:<script type=text/javascript src=http://fw.qq.com/ipaddress></script> <script type=text/javascript> var hehe1=IPData[2] var hehe2=IPData[3] alert(hehe1); alert(hehe2); document.write(IPData.join( )); </script> 如何用ASP来存储，从上面读取出来的数据呢。 回答： 代码如下:<% function GetResStr(URL,code) err.clear dim Http,ReturnStr Set Http=server.createobject("Microsoft.XMLHTTP") Ht...
代码如下:排序 Function Sort1(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop Sort1 = ary End Function Dim arr arr = Array("...
代码如下:<% Function Bytes2bStr(vin,cSet) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.CharSet = cSet BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function Set xmlhttp = se...
代码如下:个人代码风格注释（变量名中第一个小写字母表表示变量类型） i:为Integer型; s:为String; Function U2UTF8(Byval a_iNum) Dim sResult,sUTF8 Dim iTemp,iHexNum,i iHexNum = Trim(a_iNum) If iHexNum = “” Then Exit Function End If sResult = “” If (iHexNum < 128) Then sResult = sResult & iHexNum ElseIf (iHexNum < 2048) Then sResult = ChrB(&H80 + (iHexNum And &H3F)) iHexNum = iHexNum \ &H40 sResult =...
例如:我们在百度中搜索 脚本之家，则网址后面的参数就是http://www.gxlsystem.com/s?cl=3&wd=%BD%C5%B1%BE%D6%AE%BC%D2如果我们想将%BD%C5%B1%BE%D6%AE%BC%D2还原为中文，使用下面的函数即可。<% response.write urldecode("http://www.gxlsystem.com/s?cl=3&wd=%BD%C5%B1%BE%D6%AE%BC%D2") '================================================ '函数名：URLDecode '作 用：URL解码 '============================================...
代码如下:'************************************************** '函数名：R '作 用：过滤非法的SQL字符 '参 数：strChar-----要过滤的字符 '返回值：过滤后的字符 '************************************************** Public Function R(strChar) If strChar = "" Or IsNull(strChar) Then R = "":Exit Function Dim strBadChar, arrBadChar, tempChar, I 'strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & ...
以下保存成 App.xml , 与asp文件放在相同目录下! 代码如下:<?xml version="1.0" encoding="utf-8"?> <Root> <About> <Version>1.0 Beta</Version> <LatestVersion>1.0 Beta</LatestVersion> <Author>Author</Author> <PubDate>2010/02/20</PubDate> </About> <Config> <Installed>False</Installed> <BakPath>_Data</BakPath> </Config> </Root> 以下为Asp类及使用方法,请保存成test.asp, 测试运行 代码如下:<% Class AppConfig...