修改正确的asp冒泡排序
网上搜到的代码，千篇一律是这个 FunctionSort(ary) DimKeepChecking,I,FirstValue,SecondValue KeepChecking=TRUE DoUntilKeepChecking=FALSE KeepChecking=FALSE ForI=0toUBound(ary) IfI=UBound(ary)ThenExitFor Ifary(I)ary(I+1)Then First...
从数据库中读取记录横向排列
tablewidth="100%"border="0"cellpadding="0"cellspacing="0" %dowhilenotrs.eof% tr tdheight="80"imgsrc="%=rs("图片")%"width="160"height="80"/td /tr %i=i+1 ifi=MaxPerPagethenexitdo rs.movenext loop % /table 记录排列如下： 1 2 3 4 5 如果...
asp 动态生成rss(不成生xml文件)代码
rss的优点 1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻。 2.您可以把需要的信息从不需要的信息（兜售信息，垃圾邮件等）中分离出来。 3.您可以创建自己的新闻频道，...
asp 隐藏并修改文件的最后修改时间
源码： 复制代码 代码如下: % '隐藏并修改文件的最后修改时间的aspshell '原理:通过FSO可以修改文件的属性，比如设置为只读，隐藏，系统等等；FSO中的attributes属性修改文件属性，1只读...
asp身份证验证代码函数
身份证验证代码函数 FunctionCheckCardId(e) arrVerifyCode=Split("1,0,x,9,8,7,6,5,4,3,2",",") Wi=Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",") Checker=Split("1,9,8,7,6,5,4,3,2,1,1",",") IfLen(e)15OrLen(e)=16OrLen(e)=17OrLen(e)18Then...
asp之字符串函数示例
asp之字符串函数示例 用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim...
asp下用ADODB.Stream代替FSO读取文本文件
'文件内容读取. 复制代码 代码如下: FunctionLoadFile(ByValFile) DimobjStream OnErrorResumeNext SetobjStream=Server.CreateObject("ADODB.Stream") IfErr.Number=-2147221005Then Response.Write"divalign='center'非常遗憾,您的主机不...
新增加一个防垃圾评论的asp代码，鄙视垃圾
最近开通了，可以发表评论就一直被垃圾评论和留言困扰，一直没有找到很好的解决办法。事实上wordpress有一些强悍的插件可以防治spam，比如Akismet，不过这只能让我留着口水羡慕，因此...