版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
PAGEPAGE1设计题目:图书仓库管理系统的设计与实现专业:计算机科学与技术姓名:李海洋王哲学号:0825829026,0825829043指导老师:邱自华时间:2010—6—15目录TOC\o”1—3"\h\z\u_Toc265081452"一、系统分析 5二、数据库设计 72、数据库逻辑设计 8HYPERLINK\l”_Toc265081457”三、数据库的管理 9四、数据库的实施和维护 104.1主界面设计 10_Toc265081461"五、代码 12text/html;charset=utf—8"/〉〈title>仓库管理系统</title>〈/head〉〈body>〈divalign="center">〈br〉〈fontcolor=”#000000”>仓库管理管理系统</font><br>〈/div><formmethod=”post"action=”checklogin。asp">〈divalign=”center”〉<p>用户名称<inputmaxlength=25name="username"size=13value=””〉</p><p〉管理密码<inputmaxlength=25name=”password"size=13type="password”value=””>〈/p〉<p〉〈inputtype="submit”value="确定"name="cmdOk”> ;〈inputtype="reset”value="重填"name=”cmdReset"> </p></div〉〈/form></body></html>manage。asp〈html〉<head〉〈metahttp-equiv=”Content-Type"content=”text/html;charset=gb2312”/〉〈title〉管理界面</title></head>〈body〉〈% ifSession(”zhanghao")<>”admin”then response.redirect”login.asp”endif%><tablealign="center”><tr〉<tdalign=”left">欢迎您:<%Response。Write(Session("zhanghao”))%>〈/td〉〈tdalign=”right"〉时间:〈%Response。Write(Date())%〉〈/td〉〈/tr〉<tr〉〈tdcolspan=”2”><% setconn=Server.CreateObject("ADODB。Connection") conn.open”Driver={SQLServer};server=(local);uid=sa;pwd=123456;database=ckguanlixitong;” setrs=Server.CreateObject(”ADODB.Recordset") sql="SELECT*FROMbook” rs.Opensql,conn,3'rs。open"sql语句,conn,打开方式,锁定方式” rs。PageSize=4 ’第一次显示没有页码,默认显示第一页 IfRequest("page”)〈>””Then iPage=Cint(Request(”page”)) IfiPage〈1Then iPage=1’页码小于1,则显示第一页 ’当大于总页数的时候,显示最后一页 IfiPage>rs.PageCountTheniPage=rs.PageCount Else iPage=1 EndIf Response.Write(”当前第"&iPage&”页,共"&rs。PageCount&”页") rs.AbsolutePage=iPage%><TABLECELLPADDING="2"BORDERCOLOR="Black”BORDER="1”〉〈TRSTYLE=”BACKGROUND-COLOR:#AAAADD;"〉 〈TD〉ID</TD><TD〉书名</TD〉〈TD>作者</TD〉〈TD>出版社</TD〉 <TD〉修改〈/TD><TD〉删除</TD></TR〉〈%ForI=0Tors.PageSize-1 Ifrs.EOFORrs。BOFThenExitFor ’设置奇数和偶数行显示不同的背景颜色 If IMod2=1Then Response。Write(”<TRSTYLE=’BACKGROUND-COLOR:#FFFFCD;'>”) Else Response。Write(”<TR〉”) Endif Response.Write("〈TD〉”&rs("ID")&”〈/TD>")%> 〈TD〉〈AHREF=’detail。asp?shuming=<%=rs("SM")%>’TARGET='_blank’> 〈%=rs("SM")%〉〈/A〉〈/TD>〈% Response.Write(”<TD〉"&rs("ZZ”)&"〈/TD>") Response.Write("〈TD〉"&rs(”CBS”)&"〈/TD〉") %> <TD〉<AHREF=”show_uppdat。asp?id=<%=rs(”ID")%〉”>修改〈/A>〈/TD> <TD><AHREF=”del.asp?id=〈%=rs(”ID")%>"〉删除</A〉〈/TD><% Response。Write("</TR〉”) rs.movenext()Next%></TABLE>〈BR〉<divalign=”center”〉<%'当前是第一页的时候,不显示"第一页”IfiPage〈>1Then%> 〈AHREF=”manage。asp?page=1”〉第一页〈/A〉 〈AHREF=”manage.asp?page=<%=i1%>”〉上一页</A>〈% EndIf'当前是最后一页的时候,不显示"最后页” IFiPage<〉rs.PageCountThen%>〈AHREF="manage.asp?page=〈%=iPage+1%>”>下一页〈/A〉<AHREF="manage.asp?page=〈%=rs.pageCount%〉"〉最后页〈/A><%EndIf conn。close()%〉</div></td></tr></table><palign=”center"〉〈ahref="show_add.asp"〉添加数据〈/a>〈/p></body>〈/html〉checklogin.asp〈html〉〈head><metahttp—equiv="Content—Type"content="text/html;charset=utf—8"/>〈title>验证登陆</title>〈/head><body〉<%dimsqldimrsdimseekerrsdimfounduserdimusernamedimcompanyiddimpassworddimerrmsgdimfounderrfounderr=falseFoundUser=falseusername=Request。Form("username")password=Request.Form(”password”)’如果管理员帐号为空'ifusername="”thenResponse.Redirect(”false.html”)Endififpassword=””thenResponse。Redirect(”false.html”)Endififusername="admin”andpassword="admin”then'如果管理员名称和密码都正确则设置COOKIES保证全站生效’';Response。Cookies(”name”)=”admin”Session("zhanghao”)="admin”Response。Redirect(”manage.asp”)elseResponse.Redirect("false.html")Endif%〉〈/body>〈/html〉del。asp〈HTML>〈head〉 <title>删除数据库</title〉</head〉<BODY〉〈% ifSession(”zhanghao")〈>”admin”then response.redirect"login。asp"endif%><% str=Request("id") setconn=Server.CreateObject("ADODB.Connection”) conn.open"Driver={SQLServer};server=(local);uid=sa;pwd=123456;database=ckguanlixitong;" setcmd=Server。CreateObject("ADODB.Command”) cmd。ActiveConnection=conn sql=”DELETEFROMbookWHEREID="&str Response。Write(sql) cmd。CommandText=sql cmd。Execute() Response.Redirect(”successed。html")%〉〈/BODY〉</HTML>do_add.asp〈html>〈head>〈metahttp—equiv="Content-Type"content=”text/html;charset=utf-8”/〉〈title>添加</title></head><body>〈% ifSession("zhanghao")<〉”admin”then Response。redirect”login.asp”endif%〉<% str=Request.Form("int_id”) shuming=Request.Form("shuming”) zuozhe=Request.Form("zuozhe") chubanshe=Request.Form("chubanshe”) setconn=Server。CreateObject(”ADODB。Connection") conn。open”Driver={SQLServer};server=(local);uid=sa;pwd=123456;database=ckguanlixitong;" setcmd=Server.CreateObject(”ADODB。Command”) cmd。ActiveConnection=conn sql="insertintobook(ID,SM,ZZ,CBS)values(”&str&",’"&shuming&"’,’"&zuozhe&”',’”&chubanshe&"');" Response.Write(sql) cmd.CommandText=sql cmd.Execute() Response。Redirect(”successed.html")%></body〉〈/html〉do_uppdat。asp〈HTML〉〈head><title>更新界面〈/title>〈/head〉<BODY〉<% ifSession("zhanghao")<>"admin"then response。redirect"login.asp”endif%>〈% str=Request。Form(”int_id") shuming=Request.Form("shuming”) zuozhe=Request.Form(”zuozhe”) chubanshe=Request。Form(”chubanshe”) setconn=Server。CreateObject(”ADODB.Connection”) conn.open”Driver={SQLServer};server=(local);uid=sa;pwd=123456;database=ckguanlixitong;" setcmd=Server。CreateObject(”ADODB。Command") cmd。ActiveConnection=conn 'sql="updatebookset书名='c’whereID=1” ’sql="UPDATEbookSET书名=”&shuming&",作者=”&zuozhe&”,出版社="&chubanshe&"whereID=”&str sql="UPDATEbookSETSM=”&”’"&shuming&”’”&",ZZ="&"’”&zuozhe&"'"&",CBS="&"'”&chubanshe&”’"&”whereID=”&str Response.Write(sql) cmd。CommandText=sql cmd。Execute() Response。Redirect(”successed.html")%></BODY>〈/HTML>false。html<html>〈head>〈metahttp-equiv=”Content-Type”content="text/html;charset=utf—8”/><title>显示错误〈/title>〈/head>〈body>〈h1align=”center”〉密码或者帐号错误!</h1〉<palign=”center"〉〈ahref=”login.asp”〉重新登陆!</a〉〈/p></body></html〉show_add。asp〈html>〈head>〈metahttp—equiv=”Content—Type"content="text/html;charset=utf-8”/><title>添加</title〉</head〉<body>〈% ifSession(”zhanghao")<>”admin"then response.redirect"login.asp"endif%><divalign=”center"〉〈FORMACTION="do_add.asp”METHOD="post”〉〈table>〈tr〉<td>ID:</td>〈Td><INPUTTYPE=”TEXT"NAME=”int_id"〉〈/Td〉〈/tr><tr>〈td>书名:</td><td〉〈INPUTTYPE="TEXT”NAME="shuming"〉〈/td〉〈/tr><tr〉〈td>作者:〈/td〉<td〉〈INPUTTYPE="TEXT”NAME="zuozhe”〉</td〉</tr>〈tr><td>出版社:〈/td〉〈td〉<INPUTTYPE=”TEXT"NAME="chubanshe”〉</td></tr>〈/td>〈/tr>〈/table〉〈INPUTTYPE="SUBMIT"VALUE="修改”>〈/FORM>〈/div〉</body>〈/html>show_uppdat。asp<HTML〉<head〉<title>更新界面〈/title>〈/head〉<BODY〉〈% ifSession(”zhanghao")〈〉”admin"then response。redirect”login.asp”endif%〉〈% str=Request("id") setconn=Server.CreateObject("ADODB.Connection”) conn。open"Driver={SQLServer};server=(local);uid=sa;pwd=123456;database=ckguanlixitong;" setcmd=Server。CreateObject("ADODB.Command") cmd。ActiveC
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 二零二四年度版权分期付款授权合同
- 二零二四年数据中心建设水泥供应合同
- 二零二四年度健身器材销售代理合同
- 二零二四年度城市道路建设设计与施工合同2篇
- 地铁站务员带教合同(2篇)
- 售后回购协议书(2篇)
- 二零二四年度电子商务数据共享与交换合同3篇
- 借款合同争议上诉状写作
- 长期农产品加工购销合同
- 酒水采购协议样本
- 血液透析充分性评估标准-PPT课件
- 猜猜我有多爱你绘本 (2)
- 儿童通信知识教学(课堂PPT)
- 关于开发建设项目水土保持咨询服务费用计列的指导意见(保监[2005]22号)
- 北医三院洁净实验室施工组织设计
- 储气罐日常检查维护保养记录表
- 小学五年级上册美术课件第9课小书签赣美版(16张)ppt课件
- 递等式计算(四年级上)
- 中级按摩师培训课件
- 钢丝绳、吊索具检查表(共3页)
- 文秘专业教学标准
评论
0/150
提交评论