<%
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
%>
发表于 2007-12-15 11:18
| 
