六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

一個技巧完善的專欄管理的程序->這是asp.net的第二個應用(5)

發表時間：2023-07-21 來源：明輝站整理相關軟件相關文章人氣：

[摘要]一個功能完善的專欄管理的程序->這是asp.net的第二個應用(五)/*豆腐制作，都是精品http://www.asp888.net 豆腐技術站如轉載，請保留完整版權信息*/好了，截止到這里，...
一個功能完善的專欄管理的程序->這是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=http://www.okasp.com/techinfo/"images/banner.gif">
<!--廣告結束-->
<hr>
<%WriteLanmuClass%>
<hr>
<%
WriteLastArticle
WriteMostClick
%>

</body>
</html>

總結：我們在 學習完 簡單的留言版 以后，通過這個 稍微 復雜和實際的應用，對asp.net 的編程應該說已經基本上熟悉了，現在這個程序在 豆腐技術站已經提供下載了。，我們還通過這個程序，對asp.net 的 pagelet 進行了一定的了解和使用，因此通過這寫文章，我們已經對asp.net 的編程有了很基礎的認識，希望大家 趁熱打鐵，熟悉一下豆腐的例子，也自己做幾個程序看看！




主站蜘蛛池模板： 她也啪97在线视频 | 欧美一级片在线观看 | 天天做天天添婷婷我也去 | 欧美综合另类 | 五福影院新址进入www1378 | 欧美整片第一页 | 欧美综合一区二区三区 | 五月激情丁香婷婷综合第九 | 欧美综合图片区 | 亚洲系列中文字幕一区二区 | 日韩久操 | 欧美又粗又大又硬又长又爽视频 | 色香蕉在线 | 特黄特色的大片观看免费视频 | 天天在线天天综合网色 | 日韩一区精品视频在线看 | 午夜国产精品无套 | 小黄鸭b站视频在线 | 手机看片日韩在线 | 青草视频在线观看国产 | 午夜视频在线观看免费高清 | 婷婷激情综合 | 一级一级女人真片 | 我要看一级黄色毛片 | 午夜看片 | 日本剧情片大全免费的视频 | 日韩在线免费看网站 | 青青青激情视频在线最新 | 欧洲三级视频 | 天天爱天天操 | 一二三四影视手机在线观看视频 | 亚洲偷 | 日本高清一区二区三区水蜜桃 | 香蕉国产成版人视频在线观看 | 欧美系列第一页 | 午夜综合网 | 青青草原综合网 | 在线日韩视频 | 日本大片久久久高清免费看 | 中文字幕色婷婷在线视频 | 性久久久久久久久 |