风过无声

　方法一：使用多个button按钮，为每个按钮的onclick事件设计一个子过程，通过读取按钮的值来判断向谁提交数据，源代码如下：script language="javascript">     function tosubmit1()     ...{     document.submitform1.action="1.asp";     document.submitform1.s

<%function getLastLocation (str,search)getLastLocation=0l = len(str)for i = 0 to l c = mid(str,l-i,1) if c=search then getLastLocation = l-1-i exit for end ifn

<% Function ArrayRegExp(patrn, strng, strStart, strEnd)strng = Replace(strng, vbcrlf, "")Dim regEx, regEx1, regEx2Dim Ms, M, v, iSet regEx = New RegExpregEx.Pattern = patrnregEx.IgnoreCase =

摘自：http://www.xker.com/page/e2010/0910/98122.html上个月第一天： 上个月最后一天： 本月第一天： 本月最后一天： 下个月第一天： 下个月最后一天：

Function RegExpTest(strng) '以数组返回 i = 0 Set regEx = New RegExp regEx.Pattern = "(/d+)" '"[0-9]" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(s

'去除iframe标签Function RemoveIframe(sInputStr)RemoveIframe = RemoveByRegExp("", sInputStr)End Function'去除js标签Function RemoveJSCode(sInputStr)RemoveJSCode = RemoveByRegExp("", sInputStr)End Functi

摘自：http://www.webjx.com/htmldata/2007-05-30/1180531548.html1、'UTF转GB---将UTF8编码文字转换为GB编码文字function UTF2GB(UTFStr)for Dig=1 to len(UTFStr)   '如果UTF8编码文字以%开头则进行转换  if mid(UTFStr,Dig,1)=

% url="http://www.sina.com.cn" Function   chku(murl) on   error   resume   next Set   xmlHttp   =   Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open   "GET",murl,false xmlHttp.send         if  

ASP操作XML数据 加入日期： 2006-3-29     关键字： asp,xml 文章来源： 沐风经典     文章作者： 佚名     责任编辑： 第七乐章  

摘自：http://www.mbzhan.com/asp/2619.html代码如下： 代码如下:'用ASP获取远程目标网页指定内容，代码由广州网站建设http://www.mbzhan.com提供 On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path)