珩源工控论坛 - Powered by Discuz! Board

标题: [原创]谁能看看我这个调用那里错了 [打印本页]

作者: thj999 时间: 2007-12-15 11:18 标题: [原创]谁能看看我这个调用那里错了

<%@ 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>
我认为是对的,可不能显示结果

作者: fghser 时间: 2007-12-16 19:00

亲爱的thj999用户：
你好！以后发帖子的时候请不要锁定贴子，要是锁定帖子的话其他朋友就不能回你的帖子了。
测试你的程序的时候有没有什么提示？你可以吧你的数据库也发上来，大家一起看看是不是有问题。

作者: z2u9o2a9f3q 时间: 2010-12-15 23:03

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

作者: z7c0k9z3y0r 时间: 2010-12-16 00:08

人如其名，楼主你很给力啊！！

欢迎光临珩源工控论坛 (http://bbs.hymcu.com/)