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

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>
...全文
124 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
  • 打赏
  • 举报
 回复
问题应该问到点子上，别人帮你解决就能快点。。。。
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")
对L2和B2的阐述
根据英特尔官方称，之所以把B2步进E6300改产成L2步进的原生2M的E6300，原因在于B2在生产上和高端6800属一类型的内制芯片，在针脚面都拥有7颗主晶体，是很容易让E6300超到很高，E6300面临着以后的中端市场不得不将其价格低下来，也就将E6300的芯片减少，降低成本，把原有的7颗减少到3颗。但是，官方表示L2步进的E6300在性能上绝不会差于B2步进的，只是在超...
【测绘摄影测量】空间前方交会数据
【测绘摄影测量】空间前方交会数据
1123bevdet-op-optimize.onnx
1123bevdet-op-optimize.onnx
ContextCapture倾斜摄影空三建模最快方案2018
源码下载地址： https://pan.quark.cn/s/40677b766bda "ContextCapture 倾斜摄影快速、创新及全面空三建模与单机集群硬件部署方案2018" 此资源聚焦于倾斜摄影（ContextCapture）空三建模及单机集群硬件部署方案，致力于为用户呈现最快、最优成本效益的台式工作站、移动工作站、并行集群的多样化部署选择。以下是该资源的详细知识点概述： 一、相关设备型号说明 * UltraLAB 是西安坤隆计算机科技有限公司推出的专属图形工作站品牌，具备三大卓越优势：顶尖的计算硬件架构、精准的行业应用定制服务、专业的硬件系统优化工艺。 二、硬件部署方案 * 台式工作站部署建议：设备特色在于当前市场上最快的台式计算架构，适用于办公场景下，部门层级常规的倾斜摄影空三处理、三维建模。 * 便携式工作站部署建议：设备特色在于当前市场上最快的移动计算架构，适用于移动倾斜摄影的空三处理、三维建模工作站。 * 大数据量处理工作站推荐：设备特色在于极限自动超频加速与16个并行存储构造，具备空三处理和三维建模最强的计算性能及海量高速并行存储性能。 * 多设备并行计算集群部署建议：针对海量图像数据计算产生的巨大需求，单机计算能力处理时间过长，效率不高，通过多台机器并行集群，进行空三处理、三维建模，显著减少处理时间。 三、部署方案深入解析 * 2.1 倾斜摄影建模（台式工作站）部署方案：设备特色在于最高的计算处理能力~6核5.2GHz，内存最大配置可达64GB，配备最新图灵架构的RTX显卡，相比市场其他品牌机器（单CPU、双Xeon处理器）更快、更具成本效益。 * 2.2 倾斜摄影建模（移动便携式工作站）硬件部署方案：设备特色在于最高的计算处理能力~6...
2026大童保险好赔时光（理赔案例合集）
2026大童保险好赔时光（理赔案例合集）
ASP

28,403

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章