摘要：
log_Content"自己常用的ASP分页代码，将以下代码放入你的函数文件内，在使用的文件内写上,可以直接拿来用的！在需要调用的位置放上以下语句程序代码程序代码function pageList(allNum,pagesize,page,pageUrl,showall)dim temppage,tempvalueif Isnumeric(allNum) thenif int(allNum) 0 then temppage = temppage + 1 end ifif page>temppage then page=temppage end ifif pageUrl=&quo 阅读全文
posted @ 2013-08-26 15:55
晴耕雨读-li
阅读(266)
评论(0)
推荐(0)
摘要：
这段代码是在客服端运行的'获取客户简称的拼音缩写 function getpy() dim str dim i str=document.all.txtContactName.value dim ret for i=1 to len(str) ret=ret&getpychar(mid(str,i,1)) next document.all.txtSpellCode.value=ret end function getpychar=char end if end function spellCode.vbs '获取汉字拼音第一字母 function getpychar( 阅读全文
posted @ 2013-08-26 15:54
晴耕雨读-li
阅读(441)
评论(0)
推荐(0)
摘要：
因为制作的需要写了这样一个简单的函数,重定向可以是指定的页.也可以是前一页!有两个参数:messtr,警告框的信息;urlstr:转向的网页,为""时,返回到前一页!程序代码 阅读全文
posted @ 2013-08-26 15:53
晴耕雨读-li
阅读(257)
评论(0)
推荐(0)
摘要：
将动态页面转换生成静态Html文件有许多好处，比如生成html网页有利于被搜索引擎收录（特别是对接受动态参数的页面）。前台访问时，脱离了数据访问,减轻对数据库访问的压力，加快网页打开速度。 当然，凡事有利必有弊，生成HTML页面无形中也耗费大量的磁盘空间以存放这些静态文件，在编辑页面过程中除读写数据库外，也要读写服务器磁盘，页面样式的改动必须重新生成全部HTML文件，等等。 像很多搜索引擎，都可以提交网站的页面地址列表，动态文件的收录问题已经不算是个问题了（如google sitemap）。得失就要自己衡量把握了，但无论如何，我们还是要懂得如何操作的。这里就引用一下别人的文章说明几种常... 阅读全文
posted @ 2013-08-26 15:52
晴耕雨读-li
阅读(2662)
评论(0)
推荐(0)
摘要：
RecordSet中的open完全的语法是SecordSet.Open Source,ActiveConnection,CursorType,LockType,Options例如： rs.open sql,conn,1,3 CursorType是adOpenForwardOnly 0 默认游标类型, 为打开向前游标, 只能在记录集中向前移动.adOpenKeyset 1 打开键集类型的游标, 可以在记录集中向前或向后移动. 如果其他用户修改或删除了一条记录, 记录集中将反映这个变化. 但是, 如果其他用户添加了一条新记录, 新记录不会出现在记录集中.AdOpenDynamic 2 打开动态游标 阅读全文
posted @ 2013-08-26 15:51
晴耕雨读-li
阅读(1201)
评论(0)
推荐(0)
摘要：
网上查到方法textarta=request("textarea") '获取数据linestr=split(textarea,vbcrlf) '按回车将数据拆分成以行为单位的数组结果拆分不开，换用split(textarea,chr(13)&chr(10))仍然不行，很费解，于是写了个方法，先替换掉回车换行然后再拆分Function FilterHtmlBR(str)str = Replace(str, Chr(13), "")str = Replace(str, Chr(10), "")FilterHtmlB 阅读全文
posted @ 2013-08-26 15:49
晴耕雨读-li
阅读(429)
评论(0)
推荐(0)
摘要：
1.单参数功能:把:www.44721.cn/movie.asp?id=123伪静态为:www.44721.cn/movie.asp?123.html代码如下: ASP/Visual Basic代码 2.多参数功能:把:www.44721.cn/movie.asp?id=123&page=1&order=2伪静态为:www.44721.cn/movie.asp?123-1-2.html代码: ASP/Visual Basic代码 使用方法: 把代码加到需要传递参数的asp页的 类似于"id=request.QueryString("id") &qu 阅读全文
posted @ 2013-08-26 15:48
晴耕雨读-li
阅读(984)
评论(0)
推荐(0)
摘要：
木鸟写的 '********************************************** ' vbs Cache类 ' ' 属性valid，是否可用，取值前判断 ' 属性name，cache名，新建对象后赋值 ' 方法add(值,到期时间)，设置cache内容 ' 属性value，返回cache内容 ' 属性blempty，是否未设置值 ' 方法makeEmpty，释放内存，测试用 ' 方法equal(变量1)，判断cache值是否和变量1相同 ' 方法expires(time)，修改过期时 阅读全文
posted @ 2013-08-26 15:47
晴耕雨读-li
阅读(243)
评论(0)
推荐(0)
摘要：
Function checkURL(ByVal ChkStr) Dim str:str=ChkStr str=Trim(str) If IsNull(str) Then checkURL = "" Exit Function End If Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="(d)(ocument\.cookie)" Str = re.replace(Str,"$1ocument cookie") re.Pattern=&quo 阅读全文
posted @ 2013-08-26 15:45
晴耕雨读-li
阅读(189)
评论(0)
推荐(0)
摘要：
Function UBBFilter(ByVal reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = Replace(Str, "", "") UBBFilter = Str End If End Function 阅读全文
posted @ 2013-08-26 15:43
晴耕雨读-li
阅读(124)
评论(0)
推荐(0)
浙公网安备 33010602011771号