ASP基础实例教程之八个小时打造新闻发布系统六
点击次数：23 次 发布日期：2008-12-01 17:05:01 作者：源代码网
|
源代码网推荐
前面把后台所需要的文件都做完了~
现在来做前台的 需要三个文件 index.asp list.asp newshow.asp
首先先做list.asp
代码如下：
CODE:
<!--#include file="conn.asp"--> <% exec="Select top 5 * From aa Order By id DESC" set rs=conn.execute(exec) if not rs.eof then rs.movefirst dis_mes=dis_mes & "最新更新<br>" do while not rs.eof dis_mes=dis_mes &"<img src=dot1.gif> <a href=newshow.asp?id=" & rs("id") & " target=_blank>" & rs("title") & "</a> " & rs("time") & "<br>" rs.movenext loop end if rs.close dis_mes="document.write(""" & dis_mes & """);" response.write dis_mes %>
代码解释：
（1）
exec="Select top 5 * From aa Order By id DESC"
set rs=conn.execute(exec)
选择数据库里的表aa的前5条信息
（2）
if not rs.eof then
rs.movefirst
dis_mes=dis_mes & "最新更新<br>"
do while not rs.eof
直到扫描到最后一条信息 游标就跳到第一条信息
dis_mes=dis_mes & "最新更新<br>"定义一个变量 变量后面是显示最新更新
（3）
dis_mes=dis_mes &"<img src=dot1.gif> <a href=newshow.asp?id=" & rs("id") & " target=_blank>" & rs("title") & "</a> " & rs("time") & "<br>"
&"<img src=dot1.gif>&这里是显示图片dot1.gif
<a href=newshow.asp?id=" & rs("id") & " target=_blank>"这里是连接到newshow.asp文件做处理 为每一条最新信息添加连接 当点激显示的信息时 就跳到newshow.asp
rs("title") & "</a> " & rs("time") 这里是显示数据库的title和time
(4)
dis_mes="document.write(""" & dis_mes & """);"
这段代码是输出dis_mes 的值
整个list.asp 文件的意思是输出数据库最新的前5条信息 并为每条信息添加连接 点激进入详细信息
源文件下
源代码网供稿. |
