📄 guanliyuan.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="adofunctions.asp" -->
<%
if application("loginok")="yes" then
response.Redirect "index.asp"
end if
%>
<%
Sub ShowPage(objRS, PageNo)
Response.Write "<TABLE class='style2' BORDER=0>"
Data = "<TR><th>编号</th>"
For I = 0 To objRS.Fields.Count - 1
Data = Data & "<TH>" & objRS.Fields(I).Name & "</TH>"
Next
Response.Write Data & "<TH colspan=2> 操作 </TH>" & "</TR>"
objRS.AbsolutePage = PageNo
kk=1
For I = 1 To objRS.PageSize
Data = "<TR><td>" & kk & "</td>"
For J = 0 To objRS.Fields.Count - 1
Data = Data & "<TD>" & objRS.Fields(J).Value & "</TD>"
Next
Response.Write Data & "<TD><a href =""#"" onclick=javascript:post('"&objRS.Fields(0).Value&"')> 删除</a></TD>"& "<TD><a href =""change.asp?shuhao="&objRS.Fields(0).Value&"""> 修改</a></TD>"&"</TR>"
objRS.MoveNext
kk=kk+1
If objRS.EOF Then Exit For
Next
Response.Write "</TABLE>"
End Sub
%>
<HTML>
<HEAD>
<TITLE>删改图书</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {color: #FFFFFF;
font-family: "宋体";
font-size: 12px;
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
text-transform: capitalize;
}
.title {
color: #000000;
font-family: "方正姚体";
font-size: 20px;
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
text-transform: capitalize;
letter-spacing: 16px;
text-decoration: none;
}
.style2 {
font-size: 12px;
font-family: "宋体";
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
text-transform: capitalize;
color: #000000;
text-decoration: none;
}
-->
</style>
</HEAD>
<BODY scroll=no BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (管理员操作平台.psd) -->
<TABLE WIDTH=1024 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD ROWSPAN=4>
<IMG SRC="images/admini_1.jpg" WIDTH=121 HEIGHT=178 ALT=""></TD>
<TD ROWSPAN=4>
<IMG SRC="images/admini_2.jpg" WIDTH=146 HEIGHT=178 ALT=""></TD>
<TD COLSPAN=5>
<IMG SRC="images/admini_3.jpg" WIDTH=757 HEIGHT=13 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=13 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=4 background="images/admini_4.jpg"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="15%"> </td>
<td width="80%" valign="bottom"><span class="style1">
<marquee class="style1">
当前位置—>管理员操作平台—>图书删改 此页用于对图书馆馆内藏书信息进行删除及修改
</marquee>
</span></td>
<td width="5%"> </td>
</tr>
</table></TD>
<TD ROWSPAN=2>
<IMG SRC="images/admini_5.jpg" WIDTH=100 HEIGHT=83 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=2>
<IMG SRC="images/admini_6.jpg" WIDTH=165 HEIGHT=144 ALT=""></TD>
<TD ROWSPAN=2>
<IMG SRC="images/admini_7.jpg" WIDTH=240 HEIGHT=144 ALT=""></TD>
<TD ROWSPAN=2>
<IMG SRC="images/admini_8.jpg" WIDTH=221 HEIGHT=144 ALT=""></TD>
<TD ROWSPAN=4>
<IMG SRC="images/admini_9.jpg" WIDTH=31 HEIGHT=390 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=62 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=3>
<IMG SRC="images/admini_10.jpg" WIDTH=100 HEIGHT=328 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=82 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=2>
<IMG SRC="images/admini_11.jpg" WIDTH=121 HEIGHT=246 ALT=""></TD>
<TD>
<IMG SRC="images/admini_12.jpg" ALT="" WIDTH=146 HEIGHT=223 border="0" usemap="#Map"></TD>
<TD>
<IMG SRC="images/admini_13.jpg" ALT="" WIDTH=165 HEIGHT=223 border="0" usemap="#Map2"></TD>
<TD COLSPAN=2 background="images/admini_14.jpg"><form name="form1" method="post" action="admin_addbooksuccess.asp">
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img name="img" src="" width="100" height="6" alt=""></td>
<td><img name="img" src="" width="110" height="6" alt=""></td>
<td><img name="img" src="" width="140" height="6" alt=""></td>
<td><img name="img" src="" width="110" height="6" alt=""></td>
</tr>
<tr>
<td colspan="4"><div align="center" class="title"><span class="style2 style8">
</span></div> <div align="center">
<%
strSQL="select * from 图书表 where 图书类型 ='计算机' or 图书类型='数学' ORDER BY 书号"
Set objRS = GetSQLRecordset(strSQL,"bookstore.mdb", "图书表")
objRS.PageSize = 3
For I = 1 To objRS.PageCount
if i<10 then
Response.Write "<span class='style2'>" & "<A HREF='guanliyuan.asp?Page=" & I & "'>" & "第0" & I & "页" & "</A>" & " " & "</span>"
if i mod 6=0 then Response.Write "<br>"
else
Response.Write "<span class='style2'>" & "<A HREF='guanliyuan.asp?Page=" & I & "'>" & "第" & I & "页" & "</A>" & " " & "</span>"
if i mod 6=0 then Response.Write "<br>"
end if
Next
PageNo = Request("Page")
If PageNo <> "" Then
ShowPage objRS, PageNo
End If
%>
</div></td>
</tr>
</table>
</form></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=223 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=2>
<IMG SRC="images/admini_15.jpg" WIDTH=146 HEIGHT=172 ALT=""></TD>
<TD ROWSPAN=2>
<IMG SRC="images/admini_16.jpg" WIDTH=165 HEIGHT=172 ALT=""></TD>
<TD ROWSPAN=2>
<IMG SRC="images/admini_17.jpg" WIDTH=240 HEIGHT=172 ALT=""></TD>
<TD ROWSPAN=2>
<IMG SRC="images/admini_18.jpg" WIDTH=221 HEIGHT=172 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
</TR>
<TR>
<TD>
<IMG SRC="images/admini_19.jpg" WIDTH=121 HEIGHT=149 ALT=""></TD>
<TD COLSPAN=2>
<IMG SRC="images/admini_20.jpg" WIDTH=131 HEIGHT=149 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=149 ALT=""></TD>
</TR>
</TABLE>
<!-- End ImageReady Slices -->
<map name="Map">
<area shape="rect" coords="26,180,124,207" href="admin_addbook.asp">
<area shape="rect" coords="26,141,124,168" href="guest.asp">
<area shape="rect" coords="26,101,124,128" href="admin_xvjiebook.asp">
<area shape="rect" coords="27,62,125,89" href="huanshu.asp">
<area shape="rect" coords="26,20,124,47" href="jieshu.asp">
</map>
<map name="Map2">
<area shape="rect" coords="20,180,119,208" href="admin_deleteuser.ASP">
<area shape="rect" coords="20,142,119,170" href="adduser.asp">
<area shape="rect" coords="20,60,119,88" href="guanliyuan.asp">
<area shape="rect" coords="21,101,120,129" href="admin_searchuser.asp">
<area shape="rect" coords="20,21,119,49" href="guanliyuan.asp">
</map>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -