返回列表 发帖

[原创]谁能看看我这个调用那里错了

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim dd
set dd=server.CreateObject("adodb.connection")
dd.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("tushu.mdb")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>


<%
dim yy
set yy=server.CreateObject("adodb.recordset")
yy.open "select * from tushumulu",dd,1,1
%>
<body>
<%
if yy.eof and yy.bof then
response.Write("没有数据")
else
do while (not yy.eof)
%>
<a href="xx.asp?bh=<%=yy("bh")%>"><%=yy("name")%></a>
<%
yy.movenext
loop
end if%>
<%
yy.close
set dd=nothing%>
</body>
</html>



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim ss
if (request.Form("bh")<>"")then
ss=request.Form("bh")
end if
%>
<%
dim dd
set dd=server.CreateObject("adodb.connection")
dd.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("tushu.mdb")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<%
dim ff
set ff=server.CreateObject("adodb.recordset")
ff.open "select * from tushumulu where bh="&int(id),dd,1,1
%>

<body>

<table width="400" border="1" align="center" cellpadding="1" cellspacing="1">
  <tr>
    <th scope="col">编号</th>
    <th scope="col">书名</th>
    <th scope="col">价格</th>
    <th scope="col">作者</th>
  </tr>
  <tr>
  <%
   do while (not ff.eof)%>
    <td><%=ff("bh")%></td>
    <td><%=ff("name")%></td>
    <td><%=ff("jg")%></td>
    <td><%=ff("zz")%></td>
  </tr>
  <%ff.movenext()
  loop%>
  <%
  ff.close
  set bb=nothing%>
</table>
</body>
</html>
我认为是对的,可不能显示结果

亲爱的thj999用户:
   你好!以后发帖子的时候请不要锁定贴子,要是锁定帖子的话其他朋友就不能回你的帖子了。
   测试你的程序的时候有没有什么提示?你可以吧你的数据库也发上来,大家一起看看是不是有问题。
一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

因为帖子太长啦,所以先顶了在看啦~~~

TOP

人如其名,楼主你很给力啊!!

TOP

返回列表

最新关注 关闭


关于论坛注册,最新修改,请网友们注意

由于最近大量垃圾信息出现在我们的论坛,为了营造一个良好的氛围,目前论坛只开发邀请注册,你可以点击以下链接自动邀请注册(如果有人使用了点击下一个试一试) ...


查看
珩源工控论坛热诚欢迎您联系我们进行合作!

Powered by Discuz! 7.2© 2001-2009 Comsenz Inc.

珩源工控论坛 ( 桂ICP备19004328号) |论坛统计|WAP| 客服中心-www.hymcu.com
  

GMT+8, 2024-4-25 14:50, Processed in 1.068943 second(s), 5 queries, Gzip enabled.