4_4一个接受客户端信息的页面login.asp
<%
response.write"姓名:
"&request.form("name")&"
"
response.write"密码:
"&request.form("pass")
%>
实验五网站建设中的数据库应用
一、实验目的及要求
1、ACCESS数据库建立的方法;
2、ASP中数据库连接的方法
3、在网页中如何进行数据库查询和插入、修改等基本操作;
二、实验内容
1.建立一个数据库,其中有一个表news(title,content,readnum,new)
其中readnum是数字,其他为文本格式,自动编号字段为”编号”
2.在ASP中进行各种操作
三、实验过程
5_1查询并显示数据库中所有的记录,按自动编号的降序排列
<%
'单引号解释说明,大小写vbscript不敏感
SetConnObj=Server.CreateObject("ADODB.Connection")
DbPath=Server.MapPath("./company.mdb")
ConnObj.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath
sql="SELECT*FROMnewsORDERBY编号DESC"
Setrsobj=Server.CreateObject("ADODB.RecordSet")
rsobj.Opensql,ConnObj
dountilrsobj.EOF
foreachxinrsobj.Fields
Response.Write(x.value&" ")
next
Response.Write("
")
rsobj.MoveNext
loop
rsobj.close
connobj.close
%>
5_2删除编号为1的记录dell.asp
<%
SetConnObj=Server.CreateObject("ADODB.Connection")
DbPath=Server.MapPath("./company.mdb")
ConnObj.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath
SQL="delete*FromnewsWhere编号=1"
ConnObj.Execute(SQL)
setconnobj=nothing
'response.redirect"index.asp"
%>
5_3按照一定格式显示某条记录的全部内容,并修改其中的一个字段readnum
Readnum为数字数据newsview.asp
break-word;word-break: break-all;"> —英文自动换行--> <%SetConnObj=Server.CreateObject("ADODB.Connection") DbPath=Server.MapPath("./company.mdb") ConnObj.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath sql="SELECT*FROMnewsorderby编号desc" SetRSobj=Server.CreateObject("ADODB.RecordSet") RSobj.Opensql,ConnObj setname1=RSobj("title") setname2=RSobj("content") setname3=RSobj("readnum") setname4=RSobj("编号") setname6=RSobj("new") response.Write" 楷体;color: blue;'>"&name1&"" response.Write" response.Write" 15px;float: left;'>"&name2&" name3=name3+1 sql="updatenewssetreadnum="&name3&"wher copyright@ 2008-2022 冰豆网网站版权所有 经营许可证编号:鄂ICP备2022015515号-1
"