asp 图片新闻 修改为分两列三行显示
这是源文件
<!--#include file="conn.asp"-->
<html>
<head>
<title>图片新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<%
sql="select top 6 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
do while not rs.eof and not rs.bof
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
<%
rs.movenext
loop
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>"
end if
rs.close
set conn=nothing
%>
</body>
</html>
不管用呢 提示“Microsoft VBScript 编译器错误 '800a040e'
'loop' 语句缺少 'do'
\2.asp, line 46
”
<html>
<head>
<title>图片新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<%
sql="select top 6 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
i=1
do while not rs.eof and not rs.bof
if i mod 2=1 then
%>
<tr>
<td align="center">
<table width="150" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
</td>
<%else%>
<td align="center">
<table width="150" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
</td></tr>
<%
rs.movenext
i=i+1
loop
'跳出循环时如果i为双数，说明记录数为单，应该补上一个空白单元格
if i mod 2=0 then
%>
<td> </td></tr>
<%end if%>
</table>
<%
else
response.write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr></table>"
end if
rs.close
set conn=nothing
%>
</body>
</html>
<html>
<head>
<title>图片新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
sql="select top 3 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
do while not rs.eof and not rs.bof
%>
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr><%
rs.movenext
loop
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>"
end if
rs.close
set conn=nothing
%>
</table>
</body>
</html>本回答被提问者采纳
asp 图片新闻 修改为分两列三行显示
<a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic\/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"> <a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%> <%else%> ...
(高手)asp数据如何分两列显示
在处理ASP数据时，若想将其分两列显示，只需明确区分数据字段并分别展示。例如，展示标题的前22个字符和发布日期。具体操作如下：首行代码中，"cutstr(rs_news("title"),22)"表示截取标题字段的前22个字符，用于第一列展示。这里使用了自定义函数`cutstr`，该函数应预先定义，用于根据指定长度截取字符...
asp 调用图片 如何分行显示
> <a href='goods_info.asp?goods_id=<%=vertigo2("goods_id")%>' target=_blank><img src='<%=vertigo2("goods_pic")%>' width=75 height=75 border=0 style='border: 1px solid #000000'><%=left((vertigo2("goods_name")),7)%><%=vertigo2("goods_price")%>Ԫ < ...
什么是asp木马,入侵这是用他控制网站还是控制普通用户?
2. 查找关键字,asp木马都是有关键字的,也就像病毒的特征码,我们用windows自带的搜索功能就能查找到 ,查找包含内容为关键字的所有文件就可以了,找到以后看下就可以了,有时候能查找到一些asp的大文件,如果是虚拟主机的话,一般是数据库文件改成asp的了,如果是一句话木马的关键字就小心了,如果是大型木马的关键字,咱...
asp分页代码
<!-- .STYLE3 {font-family:"黑体";color:999999;font-size:30px;} --> <!--#include file="top.asp"--> <!---***88---> < '这里提醒你一个问题，本来开始里这段代码是写在上面我打**号的地方，记住了如果当记录不存在的时候，你的页面就会变形，严格的根据框架来哦...
