大家帮忙看一下这段代码`~~出现问题呀`~~~给高分呀`~
<!--#include file="path.asp"-->
<% 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>