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

2021 年 2 月 27 日2650

您的位置：首页>技术文档>ASP编程

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

作者：　发布时间：2005-03-12　来源：

作者：刘玉锋
http://http://www.zjjv.com//

前一段时间本站将首页更换为了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>

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://http://www.zjjv.com//" target="_blank"><img src="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="http://www.zjjv.com//"
onClick="window.external.addFavorite('http://http://www.zjjv.com//','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="S-point.gif (204 bytes)" src="S-point.gif" width="18" height="14"><a href="votedemo.asp" name="信息系统">通用网站投票调查系统</a>(new)</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="信息系统">通用网站信息发布管理系统(专业版)</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">通用网站供求系统(企业版)</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">通用拍卖网站系统(专业版)</a></td>
</tr>
</table>
</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://http://www.zjjv.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://http://www.zjjv.com//"
target="_blank">JSP爱好者</a><img src="new9.gif" width="30" height="14" alt="new9.gif (1181 bytes)"><a
style="color: rgb(0,0,255)" href="http://http://www.zjjv.com//" target="_blank"> 
华中拍卖网</a> 
<a href="http://http://www.zjjv.com//" target="_blank" style="color: rgb(0,0,255)">图书在线</a> 
<a href="http://http://www.zjjv.com//" 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://http://www.zjjv.com//" target="_blank"
style="color: rgb(0,0,255)">ASP动网先锋</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://http://www.zjjv.com//.cn" target="_blank">ASP下载特区</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://http://www.zjjv.com//" target="_blank">ASP空间站</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://http://www.zjjv.com///" target="_blank">ASP三角洲</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://http://www.zjjv.com//" target="_blank">ASP精品屋</a></td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE"><a href="http://http://www.zjjv.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">→本站新闻 </td>
</tr>
<tr>
<td width="100%" height="20"> <img
src="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>

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

<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>

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

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

</table>
</td>
</tr>
</table>

<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://http://www.zjjv.com///count/count.dll?Type=Basic&id=8250&ReferID=8250
target=_blank>");
document.write("<img src=/wp-content/uploads/20210227">栏目导行

PHP编程

ASP编程

ASP.NET编程

JAVA编程

站点最新

·致合作伙伴的欢迎信·媒体报道·帝国软件合作伙伴计划协议·DiscuzX2.5会员整合通行证发布·帝国CMS 7.0版本功能建议收集·帝国网站管理系统2012年授权购买说·PHPWind8.7会员整合通行证发布·[官方插件]帝国CMS－访问统计插件·[官方插件]帝国CMS－sitemap插件·[官方插件]帝国CMS内容页评论AJAX分

类别最新

·在ASP中使用数据库·使用ASP脚本技术·通过启动脚本来感受ASP的力量·学习使用ASP对象和组件·解析asp的脚本语言·初看ASP-针对初学者·ASP开发10条经验总结·ASP之对象总结·ASP与数据库应用（给初学者）·关于学习ASP和编程的28个观点

0 0

« asp asp »