ASP编程：用asp收拾整顿磁盘文件

ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了. 关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用   机械的文件太多，需求收拾整顿一下，该若何做呢？？？？？

本文以收拾整顿图片文件为例，给人人一点思绪
代码的运转情况：iis5.0+sql server2000
数据库剧本：

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[insertpic]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[insertpic]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[showpage]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[showpage]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[picpath]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[picpath]
GO

CREATE TABLE [dbo].[picpath] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[path] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

--感化：拔出纪录
CREATE PROCEDURE [insertpic]
(
--途径--
@path varchar(100)
)
AS
insert picpath(path) values(@path)
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

/*
'# 进程：showpage
'# 描写：用来纪录集分页
'# 参数： - pagenum （页码）
'# 前往：-两个纪录集，第一个纪录集包括两个字段（总页数），第二个纪录集为数据库前往给法式要显示的数据
'# 作者：zhengs
'# 日期：2002-08-27

*/

CREATE PROCEDURE showpage
----页码
@PageNum int
AS
SET NOCOUNT ON
declare
@pagecount int,
@iFrom int,
@iRowCount int,
@dpicid int



----盘算该页肇端的偏移量
if @PageNum <= 0
set @PageNum = 1

set @iFrom = 10 * (@PageNum - 1) + 1


----判别传入的页码是不是无效
select @iRowCount = count(id) from picpath ----获得图片数
set @PageCount = @iRowCount / 10 ----盘算图片页数

if @iRowCount %10> 0
set @PageCount = @PageCount + 1

if @iRowCount < @iFrom
begin
set @iFrom = @iRowCount - 10
end
if @iFrom<0
select @iFrom=0
set rowcount @iFrom
select @dpicid = id from picpath order by id desc
set rowcount 0

----获得图片列表
select @pagecount as pagecount
select top 10 * from picpath Where id <= @dpicid order by id desc

SET NOCOUNT off
SP_END:
select @pagecount as pagecount
SET NOCOUNT off
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

搜刮并存储到数据库
search.asp

<%@LANGUAGE="VBSCRIPT" %>
<%
'***********************************************************************************

' 文件名.........: search.asp
' 作者...........: cxb
' 申明...........: 搜刮并存储到数据库
' 注重...........:
' 版权...........: Copyright (c) 2000, NetDragon Software.
' 修正纪录.......: 工夫 人员 备注
' --------- ------- -------------------------------------------
' 2003-09-26 陈兴柏 创立文件

'***********************************************************************************
Server.ScriptTimeOut=500
dim a,b
'检测工夫参数
a=timer
dim conn,strconn
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=search;User ID=sa;Password=196881"
conn.open strconn

Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adVarChar = 200

'# --------------------------------------------------------------------------
'# 函数：getFileExtName
'# 描写：取得文件是不是为图片文件
'# 参数：--fName
'# 前往：--true or false
'# 作者：cxb
'# 日期：2003-9-26
'#--------------------------------------------------------------------------
function getFileExtName(fName)

if instr(fname,".gif") or instr(fname,".GIF") or instr(fname,".jpg") or instr(fname,".JPG") or instr(fname,".bmp") or instr(fname,".BMP") then
getFileExtName=true
else
getFileExtName=false
end if
end function


'# --------------------------------------------------------------------------
'# 函数：insertfilepath
'# 描写：将途径信息拔出数据库
'# 参数：--filename
'# 前往：--
'# 作者：cxb
'# 日期：2003-9-26
'#--------------------------------------------------------------------------
function insertfilepath(filename)
dim </p>  asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。