📄 pictures.asp
字号:
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="Check.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理页面</title>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>
<script src="images/admin.js" type="text/javascript"></script>
<div class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')"
onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<div align=center>
<script language = JavaScript>
function showsetting(myform){
for (var j=0;j<7;j++){
var tab = eval('document.all.settable'+j);
if(myform.AdsType.selectedIndex==j)
tab.style.display = '';
else
tab.style.display = 'none';
}
}
</script>
<!--#include file="Top.asp" -->
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th>精彩图片管理</th>
</tr>
<tr><td class=BodyTitle colspan=2 height=23 style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;"> </td>
</tr>
</table>
<BR>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<%
Page=Request("Page")
if Page="" then Page=1
if Not isnumeric(Page) then Page=1
if CInt(Page)<1 then Page=1
Page=Abs(Cint(Page))
PCount=0
RCount=0
PSize=16
SQLStr="select * from Pictures order by OrderID"
Set rs=server.CreateObject("adodb.recordset")
rs.open SQLStr,Conn,1,1
if not rs.eof then
rs.pagesize=Psize
RCount=rs.recordcount
PCount=rs.PageCount
if Cint(Page)>CInt(PCount) then Page=PCount
rs.absolutepage=Page
end if
%>
<tr height="25">
<td align=center class=forumRow><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
i=0
do while not rs.eof and i<CInt(PSize)
if i mod 4=0 and i<>0 then Response.Write("<tr>")
i=i+1
%>
<td width="25%"><table width="100%" border="0">
<tr>
<td align="center"><%=rs("Title")%></td>
</tr>
<tr>
<td><div align="center"><img name="" src="/Pictures/<%=rs("Picture")%>" width="160" height="100" alt="<%=rs("Title")%>"></div></td>
</tr>
<tr>
<td><div align="center"><a href="Pictures_Save.asp?act=order1&ID=<%=rs("ID")%>&OrderID=<%=rs("OrderID")%>">[前移</a> | <a href="Pictures_Save.asp?act=order2&ID=<%=rs("ID")%>&OrderID=<%=rs("OrderID")%>">后移</a> | <a href="Pictures_Mod.asp?ID=<%=rs("ID")%>">修改</a> | <A HREF="Pictures_Save.asp?ID=<%=rs("ID")%>&act=del" onClick="Ask('<%=rs("Title")%>')">删除</A>]</div></td>
</tr>
</table></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
<tr height="25">
<td align=center class=forumRow><div title="<BR>">
<table cellspacing=1 width='100%' border=0>
<form method=Post action=Pictures.asp>
<tr>
<td align=center> 共有图片 <font COLOR=#FF0000><B><%=RCount%></B></font> <a href="?Page=1">首 页</a> <a href="?Page=<%=Page-1%>">上一页</a> <a href="?Page=<%=Page+1%>">下一页</a> <a href="?Page=<%=PCount%>">尾 页</a> 页次：<strong><font color=red><%=Page%></font>/<%=PCount%></strong>页 转到：
<select name="KingYang" style="font-size: 9pt" onChange="ChangePage(this.value)">
<%
for i=1 to PCount
%>
<option value="<%=i%>" <%if i=CInt(Page) then Response.Write(" selected")%>>第<%=i%>页</option>
<%
Next
%>
</select> </td>
</tr>
</FORM>
</table>
</div></td>
</tr>
</table>
</div>
</body></html>
<script language="vbscript">
sub Ask(Title)
if not confirm("您确定要删除"&Title&"吗？") then
window.event.returnvalue=false
exit sub
end if
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -