当前页面位置: » 丰搜网 » 文档中心 » 详细内容
一个功能完善的专栏管理的程序->这是asp.net的第二个应用(五)
/*
豆腐制作，都是精品
http://www.asp888.net 豆腐技术站
如转载，请保留完整版权信息
*/
好了，截止到这里，我们基本上可以说是 公德圆满了！大家可以休息休息了，我们在本章中所讲的内容
就是做一个 专栏管理的 首页，首页应该包括 所有的栏目类别，最近的10篇文章和最热门的10篇文章
我们现在来看看这个本来第一个写的aspx文件:default.aspx
<!--#include file="func.aspx"-->
<script language=vb runat=server>
sub writelanmuclass()
dim conn as sqlconnection
conn=getconn()
dim sqlcmd as sqlcommand
dim strsql as string
dim sread as sqldatareader
strsql="select * from lanmuclass"
sqlcmd=new sqlcommand(strsql,conn)
sqlcmd.activeconnection.open()
sqlcmd.execute(sread)
dim i as integer
response.write("<table border=1 width=100%><tr><td>")
while(sread.read())
response.write("<a href=showarticle.aspx?classid=" & sread("classid") & ">" & sread("classname") & "</a>(<font color=red>" & getclassnum(cstr(sread("classid"))) & "</font>)")
end while
response.write("</td></tr></table>")
end sub
function getclassnum(strclassid as string) as string
dim conn as sqlconnection
conn=getconn()
dim sqlcmd as sqlcommand
dim strsql as string
dim numread as sqldatareader
strsql="select count(*) as ccount from lanmu where classid='" & strclassid & "'"
sqlcmd=new sqlcommand(strsql,conn)
sqlcmd.activeconnection.open()
sqlcmd.execute(numread)
numread.read()
getclassnum=numread(0)
end function
sub writelastarticle()
dim conn as sqlconnection
conn=getconn()
dim sqlcmd as sqlcommand
dim strsql as string
dim sread as sqldatareader
strsql="select top 10 * from lanmu,lanmuclass where lanmu.classid=lanmuclass.classid and lanmu.isuse='1' order by id desc"
sqlcmd=new sqlcommand(strsql,conn)
sqlcmd.activeconnection.open()
sqlcmd.execute(sread)
response.write("<p><font color=gray>最近的文章</font></p>")
response.write("<table border=0 width=100%>")
while(sread.read())
response.write("<tr>")
response.write("<td width=100% align=left>")
response.write("[<a href='showarticle.asp?classid=" & sread("classid") & "'>" & sread("classname") & "</a>]")
response.write("<a href='viewarticle.asp?id=" & sread("id") & "' target='_blank'>" & sread("title") & "</a><font color=gray size=1>" & sread("dtime") & "</gray>")
response.write("</td>")
response.write("</tr>")
end while
response.write("</table>")
end sub
sub writemostclick()
dim conn as sqlconnection
conn=getconn()
dim sqlcmd as sqlcommand
dim strsql as string
dim sread as sqldatareader
strsql="select top 10 * from lanmu,lanmuclass where lanmu.classid=lanmuclass.classid and lanmu.isuse='1' order by viewnum desc"
sqlcmd=new sqlcommand(strsql,conn)
sqlcmd.activeconnection.open()
sqlcmd.execute(sread)
response.write("<p><font color=gray>最近的文章</font></p>")
response.write("<table border=0 width=100%>")
while(sread.read())
response.write("<tr>")
response.write("<td width=100% align=left>")
response.write("[<a href='showarticle.asp?classid=" & sread("classid") & "'>" & sread("classname") & "</a>]")
response.write("<a href='viewarticle.asp?id=" & sread("id") & "' target='_blank'>" & sread("title") & "</a><font color=gray size=1>" & sread("dtime") & "</gray>")
response.write("</td>")
response.write("</tr>")
end while
response.write("</table>")
end sub
</script>
<html>
<head>
<title>豆腐技术站-->技术专栏</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<meta name="description" content="探讨asp,php 编程,介绍visual basic ,visual c++
等业界最新技术 并提供 免费的各种服务 包括 免费统计系统，免费调查
并提供 招聘站点和 同学录 的服务">
<meta name="keywords" content="探讨asp,php 编程,介绍visual basic ,visual c++
等业界最新技术 并提供 免费的各种服务 包括 免费统计系统，免费调查
并提供 招聘站点和 同学录 的服务">
<link rel="shortcut icon" href="http://www.asp888.net/site.ico">
<meta http-equiv="pragma" content="no-cache">
<link rel="stylesheet" type="text/css" href="/doufu.css">
</head>
<body>
<!--广告开始-->
<img src="images/banner.gif">
<!--广告结束-->
<hr>
<%writelanmuclass%>
<hr>
<%
writelastarticle
writemostclick
%>
</body>
</html>
总结：我们在 学习完 简单的留言版 以后，通过这个 稍微 复杂和实际的应用，对asp.net 的编程应该说
已经基本上熟悉了，现在这个程序在 豆腐技术站已经提供下载了
。，我们还通过这个程序，对asp.net 的 pagelet 进行了一定的了解和使用，因此通过这写文章，我们已经
对asp.net 的编程有了很基础的认识，希望大家 趁热打铁，熟悉一下豆腐的例子，也自己做几个程序看看！
