签位置是动态变化的，所以需要使用代码定义，方法如下： “新闻管理”链接
系统管理员Admin或其他用户可以通过“新闻管理”链接进入新闻管理页面index.asp
显示各新闻类别中的最新新闻
default.asp的主要内容是显示新闻类别中的最新10条新闻，并将3天内的新闻使用new图片标记。当然，如果新闻的内容经常更新，则可以将3天改为1天。
这部分代码如下: <%
'=====显示所有新闻类别供点击，点击不同类别显示该类别的新闻===== '按顺序读取所有新闻类别，保存在记录集rsCate中 sql = \ Set rsCate = conn.Execute(sql) '显示所有新闻类别链接 Do While Not rsCate.EOF stitle = rsCate(\ cid = rsCate(\
'每个新闻类别标题被定义为一个书签，名为 #a类别编号 %>
href=\
style='TEXT-DECORATION:
none;color:black'><%=stitle%> | <%
rsCate.MoveNext Loop %>
29
新闻查询
| 新闻管理
'将指针移至开始位置，分别显示每个分类中的新闻 If rsCate.BOF = False Then rsCate.MoveFirst End If
'依次显示每个新闻类别中最新的10条新闻 DO WHILE Not rsCate.EOF stitle = rsCate(\ cid = rsCate(\ '变量cnt用来记录 cnt = 0 '生成表格
Response.Write \ '显示新闻类别，并设置书签 Response.Write
\
bgcolor=#ceceff>
name=\
'显示新闻类别标题
Response.Write stitle + \'生成另一个表格，用于显示新闻标题
Response.Write\'按提交时间的降序显示新闻标题
sql = \* FROM News WHERE CateId=\& cid & \ORDER BY
30
Posttime DESC\
rs.Open sql, conn, 1, 1 DO WHILE Not rs.EOF '计数
cnt = cnt + 1 '只显示10条新闻 If cnt < 11 Then
Dim ndate
ndate = DateAdd(\
'显示新闻标题及链接，查看新闻的脚本文件为NewsView.asp Response.Write
\
width='50%'>
onClick='return
newwin(this.href);' href='NewsView.asp?id=\
'如果新闻中有图片，则在标题中显示（附图）
If rs(\ Response.Write \附图)\Response.Write \
'3天内新闻标记new图片
If datediff(\
Response.Write \SRC='pic/new.gif' ALT='最新的新闻！' border=0>\ End If
'显示新闻提交的时间
Response.Write \
End If rs.MoveNext
Loop
Response.Write\
'设置返回顶部链接，跳转到书签#top Response.Write
\
align=right>
href=\
返
回
顶
部
\
'生成“更多新闻”链接，查看指定类别所有新闻的脚本为Category.asp
31
Response.Write \更多新闻...
\
Response.Write \ rs.Close
rsCate.MoveNext loop %>
3.管理界面的实现
在index.asp的开始部分添加下面的代码，这样在打开网页时，程序会自动连接到数据库，并进行身份验证。
注：下载文档有可能“只有目录或者内容不全”等情况，请下载之前注意辨别，如果您已付费且无法下载或内容有问题，请联系我们协助你处理。
微信： QQ：