 本 站 搜 索 |
 文 章 阅 读 排 行 |
|
 |
小偷的意思 |
|
891 |
2008-03-19 |
| 我采访过一个小偷。他很年轻,两只大眼睛残存着孩子般的稚气。我问他为什么偷东西，是因为生活困难，手里没钱花，还是被坏人拉下水？他连连摇头。我急了，说：“那总得有个原因吧？”他也急了，好半天才说了句：“偷东西挺有意思的。”我一下子目瞪口呆，怎么也不敢相信，竟有人因为这个原因去当小偷。
.. |
|
|
史上最伟大的五位计算机罪犯 |
|
821 |
2008-03-18 |
| 你看见的这些都是在刚步出青春期即被逮捕的黑客。他们中的一部分人做这些是为了赚钱，而另一些则仅仅是因为好玩。
1. Kevin Mitnick
Mitnick 也许是黑客的同义词。美国司法部曾这样评价他：“美国史上被通缉的头号罪犯”。他的丰功伟绩被拍成了两部好莱坞电影：Takedown 和 Freedom Down.. |
|
|
一个链接同时打开两个页面(帧页) |
|
1934 |
2008-03-16 |
| 代码一：------------------------------------------------------------------------------------------
a href="http://网址一" target="_blank" onclick="window.open('http://网址二','_parent')"链接名称/a
注：target="_blank" 是指新开窗口，_parent 是指在原来的窗口打开新链接
代码二：------.. |
|
|
二进制的起源 |
|
1411 |
2008-03-13 |
| 二进制是德国数学家莱布尼茨在18世纪发明的。有趣的是，他的发明是受中国古代文明启迪的成果，他坚持认为最早的二进制表示起源于中国的八卦。中国古代就有天地分阴阳、一年分四季、四季分八卦之说，可以说，二进制的思想起源于中国。
菜布尼茨在《至德雷蒙先生的信：论中国哲学》中说：“中国是.. |
|
|
ASP(FSO)文件列表排序 |
|
3777 |
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" CODEPA.. |
|
|
金额大小写转换的ASP版 |
|
1041 |
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("pa.. |
|
|
ASP生成文本文件(.txt)的代码 |
|
2310 |
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.Crea.. |
|
|
用ASP 按修改时间读取文件夹中文件并排序 |
|
3173 |
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 Func.. |
|
|
ASP分页函数 |
|
958 |
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 hr.. |
|
|
目录下的文件排序(通过rs对象) |
|
966 |
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.App.. |
|
|
ASP英文字母加数字随机验证码 |
|
1312 |
2008-03-07 |
| 我们平常见的多数是单纯的数字验证码或英文字母验证码，而这个验证码不错，英文字母和数字结合，安全性更好，值得收藏！
% Sub ImageValidCode(sName) Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Response.ContentType = "Image/BMP.. |
|
|
文 章 列 表