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

zhyoli 2002-05-17 03:52:15
<!--#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>
...全文
48 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
问题应该问到点子上,别人帮你解决就能快点。。。。
回复
smallbugs 2002-05-17
ChinaOK(授人以鱼,不如授人以渔)
啥意思你?
回复
jxwangzhigang 2002-05-17
那里出了问题
给点报错信息!
太长了,眼神不好!
回复
ChinaOk 2002-05-17
让大家跟你学习吗?
回复
smallbugs 2002-05-17
<!--#include file="path.asp"-->这个包含文件是做什么的?
回复
smallbugs 2002-05-17
你的数据库连接在哪?
set conn=server.createobject("adodb.connection")
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-17 03:52
社区公告
暂无公告