2.8w+
社区成员
初学者的问题（恳请大家帮忙）
我想做一个页面显示数据库中的内容，请帮忙！我的数据库user中只有两个字段name\tel
应该怎样做啊？请大家写详细点，最好是写全！因为我是初学的，请大家帮忙！
页面显示如下效果：
name tel
小明 886
恳请大家帮忙！
应该怎样做啊？请大家写详细点，最好是写全！因为我是初学的，请大家帮忙！
页面显示如下效果：
name tel
小明 886
恳请大家帮忙！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
liugys 2001-07-14
正式版
<html>
<head>
<title>数据库内容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
<%
'定义数据库连接
database=SERVER.MapPath ("user.mdb") '将"user.mdb"改为你的数据库名
table="userinfo" '将"userinfo"改为你的表名
Set conn=Server.CreateObject("Adodb.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& database
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM" & table
rs.Open SQL,conn,1,1
%>
<table width="50%" border="1">
<tr>
<td>姓名：</td>
<td>电话：</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
</tr>
<%
rs.movenext
wend
%>
</table>
<%
rs.close
set rs=nothing
%>
</body>
</html>
<html>
<head>
<title>数据库内容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
<%
'定义数据库连接
database=SERVER.MapPath ("user.mdb") '将"user.mdb"改为你的数据库名
table="userinfo" '将"userinfo"改为你的表名
Set conn=Server.CreateObject("Adodb.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& database
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM" & table
rs.Open SQL,conn,1,1
%>
<table width="50%" border="1">
<tr>
<td>姓名：</td>
<td>电话：</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
</tr>
<%
rs.movenext
wend
%>
</table>
<%
rs.close
set rs=nothing
%>
</body>
</html>
liugys 2001-07-14
再试试，注意将数据库名和表名改为自己的
<html>
<title>数据库内容</title>
<body>
<%
'定义数据库连接
Set conn=Server.CreateObject("Adodb.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& SERVER.MapPath ("user.mdb")
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM userinfo"
rs.Open SQL,conn,1,1
while not rs.eof '循环显示所有记录
%>
姓名：<%=rs("name")%> 电话：<%=rs("tel")%> <br>
<%
wend
rs.close
set rs=nothing
%>
</body>
</html>
<html>
<title>数据库内容</title>
<body>
<%
'定义数据库连接
Set conn=Server.CreateObject("Adodb.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& SERVER.MapPath ("user.mdb")
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM userinfo"
rs.Open SQL,conn,1,1
while not rs.eof '循环显示所有记录
%>
姓名：<%=rs("name")%> 电话：<%=rs("tel")%> <br>
<%
wend
rs.close
set rs=nothing
%>
</body>
</html>
wei131420 2001-07-14
上面的好像运行不了啊？请再看看好吗？最好是上机通过。谢了！写好，一定给分！
liugys 2001-07-14
给个简单点的，假设你的数据库名为user.mdb,表名为userinfo
<html>
<title>数据库内容</title>
<body>
<%
'定义数据库连接
Set conn=Server.CreateObject("Adodb.Connection")
connstr="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" & SERVER.MapPath ("user.mdb")
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM userinfo"
StrRes.Open SQL,conn,1,1
while no rs.eof '循环显示所有记录
%>
姓名：<%=rs("name")%> 电话：<%=rs("tel")%> <br>
<%
wend
rs.close
set rs=nothing
%>
</body>
</html>
<html>
<title>数据库内容</title>
<body>
<%
'定义数据库连接
Set conn=Server.CreateObject("Adodb.Connection")
connstr="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" & SERVER.MapPath ("user.mdb")
conn.open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM userinfo"
StrRes.Open SQL,conn,1,1
while no rs.eof '循环显示所有记录
%>
姓名：<%=rs("name")%> 电话：<%=rs("tel")%> <br>
<%
wend
rs.close
set rs=nothing
%>
</body>
</html>
yunt 2001-07-14
记得给分哦
yunt 2001-07-14
<%
Dim StrConn,StrRes,StrSQL,StrDSN
Set StrConn=Server.CreateObject("Adodb.Connection")
StrDSN="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" & SERVER.MapPath ("rcinfor.mdb")
StrConn.Open StrDSN
Set StrRes=Server.CreateObject("Adodb.RecordSet")
StrSQL="SELECT * FROM zpzlsr"
StrRes.Open StrSQL,strconn,1,1
sql="select * from qzzlsr"
%>
<%
vid=request.querystring("vid")
if vid="" or not isnumeric(vid) then
response.write "<p align=center>你无权使用"
response.end
end if
set strres=myconn.execute("select * from infor where id="&vid)
if strres.eof and strres.bof then
response.write "<p>你查看的信息被删除了</p>"
else
%>
<html>
<title><%=strres("gw1")%>的详细信息</title>
<link rel=stylesheet href=style.css>
<body>
<br>
<table align="center" width="95%" cellspacing="1" cellpadding="3" bgcolor="#0097d5" >
<tr align="center">
<td colspan="2" bgcolor="#ebf4ff">招聘单位详细信息</td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘单位</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zpdw")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘岗位</td>
<td width="82%" bgcolor="#ffffff"><%=strres("zpgw")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘专业</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zpzy")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘人数</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zprs")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">性别要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("xbyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">职称要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zcyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">工作年限</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("gznx")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">外语要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("wyyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">外语水平</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("wysp")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">工资待遇</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("gzdy")%></td>
</tr><tr>
<td align=middle width="18%" bgcolor="#ebf4ff">截止日期</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("qzrq")%></td>
</tr><tr>
<td align=middle width="18%" bgcolor="#ebf4ff">学历要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("xlyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">年龄要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("nlyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">工作地点</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("gzdd")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">其他要求 </td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("qtyq")%></td>
</tr>
<tr align="center" bgcolor=#ebf4ff>
<td colspan="2">[<a href="javascript:window.close();">关闭窗口</a>]</td>
</tr>
</table>
<%end if%>
</body>
</html>
Dim StrConn,StrRes,StrSQL,StrDSN
Set StrConn=Server.CreateObject("Adodb.Connection")
StrDSN="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" & SERVER.MapPath ("rcinfor.mdb")
StrConn.Open StrDSN
Set StrRes=Server.CreateObject("Adodb.RecordSet")
StrSQL="SELECT * FROM zpzlsr"
StrRes.Open StrSQL,strconn,1,1
sql="select * from qzzlsr"
%>
<%
vid=request.querystring("vid")
if vid="" or not isnumeric(vid) then
response.write "<p align=center>你无权使用"
response.end
end if
set strres=myconn.execute("select * from infor where id="&vid)
if strres.eof and strres.bof then
response.write "<p>你查看的信息被删除了</p>"
else
%>
<html>
<title><%=strres("gw1")%>的详细信息</title>
<link rel=stylesheet href=style.css>
<body>
<br>
<table align="center" width="95%" cellspacing="1" cellpadding="3" bgcolor="#0097d5" >
<tr align="center">
<td colspan="2" bgcolor="#ebf4ff">招聘单位详细信息</td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘单位</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zpdw")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘岗位</td>
<td width="82%" bgcolor="#ffffff"><%=strres("zpgw")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘专业</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zpzy")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">招聘人数</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zprs")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">性别要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("xbyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">职称要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("zcyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">工作年限</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("gznx")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">外语要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("wyyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">外语水平</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("wysp")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">工资待遇</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("gzdy")%></td>
</tr><tr>
<td align=middle width="18%" bgcolor="#ebf4ff">截止日期</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("qzrq")%></td>
</tr><tr>
<td align=middle width="18%" bgcolor="#ebf4ff">学历要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("xlyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">年龄要求</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("nlyq")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">工作地点</td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("gzdd")%></td>
</tr>
<tr>
<td align=middle width="18%" bgcolor="#ebf4ff">其他要求 </td>
<td width="82%" bgcolor="#FFFFFF"><%=strres("qtyq")%></td>
</tr>
<tr align="center" bgcolor=#ebf4ff>
<td colspan="2">[<a href="javascript:window.close();">关闭窗口</a>]</td>
</tr>
</table>
<%end if%>
</body>
</html>
wei131420 2001-07-14
是用access做的，能详尽写下来吗？请帮忙！
ivan2000 2001-07-14
用access做啊。
非常简便。
非常简便。
关于php初学者的理解！请大家浏览并指出不足！谢谢！ 过了一天感觉好了点，现在有点想法，大家欢迎交流批评！ 今天用php做了个登录，判断是否为空的时候，刚开始是将文本框的值直接post到php里，然后判断，后来我想能不能用js，于是试了下，感觉能用，心理特开心，因为...
初学者,在ubuntu上编译驱动,出错gcc: error: unrecognized argument in option ‘-mabi=aapcs-linux’,请问各路大神,该怎么解决 这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定...初学者,在u...
开篇词：一次服务雪崩问题排查经历 笔者想跟大家分享笔者经历的一次服务雪崩事故，分析导致此次服务雪崩事故的原因。或许大多数读者都有过这样的经历，这是项目给我们上的一次非常宝贵的实战课程。 什么是服务雪崩？ 雪崩一词指的是山地积雪由于底部...
Python新书上市，强烈推荐！《Python网络数据爬取及分析从入门到精通（爬取篇）》导读 Python新书上市，强烈推荐！ 《Python网络数据爬取及分析从入门到精通（爬取篇... 对于初学者来说，学习这本书中内容并不难，即使是那些不了解Python的读者，也可以从这本书中快速入门。它就是一步步的教程，包括...
这一顿神操作！我把 3000 行代码重构成 15 行！ 如果你认为这是一个标题党，那么我真诚的恳请你耐心的把文章的第一部分读完，然后再下结论。如果你认为能够戳中您的G点，那么请随手点个赞。 把三千行代码重构为15行 那年我刚毕业，进了现在这个公司。公司是搞数据...
把3000行代码重构成15行的牛逼操作！！！ 唯一让我担忧的是，我进公司的时候，帮忙整理公司申请软件著作权都是需要代码量的，根据代码多少行来评估软件的大小，万一老板知道了我非但没有帮公司增加代码量，还减少了，会不会立即把我开掉？我没敢给我们老板...
CSDN回帖得分大全（近两年） 一段在服务中创建进程的源代码，没看明白思路，恳请各位给指点迷津~~ [VC/MFC 基础类] √ 怎样将1位的图片旋转90度后以另一个文件名保存 [VC/MFC 图形处理/算法] √ 高分求助：ado访问db...
电脑小问题不求人 电脑小问题不求人--鼠标.软驱.打印机.硬盘.风扇.常见事故处理鼠标鼠标的故障分析与维修比较简单，大部分故障为接口或按键接触不良、断线、机械定位系统污垢等原因造成的。少数故障为鼠标内部元器件或电路虚焊造成的...
关于《J2ME手机游戏开发技术详解》的问题！ 这里只是对我书中的bug和没有说明白的技术处说明，对于具体的编程问题，我只是点到为止！对于3D部分的问题，由于我现在工作重点不在这上面，有些问题的回答我感到吃力，也不太想回答，详情请看我的文章。 我看了你...
webmagic采集CSDN的Java_WebDevelop页面 , 大家帮忙看下写的工具类有没有问题，或者能不能改善，多谢？, 新手跪求大神帮忙啊！！, 能不能读取struts2标签获得的值，然后写入数据库？, Selenium 测试用例异常，求大神指点, hibernate无法进行查询更新操作是...
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...
Python的基本语法元素 再来说说我的公众号主要有什么内容呢，我比较喜欢Python，我会跟大家一起学习Python，分享我对学习Python过程中的总结分享，这部分内容比较适合的对象是跟我一样的初学者，如果读者是已经掌握并且有一定深入了解的，...
深度强化学习落地方法论（8）——新书推荐《深度强化学习落地指南》 文章目录记一次成功的ExplorationDRL落地中的“武德”问题本书的创作理念关于强化学习结语 大家好，已经很久没有更新这个专栏了，希望当初关注它的知友们还在…… 我要厚着脸皮解释一下了。 本专栏的主题是方法论，...
速递！MongoDB最新书籍出版啦：MongoDB进阶与实战-微服务整合、性能优化、架构管理 新书速递 近期，MongoDB中文社区核心成员之一唐卓章老师出了一本MongoDB最新...由于笔者个人能力有限，书中难免存在错漏之处，恳请读者提出问题并帮忙指正，再次感谢！ 关注我们即将推出的技术大会，即有机会免费获得
CAN总线学习：zlg关于can帖子汇总 请教zlg的大虾们，我应用89c51+sja1000+82c250的结构，运行过程中发现一个问题，即正常运行一段时间后,sja1000死机（个人认为是死机），我的89c51仍然在正常运行，也对sja1000能启动发送数据进程（我用led指示），...
