ASP常用的函数，希望能用的着。 <%dim dbdb="dbms.mdb"'******************************************************************'执行sql语句，不返回值,sql语句最好是如下：'update 表名 set 字段名=value,字段名=value where 字段名=value'delete from 表名 where 字段名=value'insert into 表名 (字段名,字段名) values (value,value)'******************************************************************Sub NoResult(sql)dim c...
代码如下:<% 用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字 版權:雖說是原創，其實也參考了別人的部分算法 用法:Response.write UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F%E5%BA%A7") function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) if mid(UTFStr,Dig,1)="%" then if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig...
代码如下:<% Public Function UbbCode(strContent) Dim re Set re = New RegExp re.IgnoreCase = True re.Global = True '过滤危险脚本 re.Pattern = "(</script>)" strContent = re.Replace(strContent, "</script>") re.Pattern = "(script:)" strContent = re.Replace(strContent, "s cript:") re.Pattern = "(script)" strConten...
<script language="javascript" runat="server"> //连接数据库 function connOpen(DataBaseConnectStr){ var conn = Server.CreateObject("ADODB.Connection"); conn.Open(DataBaseConnectStr); return conn; } //利用AdoDb.Stream对象来读取指定格式的文本文件 function readFromTextFile(FileUrl,CharSet){ var str; var stm = Server.CreateObject("adodb.stream"); stm.Type = 2; stm.Mode = 3; stm.Charset=C...
Date 函数 描述:返回当前系统日期。 语法:Date DateAdd 函数 描述:返回已添加指定时间间隔的日期。 语法:DateAdd(interval, number, date) interval: 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。 number: 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。 date: 必选。Variant 或要添加 interval 的表示日期的文字。 interva...
原作者：fictiony 出自：蓝色理想 自己写一套类模型的时候顺便整理出来的，贴出来给大家看看，希望能对大家有所帮助。 属性：Object.constructor 该属性被定义在类的prototype中，当对象实例创建后通过__proto__链可被对象实例所调用，并指向当前类的构造函数。以此可判断某个对象直接所属的类是哪个（与instanceof不同，instanceof并不局限于对象直接所属的类，即使是父类也返回true）。 [示例] trace(Object.prototype.construct...
代码如下:allpages=ubound(contentarray) for dxy_ii=0 to allpages pagelist1="当前"&dxy_ii+1&"/"&(allpages+1)&"页 " pagepre="" pagelast="" if dxy_ii>0 then cpage=cint(dxy_ii) if cpage<0 then cpage=0 if cpage=1 then cpage1=id&".htm" else cpage1=id&"_"&cpage&".htm" end if pagepre="<a href="&cpage1&">上一页</a> " end if if dxy_ii<allpages then pagelast="<a href="&id&"_"&dxy_ii+2&".htm>下一页</a>" for dx...
'****************************** '||Function TimeDiff(sBegin, sEnd) '||本函数计算两个时间的差，可以不用更改直接使用 '||作者：machinecat 2001/10/26 '****************************** '****************************** '注：首先需要判断用户输入的sBegin与sEnd之间的大小 '可以通过DataDiff函数获得两者之间的时间差，不需要进行复杂的时间换算 代码如下:Function TimeDiff(sBegin, sEnd) Dim iHourB, iMinuteB, iSecondB,...
趁今天有空，修正了一下这个函数，经测试，在本地服务器通过，在空间商服务器也可正常使用，没发现错误。我的卡巴斯基不报毒了。^_^ 只要修改一下，这个函数是放在哪个网站都适用的。在此只与添加图片为例说明一下调用方法，其它位置方法类似。 在我本机测试成功，由于现在连不上空间的FTP，所以无办在空间上测试，发现问题请到群中提出。 一、把下面函数放到Ft_admin_conn.asp的最后 '================================== '=函 数...
========取得带端口的URL，推荐使用================ Function Get_ScriptNameUrl() If request.servervariables("SERVER_PORT")="80" Then Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) Else Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("s...
偶尔翻到了自己在经典论坛上发的一个帖子，想到很多朋友有可能会写这方面的东东，所以转过来了。 主题: 怎样提取数据库用|隔开的字！ 如题：我写入关键字到数据库，多的时候用|隔开了，我提取再做相关文章搜索的时候，我怎么提取用|隔开的文字啊，这样我就好用关键字做搜索啊 回复： <script language="vbscript"> dim keywords,operator,operend,strsql keywords="服装|荷花|名牌|中国" strsql = "select...
asp的formatNumber再处理类似 25/5的值时,结果是 5.00 处理类似 28/8的值时,结果是3.50 改进一下,去掉没用的0 让结果分别是 5和3.5 代码如下:Function fm(nb) If IsNumeric(nb) Then Dim a a=FormatNumber(nb,2,-1) If Right((a+""),2)=00 Then fm=CLng(a) Else fm=FormatNumber(nb,1,-1) End if Else fm=0 End if End Function
代码如下:function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(39), "") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ") ...
代码如下: rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>还没找到文章</p>" else totalPut=rs.recordcount maxperpage=18 if currentpage<1 then currentpage=1 end if if (currentpage-1)*maxperpage>totalput then if (totalput mod maxperpage)=0 then currentpage=totalput\maxperpage else currentpage=totalput\maxperpag...
代码如下:<% page=trim(request("page")) maxperpage=40 first=true last=true dim rs set rs=server.CreateObject("adodb.recordset") sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc" rs.open sql,conn,1,1 rs.pagesize=maxperpage totalpage=rs.pagecount if len(page)=0 then ...