|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|