读取目录下的文件得到一个数组
filename=dir(盘符:\*.*) i = 0 do while filename = array1 (i)=filename i = i + 1 filename = dir(c:\*.*) loop VB好象也有比较好的方法，但是我不太清楚了 VBScript Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.G...
方便的大家admin及admin888 经过 md5加密后16位和32位
面是admin的加密代码： 16位加密：7a57a5a743894a0e 32位加密：21232f297a57a5a743894a0e4a801fc3 admin888的MD5加密码 16位：469e80d32c0559f8 32位：7fef6171469e80d32c0559f88b377245 经常调试源码用的，留个记号，省...
随机提取N条记录 推荐
随机提取10条记录的例子： Sqlserver： selecttop10*from表orderbynewid() Access： Selecttop10*FROM表orDERBYRnd(id) Rnd(id)其中的id是自动编号字段，可以利用其他任何数值来完成 比如用姓名字段(UserName)...
ASP文章系统解决方案实现上一页下一页第1/2页
首先感谢V37斑竹对我的帮助，这个方案解决了显示“上一篇下一篇”和相关文章的问题，贴出来让大家分享。 以前看到一个帖子讲用ID+1和ID-1的办法判断“上一篇下一篇”，在用的过程...
asp页面下的乱码问题终于解决了
乱码问题终于解决了，这个问题不是l-blog的问题，也不是浏览器的问题，更加不是服务器的问题！而是其他程序代码不规范的问题！ 在程序的最开始增加 %@language="vbscript"codepage="936"% %...
asp实现防止站外提交内容的两个方法
方式一： 复制代码 代码如下: % FunctionIsSelfRefer() DimformUrl,relUrl formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER"))) IfformUrl=""Then IsSelfRefer=False Else relUrl="http://"nbsp;Trim(Request.ServerVariables("SERVER_...
vithink小文件自动实现文件浏览下载
html head meta http-equiv=Content-Type content=text/html; charset=gb2312 /head body script src=http://www.mithink.com/js/top.js/script table id=table16 cellSpacing=0 cellPadding=0 width=765 border=0 tr td vAlign=bottom align=middle colSpan=2...
用asp实现批量删除bak文件
复制代码 代码如下: %@language=vbscriptcodepage=936% % '批量文件自动搜索替换插入器Ver2.0 '飞云编写,CSDN帐号:jspadmin,QQ:33323489 '个人网站http://www.pifoo.com蚍蜉中文站，欢迎交换链接。本站提供免...