asp 存储过程（分页）
CREATE PROCEDURE sp_newpage
@tb varchar(50), --表名
@col varchar(50), --按该列来进行分页
@coltype int, --@col列的类型,0-数字类型,1-字符类型,2-日期时间类型
@orderby bit, --排序,0-顺序,1-倒序
@collist varchar(800),--要查询出的字段列表,*表示全部字段
@pagesize int, --每页记录数
@page int, --指定页
@condition varchar(800),--查询条件
@RecordCount Int Output,
@pages int OUTPUT --总页数
AS
/*
功能描述：对指定表中满足条件的记录按指定列进行分页查询，分页可以顺序、倒序
查询可以指定页大小、指定查询任意页、指定输出字段列表，返回总页数
作 者：pbsql
版 本：1.10
最后修改：2004-11-29
*/
DECLARE @sql nvarchar(4000),@where1 varchar(800),@where2 varchar(800)
IF @condition is null or rtrim(@condition)=''
BEGIN--没有查询条件
SET @where1=' WHERE '
SET @where2=' '
END
ELSE
BEGIN--有查询条件
SET @where1=' WHERE ('+@condition+') AND '--本来有条件再加上此条件
SET @where2=' WHERE ('+@condition+') '--原本没有条件而加上此条件
END
SET @sql='SELECT @pages=CEILING((COUNT(*)+0.0)/'+CAST(@pagesize AS varchar)+
') from '+@tb+@where2
EXEC sp_executesql @sql,N'@pages int OUTPUT',@pages OUTPUT--计算总页数
SET @sql='SELECT @RecordCount=COUNT(*) from '+@tb+@where2
EXEC sp_executesql @sql,N'@RecordCount int OUTPUT',@RecordCount OUTPUT--计算总记录
IF @orderby=0
SET @sql='SELECT TOP '+CAST(@pagesize AS varchar)+' '+@collist+
' from '+@tb+@where1+@col+'>(SELECT MAX('+@col+') '+
' from (SELECT TOP '+CAST(@pagesize*(@page-1) AS varchar)+' '+
@col+' from '+@tb+@where2+'ORDER BY '+@col+') t) ORDER BY '+@col
ELSE
SET @sql='SELECT TOP '
相关文档：
前阵子刚完成一个B/S架构的学校办公系统，体会就是表太多，文件太多，而每个文件中类似的操作（代码）也太多了，例如学生信息和教师信息操作，student.asp,teacher.asp，这两个文件要实现的功能有，添加、删除、修改、显示教师和学生信息，两个文件中就有很多相同的代码：比如：
显示信息，do while not rs.eof,rs ......
在ASP项目中，当出现“注册表错误，无法写入”错误的时候，本人遇到的错误原因有两个，在这里跟大家共同探讨下。
第一个是，电脑的文件系统式NTFS格式的，这样的话数据库没有权限。
解决方法：在数据库所在文件夹上（或比它高的任� ......
web service在现在的各系统中得到了广泛的应用。它为我们各系统之间的功能访问，数据交换,起到了不可磨灭的作用。而且还能简化我们的变成，在此就对asp作为webservice客户端稍作探讨。
本文通过将一些具体的业务功能写成XML Web Services并且将这些XML Web Services与ASP程序完美结合，现有的ASP程序就可以象ASP.NE ......
ASP与JSP的比较
从微软推出了ASP(ActiveServerPage)后，它以其强大的功能，简单易学的特点而受到广大WEB开发人员的喜欢。但是它却有微软产品的通病,只能在Windows平台下使用，虽然它可以通过增加控件而在LINUX下使用，但是其功能最强大的DCOM控件却不能使用。而SUN公司在JAVA的基础下开发出的JSP(Java
ServerPages)� ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存 ......
