www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/admin_detail_ads.asp
<!--#include file="aq.asp"-->
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<%
'导航条
Set rs = Server.CreateObject("ADODB.RecordSet")
StrSql="select * From hymm_ads"
rs.open StrSql,Conn,1,1
%>
<%
page=Request("page")
if page=0 or page="" then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/20
pageCount=int(pageCount)
if (RecordCount mod 20)>0 then
PageCount=PageCount +1
end if
%>
<html>
<head>
<title>友情链接网</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="98%" border="0" cellspacing="1" cellpadding="5" align="center">
<form name="Form1" method="post" action="?page=<%=page%>"><tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height="75" valign="top">
<table width="96%" border="0" cellspacing="1" cellpadding="5">
<tr>
<td height="7">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bordercolorlight="#5D7488" bordercolordark="#FFFFFF" bgcolor="eeeeee">
<tr bgcolor="ABBCCB" align="center">
<td height=20 bgcolor="#FF9900">广告ID</td>
<td height=20 bgcolor="#FF9900">广告名称</td>
<td height=20 bgcolor="#FF9900">到期时间</td>
<td height=20 bgcolor="#FF9900">所在位置</td>
<td height=20 bgcolor="#FF9900">编辑</td>
</tr>
<%
do while pos<(page-1)*20
pos=pos+1
rs.MoveNext
loop
i=1
x=0
do while x<20 and not rs.eof
%>
<tr <%If i/2=Cint(i/2) Then response.write "bgcolor=#EFF3F6" Else Response.write "bgcolor=#FFFFFF" End If %> >
<td height="21" align="center" bgcolor="#FFFFFF"><%=Rs("id")%></td>
<td height="21" align="center" bgcolor="#FFFFFF"><%=Rs("Title")%></td>
<td height="21" bgcolor="#FFFFFF"><%=Rs("time")%> </td>
<td height="21" align="center" bgcolor="#FFFFFF"><%if Rs("weizhi")=0 then response.write "<font color=#FF0000>[首页]</font>"%> <%if Rs("weizhi")=1 then response.write "<font color=#0000FF>[内页]</font>"%></td>
<td height="21" align="center" bgcolor="#FFFFFF"><a href=ads_edit.asp?id=<%=rs("id")%>>修改</a></td>
</tr>
<%
i=i+1
x=x+1
Rs.MoveNext
loop
rs.close
set rs=nothing
%>
</table>
</td></tr>
</table>
</td></tr>
</table>
</td></tr></form>
</table>
</body>
</html>
<%
FreeConn()
%>