应该怎样办？请大家帮忙！

wei131420 2001-07-18 05:50:23
我有一个连接如下：想连接后显示数据表中记录的相应内容
<a href=showonly.asp? id=<%=rs("id")%> target=_blank> 点击进入</a>

showonly.asp的代码如下：

<body bgcolor="#FEF7ED">
<%
dim vid
vid=request.querystring("id")
'response.write vid
if vid="" or isnull(vid) or not isnumeric(vid) then
response.write "参数错误，不能进行操作！"
response.end
end if
Set conn=Server.CreateObject("Adodb.Connection")
connstr="DBQ="+server.mappath("database/gstbook.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from book where id=" &clng(vid)
rs.Open SQL,conn,0,1
if rs.eof and rs.bof then
response.write "没有相关的数据，可能已经被删除了"
response.end
else
%>

<table cellspacing="0" bordercolor="#C5F2FC" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" cellpadding="0" border="1" >
<tr bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bordercolor="#FFFFFF" hight="100%" >
<td bgcolor="#FEF7ED" width="12%" align="center" height="20"><%=rs("datetime")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="29%" align="center" height="20"><%=rs("onwhere")%></td>
<td align="center" height="20">　　
<td bgcolor="#FEF7ED" width="11%" align="center" height="20"><%=rs("size")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="13%" align="center" height="20"><%=rs("huxing")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="10%" align="center" height="20"><%=rs("piace")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="15%" align="center" height="20"><%=rs("fromwhere")%></td>
<td align="center" height="20">　

</tr>
</table>

<%
end if
rs.close
set rs=nothing
%>

</body>

不知道为什么一运行总是说："参数错误，不能进行操作！"就是我的判断语句，是不是错了。我试过用 response.write vid 看看有没有传过来，不过好像没有，怎么办阿？
请帮忙找出错误，急用！谢谢各位啦！
...全文
83 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
wei131420 2001-07-18
  • 打赏
  • 举报
 回复
to:梦之旅
行啦！谢谢你啊！
tripofdream 2001-07-18
  • 打赏
  • 举报
 回复
<a href=showonly.asp? id=<%=rs("id")%> target=_blank> 点击进入</a>
“？”后多了一个空格，去掉它
wei131420 2001-07-18
  • 打赏
  • 举报
 回复
to:青苹果
我上一个页面的程序是这样的：
<title>资料显示</title>
</head>
<body bgcolor="#FEF7ED">
<%
table="book"
Set conn=Server.CreateObject("Adodb.Connection")
connstr="DBQ="+server.mappath("database/gstbook.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from book order by id desc"
rs.Open SQL,conn,1,1
%>
<table cellspacing="0" bordercolor="#C5F2FC" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" cellpadding="0" border="1" >
<%
while not rs.eof
%>

<tr bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bordercolor="#FFFFFF" hight="100%" >
<td bgcolor="#FEF7ED" width="12%" align="center" height="20"><%=rs("datetime")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="29%" align="center" height="20"><%=rs("onwhere")%></td>
<td align="center" height="20">　　
<td bgcolor="#FEF7ED" width="11%" align="center" height="20"><%=rs("size")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="13%" align="center" height="20"><%=rs("huxing")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="10%" align="center" height="20"><%=rs("piace")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="15%" align="center" height="20"><%=rs("fromwhere")%></td>
<td align="center" height="20">　
<td bgcolor="#FEF7ED" width="10%" align="center" height="20"> <a href=showonly.asp? id=<%=rs("id")%> target=_blank> 点击进入</a></td>
<td align="center" height="20">　
</tr>
<%
rs.movenext
wend
%>
</table>
<%
rs.close
set rs=nothing
%>

</body>
</html>
wei131420 2001-07-18
  • 打赏
  • 举报
 回复
to: gq
我把它改了不过还是不行，和没改一样，能不能帮忙另写一个阿，急用！请你帮帮忙！
eastliangliang 2001-07-18
  • 打赏
  • 举报
 回复
看看上一页的rs是不是在链接前就释放了。
tripofdream 2001-07-18
  • 打赏
  • 举报
 回复
看你前一个页上的链接"?id="后有没有值
gq 2001-07-18
  • 打赏
  • 举报
 回复
<a href=showonly.asp? id=<%=rs("id")%> target=_blank> 点击进入</a>
改为<a href=showonly.asp? id=1> target=_blank> 点击进入</a>
试试能不能成功。
如果成功。说明rs("id")没有值。
不成功。看看什么错误。。
php闪字生成,在线闪字
路由器之家网今天精心准备的是《在线闪字》，下面是详解！闪字在线制作有没有那种一笔一笔写出来的闪字？或者能制作很可爱很温暖闪字的网站？很急啊！！！！！！...有没有那种一笔一笔写出来的闪字？或者能制作很可爱很温暖闪字的网站？很急啊！！！！！！http://img.gaitu.com/eimg/201004220226055606.jpg我在改图网上给你找了一张，不过不是认动的，改图上有大量的图片，你...
还分不清APS、MES与ERP的区别？漫画+故事来帮忙！
本篇文章通过漫画和故事的形式对APS、MES与ERP的区别进行形象的PK，有趣又易于理解，一起来看下吧。 先来说说ERP与MES的区别 ERP：企业资源计划 一天中午，丈夫在外给家里打电话：“亲爱的老婆，晚上想带几个同事回家吃饭可以吗？”（订货意向） 丈夫：“6个人，我们7点左右回来，准备些酒 烤鸭番茄炒蛋 凉菜 蛋花汤。。。。。。，你看可以吗？”（商务沟通） 妻子：“没问题，我会准备好的，”（订单确认） 妻子记录下需要做的菜单（主生产计划），具体要准备的菜：鸭 酒 番茄 鸡蛋 食用油。。。
fiddler-11-抓不到https咋办？导入证书失败咋办？
近日我司有位小伙伴说fiddler坏了？ 因为抓不到https，无法解决，于是我趁小伙伴去开会了，帮忙搞一搞，最后解决办法如下： 一、fiddler抓不到https怎办？ 1.清除C:\Users\Administrator\AppData\Roaming\Microsoft\Crypto\RSA目录下所有文件(首次安装fiddler请忽略) 2.清除电脑上的根证书，WIN+R快捷键，...
IT 进阶指南：如何让 IT 免于 “挨踢” ？
作为当代职场最能“挨踢”的岗位 IT 们人如其名 默默挨受了不少常人不能忍受之痛“踢” 高薪、加班，格子衫 会修电脑手机路由器 性格木讷没情趣 只爱宅家打游戏 …… 不仅如此 作为隐秘而伟大的组织成员 同事们认为他们的作用就是 闲时总是看不见 一有问题就上线 电脑坏了？ IT 来一下! 网络断了？ IT 再来一下！ 系统出 bug 了？ IT 快修一下！ 饮水机没水了？ IT 换个水呗！ 那么问题来了 随叫随到的企业...
『程序员』 [求职招聘]软件测试面试题，高手帮忙！！
『程序员』 [求职招聘]软件测试面试题，高手帮忙！！  作者：janny161   提交日期：2005-12-8 19:32:18楼主　　有100个金币，其中有一个比较轻。给你一个天平，怎样用四次天平确认出哪个金币轻？　　 作者：ViviHCW   回复日期：2005-12-8 20:1
ASP

28,391

社区成员

357,060

社区内容

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

加载中

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

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

+ 用AI写文章