书签 分享 收藏 举报 版权申诉 / 23

类型asp动态网站实验报告.docx

  • 文档编号:26053781
  • 上传时间:2023-06-17
  • 格式:DOCX
  • 页数:23
  • 大小:166.57KB

Handle.asp

<%'读取各字段的数据

Name=Request("Name")

Email=Request("Email")

Subject=Request("Subject")

Memo=Request("Memo")

'检查各字段是否输入了数据

IfName=""OrEmail=""OrSubject=""OrMemo=""Then

Response.Write("字段空白不接受!

")

Response.End'不再处理以下的程序

EndIf

'这是一个打开Access数据库DataFileName.mdb的一个连接的示例。

strDatabasePath=Server.MapPath("lyb.mdb")

'请修改上面的DataFileName.mdb

Setconn=Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:

DatabasePassword='';DataSource="&strDatabasePath

conn.Openconnstr

SQL="INSERTINTOlyb(姓名,email,主题,内容)VALUES('"&Name&"','"&Email&"','"&Subject&"','"&Memo&"')"

'Response.Write(SQL)

conn.Execute(SQL)

conn.close()

Response.Redirect("display.asp")

%>

Display.asp

<%

'这是一个打开Access数据库DataFileName.mdb的一个连接的示例。

strDatabasePath=Server.MapPath("lyb.mdb")

'请修改上面的DataFileName.mdb

Setconn=Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:

DatabasePassword='';DataSource="&strDatabasePath

conn.Openconnstr

sql="SELECT*FROMlybORDERBY时间DESC"

setrs=conn.Execute(sql)

%>

<%

'按照的样式输出

WhileNotrs.EOF

%>

姓名:

<%=rs("姓名")%>

Email:

<%=rs("email")%>">

<%=rs("email")%>

主题:

<%=rs("主题")%>

时间:

<%=rs("时间")%>

内容

<%=rs("内容")%>


<%

rs.movenext()

Wend

%>

 

5)思考与实验结果

思考:

在做留言表单时要注意插入代码正确位置,还有完成之后要去检验一下查错改错,更上一层楼!

结果:

6)实验日期2012年9月28日

 

实验四:

在线考试系统设计

预习实验报告

1)实验目的和要求

(1)了解web访问数据库技术。

(2)熟练掌握在ASP中创建数据库连接。

(3)掌握对在线考试系统设计。

(4)实现在ASP.studio中调试.ASP并完成对在线考试系统的查询。

2、实验内容

(1)在D盘下建立一个web文件夹,并在其

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
asp 动态 网站 实验 报告
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:asp动态网站实验报告.docx
链接地址:https://www.bdocx.com/doc/26053781.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开