摘要：
objRegExp.Pattern = ""'进行匹配Set Matches = objRegExp.Execute(strHTML)' 遍历匹配集合，并替换掉匹配的项目For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"")NextRemoveHTML=strHTMLSet objRegExp = NothingEnd Function%> 阅读全文
posted @ 2013-08-26 15:24
晴耕雨读-li
阅读(319)
评论(0)
推荐(0)
摘要：
"" thenref = arrReferer(2) end ifif request.querystring("img") "" thenif ref = "localhost" or ref = strDomain or ref = "www." & strDomain thenimgname = strDirectory & strImageelseimgName = strDirectory & strAntiLeechend ifelseimgName = st 阅读全文
posted @ 2013-08-26 15:23
晴耕雨读-li
阅读(193)
评论(0)
推荐(0)
摘要：
Function HTMLEncode(Str)If Isnull(Str) ThenHTMLEncode = ""Exit Function End IfStr = Replace(Str,Chr(0),"", 1, -1, 1)Str = Replace(Str, """", """, 1, -1, 1)Str = Replace(Str,"",">", 1, -1, 1) Str = Replace(Str, "script 阅读全文
posted @ 2013-08-26 15:22
晴耕雨读-li
阅读(253)
评论(0)
推荐(0)
摘要：
'按标识手动分页function manualPage(str)pages=request.QueryString("page")contentstr=split(str,"{$page$}")Response.Write(ContentStr(pages))Response.Write("")Response.Write("")For i = 0 to ubound(ContentStr) Response.Write(""&i+1&"")NextR 阅读全文
posted @ 2013-08-26 15:21
晴耕雨读-li
阅读(216)
评论(0)
推荐(0)
摘要：
将空格和/替换为-，生成静态页用的Function tihuan(str)tihuan=replace(replace(str,"/","-")," ","-")End Function 阅读全文
posted @ 2013-08-26 15:19
晴耕雨读-li
阅读(165)
评论(0)
推荐(0)
摘要：
1、截断标题的函数TLen ThenCutTitle=Left(Title,TLen)&".."ElseCutTitle=TitleEnd IfEnd Function%>使用方法2、添加，修改，删除函数返回"response.endend ifConn.execute("insert into AD_Click(AD_Name,AD_Key)values('"&AD_Name&"','"&AD_Key&"')")respons 阅读全文
posted @ 2013-08-26 15:17
晴耕雨读-li
阅读(2731)
评论(0)
推荐(0)
浙公网安备 33010602011771号