28,391
社区成员
发帖
与我相关
我的任务
分享帮 忙了。散分。asp一个新闻页怎么显示多个图片。
看我的程序。怎么运行只有一个图片。怎么做。
<!--#include file="dingdans.asp"-->
<!--#include file="ubb.asp"-->
<%
id = request.querystring("id")
if id = "" or not(isnumeric(id)) then
response.write "<script>alert(""非法操作，关闭窗口！"");window.close();</script>"
response.end
end if
sql = "update news set hits = hits + 1 where id="& Clng(request.querystring("id"))
conn.execute sql
%>
<html>
<head>
<title>新闻直播</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/index.css" type="text/css">
<style type="text/css">
<!--
.unnamed1 {
font-family: "宋体";
font-size: 12px;
line-height: 22px;
}
-->
</style>
<style type="text/css">
<!--
.unnamed2 {
font-family: "宋体";
font-size: 14px;
color: #003300;
cursor: text;
filter: DropShadow(Color=#D0D1D3, OffX=2, OffY=2);
font-weight: bold;
}
-->
</style>
<STYLE type=text/css>BODY {
FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; FONT-FAMILY: "宋体"; SCROLLBAR-DARKSHADOW-COLOR: #000000; SCROLLBAR-BASE-COLOR: #eeeeee
}
</STYLE>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="62" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="522" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="67">
<table width="417" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="cccccc">
<tr bgcolor="#B9D98E" valign="middle"> </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="4"></td>
</tr>
<tr>
<td class="unnamed2" style="line-height:1.6;">
<%
set rs = server.createobject("adodb.recordset")
sql = "select * from news where id="& id
rs.open sql,conn,1,1
if not(rs.bof or rs.eof) then
hits = rs("hits")
response.write "<div align=""center""><a style=""font-size:14px;""><b>"& trim(rs("topic")) &"</b></a></div>"
%>
</td>
</tr>
<tr>
<td class="unnamed1" style="line-height:1.6;">
<%
response.write "<div align=""center""><br>--- 来源："& trim(rs("sources")) &" 作者："& trim(rs("author")) &" 时间："& rs("intodate") &" ---</div>"
%>
</td>
</tr>
<tr>
<td height="4"></td>
</tr>
<tr>
<td class="unnamed1" style="line-height:2;" align="center" valign="middle">
<%
set rss = server.createobject("adodb.recordset")
sqls = "select * from pics where lei='新闻图片' and pid="& rs("id")
rss.open sqls,conn,1,1
if not(rss.bof or rss.eof) then
%>
<% if trim(rss("fold_tmp")) <> "" and trim(rss("filename")) <> "" then %>
<%do whlie not rss.eof%>
<img src="admins/imge/new/<% = trim(rss("fold_tmp")) %>/<% = trim(rss("filename")) %>"width="400" height="300" border="0" style="border:#000000 1px #000000">
<%rss.movenext
loop%>
<% end if %>
<%
end if
rss.close
set rss = nothing
%>
</td>
</tr>
<tr>
<td class="txt_12_black" style="line-height:2;"> <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="unnamed1" style="line-height:2.2;" background="images/xian2.gif" height="26" valign="middle">
<%
response.write trim(rs("content"))
%>
</td>
</tr>
<tr>
<td class="txt_12_black" style="line-height:2.2;" align="center" height="8" valign="middle"></td>
</tr>
<tr>
<td class="unnamed1" style="line-height:2.2;" align="center" height="24" valign="middle">【浏览
<% =hits %>
次】【<a href="javascript:print();">打印该页</a>】【<a href="javascript:window.close();">关闭窗口</a>】</td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="417" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="cccccc">
<tr bgcolor="#B9D98E" valign="middle">
</tr>
</table>
</body>
</html>
<%
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<!--#include file="dingdans.asp"-->
<!--#include file="ubb.asp"-->
<%
id = request.querystring("id")
if id = "" or not(isnumeric(id)) then
response.write "<script>alert(""非法操作，关闭窗口！"");window.close();</script>"
response.end
end if
sql = "update news set hits = hits + 1 where id="& Clng(request.querystring("id"))
conn.execute sql
%>
<html>
<head>
<title>新闻直播</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/index.css" type="text/css">
<style type="text/css">
<!--
.unnamed1 {
font-family: "宋体";
font-size: 12px;
line-height: 22px;
}
-->
</style>
<style type="text/css">
<!--
.unnamed2 {
font-family: "宋体";
font-size: 14px;
color: #003300;
cursor: text;
filter: DropShadow(Color=#D0D1D3, OffX=2, OffY=2);
font-weight: bold;
}
-->
</style>
<STYLE type=text/css>BODY {
FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; FONT-FAMILY: "宋体"; SCROLLBAR-DARKSHADOW-COLOR: #000000; SCROLLBAR-BASE-COLOR: #eeeeee
}
</STYLE>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="62" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="522" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="67">
<table width="417" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="cccccc">
<tr bgcolor="#B9D98E" valign="middle"> </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="4"></td>
</tr>
<tr>
<td class="unnamed2" style="line-height:1.6;">
<%
set rs = server.createobject("adodb.recordset")
sql = "select * from news where id="& id
rs.open sql,conn,1,1
if not(rs.bof or rs.eof) then
hits = rs("hits")
response.write "<div align=""center""><a style=""font-size:14px;""><b>"& trim(rs("topic")) &"</b></a></div>"
%>
</td>
</tr>
<tr>
<td class="unnamed1" style="line-height:1.6;">
<%
response.write "<div align=""center""><br>--- 来源："& trim(rs("sources")) &" 作者："& trim(rs("author")) &" 时间："& rs("intodate") &" ---</div>"
%>
</td>
</tr>
<tr>
<td height="4"></td>
</tr>
<tr>
<td class="unnamed1" style="line-height:2;" align="center" valign="middle">
<%
set rss = server.createobject("adodb.recordset")
sqls = "select * from pics where lei='新闻图片' and pid="& rs("id")
rss.open sqls,conn,1,1
if not(rss.bof or rss.eof) then
%>
<% if trim(rss("fold_tmp")) <> "" and trim(rss("filename")) <> "" then %>
<%do whlie not rss.eof%>
<img src="admins/imge/new/<% = trim(rss("fold_tmp")) %>/<% = trim(rss("filename")) %>"width="400" height="300" border="0" style="border:#000000 1px #000000">
<%rss.movenext
loop%>
<% end if %>
<%
end if
rss.close
set rss = nothing
%>
</td>
</tr>
<tr>
<td class="txt_12_black" style="line-height:2;"> <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="unnamed1" style="line-height:2.2;" background="images/xian2.gif" height="26" valign="middle">
<%
response.write trim(rs("content"))
%>
</td>
</tr>
<tr>
<td class="txt_12_black" style="line-height:2.2;" align="center" height="8" valign="middle"></td>
</tr>
<tr>
<td class="unnamed1" style="line-height:2.2;" align="center" height="24" valign="middle">【浏览
<% =hits %>
次】【<a href="javascript:print();">打印该页</a>】【<a href="javascript:window.close();">关闭窗口</a>】</td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="417" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="cccccc">
<tr bgcolor="#B9D98E" valign="middle">
</tr>
</table>
</body>
</html>
<%
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
...全文
请发表友善的回复…
发表回复
xxrl 2004-08-18
- 打赏
- 举报
这代码有够乱的
重新写循环，并加上测试语句
重新写循环，并加上测试语句
