急！ 大侠们请进 关于select的接收问题
有两个文件。/*****第一个页面 是选择*****/
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>请选择要查询的人</title>
<style type="text/css">
html,body{ margin:0; padding:0;}
#page{ width:900px; height:330px; margin:50px auto; border:1px solid #999;}
a{ text-decoration:none;}
.up{ height:40px; width:100%; float:left; margin:10px auto; text-align:center; float:left;}
.up h2{ float:left; width:100%;}
.name{ width:60px; margin:50px auto; float:left; text-align:center; }
.name_n{ float:left; width:50px; margin-bottom:10px; margin-left:422px; border:1px solid #666;}
</style>
</head>
<%
dim conn
set conn=server.CreateObject("ADODB.Connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("db.mdb")
%>
<body>
<div id="page">
<div class="up"><h2>请选择要查询的名字</h2></div>
<div class="name">
<div class="name_n">姓名</div>
<%
dim rs,sql
sql="select * from 员工信息"
set rs=conn.execute(sql)
do while not rs.eof%>
<div class="name_n"><a href="recordset1.asp?id=<%=rs("姓名")%>" target="_blank"><%=rs("姓名")%></a></div>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</div>
</div>
</body>
</html>
/******************************* 第二个页面 接收+处理*******************************/
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询一</title>
<style type="text/css">
html,body{ margin:0; padding:0;}
#page{ width:900px; height:292px; margin:50px auto; border:1px solid #999;}
.up{ height:40px; width:100%; float:left; margin:10px auto; text-align:center;}
.up h2{ float:left; width:100%;}
.middle{ float:left; width:99; margin:10px auto; margin-left:37px;}
.middle_cn{ float:left; width:90px; height:22px; border:1px solid #666; line-height:22px; text-align:center; background-color:#9F0;}
</style>
</head>
<%
dim conn
set conn=server.CreateObject("ADODB.Connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("db.mdb")
%>
<body>
<%
dim rs,sql,id
id=request.QueryString("id")
response.Write id
sql="select * from 员工信息 where 姓名="&id
set rs=conn.execute(sql)
%>
<div id="page">
<div class="up">
<h2>我们的通讯录</h2>
</div>
<div class="middle">
<div class="middle_cn">编号</div>
<div class="middle_cn">姓名</div>
<div class="middle_cn">部门</div>
<div class="middle_cn">职务</div>
<div class="middle_cn">职称</div>
<div class="middle_cn">时间</div>
<div class="middle_cn">住房</div>
<div class="middle_cn">专家</div>
<div class="middle_cn">独幼</div>
<div class="middle_cn"><%=rs("编号")%></div>
<div class="middle_cn"><%=rs("姓名")%></div>
<div class="middle_cn"><%=rs("部门")%></div>
<div class="middle_cn"><%=rs("职务")%></div>
<div class="middle_cn"><%=rs("职称")%></div>
<div class="middle_cn"><%=rs("时间")%></div>
<div class="middle_cn"><%=rs("住房")%></div>
<div class="middle_cn"><%=rs("专家")%></div>
<div class="middle_cn"><%=rs("独幼")%></div>
<%rs.close
set rs=nothing
%>
</div>
</div>
</body>
</html>
/*******************************************************运行后的结果************************************/
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/asp/recordset1.asp, 第 27 行
/****************************请各位大侠们看看是什么原因****************************************/
/*****************************************附件就是数据库************************************/
DB.rar
(20.35 KB)
[ 本帖最后由 wlp941 于 2012-12-30 13:21 编辑 ]
