谁懂在单行列表中显示数据库中有多行内容的ASP源码? 如何在asp页面中显示数据库表中的多条记录

asp.net\u5982\u4f55\u5b9e\u73b0\u6570\u636e\u5e93\u8868\u4e2d\u4e00\u884c\u6570\u636e\u5206\u591a\u884c\u663e\u793a

\u4f60\u7528HTML\u6807\u7b7e\u76f4\u63a5\u8f93\u51fa\u6570\u636e\u5e93\u5185\u5bb9\u4e00\u5b9a\u53ef\u4ee5\u6ee1\u8db3\u4f60\u7684\u8981\u6c42\u3002

\u5982\u679c\u4f60\u5bf9ASP.net\u4e2d\u7684\u81ea\u5b9a\u4e49\u63a7\u4ef6\u6bd4\u8f83\u719f\u6089\uff0c\u4e5f\u53ef\u4ee5\u81ea\u5df1
\u505a\u4e00\u4e2a\u63a7\u4ef6\u5b8c\u6210\u4e0a\u8ff0\u4efb\u52a1\u3002

\u795d\u4f60\u597d\u8fd0\uff01

\u4e13\u5bb6\u63d0\u4f9b\uff1a

难学不易懂,不过我起初学习这门技术的时候也有过这样的感悟。从今天开始,我将以我学ASP的经验来做一个简单的ASP留言本,这个留言本用了Access数据库,所以务必请大家要跟我一起做的朋友都安装好Office软件,相信各位自己的电脑上都有了。好了,开始。

创建ASP的运行环境(安装IIS)

IIS(Internet Information Service)是构建ASP站点所必须的,所以,我们应该先确认自己的电脑已安装了IIS信息服务,如果没有安装好的话,请按以下步骤:

1、打开“控制面板”

2、双击“添加/删除程序”

3、单击“添加/删除Windows组件”,打开添加/删除Windows组件对话框:

3、从下拉的列表中选择“Internet 信息服务(IIS)”单击“下一步”:

4、出现组件安装进度窗口,如弹出需要安装盘的话,放入Windows2000安装盘,按提示操作即可。直至最后安装完毕。

---------------------------------------------------------------------------------------------------------

二、设计数据库

ASP程序本身并不能储存数据,众所周知,留言本有以下信息需要保存:留言者姓名、联系方式、留言内容等等。因为ASP并不能储存数据,所以数据库在这种环境之下就产生了。数据库的种类也很多,针对不同的程序也有适用于它的数据库,比如Access和Ms SQL就比较适用ASP和ASP.net程序,至于其它的数据库和程序,就不属于本文所讨论的问题了,有兴趣的朋友可以查看其它一些资料。

那么既然Access和MS SQL都适用ASP,那么具体又如何来选择呢?我们可以打一个比方:比如钉一枚小钉子,聪明的人一定不会用一个大的棒槌,而是选择小的铁锤,虽然用大的棒槌也一样的可以把钉子钉进去,可是没有人愿意这样做。

数据库也一样:Access比较适用小型的应用,而MS SQL则适用于大中型的数据库应用,所以要做一个留言本,理所当然是选择Access更好一些,但是如果你决心使用MS,没有人会极力阻止你。好了,废话少说,切入正题,下面开始创建数据库。

Access是微软office办公软件中的其中一个,默认的安装Office是有这个Access的,好了,打开程序,开始了,GO!

进入实战了。打开程序后,出现一个对话框,这里我们选择第一个选项”空Access数据库”点击确定,弹出一个新建数据库的文件框,选择你上次你建的站点目录,起个data的文件名,点击创建,OK! 双击”使用设计器创建表”打开表创建窗口”如图

创建表的结构如下表:

字段名称
数据类型
备注(笔者注释)

id 自动编号 设置“自动编号”
name 文本 留言者姓名
qq 数字 留言者的QQ,因为QQ号是由数字组成
email 文本 留言者的电子邮件
content 备注 留言内容
data 日期/时间 留言时间,设定默认值为Now()

数据库设计好了以后,可以直接在数据库里添加两条记录,以后测试时候用!这一节就到此了

-------------------------------------------------------------------------------------------------

三、连接数据库

在上一节,我们已经为我们的程序创建了一个数据库,在这一节中,我们来用ASP把程序和数据库连接起来,以后就可以连接到数据库、在ASP中显示数据库中的数据以及更复杂的插入、修改和删除。
一起看以下代码,这就是ASP程序中常用的连接数据库的代码:
<%
set conn=server.createobject("adodb.connection")
c&server.mappath("data.mdb")
conn.open connstr
%>

解释一下以上代码:
<% '这是ASP程序的起始
set conn=server.createobject("adodb.connection") '在服务器上创建了一个连接数据库的对象
c&server.mappath("data.mdb") '告诉ASP数据库的接接方法以及路径
conn.open connstr '创建了对象后就用来打开数据库进行连接
%> '一切OK了!结束ASP程序

将上面的代码另存为conn.asp文件,放在服务器目录下面就可以了。怎么样,简单吧?
这一节是最重要的,一定要弄明白,否则以后操作数据库将变得不现实,如果有不懂的问题,欢迎和我讨论,我的电子邮件地址是。这一节就到此,下节我们就将数据库中的数据显示在页面中(这就实现了留言本的查看功能)

---------------------------------------------------------------------------------------------

四、制作留言本首页

前面我们已经连接好了数据库,就要让它在这里发挥一下作用了,这一节将讲述如何将数据库里的数据用ASP读取出来,在页面中显示出来,这样就等于是查看留言本了。

利用DW制作首页面(这里我就不讲如何去做这个页面了,最后我将会给出HTML代码下载)

将制作好的文件存为index.asp,下面就创建数据记录集,用来显示数据库的数据到这个页面中:

用记事本打开index.asp,在页头加入以下代码:

<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select user,qq,email,content,data from main order by id desc"
rs.open sql,conn,1,1
%>

解释一下:

第一行,表明ASP使用的是VB脚本
第二行,是用include包含文件,这里包含的是数据库连接文件。
第三行,ASP程序开始
第四行,利用Server内置对象创建一个记录集
第五行, SQL语句,这里的意思是选择数据库中的user,qq,email,content,data字段,指定该数据表的名称是“main”数据 的排列顺序是倒序。
第六行,用刚才创建的名为rs的记录集打开数据库,设置属性为只读(1,1为只读数据,1,3为插入数据,2,3是修改数据。

这样就打开了数据库,接下来就可以显示了。

将“留言人”代替为“<%=rs("user")%>
“时间”代替为“<%=rs("data")%>
“留言内容在此”代替为“<%=rs("content")%>
“QQ”链接到<;;%=rs("qq")%>
“邮件”链接到:mailto:<%=rs("email")%>
最后将“填写留言”链接 add.asp “管理留言”链接 admin.asp

好了,再次保存,浏览看看!

怎么了?只显示一条记录?原来我们在数据库里添加了两条记录的哦!还有一条呢?别急,因为我们没有指定ASP循环显示,所以就只有一条啦。。。

在刚才的代码后面添加一行

<%do while not rs.eof%>

并在页面的第一个表格的末尾加上

<%
rs.movenext
loop
%>

上面的代码就是说用rs记录集指针一条一条往下一条移动,直到末尾,loop是循环的意思。。哈哈,再次浏览这个文件

看明白了吗,这样就可以让数据库中的数据全部显示在页面中了,好了,这节就到这,下节讲一个也很重要的部份(添加留言功能。)

--------------------------------------------------------------------------------------------------

五、制作添加留言页面,实现留言功能

我们是做的一个留言本,实现留言的功能就十分重要了,要不然就算不上留言本了,接下来就一起来实现这个功能。
用DW制作以下这样的页面:

设置表单的属性如下:

姓名:设置为单行文本域,名称为“user”
QQ号:设置为单行文本域,名称为“qq”
邮件:设置为单行文本域,名称为“email”
内容:设置为多行文本域,名称为“content”
最后将表单的“Action”动作指向addsave.asp就可以了。

保存文档名为add.asp,OK!下一步!

表单是做好了,但是还需要后台程序的支持,一起来使用ASP编写一个添加留言处理程序,添加留言代码:

<%@LANGUAGE="VBScript" codepage="936"%> '表明ASP使用的是VB脚本
<!--#include file="conn.asp"--> '是用include包含文件,这里包含的是数据库连接文件
<%
set rs=server.createobject("adodb.recordset") '利用Server内置对象创建一个记录集
sql="select user,qq,email,content,data from main" 'SQL语句,上节有详解
rs.open sql,conn,1,3 '用刚才创建的名为rs的记录集打开数据库,设置属性为插入数据
rs.addnew '用记录集新添加一条数据
user=request.form("user") '请求表单的变量,定义变量为user,这里request.form是请求表单的意思
qq=request.form("qq") '请求表单的变量,定义变量为qq,这里request.form是请求表单的意思
email=request.form("email") '请求表单的变量,定义变量为email,这里request.form是请求表单的意思
content=request.form("content") '请求表单的变量,定义变量为content,这里request.form是请求表单的意思
rs("user")=user '将请求到的表单值传向记录集中代表user字段的名称
rs("qq")=qq '将请求到的表单值传向记录集中代表qq字段的名称
rs("email")=email '将请求到的表单值传向记录集中代表email字段的名称
rs("content")=content '将请求到的表单值传向记录集中代表content字段的名称
rs.update '更新一下数据库中的数据。
rs.close '关闭记录集
set rs=nothing '销毁记录集
conn.close '关闭数据库连接
set rs=nothing '销毁数据库连接
%>

将以上文件存为addsave.asp,测试下!咦?怎么填好提交以后就出现空白了,为什么?这是因为在addsave.asp中没有设置数据成功提交好后的转向页面,这里不用做那么复杂的,只要做一个刷新页面就行了,在程序的后面加上:

<meta http-equiv="refresh" c>

然后在页面中添加提示信息,比如:“您的留言已经成功提交,2秒钟后将自动返回留言本首页”

好了,这个留言的功能总算实现了,最后再测试下,看看效果!

OK!这个留言功能的实现教程就到这里了

这段代码很简单,首先“If not rs.eof Then ”表示如果存在数据则往下……
“do while not rs.eof”这句到“Loop”之间是一个循环,在所有数据里面按一定顺序(这个顺序可以在你贴出代码的第一句前面的rs.open后面设置)进行读取。
If i mod 5 = 1 Then表示如果i除以5的余数是1的话,则……写入<tr>这个TR其实就是一行的开始,后面有一句If i mod 5 = 0 Then表示余数是0的话,写入</tr>行尾;i是从1开始逐渐递增的“i=i+1”。中间写入的自然就是单元格<td><%=rs("cname")%></td>。
最终的显示效果就是(我就不断行了):
<table>
<tr><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td></tr>
<tr><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td></tr>
……
</table>
看出来了吧,每5个单元格组成一行,单元格里我写的数字对应的就是读取数据库里的数据。
至于代码里的符号<%%>表示的是将ASP的代码括起来的部分,没有括下来的就是属于HTML代码部分
我已经解释的很是入门级的了,应该能看懂了吧……

  • 璋佹湁姣旇緝瀹规槗鐪嬫噦鐨凜AD鍛戒护,瑕佸叏鐨!!!瀹规槗鐪嬫噦鏈涓昏鍟!!璋㈣阿
    绛旓細鏄剧ず鎵撳嵃鍥惧舰鐨勬晥鏋 PRE 浠庢ā鍨嬬┖闂磋鍙e垏鎹㈠埌鍥剧焊绌洪棿 PS 鍒犻櫎鏁版嵁搴撲腑鏈敤鐨勫懡鍚嶅璞★紝渚嬪鍧楁垨鍥惧眰 PU 閫鍑 AutoCAD EXIT 缁樺埗鐭╁舰澶氭绾 REC 鍒锋柊鏄剧ず褰撳墠瑙嗗彛 R 鍒锋柊鏄剧ず鎵鏈夎鍙 RA 閲嶇敓鎴愬浘褰㈠苟鍒锋柊鏄剧ず褰撳墠瑙嗗彛 RE 閲嶆柊鐢熸垚鍥惧舰骞跺埛鏂版墍鏈夎鍙 REA 浠庨夋嫨鐨勪竴缁勭幇鏈夊璞′腑鍒涘缓闈㈠煙瀵硅薄 REG 淇敼...
  • 鎴戞槸鍋氭枃鍛樼殑,鐢变簬鐢佃剳鐭ヨ瘑娆犵己,鎯冲涓浜涘姙鍏柟闈㈠父鐢ㄧ殑涓浜涙妧宸,璋...
    绛旓細鎴戜滑甯稿父瑕佸皢浼佷笟鐨勫悕绉拌緭鍏ュ埌琛ㄦ牸涓,涓轰簡淇濇寔鍚嶇О鐨勪竴鑷存,鍒╃敤鈥滄暟鎹湁鏁堟р濆姛鑳藉缓浜嗕竴涓垎绫讳笅鎷鍒楄〃濉厖椤广 1.鍦⊿heet2涓,灏嗕紒涓氬悕绉版寜绫诲埆(濡傗滃伐涓氫紒涓氣濄佲滃晢涓氫紒涓氣濄佲滀釜浣撲紒涓氣濈瓑)鍒嗗埆杈撳叆涓嶅悓鍒椾腑,寤虹珛涓涓紒涓氬悕绉鏁版嵁搴銆 2.閫変腑A鍒(鈥滃伐涓氫紒涓氣濆悕绉版墍鍦ㄥ垪),鍦ㄢ滃悕绉扳濇爮鍐,杈撳叆鈥滃伐涓...
  • VS2010涓璏FC宸ョ▼鏈夊叧鏁版嵁搴鐨勬搷浣溿
    绛旓細鏈夊緢澶氬姙娉曚簡 鎴戝父鐢ㄧ殑涓ょ鍔炴硶锛屼竴涓槸鐢╟database绫诲缓涓涓璞★紝璋冪敤鎴愬憳鍑芥暟open鍑芥暟鍙互杩炴帴鍒版暟鎹簮浜嗭紝鐢╟recordset瀵硅薄灏嗗墠闈㈢殑database瀵硅薄浼犵粰浠栵紝鐒跺悗璋冪敤crecordset瀵硅薄鐨刼pen鍑芥暟锛屽彲浠ヨ繛鎺ュ叿浣撹〃 杩樻湁涓涓姙娉曞垵瀛﹁呭ソ鐩存帴鐢紝灏辨槸鐩存帴鍒涘缓涓涓被缁ф壙crecordset瀵硅薄锛岀劧鍚庝細鎻愮ず浣犺繛鎺ユ暟鎹簮鍜...
  • 璋佺煡閬鏁版嵁搴撲腑鐨勮嚜鐒惰繛鎺ユ槸鎬庝箞绠楃殑?鎴戝C璇█,閭f槸鍏叡鍩虹鐭ヨ瘑銆傛垜鐪...
    绛旓細灏辨槸鍩熺浉鍚岀殑灞炴у肩浉绛夊氨杩炴帴銆傛瘮濡:姣斿鏈塕(A,B)鍜孲(B,C)涓や釜鍏崇郴锛岃嚜鐒惰繛鎺ョ殑鏉′欢灏辨槸R.B=S.B锛岀粨鏋滄槸涓涓叧绯伙紝涓3涓睘鎬(A,B,C)銆傞氳繃鐩稿悓鍚嶅瓧鐨勫睘鎬ц繛鎺ョ殑缁撴灉灏辨槸鑷劧杩炴帴銆傝嚜鐒惰繛鎺ユ槸鍦ㄧ瑳鍗″皵绉腑閫夊彇灞炴у硷紙瀵逛簬杩欎釜渚嬪瓙灏辨槸灞炴锛夌浉绛夌殑閭d簺鏉$洰锛岀劧鍚庢妸閲嶅鐨勫睘鎬у垹鎺夈傛湰渚嬬殑...
  • 濡備綍鎶鏁版嵁搴撲腑琛ㄥ鍏ュ埌C#鏁版嵁鎺т欢涓?
    绛旓細浠ccess涓轰緥锛//鏁版嵁搴public class AccessDBClass { region 鍏敤鍙橀噺 private OleDbConnection conn = null; //鏁版嵁婧愯繛鎺ュ璞 private string conn_str;private string error = null; //璁板綍閿欒 endregion //鏋勯犲嚱鏁 public AccessDBClass(){ // // TODO: 鍦ㄦ澶勬坊鍔犳瀯閫犲嚱鏁伴昏緫 // conn = ...
  • 鎴戜笉鎳 execl鏁版嵁鍜屽叕寮 鐨勭敤娉曞拰鎰忔,璋佽兘甯垜璁茶?璋㈣阿浜!
    绛旓細鏄剧ず鏃ユ湡鏃堕棿 OR 浠呭綋鎵鏈夊弬鏁板煎潎涓洪昏緫鈥滃亣(FALSE)鈥濇椂杩斿洖缁撴灉閫昏緫鈥滃亣(FALSE)鈥,鍚﹀垯閮借繑鍥為昏緫鈥滅湡(TRUE)鈥濄 閫昏緫鍒ゆ柇 RANK 杩斿洖鏌愪竴鏁板煎湪涓鍒楁暟鍊间腑鐨勭浉瀵逛簬鍏朵粬鏁板肩殑鎺掍綅銆 鏁版嵁鎺掑簭 RIGHT 浠庝竴涓枃鏈瓧绗︿覆鐨勬渶鍚庝竴涓瓧绗﹀紑濮,鎴彇鎸囧畾鏁扮洰鐨勫瓧绗︺ 瀛楃鎴彇 SUBTOTAL 杩斿洖鍒楄〃鎴鏁版嵁搴撲腑鐨勫垎绫绘眹鎬...
  • 缂栫▼闂璇锋暀楂樻墜
    绛旓細锛4锛塂elphi鍏锋湁寮哄ぇ鐨鏁版嵁搴寮鍙戣兘鍔涳紝鍙互璁╀綘杞绘澗鍦板紑鍙戞暟鎹簱銆傜己鐐 Delphi鍑犱箮鍙互璇存槸瀹岀編鐨勶紝鍙槸Pascal璇█鐨勮繃浜庝弗璋ㄨ浜烘劅瑙夋湁鐐圭儲銆傜患杩: 鏂规浜屾瘮杈冮傚悎閭d簺鍏锋湁涓瀹氱紪绋嬪熀纭骞朵笖瀛﹁繃Pascal璇█鐨勬湅鍙嬨侾ascal璇█绠浠 Delphi绠浠 === 鏂规涓 C璇█ & Visual C++ 浼樼偣 锛1锛塁璇█鐏垫椿鎬уソ锛...
  • 璋佹噦SQL鍟?缃戦〉閮戒贡鐮,鏁版嵁搴瀛楃闆嗘槸鐟炲吀璇,鎬庝箞閮借烦涓嶈繃鏉
    绛旓細鏀规垚utf8-gernerci 浣犳煡璇簡缃戦〉鏄剧ず锛熷湪url鍚庡姞鐐逛笢瑗裤備竴鑸氨鏄畠鍑虹殑闂 url="jdbc:microsoft:sqlserver://localhost:1433;databasename=BOOKS?useUnicode=true&characterEncoding=utf8","sa","sa";璁剧疆鎴愮粺涓缂栫爜銆傚鏋滀綘鐨勯〉闈㈣缃槸gbk 閭h繖鍧楀氨鍐欐垚gbk鍟 ...
  • 濡備綍鍦↗SP椤甸潰杈撳叆鐢ㄦ埛鍚,鐐瑰嚮鎻愪氦鎸夐挳鏄剧ず鏁版嵁搴撻噷鐨勭敤鎴峰悕鍜屽瘑鐮...
    绛旓細){ if (xmlhttp.readyState==4&&xmlhttp.status==200){ var rst=xmlhttp.responseText;document.getElementById("ts").innerh=rst;} } } 鍙﹀浣犻渶瑕佸湪鍚庡彴鍐欎竴涓悗鍙版⒊鐞嗙▼搴,杩欎釜绋嬪簭闇瑕佹牴鎹敤鎴峰悕鏌ユ壘鍒鏁版嵁搴撻噷闈鏄惁鏈夋暟鎹,骞朵笖鐢╮esponse.Write(rst) 鍙嶉鍥炴潵.甯屾湜鑳藉府鍒颁綘 ...
  • 鏁版嵁搴撲腑鐨勬鏄粈涔堟剰涔
    绛旓細鏁版嵁搴鐨勬鏄敱鑻ュ共涓尯闂寸粍鎴愮殑,鍖洪棿涓槸涓浜涜繛缁殑鏁版嵁鍧椼傝繖涓夎呮槸鏋勬垚鍏朵粬鏁版嵁瀵硅薄鐨勫熀鏈崟浣峅racle涓殑娈靛彲浠ュ垎鎴4绉嶇被鍨:鏁版嵁娈点佺储寮曟銆佸洖婊氭銆佷复鏃舵銆傛暟鎹鐢ㄦ潵瀛樺偍鐢ㄦ埛鐨勬暟鎹,姣忎釜琛ㄩ兘鏈変竴涓搴旂殑鍥炴粴娈,鍏跺悕绉板拰鏁版嵁琛鐨勫悕瀛楃浉鍚屻傛垜浠彲浠ョ敤涓嬪垪鐨凷QL璇彞鏉ユ煡璇㈢敤鎴风殑鏁版嵁娈典俊鎭:SQL>select * from...
  • 本站交流只代表网友个人观点,与本站立场无关
    欢迎反馈与建议,请联系电邮
    2024© 车视网