📄 gg.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>2 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx15<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%><html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>
<body><div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="30%" height="26"> <strong>信息管理</strong> <a href="addgg.asp">添加新的公告</a></font></td>
<td width="70%" align="right"> </td>
</tr>
</table></td>
</tr>
</table><br>
<form method="POST" action="delgg.asp">
<br>
<div align="center">
<table width="90%" border="0" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<tr bgcolor="#C7D3E6">
<td height="23"> 最新公告主题</td>
<td height="23"><div align="center">发布人</div></td>
<td width="16%" align="center">发布时间</td>
<td align="center">会员类型</td>
<td align="center">修改</td>
<td width="8%" align="center">删除</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
set rs=conn.execute("select*from shop_usergg ORDER BY id DESC")
page=request("page")
newpage=0
if page="" then page=1
do while newpage<page*31-31
newpage=newpage+1
rs.movenext
loop
do while not rs.eof
i=i+1%>
<tr bgcolor="#F0F3F8">
<td width="30%" height="23"> <a href="editgg.asp?id=<%response.write rs("id")%>">
<%response.write rs("zt")%>
</a> </td>
<td width="15%"><div align="center">
<%response.write rs("fbr")%>
</div></td>
<td width="16%" align="center">
<%response.write rs("adddate")%> </td>
<td width="6%" align="center">
<%if rs("lx")=0 then%>
所有会员
<%elseif rs("lx")=1 then%>
普通会员
<%elseif rs("lx")=2 then%>
VIP会员
<%elseif rs("lx")=3 then%>
批发会员
<%end if%> </td>
<td width="6%" align="center"><a href="editgg.asp?id=<%=rs("id")%>">修改</a></td>
<td width="8%" align="center">
<input type="checkbox" name="de" value="<%response.write rs(0)%>"></td>
</tr>
<%if i=30 then exit do
rs.movenext
loop%>
</table>
<p>
<input type="submit" value="删除" name="B1" class="go-wenbenkuang">
<input type="reset" value="重选" name="B2" class="go-wenbenkuang">
</p>
<p>
<%if page=1 then %>
上一页
<%else%>
<a href="gg.asp?page=<%=page-1%>">上一页</a>
<%end if%>
<%if i=30 and not rs.eof then %>
<a href="gg.asp?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>
</div>
</form>
</div>
<div align="center">
<center>
<%rs.close
conn.close%>
</center>
</div> <br>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -