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

类型基于图书仓库管理系统的数据库设计与实现.docx

  • 文档编号:9777951
  • 上传时间:2023-02-06
  • 格式:DOCX
  • 页数:22
  • 大小:137.16KB

用户名称

管理密码

 

type="reset"value="重填"name="cmdReset">

 

manage.asp

管理界面

<%

ifSession("zhanghao")<>"admin"then

response.redirect"login.asp"

endif

%>

欢迎您:

<%Response.Write(Session("zhanghao"))%>

时间:

<%Response.Write(Date())%>

<%

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<1TheniPage=1'页码小于1,则显示第一页

'当大于总页数的时候,显示最后一页

IfiPage>rs.PageCountTheniPage=rs.PageCount

Else

iPage=1

EndIf

Response.Write("当前第"&iPage&"页,共"&rs.PageCount&"页")

rs.AbsolutePage=iPage

%>

#AAAADD;">

ID书名作者出版社

修改删除

<%

ForI=0Tors.PageSize-1

Ifrs.EOFORrs.BOFThenExitFor

'设置奇数和偶数行显示不同的背景颜色

IfIMod2=1Then

Response.Write("

#FFFFCD;'>")

Else

Response.Write("")

Endif

Response.Write(""&rs("ID")&"")

%>

shuming=<%=rs("SM")%>'TARGET='_blank'>

<%=rs("SM")%>

<%

Response.Write(""&rs("ZZ")&"")

Response.Write(""&rs("CBS")&"")

%>

id=<%=rs("ID")%>">修改

id=<%=rs("ID")%>">删除

<%

Response.Write("")

rs.movenext()

Next

%>


<%'当前是第一页的时候,不显示"第一页"

IfiPage<>1Then%>

page=1">第一页

page=<%=iPage-1%>">上一页

<%EndIf

'当前是最后一页的时候,不显示"最后页"

IFiPage<>rs.PageCountThen%>

page=<%=iPage+1%>">下一页

page=<%=rs.pageCount%>">最后页

<%EndIf

conn.close()

%>

添加数据

checklogin.asp

 

验证登陆

<%

dimsql

dimrs

dimseekerrs

dimfounduser

dimusername

dimcompanyid

dimpassword

dimerrmsg

dimfounderr

founderr=false

FoundUser=false

username=Request.Form("username")

password=Request.Form("password")

'如果管理员帐号为空'

ifusername=""then

Response.Redirect("false.html")

Endif

ifpassword=""then

Response.Redirect("false.html")

Endif

ifusername="admin"andpassword="admin"then

'如果管理员名称和密码都正确则设置COOKIES保证全站生效'

';Response.Cookies("name")="admin"

Session("zhanghao")="admin"

Response.Redirect("manage.asp")

else

Response.Redirect("false.html")

Endif

%>

 

del.asp

删除数据库

<%

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")

%>

 

do_add.asp

添加

<%

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")

%>

 

do_uppdat.asp

更新界面

<%

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")

%>

 

 

false.html

 

显示错误

密码或者帐号错误!

重新登陆!

 

show_add.asp

 

添加

<%

ifSession("zhanghao")<>"admin"then

response.redirect"login.asp"

endif

%>

ID:

书名:

作者:

出版社:

 

show_uppdat.asp

 

更新界面

<%

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="SELECT*FROMbookWHEREID="&str

cmd.CommandText=sql

setrs=cmd.Execute()

%>

<%=rs("ID")%>的信息为:


<%

'输出表内容

Ifnotrs.EOFThen

%>

">

书名:

">

作者:

">

出版社:

">

<%

EndIf

%>

 

successed.html

 

执行成功

执行操作成功

举报
举报
版权申诉
版权申诉
word格式文档无特别注明外均可编辑修改;预览文档经过压缩,下载后原文更清晰! 立即下载
配套讲稿:

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

特殊限制:

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

关 键  词:
基于 图书 仓库 管理 系统 数据库 设计 实现
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:基于图书仓库管理系统的数据库设计与实现.docx
链接地址:https://www.bdocx.com/doc/9777951.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

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

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

收起
展开