ASP基础实例教程之新闻new与省略号的实现

来源:转载

说明:根据现在时间显示new图标[多长时间为new,这个可以根据代码中idiff条件来设定]
    文章标题过长,标题后面的部分可以用省略号[...]来表示.[可以根据代码中ll长度来设定]
    数据库文件名为news.mdb,表名为news.具体看附件.

以下为数据库连接conn.asp

CODE:

<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>

 




以下为显示效果页面index.asp

CODE:

<!--#include file="conn.asp"-->
<%
sql="SELECT * from news order by hits desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql,conn

if rs.eof and rs.bof then
hh ="没有可以显示的数据"
end if
for i=1 to 5
hh =rs("title")
dim itime,ntime,idiff
itime=rs("infotime")
ntime=FormatDateTime(now,vbShortDate)
idiff=DateDiff("d",itime,ntime)
if idiff>=0 and idiff<=6 then
response.write "<img src=new.gif >"
else
response.write "<img src=bq.gif > "
end if
response.write "<a href=news.asp?id="&rs("id")&" target=_blank>"
ll=Len(hh)
if ll>=17 then
response.write Left(hh,17)&"...."
else
response.write hh
end if
response.write "</a>"
response.write "<br>"
rs.movenext
next
%>

 



特别的:news.asp为文章内容显示文件,这里就不写了.

点这里下

分享给朋友:
您可能感兴趣的文章:
随机阅读: