高考问答画情百度云资源:asp题求助
来源：百度文库 编辑：高考问答 时间：2024/05/10 06:20:58
页面就出错了，请问我应该怎么改，跪求解！
-----------------------------------------------------
<html>
<head>
<!--#include file="conn.asp"-->
<!--#include file="html.inc"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>真空吸盘-机械手-真空吊具上海瓦科自动化设备公司</title>
<link href="../css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {color: #FFFFFF}
.style4 {color: #CCCCCC}
-->
</style>
</head>
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="right" bgcolor="#E6E6E6">
<td colspan="2" bgcolor="#00699D"><span class="style4">上海瓦科为您提供专业的真空吸盘，工业机械手和真空吊具产品</span></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="32%" background="../images/top_57.jpg"><!--#include file="left-02.asp" --></td>
<td width="68%" background="../images/top_58.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><!--#include file="top.asp" --></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td height="138" valign="middle" background="../images/top_20.jpg"><div align="center">
<TABLE width="96%" border=0 align="left" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height="54"><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
由于限字数写不下了，可以参看http://www.vacu.cn/cn/index.txt这一页的源文件。
二楼的不对呀，我改了以后还是无法显示网页，服务器内部出错。
<% set frs=server.CreateObject("adodb.recordset")
sql="select top 5 * from news where nclassid=11 order by id desc"
frs.open sql,con,1,1
if frs.bof or frs.eof then
response.write"<font color=red font-size=12px>没有这条信息！</font>"
'response.write"<table> </table>"
end if
%>
<% do while not frs.eof %>
<tr>
<td height="24"> <img src="../images/jt.gif" width="5" height="5" border="0"> <a href="shortshow.asp?id=<%=frs("id")%>" target="_blank">
<%temp=frs("title")%>
<% if len(temp)>30 then%>
<%=left(temp,30)%>...
<% else %>
<%=temp%>
<% end if%>
</a></td>
</tr>
<%
frs.movenext
loop
frs.close
%>
改成:
<% set frs=server.CreateObject("adodb.recordset")
sql="select top 5 * from news where nclassid=11 order by id desc"
frs.open sql,con,1,1
if frs.bof or frs.eof then
response.write"<font color=red font-size=12px>没有这条信息！</font>"
'response.write"<table> </table>"
else
%>
<% do while not frs.eof %>
<tr>
<td height="24"> <img src="../images/jt.gif" width="5" height="5" border="0"> <a href="shortshow.asp?id=<%=frs("id")%>" target="_blank">
<%temp=frs("title")%>
<% if len(temp)>30 then%>
<%=left(temp,30)%>...
<% else %>
<%=temp%>
<% end if%>
</a></td>
</tr>
<%
frs.movenext
loop
end if
frs.close
%>