IDC资讯中心
作者：刘玉锋
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="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="468×60-21itt2.gif"
width="350" height="50" alt="中国电子网" border=0></a></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0" colspan="2"><font color="#ffffff"><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> – </font><a href="freehost.asp"
style="color: rgb(255,255,0)"><font color="#00ff80">免费空间</font></a><font
color="#ffffff"><img src="new9.gif" width="30" height="14" alt="new9.gif (1181 bytes)"></font></td>
</tr>
</table>
<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"><p align="center"><font color="#ffffff"><<<a
href="http://asfans.yeah.net"
onclick="window.external.addfavorite(../../aspfans.yeah.net/default.htm,asp爱好者)"
class="p12">添加到收藏夹</a>>></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0"><p align="center"><font color="#ffffff">当前在线：<%=application
("online")%>
人</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0"><p align="center"><font color="#000000">本站产品</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#eeeeee"> <font color="#ff0000"><strong>免费asp文章代码
</strong></font>,<a
href="freecode.asp">请点击此处</a>！<br>
<table>
<tr>
<td width="100%"><img alt="s-point.gif (204 bytes)" src="s-point.gif" width="18" height="14"><font
color="#0000ff"><a href="votedemo.asp" name="信息系统">通用网站投票调查系统</a>(</font><font
color="#ff0000">new</font><font color="#0000ff">)</font></td>
</tr>
<tr>
<td width="100%"><img alt="s-point.gif (204 bytes)" src="s-point.gif" width="18" height="14"><a
href="xinxi.asp" name="信息系统"><font color="#0000ff">通用网站信息发布管理系统(专业版)</font></a></td>
</tr>
<tr>
<td width="100%"><img alt="s-point.gif (204 bytes)" src="s-point.gif" width="18" height="14"><a
href="gongqiu.asp"><font color="#0000ff">通用网站供求系统(企业版)</font></a></td>
</tr>
<tr>
<td width="100%"><img alt="s-point.gif (204 bytes)" src="s-point.gif" width="18" height="14"><a
href="paimai.asp"><font color="#0000ff">通用拍卖网站系统(专业版)</font></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0"><p align="center"><font color="#000000">本站组件产品</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#eeeeee"><font color="#5878f8">■<a href="lyfdns.htm"
target="_blank">lyfdns1.0</a>(</font><font
color="#ff0080">dns组件</font><font color="#5878f8">)<br>
■<a href="lyfimage.htm" target="_blank">lyfimage</a>1.0(</font><font color="#ff0080">图形组件</font><font
color="#5878f8">)<br>
■<a href="lyfupload.htm" target="_blank">lyfupload</a>1.2(</font><font color="#ff0080">文件上传组件
</font><font
color="#5878f8">)<br>
■<a href="lyfmail.htm" target="_blank">lyfemail</a>(</font><font color="#ff0080">email组件</font><font
color="#5878f8">)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0"><font color="#ffffff"><p align="left">
欢迎加入本站的邮件列表以便获得本站的更新信息及本站产品信息！</font></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"><p>请输入您的email地址：<input
type="text" name="email" size="20"><br>
<input type="submit" name="sub" value="订阅"> <input type="submit" name="unsub"
value="取消"> </p>
</form>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0"><p align="center"><font color="#000000">站长的其它网站</font><font
color="#ffffff"><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></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#eeeeee"><a style="color: rgb(0,0,255)" href="http://jspbbs.yeah.net"
target="_blank">jsp爱好者</a><font
color="#ffffff"><img src="new9.gif" width="30" height="14" alt="new9.gif (1181 bytes)"></font><a
style="color: rgb(0,0,255)" href="http://jspbbs.yeah.net" target="_blank"><br>
华中拍卖网</a><br>
<a href="http://macroweb.my168.net" target="_blank" style="color: rgb(0,0,255)">图书在线</a><br>
<a href="http://vbfans.yeah.net" target="_blank" style="color: rgb(0,0,255)">vb爱好者</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0"><p align="center"><font color="#000000">首页友情链接</font></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>
</table>
</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"><strong><font color="#00ff00">→</font><font
color="#000000">本站新闻</font></strong> </td>
</tr>
<tr>
<td width="100%" height="20"><font color="#ffffff"> </font><img
src="image/l-7.gif" width="26" height="20" alt="l-7.gif (371 bytes)"><font color="#008080">不少朋友反映首页
速度慢，为了能使大家访问本站的速度更快，站长特意将首页程序重新写成了</font><font color="#ff0000"><b>asp+程
序</b></font><font color="#008080">，编译后相信能满足大家的要求了，看看速度是不是更快点。</font><br>
<font color="#ff0000"><strong>hot，本站程序继续热卖中，纯手工制作，工艺精
美，价格公道，童叟无欺，欢迎大家联系购买！:)程序优惠销售即将结束，感谢大家支持。<br>
</strong></font> <font color="#000000">为答谢各位asp爱好者对本站的支持，asp爱好者网站率先
推出网站程序的百日风暴销售活动，如果您是本站邮件列表的用户，在此其间(7.18-10.28)凭您的邮件地址购买本站产品
均可以享受到特别优惠的价格，</font><b><font color="#ff0000">部分低到180元/套的价格</font></b><font
color="#000000">，心动不如行动!</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0" height="20"><font color="#ffff80"><strong>→</strong></font><font
color="#000000"><b>技术文章</b></font></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> </font>
<font color=#ff8000><strong>[<%# container.dataitem("f_name") %>]</strong></font>
<%# container.dataitem("t_last_post") %> <br>
<%# left(container.dataitem("t_message"),50) %>…<br>
</template>
</asp:datalist>
<p align="right"><a href="forum/default.asp">>>更多文章</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0" height="20"><font color="#00ffff"><strong>→</strong></font><font
color="#000000"><b>源码天地</b></font></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> </font>
(<font color=red><%# container.dataitem("good") %></font>)
<%# container.dataitem("linkadded") %><br>
<%# left(container.dataitem("linkdesc"),50) %>…<br>
</template>
</asp:datalist>
<p align="right"><a href="source/default.asp">>>更多源码</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#c0c0c0" height="20"><font color="#00ffff"><strong>→</strong></font><font
color="#000000"><b>组件天地</b></font></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> </font>
(<font color=red><%# container.dataitem("good") %></font>)
<%# container.dataitem("linkadded") %><br>
<%# left(container.dataitem("linkdesc"),50) %>…<br>
</template>
</asp:datalist>
<p align="right"><a href="source/default.asp">>>更多组件</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table border="1" width="100%" bordercolor="#008080" bordercolordark="#ffffff"
bordercolorlight="#000000" bgcolor="#eeeeee" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" ><p align="center">copyright by <a
href="mailto:coolknight@263.net">asp爱好者</a><br>
本页面建议在800*600分辨率、ie4.0以上浏览器浏览 <br>
本站点由 <a href="mailto:coolknight@263.net">刘玉锋</a> 制作维护
<span style="background-color: #ffffff">中国 广州</span> </td>
</tr>
<tr>
<td width="100%"><p align="center">自2000年4月4日<br>
<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>
</table>
</body>
</html>
