摘要：
4 then SaveRemoteFile=False Exit Function End If GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile server.MapPath(LocalFileName),2 .Cancel() .Close() End With Set Ads=nothin 阅读全文
posted @ 2013-08-26 16:26
晴耕雨读-li
阅读(874)
评论(0)
推荐(0)
摘要：
一个按照行来截取显示文章摘要的函数代码如下 Function SplitLines(mycont,coun,newsid,classid)'mycont 要截取的内容 newsid 文章的ID'coun 要截取几行内容 classid 文章所属类的IDdim fline,i,lif isnull(mycont) then exit Functioni=1fline = 0For i=1 to Len(mycont)l=Mid(mycont,i,4)if l="" or l="" or l="" or l="& 阅读全文
posted @ 2013-08-26 16:25
晴耕雨读-li
阅读(240)
评论(0)
推荐(0)
摘要：
"End Ifresponse.write ""&i&""If i Mod col=0 Thenresponse.write ""End If i=i+1loop%> 阅读全文
posted @ 2013-08-26 16:23
晴耕雨读-li
阅读(277)
评论(0)
推荐(0)
摘要：
用ASP取出HTML里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。函数如下：以下是引用片段：Function ShowPic(str) Set objRegExp = New Regexp'设置配置对象 objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global = True'设置为全文搜索 objRegExp.Pattern = "" '为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的img标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个 阅读全文
posted @ 2013-08-26 16:22
晴耕雨读-li
阅读(296)
评论(0)
推荐(0)
摘要：
通常会在许多网站上进行搜索一些内容，要输入两个或两个以上的词，它的原理是这样的：假设在搜索框search中输入：“asp php”先得到输入框中的内容：search=request("search")然后将这两个值分别取出来s=split(search," ")'构造sql函数sql="select * from news"for i=0 to ubound(s)m=m&" or title='"&s(i)&"'"next'在这里会发现得到 阅读全文
posted @ 2013-08-26 16:21
晴耕雨读-li
阅读(173)
评论(0)
推荐(0)
摘要：
序列号 标题 阅读全文
posted @ 2013-08-26 16:19
晴耕雨读-li
阅读(461)
评论(0)
推荐(0)
摘要：
目前已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的html代码保存成为一个html文件，这样就没有必要改动原来的页面就可以轻松完成一个生成html的新闻系统了。^_^ 由于代码比较短，这里就不进行注释了"content = re.replace(content,"")re.global = falsere.pattern = "\"doset ms = re.execute(content)if ms.count0 thenset m = ms(0)tmp_str = get_exe_code(m.submat 阅读全文
posted @ 2013-08-26 16:18
晴耕雨读-li
阅读(402)
评论(0)
推荐(0)
摘要：
阅读全文
posted @ 2013-08-26 16:16
晴耕雨读-li
阅读(172)
评论(0)
推荐(0)
摘要：
文本框随文本的宽度而增长 阅读全文
posted @ 2013-08-26 16:15
晴耕雨读-li
阅读(352)
评论(0)
推荐(0)
摘要：
HTTPS 是一个安全通信信道，用于在客户计算机和服务器之间交换信息。它使用安全套接字层 (SSL)。HTTPS (Secure Hypertext Transfer Protocol) 安全超文本传输协议 HTTPS 是由Netscape开发并内置于其浏览器中，用于对数据进行压缩和解压操作，并返回网络上传送回的结果。HTTPS实际上应用了Netscape的 完全套接字层（SSL）作为HTTP应用层的子层。（HTTPS使用端口443，而不是象HTTP那样使用端口80来和TCP/IP进行通信。）SSL使用40 位关键字作为RC4流加密算法，这对于商业信息的加密是合适的。 假设您使用Netscap 阅读全文
posted @ 2013-08-26 16:14
晴耕雨读-li
阅读(3369)
评论(0)
推荐(0)
摘要：
真正IP的取得应该这样： 程序代码ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") if ip = "" then ip=Request.ServerVariables("remote_addr") end if if instr(ip,"'")>0 then ip="0.0.0.0" end if 这样可以突破代理IP查看到真实IP。而不是单纯地用一句程序代码ip=Request.ServerVariables(" 阅读全文
posted @ 2013-08-26 16:13
晴耕雨读-li
阅读(763)
评论(0)
推荐(0)
摘要：
如果在 Access 数据库中删除数据或对象，或者在 Access 项目中删除对象，Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 Access 数据库或Access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 Access 数据库和 Access 项目的性能。 所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用MSaccess来完成压缩操作，然后再上传！ 需要注意的是：本程序其实是通过FSO权限和JET引擎连接，因此在使用之前请确认你的服务器支持FSO... 阅读全文
posted @ 2013-08-26 16:12
晴耕雨读-li
阅读(701)
评论(0)
推荐(0)
摘要：
'参数说明'big 原图路径(相对)'small 生成图路径(相对)'width_s 生成后宽度（数值型）'height_s生成后高度（数值型）'images/Alpha.jpg 为一个像素的白色块'w 为边框宽度（数值型）function get_img(byval big,byval small,byval width_s,byval height_s,byval w)If IsObjInstalled("Persits.Jpeg") Thendim Jpeg,Pathdim x1,y1,x2,y2Set Jpeg 阅读全文
posted @ 2013-08-26 16:11
晴耕雨读-li
阅读(340)
评论(0)
推荐(0)
摘要：
Session StaticObjects 集合StaticObjects 集合包含 Session 对象范围中用 标记创建的所有对象。该集合可用于确定对象特定属性的值，或用于遍历集合并获取所有对象的全部属性。 语法 Session.StaticObjects( Key ) 参数 Key 要检索的属性。 注释 使用循环控制结构可以遍历 StaticObjects 集合中的关键字。请看下面的示例。 ") Next %> Session Contents 集合 Session.contents 集合包括所有未使用 标记而为该会话建立的项目。此集合可用于确定指定会话项的值或遍历集合并 阅读全文
posted @ 2013-08-26 16:10
晴耕雨读-li
阅读(412)
评论(0)
推荐(0)
摘要：
用ASP做搜索很容易，但要实现智能搜索这类就比较累一点，其实任何程序都差不多，主要还是看数据库的处理能力，一般小网站ASP经常跟ACCESS数据库搭配，在这种配置下我们要实现关键词不区分大小写搜索并高亮显示要借助ASP的正则处理了，请看下面代码：0 then for tt = 0 to ubound(split(RetStr," ")) string1 = replace(string1,split(RetStr," ")(tt),""&split(RetStr," ")(tt)&"&qu 阅读全文
posted @ 2013-08-26 16:09
晴耕雨读-li
阅读(237)
评论(0)
推荐(0)
摘要：
ASP中双引号单引号和&连接符使用技巧一、ASP中处在双引号中的可以是任意的字符、字符串，HTML代码 1. 2.I am here")%> 3.>response.write("I am here") 因为color的前引号和write的前引号形成匹配，内容为I am here。最终结果是：中间的 #0000ff 被孤单了 I am here")%> 二、单引号：如学习语文课一样，继续放在双引号中的引号可以采用单引号 response.write("I am here") 三、ASP中&号的主要作用 阅读全文
posted @ 2013-08-26 16:08
晴耕雨读-li
阅读(650)
评论(0)
推荐(0)
摘要：
'把pattern 又修改了下'code要检测的代码'http://www.knowsky.com/asp.asp'leixing html 或者ubb'nopic 代码没有图片时默认值function toppic(code,leixing,nopic)set regex = new regexpregex.ignorecase = trueregex.global = trueif leixing = "html" thenregex.pattern = "]+)"elseregex.pattern = &qu 阅读全文
posted @ 2013-08-26 16:07
晴耕雨读-li
阅读(309)
评论(0)
推荐(0)
摘要：
一个申请单可以包含N个项目，添加申请单时就需要动态加入代码了。 动态Table表格 以下为引用的内容： A列 B列 C列 D列 E列 F列 G列 --%> [ 选择设备 ] JS代码如下（根据条件弹出设备列表，然后选择已有设备） function doSelect(Width,Height,ctrlobj){ var k; var s = new Object(); k=showModalDialog("/Applications_add_addsearch.jsp",s,"dialogWidth:320px;status:no;scroll:no;dial 阅读全文
posted @ 2013-08-26 16:06
晴耕雨读-li
阅读(229)
评论(0)
推荐(0)
摘要：
asp下过滤重复字符串的代码，有时候我们需要过滤一些重复的字符串，下面的代码即可解决这个问题比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 阅读全文
posted @ 2013-08-26 16:04
晴耕雨读-li
阅读(402)
评论(0)
推荐(0)
摘要：
" & vbcrlfEnd Sub'简化Request.Form()'f : 表单名称Function P(f)P = Replace(Request.Form(f), Chr(0), "")End Function'接收表单并替换单引号Function Pr(f)Pr = Replace(Request.Form(f), Chr(0), "")Pr = Replace(Pr, "'", "''")End Function'简化Request 阅读全文
posted @ 2013-08-26 16:01
晴耕雨读-li
阅读(262)
评论(0)
推荐(0)
摘要：
")response.Write(formatInt(24,5))'输出00024%> 阅读全文
posted @ 2013-08-26 16:00
晴耕雨读-li
阅读(491)
评论(0)
推荐(0)
摘要：
很简单的教程，献给喜欢SEO的朋友们。不需要通过iis+ISAPI_Rewrite做基于IIS的url rewrite 一、数据库很简单使用ACCESS，Data.mdb建立一个表Article，三个字段：ID，Title，Content；自动编号、标题、文章内容。二、Config.asp程序代码三、Default.asp程序代码 .html"> 四、Article.asp程序代码 标题: 内容: 阅读全文
posted @ 2013-08-26 15:58
晴耕雨读-li
阅读(751)
评论(0)
推荐(0)
摘要：
以下是我初次使用FCKEditor的方法，都是来自网上，但网上都不完整，现在我整理下：1：下载FCKEditor下载下来后解压到你网站的目录，最好就放在根目录下，文件夹名字就用FCKEditor；这里可以随便自己喜好，但我的例子里就是这样。2：在页面里引用首先引用FCKEditor：在你的页面里加入然后在你页面中想要它显示的地方加入以下代码程序代码这段的作用就是初始加载FCKeditor编辑器。这段网上都有注解，可以去搜索。到此，你就已经添加成功，你的页面中就已经出现编辑器了。如何把FCKeditor的内容保存到数据库，如何把数据库里的数据显示在FCKeditor中，我想这是多数初用者最想知道 阅读全文
posted @ 2013-08-26 15:57
晴耕雨读-li
阅读(229)
评论(0)
推荐(0)
摘要：
利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等)程序代码 Filespec of file to read':::offset => Offset at which to start reading':::bytes => How many bytes to read':::':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::function GetBytes(flnm, offset, bytes)Dim objFSODim objFTempD 阅读全文
posted @ 2013-08-26 15:56
晴耕雨读-li
阅读(281)
评论(0)
推荐(0)
摘要：
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
阅读(268)
评论(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
阅读(442)
评论(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
阅读(2665)
评论(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
阅读(244)
评论(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
阅读(191)
评论(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
阅读(126)
评论(0)
推荐(0)
摘要：
1.Access数据库的DSN-less连接方法: 以下为引用的内容：set adocon=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _Server.MapPath("数据库所在路径") 2.Access OLE DB连接方法： 以下为引用的内容：set adocon=Server.Createobject("adodb.connection")adoc 阅读全文
posted @ 2013-08-26 15:41
晴耕雨读-li
阅读(206)
评论(0)
推荐(0)
摘要：
'清除HTML格式Function RemoveHTML(strText)Dim RegExSet RegEx = New RegExpRegEx.Global = True'清除HTML标签RegEx.Pattern = "]*>"RemoveHTML = regEx.Replace(strText, "") '清除空格等&****;格式的编码regEx.Pattern = "&.\w+;"RemoveHTML = regEx.Replace(RemoveHTML, "&quo 阅读全文
posted @ 2013-08-26 15:40
晴耕雨读-li
阅读(585)
评论(0)
推荐(0)
摘要：
Public Function GetNewFileName()dim ranNumdim dtNowdtNow=Now()randomizeranNum=int(90*rnd)+10GetNewFileName=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(d 阅读全文
posted @ 2013-08-26 15:37
晴耕雨读-li
阅读(357)
评论(0)
推荐(0)
摘要：
'获取当前Url参数的函数 Function GetUrl() Dim ScriptAddress,Servername,qs ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) Servername = CStr(Request.ServerVariables("Server_Name")) qs=Request.QueryString if qs"" then GetUrl ="http://"& Servername &am 阅读全文
posted @ 2013-08-26 15:36
晴耕雨读-li
阅读(425)
评论(0)
推荐(0)
摘要：
一般习惯使用的有两种分页算法，一是传统的ADO分页，二是SELECT TOP分页算法。对于小型数据表，比如一两万的数据量的表，我倾向使用ADO算法，对于大型的数据表，则必须采用后者的算法了。先来说说传统的ADO分页算法。这种算法，使用起来简单容易，很容易上手，对于小心数据库来说是首选，其执行效率很高，数据库自带的游标功能进行翻页的时候也很方便。其通常使用的代码如下： 0 Thenpage=Rs.pagecountEnd IfRs.absolutepage=pagej=rs.recordcountj=j-(page-1)*listnumi=0Do While Not rs.Eof and i&q 阅读全文
posted @ 2013-08-26 15:34
晴耕雨读-li
阅读(248)
评论(0)
推荐(0)
摘要：
做ASP开发常常需要用到一些小功能，这些功能通常我们都会封装成函数来使用，本教程提供了许多我们经常用到的ASP函数。",">"),"255 Thent=t+2Elset=t+1End IfIf t>=strlen Thencutstr=Left(str,i) & "..."Exit ForElsecutstr=strEnd IfNextcutstr=Replace(Replace(Replace(Replace(replace(cutstr," ",""),Chr(34),& 阅读全文
posted @ 2013-08-26 15:33
晴耕雨读-li
阅读(404)
评论(0)
推荐(0)
摘要：
一般在ASP环境下，运行动生静操作时都用到的是FSO，FSO是专门对文件进行操作的一个组件，FSO的编码属性只有三种，系统默认，Unicode，ASCII，并没有utf-8，所以一般中文系统上使用FSO组件生成的文件都是gb2312格式的文件，即便在网页内写上 charset="utf-8"也是没用的。要生成utf-8格式的文件，ASP环境下可以用 ADODB.Stream代替FSO读写utf-8文件，因为，ADODB.Stream，有一个CharSet 属性，可以让您定义要打开或要写入的文件的编码类型，这样一来，ADODB.Stream不仅仅是只能读取或写入utf-8的文 阅读全文
posted @ 2013-08-26 15:31
晴耕雨读-li
阅读(738)
评论(0)
推荐(0)
摘要：
作用：将页面中的电话号码生成图片格式。挺多的分类信息类网站使用这个功能。不用真正的生成图片。原理类似验证码，挺不错的。Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54)\ 256)mod 256) & ChrB((((strLen*8*10*3+54)\ 256)\256)mod 256) & ChrB(((((strLen*8*10*3+54)\ 256)\256)\256)mod 256) &am 阅读全文
posted @ 2013-08-26 15:29
晴耕雨读-li
阅读(221)
评论(0)
推荐(0)
摘要：
CreateElements.html上传多个文件[添加一个]MyUpFiles.asp "" Then GetFileName = mid(strFile,InStrRev(strFile, "\")+1) Else GetFileName = "" End If End FunctionsValues=request.Form("FileValue")UpLoadFolder=""if (left(sValues,1)="&") thensValues=right 阅读全文
posted @ 2013-08-26 15:26
晴耕雨读-li
阅读(369)
评论(0)
推荐(0)
摘要：
UrlRewrite即地址变换。它可以实现静态功能方便搜索引擎收录，比如http://***/news.asp?corangeid=11它可以变为htt://***/news-11.html。这样还实现了开发标记隐藏，避免了每个页面都挂了.asp、.php等后缀，提高了网站的安全性。IIS默认是不支持这个功能的，需要单独安装插件，今天网上看了很多教程，综合起来加上自己研究才终于把它试成功了。测试环境：Windows XP+IIS 5.0。我们第一步做的是下载IIS UrlRewrite插件，到http://www.helicontech.com/download-isapi_rewrite3. 阅读全文
posted @ 2013-08-26 15:25
晴耕雨读-li
阅读(834)
评论(0)
推荐(0)
摘要：
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
阅读(321)
评论(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
阅读(257)
评论(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
阅读(217)
评论(0)
推荐(0)
摘要：
将空格和/替换为-，生成静态页用的Function tihuan(str)tihuan=replace(replace(str,"/","-")," ","-")End Function 阅读全文
posted @ 2013-08-26 15:19
晴耕雨读-li
阅读(166)
评论(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
阅读(2733)
评论(0)
推荐(0)
摘要：
'截取字符串，不足用空格补上 Function Cutstr(str,strlen) Dim l, t, c, i, strTemp str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), " 255 Then t = t + 2 Else t = t + 1 End If If t >= strlen Then strTemp = Left(st 阅读全文
posted @ 2013-08-26 14:46
晴耕雨读-li
阅读(22)
评论(0)
推荐(0)
浙公网安备 33010602011771号