Web习题用户信息管理系统Word格式文档下载.docx
《Web习题用户信息管理系统Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《Web习题用户信息管理系统Word格式文档下载.docx（47页珍藏版）》请在冰豆网上搜索。
建立数据库DB1和数据表Student：
点击“开始”，在子菜单中再点击“程序”，在下级菜单中点击“办公软件”，选择“MicrosoftAccess”打开，选择“空数据库”，选择好存放的路径后命名为“DB1”。
然后打开数据库，弹出如下对话框：
然后点击“设计”，弹出如下对话框：
输入各字段的信息得到表如下所示：
然后关闭这个界面，另存为“student”表，而后向“student”表中输入数据,如下所示：
向数据库中添加信息,设计一个输入界面，用IE浏览器打开如下所示：
它的代码如下所示：
<
html>
head>
title>
信息输入<
/title>
/head>
body>
formaction="
lx615_add.asp"
method="
post"
>
<
tablealign="
center"
>
TR>
center>
H2>
输入学生信息<
/H2>
/center>
/TR>
TD>
学号：
/TD>
INPUTtype=textname="
Stno"
size=12>
姓名：
Stname"
性别：
INPUTtype=radioname="
Sex"
value="
女"
女
男"
男
年龄：
Age"
size=6>
住址：
Addr"
size=16>
E-mail：
Email"
size=30>
INPUTtype=submitname"
insert"
添加"
INPUTtype=resetvalue="
重置"
/table>
/form>
/body>
/html>
向界面输入完信息之后，点击添加转入ASP处理程序：
（1）“condb.asp”程序如下：
%
setconn=server.CreateObject（"
adodb.connection"
）
seturs=server.CreateObject（"
adodb.recordset"
）
seters=server.CreateObject（"
usqlstr="
select*fromuser"
esqlstr="
select*fromemp"
connstr="
driver={MicrosoftAccessDriver（*.mdb）};
DBQ="
&
Server.MapPath（"
zhgdb.mdb"
）'
与参数的顺序无关
conn.openconnstr
'
将Recordset输出成HTML的“表格”
Sublist（rs）
'
PartI：
输出数据库的“表头”
Response.Write"
CENTER>
TABLEBORDER=1>
"
TRBGCOLOR=#00FFFF>
Fori=0tors.Fields.Count-1
Response.WRITE"
rs.Fields（i）.Name&
"
Next
PartII：
输出数据库的“内容”
WhileNotrs.EOF
rs.Fields（i）.Value&
rs.MoveNext
Wend
/TABLE>
/CENTER>
EndSub
%>
（2）“lx615_add.asp”程序如下：
%
stno=request.form（"
stname=request.form（"
sex=request.form（"
age=request.form（"
addr=request.form（"
email=request.form（"
setconn=server.CreateObject（"
setrs=server.CreateObject（"
ADODB.Recordset"
sqlstr="
select*fromstudent"
&
db1.mdb"
rs.opensqlstr,conn,1,2'
要添加数据，把参数改成了1,2
rs.addnew'
告诉rs,要添加一个空行
rs（"
stno"
）=stno
stname"
）=stname'
给要添加的行的一个字段赋值
sex"
）=sex
age"
）=age'
同上
）=addr'
E-mail"
）=email
rs.update'
通知rs,要把这个行写入数据库
response.Redirect（"
lx615.htm"
定向到信息输入界面
（3）“lx615_list.asp”程序如下：
SubRsToTable（rs）
setrs=conn.execute（sqlstr）
ifrs.eofandrs.bofthen'
如果数据指针同时指到记录集的头部根尾部说明记录集为空
response.write"
没有可以显示的数据"
打印“没有可以显示的数据”
endif
RsToTable（rs）
!
--
fori=0tors.fields.count-1'
输出字段名
response.writers（i）.name+"
next
br>
换行
dountilrs.EOF'
循环直到记录集尾部为止
response.writers（"
）+"
显示一个行的第一个字段值
+rs（"
addr"
同上
一个行打印完毕,换行
rs.MoveNext'
将数据指针移到下一个行
loop-->
%'
循环结束
rs.close
setrs=nothing
conn.close
（4）“lx615.asp”（链接数据库）程序如下：
1.使用ODBC驱动程序直接与数据库连接
与Access数据库连接
studentdb.mdb"
）&
;
PWD=bbb"
或者
conn.openconnstr,"
aaa"
"
bbb"
与SQLServer数据库连接
driver={SQLServer};
server=localhost;
database=studentdb;
UID=aaa;
2.使用OLEDB驱动程序直接与数据库连接
Provider=Microsoft.Jet.OL
升级会员 