asp 语句出显问题请高手们帮助一下

来源:百度知道 编辑:UC知道 时间:2024/05/16 20:30:51
<%
dim db
dim dbpath
set db=server.createobject("adodb.connection")
dbpath = Server.MapPath("wyqz\SimpleDesign.mdb")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
%>
<table width="98%" height="167" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<% set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from tjzp order by ID desc"
rs.open sql,db,1, 1
while not rs.eof
%>
<tr>

<td bgcolor="#FFFFFF">
<div align="center">
<table width="161" height="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="118"> <div align="c

<table width="98%" height="167" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr>
<% set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from tjzp order by ID desc"
rs.open sql,db,1, 1
kk=1
if not rs.eof then
while not rs.eof
%>

<td bgcolor="#FFFFFF">
<div align="center">
<table width="161" height="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="118"> <div align="center"><a href="wyqz\news.asp?id=<%=rs("id")%>"><img src="<%= rs("zpdt") %>"width="141" height="92" border="0"></a></div