一个功能完善的专栏管理的程序->这是asp.net的第二个应用四 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 一个功能完善的专栏管理的程序->这是asp.net的第二个应用四

一个功能完善的专栏管理的程序->这是asp.net的第二个应用四 时间：2004/11/7 2:52:00来源：本站整理作者：蓝点我要评论(0)

一个功能完善的专栏管理的程序->这是asp.net的第二个应用(四)

/*

豆腐制作，都是精品

http://www.asp888.net 豆腐技术站

如转载，请保留完整版权信息

*/

我们首先来按照栏目的类别来显示栏目的所有文章，当然一个分页的程序是非常关键的，我们还是来用我们在留言版中用到的那个分页的程序，过几天我会把这个作成一个pagelet 的，大家赶快鼓励我吧！

showarticle.aspx:

浏览文章

<%

dim strClassid as string

dim conn as SQLConnection

dim sqlCmd as SQLCommand

dim sqlRead as SQLDataReader

dim strSQL as string

dim intLen as integer

dim intRecCount as integer

strClassid=request.querystring("classid")

conn=GetConn()

strSQL="select count(*) from lanmu where classid=" & strClassid & ""

sqlCmd=new SQLCommand(strSQL,conn)

sqlCmd.ActiveConnection.Open()

sqlCmd.Execute(sqlRead)

sqlCmd.ActiveConnection.Close()

sqlRead.Read()

if cInt(sqlRead(0))=0 then

response.write("对不起，当前这个栏目没有内容")

response.end

end if

intRecCount=sqlRead(0)

strSQL="select * from lanmu,lanmuclass where lanmu.classid=lanmuclass.classid and lanmu.classid=" & strClassID & " and lanmu.isuse='1' order by id desc"

sqlCmd=new SQLCommand(strSQL,conn)

sqlCmd.ActiveConnection.Open()

sqlCmd.Execute(sqlRead)

'处理分页显示

dim intPageCount as integer

dim intStart as integer

if isNumeric(request.querystring("start")) then

intStart=Cint(request.querystring("start")) '本页数据起使位置

else

intStart=0

end if

intLen=10 '每页需要显示的数据数量

'以下计算当前的记录的分页页数

if (intRecCount mod intLen)=0 then

intPageCount=intRecCount/intLen

else

intPageCount=(intRecCount-(intRecCount mod intLen))/intLen+1

end if

dim i as integer

'将得到的sqlRead向后移动 start 指定的位置

for i=0 to intStart-1

sqlRead.read()

next

'显示table 分页Bar

WritePage(intStart,"showarticle.aspx",intLen ,intPageCount ,intRecCount )

%>

<%

for i=0 to intLen-1

atEnd=sqlRead.read()

if not atEnd then exit for%>

<%next%>

编号	主题	作者	阅读次数
<%=sqlRead("id")%>	"><%=sqlRead("title")%>	<%=sqlRead("userid")%>	<%=sqlRead("viewnum")%>

这个程序没有什么说的，我们看看就可以了。如果有什么看不懂的地方，别着急，再看看下面的这个程序：）

viewarticle.aspx 文件是用来查看具体的某一篇文章的，因为时间的关系，我没有把这个程序的评论和打分的

功能添加上，哎！我也很伤心，等到以后吧！

viewarticle.aspx

<%

dim conn as SQLCOnnection

dim sqlRead as SQLDataReader

dim sqlCmd as SQLCommand

dim strSQL as string

dim strID as string

conn=getConn()

strID=request.querystring("id")

strSQL="select * from lanmu,lanmuclass where lanmu.classid=lanmuclass.classid and lanmu.id=" & strID & ""

sqlCmd=new SQLCommand(strSQL,conn)

sqlCmd.ActiveConnection.Open()

sqlCmd.Execute(sqlRead)

if not sqlRead.Read() then

'没有留言信息

echoErr("对不起，当前这个栏目还没有内容")

end if

%>

浏览文章__技术专栏__<%=sqlRead("title")%>

当前所在位置--豆腐技术站__技术专栏__"><%=sqlRead("classname")%>

这篇文章已经被阅读<%=sqlRead("viewnum")+1%>次

<%=replace((server.HTMLEncode(sqlRead("content"))),chr(13),"
")%>

作者:<%=sqlRead("userid")%>(<%=sqlRead("selFrom")%>)

添加时间:<%=sqlRead("dtime")%>

<%response.end%>

哎，纯粹的 asp 代码，我都有些忍不住了，但是的确是这样,asp.net 对于初学者来说，他的门槛并不高，我会在以后不长的时间，等到大家都已经认为已经入门以后，推出这个系列文章的下一个版本，那个时候将使用纯粹的asp.net 的代码，不过话又说回来，用什么方法不重要，只不过是我们对自己的要求而已，asp.net正是因为他可以使 asp 的程序员很轻松的升级到asp+,我们才说，他真牛！

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。