'去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="\<[^>]+()\>" re.global=true a=str OutTable=re.replace(a,"") End Function
<% '****************************** '函数：CheckChinese(strng) '参数：strng,待验证字符 '描述：检测是否为中文字符，返回值：中文为true，否则false '示例：<%=CheckChinese(strng)%> '****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "\||\#|\&|\?|\@|\%|\*|\/|\.|\,|\;|\'|\:|\-|\_|\+|\^|\""|\=|\<|\>|\ " regEx.IgnoreCase = ...
abs(number) 返回绝对值。 array(arglist) 创建一个数组。 asc(string) 返回字符串第一个字符的ansi码。 atn(number) 返回反正弦值。 cbool (expression) 转换成boolean数据类型变量。 cbyte (expression) 转换成byte数据类型变量。 ccur (expression) 转换成currency数据类型变量。 cdate (expression) 转换成date数据类型变量。 cdbl (expression) 转换成double数据类型变量。 chr(charcode) 把ansi 码转换成相应的键盘字符。 ci...
1.函数array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: <% i = array ("1","2","3") %> 结果: i 被赋予为数组 2.函数Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子: <% f = "234" response.write cINT(f) + 2 %> 结果: 236...
Function ProxyPage(url) Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0") With Retrieval .SetProxy 2 , "255.0.0.0:80" '代理ip:代理端口 .Open "Get", url, False, "", "" .setRequestHeader "Referer","http://www.gxlsystem.com/" '伪造referer .Send ProxyPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function 附BytesToBstr过程，你采集的时候可以定义网页是utf-8还是gb2312，utf=...
<% '============================================================================================================================ '函数列表： '1： 建立数据库的连接 ConnOpen(DataBaseConnectStr,DBType,Conn_object) '2： 断开数据库的连接 ConnClose(Conn_object) '3： 防止SQL注入 SafeRequest(paraName,paraType) '4： 格式化日期 DateFormat(dateStr,dateType) '5： 显示错误提示 ShowErr(err...
函数名:getHTMLContent参数:NO-->要取得的字符数, txtContent-->要处理的字符串 功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组. 作者:柳永法 时间:2007-6-1 20:03 :)Function getHTMLContent(NO, txtContent) If Len(txtContent)<= NO Then getHTMLContent = txtContent ...
经过大鸟哥的指导已做全面的修改，本人能力有限只能做到下面这步了： ASP/Visual Basic代码 代码如下:<% Const p=6 '每页2条 set rs = server.createobject("adodb.recordset") sql = "Select * from show order by id Desc" rs.Open sql,conn,1 i=0 do while not rs.eof %> <td align="center" height="98"> <a href="show.asp?id=<%=rs("id")%>"> ...
<%@ Language=vbscript %> <% '遍历目录以及目录下文件的函数 %> <% Function Bianli(path) Set Fso=server.createobject("scripting.filesystemobject") On Error Resume Next Set Objfolder=fso.getfolder(path) Set Objsubfolders=objfolder.subfolders For Each Objsubfolder In Objsubfolders Nowpath=path + "\" + Objsubfolder.name Response.write Nowpath Set O...
'////////////////////////////////////////////////FSO操作///////////////////////////////////// 判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Folder) Then FolderExits=true Else FolderExits=false End IF End Function 判断文件是否存在 Function FileExits(FileName) FileName=Server.Mappath...
Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send if xmlHttp.Status <> 200 then urlChk=false else urlChk=true end if End Function sUrl="//www.gxlsystem.com" if urlChk(sUrl) then response.write(sUrl&"(可以正常访问)") else response.write(sUrl&"(访问不了)") end if
sub SaveConfig() dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true) hf.write "<" & "%" & vbcrlf hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & " '网站名称" & vbcrlf hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & " '网站标题" & vbcrl...
代码如下:<% '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ '天枫ASP class v1.0，集常用asp函数于一体 '天枫版权所有'QQ:76994859 EMAIL:Chenshaobo@gmail.com '所有功能函数名如下： ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isInteger(para) 整数检验 ' CheckName(str) 名字字符校验 ' CheckPassword(str) 密码检验 ' Check...
根据生日时间返回所属生肖 代码如下:<% Function Zodiac(birthday) If IsDate(birthday) Then birthyear = Year(birthday) ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊") Zodiac = ZodiacList(birthyear Mod 12) End If End Function %>
asp利用fso实现文件的移动function movefiles(sFolder,dFolder) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)) then fso.copyfolder server.mappath(sFolder),server.mappath(dFolder) movefiles = true else movefiles = false ...