仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 4699|回复: 19
打印 上一主题 下一主题

[学习教程] ASP编程:用asp收拾整顿磁盘文件

[复制链接]
山那边是海 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-16 00:27:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。
兰色精灵 该用户已被删除
沙发
发表于 2015-2-16 03:16:27 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
深爱那片海 该用户已被删除
板凳
发表于 2015-3-4 23:18:45 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
透明 该用户已被删除
地板
发表于 2015-3-7 23:46:24 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
爱飞 该用户已被删除
5#
发表于 2015-3-10 18:14:18 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
飘飘悠悠 该用户已被删除
6#
发表于 2015-3-17 08:59:35 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
简单生活 该用户已被删除
7#
发表于 2015-3-24 03:49:21 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
蒙在股里 该用户已被删除
8#
发表于 2015-4-13 20:16:02 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
小女巫 该用户已被删除
9#
发表于 2015-4-29 16:33:38 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
分手快乐 该用户已被删除
10#
发表于 2015-5-3 23:24:07 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
admin 该用户已被删除
11#
发表于 2015-5-5 21:54:33 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
小妖女 该用户已被删除
12#
发表于 2015-6-21 07:06:45 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
活着的死人 该用户已被删除
13#
发表于 2015-7-5 01:18:49 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
若相依 该用户已被删除
14#
发表于 2015-7-8 15:33:56 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
柔情似水 该用户已被删除
15#
发表于 2015-7-10 04:47:15 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
小魔女 该用户已被删除
16#
发表于 2015-7-11 10:42:55 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
因胸联盟 该用户已被删除
17#
发表于 2015-7-12 22:37:49 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
精灵巫婆 该用户已被删除
18#
发表于 2015-7-20 00:46:31 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
乐观 该用户已被删除
19#
发表于 2015-9-22 12:58:15 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
若天明 该用户已被删除
20#
发表于 2015-10-5 05:08:51 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 00:00

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表