哈工大威海电子商务实验报告讲述.doc

实验指导书 班级：130420124 姓名：杨平安 实验报告的内容 题目 描述每个实验的内容是什么。 需求分析、程序数据流与功能图 用E-R图描述数据库的模式设计及每个关系模式的建立；描述数据字典及程序数据流与功能图；每个事件、函数或过程的头和规格说明；列出每个过程或函数所调用和被调用的过程或函数，也可以通过调用关系图表示。主要算法的框架。 调试报告 调试过程中遇到的主要问题是如何解决的；对设计和编码的回顾讨论和分析；改进设想；经验和体会等。 源程序清单和结果 源程序要加注释，要有测试数据及结果。 实验1： 学习Vbscript语言 和ASP的ADO接口访问SQL SERVER2000的数据库（4学时） 本次实验的主要目的和内容： 1．熟悉VBScript在HTML中的应用 2．掌握ASP的ADO接口访问SQL SERVER2000数据库 3．应用ASP开发基于SQL SERVER数据库的留言本程序 实 验 报 告 1 代码 Index.html Html Head Title登陆/Title Head Body Form Method= POST Action= jiancedenglu.asp p Align= Centerfont size=6欢迎使用留言本/font/p p Align=CenterID:Input Type=Text Name= Name Size= 20/p p Align=CenterPassword:Input Type= Password Name= Password Size= 20/p p Align= Center input type= Submit value= Login name = B1 Input Type= Reset Value= 重置 Name= B2 a href=liuyanmianban.asp我是打酱油的游客/abr/br/ a href=/zhuce.asp使劲点我注册/a /p /Body /Html jiancedenglu.asp html head /head body % d1=Request.Form(Name) d2=Request.Form(Password) Session(UserID) = d1 Set Conn=Server.CreateObject(ADODB.Connection) Conn.opendsn_lwf,sa,123456 if conn.State = 1 then Response.Write 数据库连接成功！ else Response.redirect(index.html) End if Set rs=Server.CreateObject(ADODB.Recordset) rs.Open select * from dengluTable where UserID=d1 and Password=d2,Conn Set rs1=Server.CreateObject(ADODB.Recordset) if rs.eof or rs.bof then else rs1.Open select Sex,TrueName from gerenziliaoTable where UserID=d1,conn Session(UserSex) = rs1.fields(0) Session(UserName) = rs1.fields(1) end if if rs.eof or rs.bof then Response.Write 用户名或密码错误，请重新登录！ Response.Write( meta http-equiv=refresh content= 2;url=index.html ) else Response.Write 用户登录成功！ Response.Write( meta http-equiv=refresh content= 2;url=liuyanmianban.asp ) end if conn.Close % /Body /Html jianceliuyan.asp html head /head body % content=Request.Form(liuyanquyu) liuyanid=Session(liuyan_ID) Time_now=Now() response.write content response.write liuyanid Set Conn=Server.CreateObject(ADODB.Connection) Conn.opendsn_lwf,sa,123456 if conn.State = 1 th