高校问答风女仙侠皮肤视频:ASP查询反馈页面，高手帮调试下，没搞定
来源：百度文库 编辑：高校问答 时间：2024/05/04 07:27:52
<%
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("test.mdb")
SQL = "Select * From wardata Order By money DESC"
SET CustomerList = coon.EXECUTE(SQL)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>全部信息查询</title>
</head>
<body>
<table width="200" border="1">
<tr>
<td rowspan="2">编号</td>
<td rowspan="2">姓名</td>
<td rowspan="2">部门</td>
<td rowspan="2">工资</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
<tr>
<td><% =CustomerList("id") %></td>
<td><% =CustomerList("username") %></td>
<td><% =CustomerList("department") %></td>
<td><% =CustomerList("money") %></td>
</tr>
<% =CustomerList("id") %>
<% CustomerList.movenext
loop
%>
</table>
</body>
</html>
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("test.mdb")
SQL = "Select * From wardata Order By money DESC"
SET CustomerList = coon.EXECUTE(SQL)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>全部信息查询</title>
</head>
<body>
<table width="200" border="1">
<tr>
<td rowspan="2">编号</td>
<td rowspan="2">姓名</td>
<td rowspan="2">部门</td>
<td rowspan="2">工资</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
<tr>
<td><% =CustomerList("id") %></td>
<td><% =CustomerList("username") %></td>
<td><% =CustomerList("department") %></td>
<td><% =CustomerList("money") %></td>
</tr>
<% =CustomerList("id") %>
<% CustomerList.movenext
loop
%>
</table>
</body>
</html>
SET CustomerList = coon.EXECUTE(SQL)
这一句马虎了，应该是Conn.execute(SQL)
如果有其它错误把错误信息也发上来吧。不知道数据库方面是否有错。