您所在位置：主题：一个从数据库提取数的程序问题
quechaotian [专家分：10] 发布于 2005-04-21 14:54:00
将数据库book,用户界面的chakan.htm,和asp处理文件chakan.asp都放在虚拟服务器上，浏览运行chakan.htm，是否就可以了。为何点击后没有反应。
chakan.htm 代码：
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>察看图书请点击这里</title>
</head>
<body>
<form method=post action=chakan.asp>
<p>察看图书请点击这里： <input type=submit name=button value=察看图书> </p>
</form>
</body>
</html>
处理文件chakan.asp代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<body>
<script language="vbscript”RunAt="server">
const adOpenStatic=3
const adLockReadOnly=1
const adCmdTable=2
Set rs=Server.CreateObject("ADODB.Recordset")
</script>
<%
source="select*from book"
ActiveConnection="dsn=book"
rs.Open source.ActiveConnection,CursorType,LockType,Options
End If
Response.Write"<table border=3>"
Response.Write<"tr">
For I=0 To rs.Fields.Count-1
Resonse.Write"<td>"&Ucase(rs(i).Name)&"</td>"
Next
Response.Write"<tr>"
While NOT rs.EOF
Response.Write"<tr>"
For I=0 To rs.Fields.Count-1
Response.Wrete"<td>"&rs(i).Value&</td>"
Next
rs.MoveNext
Wend
response.write"</table>"
Set conn=nothing
%>
</body>
</html>
数据库book为：
empno empname dept title birthday salary
1001 王大华 业务 经理 1972-8-1 3000
1002 白大发 人事 科长 1970-11-4 2500
1003 陈纤小 会计 业务员 1972-4-1 4000
chakan.htm 代码：
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>察看图书请点击这里</title>
</head>
<body>
<form method=post action=chakan.asp>
<p>察看图书请点击这里： <input type=submit name=button value=察看图书> </p>
</form>
</body>
</html>
处理文件chakan.asp代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<body>
<script language="vbscript”RunAt="server">
const adOpenStatic=3
const adLockReadOnly=1
const adCmdTable=2
Set rs=Server.CreateObject("ADODB.Recordset")
</script>
<%
source="select*from book"
ActiveConnection="dsn=book"
rs.Open source.ActiveConnection,CursorType,LockType,Options
End If
Response.Write"<table border=3>"
Response.Write<"tr">
For I=0 To rs.Fields.Count-1
Resonse.Write"<td>"&Ucase(rs(i).Name)&"</td>"
Next
Response.Write"<tr>"
While NOT rs.EOF
Response.Write"<tr>"
For I=0 To rs.Fields.Count-1
Response.Wrete"<td>"&rs(i).Value&</td>"
Next
rs.MoveNext
Wend
response.write"</table>"
Set conn=nothing
%>
</body>
</html>
数据库book为：
empno empname dept title birthday salary
1001 王大华 业务 经理 1972-8-1 3000
1002 白大发 人事 科长 1970-11-4 2500
1003 陈纤小 会计 业务员 1972-4-1 4000
