本 站 搜 索 |
文 章 阅 读 排 行 |
|
 |
目录下的文件排序(通过rs对象) |
|
988 |
2008-03-07 |
| %'文件排序set fs = CreateObject("Scripting.FileSystemObject")set folder = fs.GetFolder("d:\shop_gb\admin\")
'Get Recordset Object and DisconnectSet rs = Server.CreateObject("ADODB.Recordset")rs.CursorLocation = 1 rs.CursorType = 1rs.Fields.Append "filename",200,255rs.Fields.Append "filedate",200,255rs.Fields.Append ".. |
|
 |
ASP分页函数 |
|
978 |
2008-03-07 |
| %Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第" curpage "页/总" rs.pagecount "页 " retval = retval "本页" i "条/总" rs.recordcount "条 " If curpage = 1 Then retval = retval "首页 前页 " Else retval = retval "a href=’’" LinkFile "page=1’’首页/a a .. |
|
 |
用ASP 按修改时间读取文件夹中文件并排序 |
|
3205 |
2008-03-07 |
| Option Explicit
Private Type typFlieDate Name As String CreatedDate As Date AccessedDate As Date ModifiedDate As Date End Type
Private myFiles() As typFlieDate '包含文件的数组 Private Sub Command1_Click() Dim n As Integer n = GetFolderFiles( "d:\" , 1) End Sub
Private Function GetFolderFiles(Path As String, Orde.. |
|
 |
ASP生成文本文件(.txt)的代码 |
|
2342 |
2008-03-07 |
| %set conn=server.CreateObject( "adodb.connection" )set rs=server.CreateObject( "adodb.recordset" )db= "数据库路径"conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" server.MapPath(db)sql= "select * from 表名 order by id desc"set rs=conn.execute(sql)set fileobj=server.CreateObject( "scripting.filesystemobject" ).. |
|
 |
金额大小写转换的ASP版 |
|
1068 |
2008-03-07 |
| 01 form name= "form1" method= "post" action= "Submit.asp" 02 input type= "text" name= "page1num" 03 input type= "submit" name= "Submit" value= "提交" 04 /form 05 06 ------以下是Submit.asp的代码--------- 07 % 08 dim tmpnum 09 '从第一张页面传过来的小写金额 10 tmpnum=request("page1num") 11 '调用并显示大写金额 12 respo.. |
|
 |
ASP(FSO)文件列表排序 |
|
3803 |
2008-03-07 |
| files_path=self_path.ParentFolder.ParentFolder folderspec=files_path "\" dir_name Set f = fso.GetFolder(folderspec)
Set fc = f.Files For Each f1 in fc response.write f1.name"br" next ---------------------------------------------------------------
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"% % Function getFileInfo(filespe.. |
|
 |
二进制的起源 |
|
1428 |
2008-03-13 |
| 二进制是德国数学家莱布尼茨在18世纪发明的。有趣的是,他的发明是受中国古代文明启迪的成果,他坚持认为最早的二进制表示起源于中国的八卦。中国古代就有天地分阴阳、一年分四季、四季分八卦之说,可以说,二进制的思想起源于中国。
菜布尼茨在《至德雷蒙先生的信:论中国哲学》中说:“中国是一个大国,它在版图上不次于文明的欧洲,并且.. |
|
 |
一个链接同时打开两个页面(帧页) |
|
1960 |
2008-03-16 |
| 代码一:------------------------------------------------------------------------------------------
a href="http://网址一" target="_blank" onclick="window.open('http://网址二','_parent')"链接名称/a
注:target="_blank" 是指新开窗口,_parent 是指在原来的窗口打开新链接
代码二:----------------------------------------------.. |
|
 |
史上最伟大的五位计算机罪犯 |
|
849 |
2008-03-18 |
| 你看见的这些都是在刚步出青春期即被逮捕的黑客。他们中的一部分人做这些是为了赚钱,而另一些则仅仅是因为好玩。
1. Kevin Mitnick
Mitnick 也许是黑客的同义词。美国司法部曾这样评价他:“美国史上被通缉的头号罪犯”。他的丰功伟绩被拍成了两部好莱坞电影:Takedown 和 Freedom Downtime。
Mitnick 以破解 Los Angeles .. |
|
 |
小偷的意思 |
|
909 |
2008-03-19 |
| 我采访过一个小偷。他很年轻,两只大眼睛残存着孩子般的稚气。我问他为什么偷东西,是因为生活困难,手里没钱花,还是被坏人拉下水?他连连摇头。我急了,说:“那总得有个原因吧?”他也急了,好半天才说了句:“偷东西挺有意思的。”我一下子目瞪口呆,怎么也不敢相信,竟有人因为这个原因去当小偷。
他说,他过去很胆小,压根不敢偷东西。但有一.. |
|
 |
28招对付汽油涨价 |
|
1935 |
2008-03-19 |
| 1、增加4轮气压,减少摩擦。
2、清理后备厢,能放回家的就拿走,没用的扔掉,减轻负重。
3、少去城里。
4、尽可能避开高峰堵车时间,宁可多绕路也少堵着。
5、万一遇到堵车严重,可以考虑熄火等候。
6、下班和出门尽可能少带同事顺道(看见装没看见)。
7、绝对禁止满载,少装一个是一个:带媳妇时不带姑娘,带姑娘时.. |
|
|