 本 站 搜 索 |
 分 类 列 表 |
 文 章 阅 读 排 行 |
|
 |
ASP英文字母加数字随机验证码 |
|
1310 |
2008-03-07 |
| 我们平常见的多数是单纯的数字验证码或英文字母验证码，而这个验证码不错，英文字母和数字结合，安全性更好，值得收藏！
% Sub ImageValidCode(sName) Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Response.ContentType = "Image/BMP.. |
|
|
目录下的文件排序(通过rs对象) |
|
964 |
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分页函数 |
|
956 |
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.. |
|
|
用ASP 按修改时间读取文件夹中文件并排序 |
|
3171 |
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生成文本文件(.txt)的代码 |
|
2308 |
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版 |
|
1039 |
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(FSO)文件列表排序 |
|
3775 |
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.. |
|
|
一个链接同时打开两个页面(帧页) |
|
1932 |
2008-03-16 |
| 代码一：------------------------------------------------------------------------------------------
a href="http://网址一" target="_blank" onclick="window.open('http://网址二','_parent')"链接名称/a
注：target="_blank" 是指新开窗口，_parent 是指在原来的窗口打开新链接
代码二：------.. |
|
|
史上最伟大的五位计算机罪犯 |
|
819 |
2008-03-18 |
| 你看见的这些都是在刚步出青春期即被逮捕的黑客。他们中的一部分人做这些是为了赚钱，而另一些则仅仅是因为好玩。
1. Kevin Mitnick
Mitnick 也许是黑客的同义词。美国司法部曾这样评价他：“美国史上被通缉的头号罪犯”。他的丰功伟绩被拍成了两部好莱坞电影：Takedown 和 Freedom Down.. |
|
|
批处理(.bat)获取指定目录下的所有文件并生成列表 |
|
13622 |
2008-03-20 |
| @echo off:: 判断输入路径是不是文件夹，如果是，则获取文件夹下的所有文件名(包括子文件夹下的):: 如果要文件名带上路径，则需要在dir这一句的%%~nxi上作改动:: code by jm CMD@XP 2006-7-20
if exist list.txt del list.txt /q:inputclsset input=:set /p input= 请输入要进行判断的路径：set "input=%.. |
|
|
批处理(.bat)定时计划程序 |
|
4728 |
2008-03-20 |
| ==========ETIME========@echo offcolor 1fecho.echo 定时计划工具 VER:1.0echo by:风弛网络,jastygecho Email:support@efengchi.comecho [url]HTTP://WWW.EFENGCHI.COM[/url]echo for xp/2k3echo.echo.
rem ++++++++++++++++++++外部命令行模式的处理+++++++++++++++++++++++++++
rem ============.. |
|
|
文 章 列 表