大家帮忙看一下这段代码`出现问题呀`~给高分呀`~

zhyoli 2002-05-17 03:52:15

<% if not isempty (request("page")) then
page=cint(request("page"))
else
page=1
end if
%>
<%
if request("zuozhe")<>"" then
zz1=request("zuozhe")
else
zz1=1
end if
%>
<%
set rs1=server.createobject("ADODB.recordset")
rs1.open "select * from new where zuozhe='"&zz1&"' order by new_id desc",con,1,1
set rs3=server.createobject("ADODB.recordset")
rs3.open "select * from new where zuozhe="&request("zuozhe"),con,1,1
%>
<HTML><HEAD><TITLE>新高新网络<%=zz1%>文学专栏</TITLE>
<SCRIPT language=javascript>
function popwin(url)
{
window.open(url,"","height=470,width=580,resizable=no,scrollbars=yes,status=no,toolbar=yes,menubar=no,location=no");
}
</SCRIPT>

<link rel="stylesheet" href="NEWS.CSS" type="text/css">
<link rel="stylesheet" href="NEWS.CSS" type="text/css">
<link rel="stylesheet" href="csdn.css" type="text/css">
</head>

<BODY text=#000000 bgColor=#ffffff topMargin=0 leftmargin="5">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" height="29">
<tr>
<td background="banner/2002.gif" height="26"> </td>
</tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="79" width="184"><img src="banner/logo.gif" width="105" height="111"></td>
<td height="79" width="436"><img src="banner/banner_shequ.jpg" width="497" height="60"></td>
<td height="79" width="130">
<div align="center"><font color="#000000"><a href="INDEX.asp">文学首页</a></font></div>
</td>
</tr>
</table>
<table width="750" border="0" cellspacing="1" cellpadding="0" align="center" height="202">
<tr>
<td bgcolor="#FFFFFF" valign="top" width="154" height="311">
<table width="62%" border="0" cellspacing="0" cellpadding="0" height="115" align="center">
<tr>
<td valign="top" height="96"><img src="banner/2_8-77-1586_20020514141935.jpg" width="100" height="125">
</td>
</tr>
</table>
<br>
</td>
<td width="593" align="center" valign="top" height="311">
<table width="100%" border="0" cellpadding="0" cellspacing="0" height="198">
<tr>
<td bgcolor="#FFFFFF" height="138" valign="top">
<table width="100%" border="0" cellpadding="4" cellspacing="1" height="42" align="center">
<tr>
<td bgcolor="#FFFFFF" width="62%" height="18"><%=rs3("zuozhe")%>文章标题
</td>
<td bgcolor="#FFFFFF" width="25%" height="18">
<div align="center">更新日期</div>
</td>
<td bgcolor="#FFFFFF" width="13%" height="18">
<div align="center">阅读过</div>
</td>
</tr>
<%if rs1.eof and rs1.bof then
response.write"<td colspan='3' bgcolor='#f3f3f3'> "&rs3("zuozhe")&"下还没有文章呢，等你来投稿呢！^_^</td>"
response.end
else
const size=15
rs1.pagesize=size
rsnum=rs1.recordcount
totlepage=int(rsnum/size)
if (rsnum mod size)>0 then totlepage=totlepage+1
if page<1 or page>totlepage then page=1
rs1.absolutepage=page
while not rs1.eof and num<size
%>
<tr bgcolor="#FFFFCC">
<td width="62%" height="18" bgcolor="#FFFFFF" >
<% if len(trim(rs1("biaoti")))>30 then%>
.<a href="news.asp?new_id=<%=cstr(rs1("new_id"))%>" target="_blank"><%=mid((trim(rs1("biaoti"))),1,30)%>...</a>
<%else%>
.<a href="news.asp?new_id=<%=cstr(rs1("new_id"))%>" target="_blank"><%=trim(rs1("biaoti"))%></a>
<% end if
if rs1("img")=1 then
response.write "<img src='images/img.gif' border=0 width=16 height=16 align=middle>"
end if
select case right(rs1("href"),4)
case ".ace"
response.write "<img src='images/ace.gif' border=0 width=16 height=16 align=middle>"
case ".zip"
response.write "<img src='images/zip.gif' border=0 width=16 height=16 align=middle>"
case ".rar"
response.write "<img src='images/rar.gif' border=0 width=16 height=16 align=middle>"
case ".exe"
response.write "<img src='images/exe.gif' border=0 width=16 height=16 align=middle>"
case ".mp3"
response.write "<img scr='images/winamp.gif' border=0 width=16 height=16 align=middle>"
case ".rm"
response.write "<img scr='images/real.gif' border=0 width=16 height=16 align=middle>"
end select
%>
<%dim two_d
two_d=DateDiff( "d", CDate(rs1("time")), Now)
if two_d<=3 then
%>
<img src="IMAGES/newdd.gif" width="28" height="11">
<%
end if
%>
<a href="aa.htm"> </a></td>
<td width="25%" height="18" bgcolor="#FFFFFF">
<div align="center"><%=rs1("time")%></div>
</td>
<td width="13%" height="18" bgcolor="#FFFFFF">
<div align="center"><%=rs1("dianji")%></div>
</td>
</tr>
<% rs1.movenext
num=num+1
wend
rs1.close
set rs1=nothing
end if%>
</table>
<p class="middle"> </p>
</td>
</tr>
</table>
<div align="left">
<%select case page
case 1:
%>
<div align="right"><a href="zuozhe.asp?zuozhe=<%=rs3("zuozhe")%>&page=2">下一页</a>=-=第<%=page%>页/共<%=totlepage%>页
每页<%=size%>篇文章
<%
case totlepage:
%>
<a href="zuozhe.asp?zuozhe=<%=rs3("zuozhe")%>&page=<%=page-1%>">上一页</a>=-=第<%=page%>页/共<%=totlepage%>页
每页<%=size%>篇文章
<% case else: %>
<a href="zuozhe.asp?zuozhe=<%=rs3("zuozhe")%>&page=<%=page+1%>">下一页</a>=-=<a href="zuozhe.asp?zuozhe=<%=rs3("zuozhe")%>&page=<%=page-1%>">上一页</a>第<%=page%>页/共<%=totlepage%>页
每页<%=size%>篇文章
<%end select%>
<%rs3.close
set rs3=nothing%>
</div>
</div>
</td>
</tr>
</table>
<p align="center"><b><font size="2"> </font></b></p>
</BODY></HTML>

...全文

80 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhyoli 2002-05-20

打赏
举报

zuozhe 是字符型的`~~~
new 是表的名字`~~~

ywz413 2002-05-17

打赏
举报

new 是关键字

hiflash 2002-05-17

打赏
举报

zuozhe段这个字是什么类型的？

zhyoli 2002-05-17

打赏
举报

楼上的有出现错误`~~
错误类型：
ADODB.Field (0x80020009)
/hotweb1/zuozhe.asp
出现以下错误~~

ChinaOk 2002-05-17

打赏
举报

rs3.open "select * from new where zuozhe="&request("zuozhe"),con,1,1
没有引号
rs3.open "select * from new where zuozhe='"&request("zuozhe")&"'",con,1,1

ChinaOk 2002-05-17

打赏
举报

smallbugs()
你要管吗/
什么都没有，你爱看自己去看。

zhyoli 2002-05-17

打赏
举报

不好意思`~可能是我的表达能力不好`~~~~~~心里知道，表达不出来`~~~
请大家不要生气了`~~~~
我的意思是`~~让这个页面获取上个页面传过来的变量，查找到符合这个条件的记录，然后分页显示~~~~~~~~

smallbugs 2002-05-17

打赏
举报

这行吗?set rs3=server.createobject("ADODB.recordset")

zhyoli 2002-05-17

打赏
举报

这是出错类型，包含文件是数据库路径文件，没有问题~~这个页面的主要功能是，查找上个页面传过来的变量~~~然后分页显示~~~~~~~~
可能在自身提交的时候出了问题~~~就是变量之间搞糊涂了~~所以请大家看看，~~谢谢`~~
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
/hotweb1/zuozhe.asp, 第 19 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页：
GET /hotweb1/zuozhe.asp

yzx_zyj 2002-05-17