ASP编程：asp 用存储历程完成数据分页
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。存储历程|分页|数据1、创立表tiku_koushiifexists(select*fromdbo.sysobjectswhereid=
object_id(N.)andOBJECTPROPERTY
(id,NIsUserTable)=1)
droptable.
GO
CREATETABLE.(
IDENTITY(1,1)NOTNULL,
(250)COLLATE
Chinese_PRC_CI_ASNULL,
(10)COLLATE
Chinese_PRC_CI_ASNULL
)ON
GO
2、存储历程sp_c
CREATEprocsp_c
@tablenamevarchar(50),
@titlevarchar(250),
@list2_idvarchar(50)
as
if@tablename=tiku_koushi
selectcount(*)fromtiku_koushiwheretitlelike%+@title+%andlist2_id=@list2_id
GO
3、存储历程sp_search_tiku
CREATEPROCEDUREsp_search_tiku
@tablenamevarchar(50),
@titlevarchar(250),
@list2_idvarchar(10),
@pagesizeint,
@pageint
AS
if@tablename=tiku_koushi
begin
declare@ksint
declare@strvarchar(200)
set@ks=@pagesize*(@page-1)
ifnotexists(select*fromdbo.sysobjectswhereid=object_id(N.)andOBJECTPROPERTY(id,NIsUserTable)=1)
begin
select*intotemp_table91fromtiku_koushiwhere
titlelike%+@title+%andlist2_id=@list2_idorder
byiddesc
setrowcount@pagesize
set@str=select*fromtemp_table91whereidnotin
(selecttop+str(@ks)+idfromtemp_table91)
execute(@str)
droptabletemp_table91
end
end
GO
4、search_koushi.asp
<!--#includefile="conn.asp"-->
<%
line=6
ifrequest("page")=""then
page=1
else
page=request("page")
endif
ifpage<1then
page=1
endif
title=trim(request("title"))
list2_id=trim(request("list2_id"))
setrs2=conn.execute("sp_ctiku_koushi,"&title&","&list2_id&"")
pagecount=CInt(rs2(0)line)
if(CInt(rs2(0))modline)=0then
pagecount=pagecount
else
pagecount=pagecount+1
endif
ifCInt(page)>=pagecountthen
page=CInt(pagecount)
endif
str=""
str=str&"page="&page&"&title="&title&"&list2_id="&list2_id
setrs=conn.execute
("sp_search_tikutiku_koushi,"&title&","&list2_id&","&line&","&CInt(page)&"")
ifrs.eofthen
response.write"norecord"
else
%>
<html>
<head>
<styletype="text/css">
td{font-size:12px;}
a{text-decoration:none;}
</style>
<scriptlanguage="javascript">
</script>
</head>
<body>
<tablewidth="518"border="1"bordercolorlight="000000"
bordercolordark="#ffffff"
align="center"cellpadding="0"cellspacing="0">
<!--DWLayoutTable-->
<trbgcolor=#dfdfdf>
<tdwidth="454"align="center"height=24valign="middle">笔试题的标题</td>
<tdwidth="63"align="center"valign="middle">删除</td>
</tr>
<%dountilrs.eof%>
<trheight=22>
<tdvalign="middle">・<ahref=void(0)"
id")%>&page=<%=page%>&title=<%=title%>&list2_id=<%=list2_id%>,,width=518
height=160left=100)">
<%=rs("title")%></a></td>
<tdalign="center"valign="middle">删除</td>
</tr>
<%
rs.movenext
loop
%>
<tralign="left"valign="middle"bgcolor="efeff6"
height=22>
<tdcolspan="2"style="padding-left:6px;">
<ahref="search_koushi.asp?page=<%=1%>&title=<%=title%>&list2_id=<%=list2_id%>">首页</a> <a
href="search_koushi.asp?page=<%=page-1%>&title=<%=title%>&list2_id=<%=list2_id%>">上一页</a> <a
href="search_koushi.asp?page=<%=page+1%>&title=<%=title%>&list2_id=<%=list2_id%>">下一页</a> <a
href="search_koushi.asp?page=<%=pagecount%>&title=<%=title%>&list2_id=<%=list2_id%>">末页</a>
一共<%=pagecount%>页 以后页为:<%=page%>/<%=pagecount%>页
共有<%=rs2(0)%>笔记录</td>
</tr>
</table>
</body>
</html>
<%
rs2.close
setrs2=nothing
rs.close
setrs=nothing
endif
%>
</p>对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。
页:
[1]