这是asp.net的第二个应用(五)
点击次数：20 次 发布日期：2008-11-26 23:17:41 作者：源代码网
|
源代码网推荐
/*
源代码网推荐豆腐制作，都是精品
源代码网推荐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="http://edu.chinaz.com/Get/Program/Net/images/banner.gif">
源代码网推荐<!--广告结束-->
源代码网推荐<hr>
源代码网推荐<%WriteLanmuClass%>
源代码网推荐<hr>
源代码网推荐<%
源代码网推荐WriteLastArticle
源代码网推荐WriteMostClick
源代码网推荐%>
</body>
源代码网推荐</html>
总结：我们在 学习完 简单的留言版 以后，通过这个 稍微 复杂和实际的应用，对asp.net 的编程应该说
源代码网推荐已经基本上熟悉了，现在这个程序在 豆腐技术站已经提供下载了
源代码网推荐。，我们还通过这个程序，对asp.net 的 pagelet 进行了一定的了解和使用，因此通过这写文章，我们已经
源代码网推荐对asp.net 的编程有了很基础的认识，希望大家 趁热打铁，熟悉一下豆腐的例子，也自己做几个程序看看！
源代码网供稿. |
