📄 admin_ad.asp
字号:
<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：web@sun116.net
'=========================================================
if session("AdminName") = "" then
response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"--><html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>讯网wap图片后台管理中心</title>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=23 colspan=2 class="topbg"><strong>公 告 管 理</strong></tr>
<tr>
<td width="100" class="tdbg" height=25><strong>管理快捷方式：</strong></td>
<td class="tdbg"><a href="Admin_ad.asp">顶端和尾部管理</a>
</td>
</tr>
</table>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center class="border">
<TBODY>
<TR>
<TD align=middle vAlign=top width=100%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" width="8%" class="tdbg">
<p align="center">ID</td>
<td height="20" width="22%" class="tdbg">
<p align="center">修改</td>
<td height="22" width="21%" class="tdbg">
<p align="center">效果实例</td>
<td height="20" width="21%" class="tdbg">
<p align="center">显示位置</td>
<td height="20" width="12%" class="tdbg">
<p align="center">点击排序</td>
<td height="20" width="7%" class="tdbg">
<p align="center">删除</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% dim totalnews,Currentpage,totalpages,i
sql="select adid,adcontent,adname,adtime,adHots from ad order by adid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<%
if not rs.eof then
rs.movefirst
newsperpage=10
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage<totalnews then
rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
end if
i=0
do while not rs.eof and i<newsperpage
%>
<tr>
<td height="20" width="8%" class="tdbg"><p align="center"><%=rs("adid")%></p></td>
<td height="20" width="22%" class="tdbg"><p align="center"><a class="date" href="Admin_ad_Edit.asp?id=<%=rs("adid")%>"><b><%=rs("adname")%></b></p></a>
</td>
<td height="21" width="21%" class="tdbg"><p align="center"><a class="date" href="<%=rs("adContent")%>"><b><%=rs("adname")%></p></td>
<td height="20" width="21%" class="tdbg"><span style="font-size: 9pt">
<p align="center"><% if rs("adtime")=1 then %>顶部
<%else%>
<font color="#FF0000">底部</font></a>
<%end if%></span></td>
<td height="20" width="12%" class="tdbg"><p align="center"><%=rs("adHots")%></p></td>
<td height="20" width="7%" class="tdbg"><p align="center"><a href="Admin_ad_Del.asp?id=<%=rs("adid")%>">删除</a></td>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<%end if
end if%>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="chinese">
<form name="form1" method="post" action="ggsc.asp">
<tr>
<td align="right" class="tdbg">
<%=currentpage%> /<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>条记录每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="ggsc.asp?page=<%=i%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="ggsc.asp?page=<%=page%>" title="下一页">>></a>
<%end if%>
<input type="text" name="page" class="textarea" size="4">
<input type="submit" name="Submit" value="Go" class="button">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
%>
</TD></TR></TBODY></TABLE>
<!--#include file="copyright.asp" -->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -