ASP爱好者网站首页(ASP+版本)代码|雨林木风下载站

导读作者：刘玉锋http://aspfans.yeah.net前一段时间本站将首页更换为了ASP+程序，为了能让更多的朋友对asp+有更好的了解，所以特将源代码公开，至于对代码的注释，相信大家参考现在网...

作者：刘玉锋
http://aspfans.yeah.net

前一段时间本站将首页更换为了ASP+程序，为了能让更多的朋友对asp+有更好的了解，所以特将源代码
公开，至于对代码的注释，相信大家参考现在网上的asp+语法之类的东东都能看懂，主要涉及到VB与(ADO+)
对数据库进行读取操作，此程序仅仅作为一个参考。

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.ADO" %>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>ASP爱好者</title>
<STYLE type=text/css>.unnamed1 {
FONT-SIZE: 9pt
}
</STYLE>

<STYLE type=text/css>A {
COLOR: #0000ff; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff99ff; TEXT-DECORATION: underline
}
TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 14pt
}
</STYLE>

<script language="vb" runat=server>
Sub Page_Load(Source As Object, E As EventArgs)
Dim DS As DataSet
Dim MyConnection As ADOConnection
Dim MyCommand As ADODataSetCommand
Dim strSql as String
'以下是数据库联结

MyConnection = New ADOConnection("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath
("XXXXX.mdb"))
strSql ="SELECT top 5 Topics.T_Message,Topics.T_Status, Topics.Forum_ID, Topics.Topic_ID,
Topics.T_subject,Topics.T_Mail, Topics.T_Originator, Topics.T_Replies,
Topics.T_Last_Post,forum.Forum_ID,forum.F_Name "
strSql = strSql & "FROM Topics,forum where Topics.Forum_ID=forum.Forum_ID "
strSql = strSql & " order by Topics.T_Last_Post DESC"
MyCommand = New ADODataSetCommand(strSql, myConnection)
DS = new DataSet()
MyCommand.FillDataSet(DS, "Topics1")
dlwenzhang.DataSource = DS.Tables("Topics1").DefaultView
dlwenzhang.DataBind()

MyConnection = New ADOConnection("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath
("XXXXX.mdb"))
strSql ="SELECT top 5 * FROM links,cats where links.catid=cats.catid order by links.linkid DESC"
MyCommand = New ADODataSetCommand(strSql, myConnection)
DS = new DataSet()
MyCommand.FillDataSet(DS, "Topics2")
daima.DataSource = DS.Tables("Topics2").DefaultView
daima.DataBind()

MyConnection = New ADOConnection("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath
("XXXXX.mdb"))
strSql ="SELECT top 5 * FROM links,cats where links.catid=cats.catid order by links.linkid DESC"
MyCommand = New ADODataSetCommand(strSql, myConnection)
DS = new DataSet()
MyCommand.FillDataSet(DS, "Topics3")
zujian.DataSource = DS.Tables("Topics3").DefaultView
zujian.DataBind()

End Sub
</script>

</head>
<body>

<table border="0" width="100%" bordercolor="#008080" bordercolorlight="#C0C0C0"
bordercolordark="#FFFFFF">
<tr>
<td><img src=http://cfan.net.cn/info/"image/aspfans.gif" width="400" height="60" alt="aspfans.gif (12099 bytes)"></td>
<td width="50%" valign="middle"><a href="http://www.21ic.com" target="_blank"><img src=http://cfan.net.cn/info/"468x60-21ITT2.gif"
width="350" height="50" alt="中国电子网" border=0></a></td>
</tr>
<tr>
<td width="100%" bgcolor="#C0C0C0" colspan="2"><a href="default.asp"
>本站首页</a> - <a href="info/Default.asp"
>新闻</a> - <a href="forum/default.asp"
>文章</a> - <a href="source/default.asp"
>源码</a> - <a href="com/default.asp"
>组件</a> - <a href="chat/default.asp"
>谈天</a> - <a href="bbs1/default.asp"
>论坛</a> - <a href="aspbook.asp"
>教程</a> - <a href="www.asp"
>站点</a> - <a href="aspgbook/addguest.htm"
>留言</a> - <a href="products.htm"
>产品销售</a> - <a href="freehost.asp"
style="color: rgb(255,255,0)">免费空间</a><img src=http://cfan.net.cn/info/"new9.gif" width="30" height="14" alt=http://cfan.net.cn/info/"new9.gif (1181 bytes)"></td>
</tr>

<table border="1" width="100%" bordercolor="#808080" bordercolorlight="#FFFFFF"
bordercolordark="#C0C0C0" >
<tr>
<td width="19%" valign="top"><table border="1" width="100%" bordercolor="#008080"
bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#C0C0C0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#C0C0C0"><<<a
href="http://asfans.yeah.net"
onClick="window.external.addFavorite('../../aspfans.yeah.net/default.htm','ASP爱好者')"
class="p12">添加到收藏夹</a>>></td>
</tr>
<tr>
<td width="100%" bgcolor="#C0C0C0">当前在线：<%=application
("online")%>
人</td>
</tr>
<tr>
<td width="100%" bgcolor="#C0C0C0">本站产品</td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"> 免费ASP文章代码
,<a
href="freecode.asp">请点击此处</a>！ 

<table>
<tr>
<td width="100%"><img alt=http://cfan.net.cn/info/"S-point.gif (204 bytes)" src=http://cfan.net.cn/info/"S-point.gif" width="18" height="14"><a href="votedemo.asp" name="信息系统">通用网站投票调查系统</a>(new)</td>
</tr>
<tr>
<td width="100%"><img alt=http://cfan.net.cn/info/"S-point.gif (204 bytes)" src=http://cfan.net.cn/info/"S-point.gif" width="18" height="14"><a
href="xinxi.asp" name="信息系统">通用网站信息发布管理系统(专业版)</a></td>
</tr>
<tr>
<td width="100%"><img alt=http://cfan.net.cn/info/"S-point.gif (204 bytes)" src=http://cfan.net.cn/info/"S-point.gif" width="18" height="14"><a
href="gongqiu.asp">通用网站供求系统(企业版)</a></td>
</tr>
<tr>
<td width="100%"><img alt=http://cfan.net.cn/info/"S-point.gif (204 bytes)" src=http://cfan.net.cn/info/"S-point.gif" width="18" height="14"><a
href="paimai.asp">通用拍卖网站系统(专业版)</a></td>
</tr>

</td>
</tr>
<tr>
<td width="100%" bgcolor="#C0C0C0">本站组件产品</td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE">■<a href="lyfdns.htm"
target="_blank">LyfDns1.0</a>(DNS组件) 
■<a href="lyfimage.htm" target="_blank">LyfImage</a>1.0(图形组件) 
■<a href="lyfupload.htm" target="_blank">LyfUpload</a>1.2(文件上传组件
) 
■<a href="lyfmail.htm" target="_blank">LyfEmail</a>(Email组件)</td>
</tr>
<tr>
<td width="100%" bgcolor="#C0C0C0">
欢迎加入本站的邮件列表以便获得本站的更新信息及本站产品信息！</td>
</tr>
<tr>
<td width="100%"><form method="post"
action="http://maillist2.bodachina.com//cgi/mlist.fcgi?FN=1">
<input type="hidden" name="MLID" value="37589">请输入您的email地址：<input
type="text" name="EMAIL" size="20"> 
<input type="submit" name="SUB" value="订阅"> <input type="submit" name="UNSUB"
value="取消"> 
</form>
</td>
</tr>

<tr>
<td width="100%" bgcolor="#C0C0C0">站长的其它网站<script
language="javascript">

function winopen(url)
{
if(url!="#")
window.open
(url,"search","toolbar=0,location=1,directories=0,status=1,menubar=1,scrollbars=1,resizable=1,width=780,hei
ght=450,top=0,left=0");
}
</script></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a style="color: rgb(0,0,255)" href="http://jspbbs.yeah.net"
target="_blank">JSP爱好者</a><img src=http://cfan.net.cn/info/"new9.gif" width="30" height="14" alt=http://cfan.net.cn/info/"new9.gif (1181 bytes)"><a
style="color: rgb(0,0,255)" href="http://jspbbs.yeah.net" target="_blank"> 
华中拍卖网</a> 
<a href="http://macroweb.my168.net" target="_blank" style="color: rgb(0,0,255)">图书在线</a> 
<a href="http://vbfans.yeah.net" target="_blank" style="color: rgb(0,0,255)">VB爱好者</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#C0C0C0">首页友情链接</td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://aasp.yeah.net" target="_blank"
style="color: rgb(0,0,255)">ASP动网先锋</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://aspnet.on.net.cn" target="_blank">ASP下载特区</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://asphelper.yeah.net" target="_blank">ASP空间站</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://asp3.126.com/" target="_blank">ASP三角洲</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://aspage.yeah.net" target="_blank">ASP精品屋</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://www.tv2nd.com/" target="_blank">第二频道</a></td>
</tr>

</td>
<td width="81%" valign="top" bgcolor="#F2F2F2"><table border="1" width="100%"
bordercolor="#008080" bordercolordark="#FFFFFF"
bgcolor="#F2F2F2" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#C0C0C0" height="20">→本站新闻 </td>
</tr>
<tr>
<td width="100%" height="20"> <img
src=http://cfan.net.cn/info/"image/l-7.gif" width="26" height="20" alt="l-7.gif (371 bytes)">不少朋友反映首页
速度慢，为了能使大家访问本站的速度更快，站长特意将首页程序重新写成了ASP+程
序，编译后相信能满足大家的要求了，看看速度是不是更快点。 
HOT，本站程序继续热卖中，纯手工制作，工艺精
美，价格公道，童叟无欺，欢迎大家联系购买！:)程序优惠销售即将结束，感谢大家支持。 
 为答谢各位ASP爱好者对本站的支持，ASP爱好者网站率先
推出网站程序的百日风暴销售活动，如果您是本站邮件列表的用户，在此其间(7.18-10.28)凭您的邮件地址购买本站产品
均可以享受到特别优惠的价格，部分低到180元/套的价格，心动不如行动!</td>
</tr>

<tr>
<td width="100%" bgcolor="#C0C0C0" height="20">→技术文章</td>
</tr>
<tr>
<td width="100%">

<%dim surl as String%>
<asp:DataList id="dlwenzhang" width="100%" runat="server">

<template name = "ItemTemplate">

<a href=forum/count.asp?save=<%# Container.DataItem("Topic_ID") %>&url=topic.asp?topic_id=<%#
Container.DataItem("Topic_ID") %>>
·=><%# Container.DataItem("T_subject") %></a> 
[<%# Container.DataItem("F_name") %>]
<%# Container.DataItem("T_Last_Post") %> 
<%# left(Container.DataItem("T_message"),50) %>... 
</template>

</asp:DataList>
<a href="forum/default.asp">>>更多文章</a></td>
</tr>

<tr>
<td width="100%" bgcolor="#C0C0C0" height="20">→源码天地</td>
</tr>
<tr>
<td width="100%">

<asp:DataList id="daima" width="100%" runat="server">
<template name = "ItemTemplate">

<a href=source/redirect.asp?linkid=<%# Container.DataItem("linkid") %>>
·=><%# Container.DataItem("linkname") %></a> 
(<%# Container.DataItem("good") %>)
<%# Container.DataItem("linkadded") %> 
<%# left(Container.DataItem("linkdesc"),50) %>... 
</template>
</asp:DataList>

<a href="source/default.asp">>>更多源码</a></td>
</tr>

<tr>
<td width="100%" bgcolor="#C0C0C0" height="20">→组件天地</td>
</tr>
<tr>
<td width="100%">

<asp:DataList id="zujian" width="100%" runat="server">
<template name = "ItemTemplate">

<a href=source/redirect.asp?linkid=<%# Container.DataItem("linkid") %>>
·=><%# Container.DataItem("linkname") %></a> 
(<%# Container.DataItem("good") %>)
<%# Container.DataItem("linkadded") %> 
<%# left(Container.DataItem("linkdesc"),50) %>... 
</template>
</asp:DataList>

<a href="source/default.asp">>>更多组件</a></td>
</tr>

</td>
</tr>

<table border="1" width="100%" bordercolor="#008080" bordercolordark="#FFFFFF"
bordercolorlight="#000000" bgColor="#eeeeee" cellspacing="0" cellpadding="0">

<tr>
<td width="100%" >CopyRight By <a
href="mailto:coolknight@263.net">ASP爱好者</a> 
本页面建议在800*600分辨率、IE4.0以上浏览器浏览 
本站点由 <a href="mailto:coolknight@263.net">刘玉锋</a> 制作维护
中国广州 </td>
</tr>
<tr>
<td width="100%">自2000年4月4日 
<script>
document.write("<a href=http://webpub.au.tsinghua.edu.cn/count/count.dll?Type=Basic&id=8250&ReferID=8250
target=_blank>");
document.write("<img src=http://webpub.au.tsinghua.edu.cn/count/count.dll?
Type=Img5&add=1&id=8250&refer="+escape(top.document.referrer)+" border=0 alt=酷站今日访问>");
document.write("</a>");
</script> </td>
</tr>

</body>
</html>

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:雨林木风下载站 > 网页设计教程 > 详细页面

ASP爱好者网站首页(ASP+版本)代码

本类教程下载

系统下载排行