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

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

<!--#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
%>