|
- 帖子
- 1
- 主题
- 1
- 精华
- 0
- 积分
- 3
- 在线时间
- 7 小时
- 注册时间
- 2007-12-15
|
<%@ 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>
我认为是对的,可不能显示结果
|
|
发表于 2007-12-15 11:18
|