📄 gg_list.asp
字号:
<!--
┌─9911.com.cn────────────┐
│ 动感购物 WWW.9911.com.cn 版权所有 │
│ 动感购物2005Vb 联系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp" -->
<html>
<head>
<title><%=webname%>-- 会员公告</title>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 { color: #FF6600;
font-weight: bold;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">-->
<!--#include file="webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> ->
站内会员公告</td>
<td valign="bottom">
</td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top"><table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
<tr>
<td><img src="/img/lf_img_top.gif" width="180" height="9"></td>
</tr>
<tr>
<td><img src="/img/lf_tl_directgo.gif" width="180" height="40" border="0" usemap="#derectgo"></td>
</tr>
<tr>
<td><img src="/img/lf_directgo_boxtop.gif" width="180" height="8"></td>
</tr>
<tr>
<td background="/img/lf_directgo_boxbg.gif" width="180" height="23">
<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<%set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from shop_text order by linkidorder",conn,1,1
i=rs3.recordcount%>
<%if rs3.eof and rs3.bof then
response.write "<tr><td>还没有数据，请添加！</td></tr>"
else
do while not rs3.eof%>
<tr>
<td height="23" width="15" align="right"><img src="/img/ic_bluearrow.gif" width="2" height="4"></td>
<td class="lf_diectgo1"><a href="<%=trim(rs3("link"))%>" <%if rs3("tc")=1 then%>target="_blank"<%else%><%end if%>> <font color="<%=trim(rs3("textys"))%>"> <%=trim(rs3("text"))%></font></a></td>
</tr>
<tr>
<td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
</tr>
<%rs3.movenext
loop
end if
rs3.close
set rs3=nothing%>
</table></td>
</tr>
<tr>
<td><img src="/img/lf_directgo_boxbottom.gif" width="180" height="6"></td>
</tr>
</table>
<map name="derectgo" id="derectgo2">
<area shape="rect" coords="136,19,170,32" href="#" alt="MORE">
</map>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
<tr>
<td height="12"></td>
</tr>
<tr>
<td><img src="/img/lf_tl_best10.gif" width="180" height="40" border="0" usemap="#Map5Map"></td>
</tr>
<tr>
<td>
<!-- best 10 咆胶飘绰 28byte(..)器窃 -->
</td>
</tr>
</table>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
<tr>
<td><%if session("username")="" then
set rsg=server.createobject("adodb.recordset")
rsg.open "select top 12 * from shop_usergg where lx=0 order by id desc",conn,1,1
else
set rsg=server.createobject("adodb.recordset")
rsg.open "select top 10 * from shop_usergg where lx="&nosql(session("reglx"))&" or lx=0 order by id desc",conn,1,1
end if
if rsg.recordcount=0 then
%>
<table width="160" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td height="26" align=center>暂无会员公告</td>
</tr>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
</table>
<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<%
while not rsg.eof
%>
<tr>
<td height="22"><a href="gg_list.asp?id=<%=rsg("id")%>" title=<%=year(rsg("adddate"))%>年<%=month(rsg("adddate"))%>月<%=day(rsg("adddate"))%>日发布><img src="/img/left_7.gif" width="11" height="11" border="0">
<%if len(trim(rsg("zt")))>12 then
response.write left(trim(rsg("zt")),12)&""
else
response.write trim(rsg("zt"))
end if%>
</a></td>
</tr>
<tr>
<td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
</tr>
<%
rsg.movenext
wend
%>
</table>
<%
end if
rsg.close
set rsg=nothing
%></td>
</tr>
</table>
<div align="center"><img src="/img/lf_img_bt.gif" width="180" height="9">
<map name="Map5Map">
<area shape="rect" coords="137,19,172,31" href="gg_show.asp">
</map>
</div></td>
<td valign="top"><%dim ggid
ggid=nosql(request.QueryString("id"))
set rs=server.CreateObject("adodb.recordset")
if Not isChkInteger(request("id")) then
%>
<script language=javascript>
alert("参数错误！");
window.close();
</script>
<%
response.end
end if
rs.open "select * from shop_usergg where id="&ggid,conn,1,3
if rs.recordcount=0 then
%>
<script language='javascript'>alert('调用错误，请返回！');window.location.href='index.asp';</script>
<%
end if
if rs("hot")="" or rs("hot")=null then
hot=0
else
hot=rs("hot")
end if
rs("hot")=hot+1
rs.update
%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="sm_debrown">
<tr>
<td colspan="3" height="4" bgcolor="ffffff"></td>
</tr>
<tr>
<td width="7" height="24"><img src="/img/skin<%=cssid%>/bott_nav_lf.gif" width="7" height="24"></td>
<td width="926" align="center" valign="middle" background="img/skin<%=cssid%>/bott_nav_bj.gif" bgcolor="EEE7CC" class="sm_debrown"><span class="table-shangxia"><span class="b14"><b><%=trim(rs("zt"))%></b></span></span></td>
<td width="7"><img src="/img/skin<%=cssid%>/bott_nav_rg.gif" width="7" height="24"></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="a1">
<td height="30" style="table-layout:fixed;word-break:break-all">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> <b><%=trim(rs("zt"))%></b></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="table-layout:fixed;word-break:break-all">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><%=trim(rs("nr"))%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<div align="center"><a href='javascript:window.close()'>点击关闭窗口</a> 发布人：<%=trim(rs("fbr"))%> 发布时间：<%=year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日"%> 此公告已被浏览 <font color=red><%=rs("hot")%></font> 次</div></td>
</tr>
</table>
<br>
<%rs.close
set rs=nothing%></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -