<%
strcon = "DSN=wqj;UID=admin;PWD=admin"
set conn= Server.CreateObject("ADODB.Connection")
con.ConnectionTimeout=15
con.CommandTimeout=10
con.Open strcon
set rs=Server.CREATEOBJECT("ADODB.Recordset")
sql="select top 8* from news order by addtime desc,id desc"
rs.open sql,conn,3,3
rscount =rs.recordcount
if rscount <=0 Then
Response.Write("目前没有新闻!")
Else
while("not rs.eof")
%>
<tr>
<td width="76%" height="27" align="left" bgcolor="d6dff7">
<%=rs("title")%>(<%=rs("addtime")%>)</td>
<td width="13%" height="27" align="left" bgcolor="d6dff7">
<a href="newsmodi.asp? id=<%=rs("id")%>">修改</a></td>
<td width="11%" height="27" align="left" bgcolor="d6dff7">
<a href="newsdel.asp? id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
con.close
strcon = "DSN=wqj;UID=admin;PWD=admin"
set conn= Server.CreateObject("ADODB.Connection")
con.ConnectionTimeout=15
con.CommandTimeout=10
con.Open strcon
set rs=Server.CREATEOBJECT("ADODB.Recordset")
sql="select top 8* from news order by addtime desc,id desc"
rs.open sql,conn,3,3
rscount =rs.recordcount
if rscount <=0 Then
Response.Write("目前没有新闻!")
Else
while("not rs.eof")
%>
<tr>
<td width="76%" height="27" align="left" bgcolor="d6dff7">
<%=rs("title")%>(<%=rs("addtime")%>)</td>
<td width="13%" height="27" align="left" bgcolor="d6dff7">
<a href="newsmodi.asp? id=<%=rs("id")%>">修改</a></td>
<td width="11%" height="27" align="left" bgcolor="d6dff7">
<a href="newsdel.asp? id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
con.close
不用加引號
while(not rs.eof)
sql="select top 8* from news order by addtime desc,id desc"