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(" %> shuming=<%=rs("SM")%>'TARGET='_blank'> <%=rs("SM")%> <% Response.Write(" Response.Write(" %> id=<%=rs("ID")%>">修改 id=<%=rs("ID")%>">删除 <% Response.Write("") ")"&rs("ID")&" ")"&rs("ZZ")&" ")"&rs("CBS")&" ")
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()
%>
<%
'输出表内容
Ifnotrs.EOFThen
%>
书名:
作者:
出版社:
<%
EndIf
%>
successed.html
copyright@ 2008-2023 冰点文库 网站版权所有 经营许可证编号:鄂ICP备19020893号-2