<!--#include virtual="/show/adminhead.asp"-->
<!--#include file="adminleft.asp"-->
<!--#include virtual="/show/mokuai/sms.asp"-->


<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<%
call logquanxian("g2",1)

page=request.QueryString("page")
uid=request.QueryString("uid")

link="adminjubaoguaqi.asp?cact="
if uid<>"" then link=link&"&uid="&uid

if SafeRequest("act")="goumaitishiguanbi" then
uid=SafeRequest("uid")
sql="select * from ayname where aynameid="&uid&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then call PopErr("未找到该商户！")
rs("isbutishi")=0
rs.update
rs.close
call PopErr2("关闭成功！","adminjubaoguaqi.asp?page="&page&"")
end if

if SafeRequest("act")="goumaitishikaiqi" then
uid=SafeRequest("uid")
sql="select * from ayname where aynameid="&uid&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then call PopErr("未找到该商户！")
rs("isbutishi")=1
rs.update
rs.close
call PopErr2("开启成功！","adminjubaoguaqi.asp?page="&page&"")
end if

if SafeRequest("act")="logguanbi" then
uid=SafeRequest("uid")
sql="select * from ayname where aynameid="&uid&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then call PopErr("未找到该商户！")
rs("isbuylog")=0
rs.update
rs.close
call PopErr2("关闭成功！","ik_adminjubao.asp?page="&page&"")
end if

if SafeRequest("act")="logkaiqi" then
uid=SafeRequest("uid")
sql="select * from ayname where aynameid="&uid&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then call PopErr("未找到该商户！")
rs("isbuylog")=1
rs.update
rs.close
call PopErr2("开启成功！","ik_adminjubao.asp?page="&page&"")
end if

if request.QueryString("act")="tongji" then
uid=request.QueryString("uid")
	set rs2=server.CreateObject("adodb.recordset")
	'set rs3=server.CreateObject("adodb.recordset")
	'set rs4=server.CreateObject("adodb.recordset")
		
		rs2.open "select top 1 aynameid,ddku,tousulv from ayname where aynameid="&uid&"",conn,1,3
		if not(rs2.eof) then
		
			set rsnum=conn.execute("select count(*) as num from "&trim(rs2("ddku"))&" where aydingdanuser="&uid&" and aydingdanzt=1")
			ddsum=rsnum("num")
		
			'rs3.open "select aydingdanuser,aydingdanzt from "&trim(rs2("ddku"))&" where aydingdanuser="&uid&" and aydingdanzt=1",conn,1,1
			'ddsum=rs3.RecordCount
			'rs3.close
			
			set rsnum2=conn.execute("select count(*) as num from ayjubao where ayjubaouid="&uid&" and ayjubaosjid=0")
			tssum=rsnum2("num")
			
			'rs4.open "select ayjubaouid,ayjubaosjid from ayjubao where ayjubaouid="&uid&" and ayjubaosjid=0",conn,1,1
			'tssum=rs4.RecordCount
			'rs4.close
		
			if ccur(tssum)>ccur(ddsum) then 
			tousulv=0
			else
			tousulv=Formatnumber(tssum/ddsum*100,2,true,-1,0)
			end if
			
			rs2("tousulv")=tousulv
			rs2.update

		end if
		rs2.close
		


call PopErr2("统计成功！","adminjubaoguaqi.asp?page="&page&"")
	
end if


if request.QueryString("act")="tzchexiao" then
pass=trim(request.QueryString("pass"))
tel=trim(request.QueryString("tel"))
if pass="" or tel="" then call PopErr("投诉密码不能为空！")
call mokuai_sms("IK16","2",trim(tel),"您还有未处理的投诉，使用投诉密码登"&pass&"录平台查看或撤销投诉",pass,"","","")
call PopErr2("通知买家撤销投诉成功！","adminjubaoguaqi.asp")
end if


if request.QueryString("act")="tongzhi" then
uid=request.QueryString("uid")
jid=request.QueryString("jid")
sql="select aynameid,aymail,aytel,wxopenid from ayname where aynameid="&uid&"" 
rs.open sql,conn,1,1
if rs.bof and rs.eof then call PopErr("未找到该商户！")
aymail=trim(rs("aymail"))
aytel=trim(rs("aytel"))
wxopenid=trim(rs("wxopenid"))
rs.close

sql="select * from ayjubao where ayjubaoid="&jid&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then call PopErr("未找到该举报！")
mmail=trim(rs("jubaomail"))
mtel=trim(rs("ayjuname"))

jubaoqq=trim(rs("jubaoqq"))
jubaoname=trim(rs("ayjuname"))
jubaomail=trim(rs("jubaomail"))
aydate=rs("aydate")
jubaodd=trim(rs("jubaodd"))
con=trim(rs("ayjubaocon"))

rs("ayjubaozt")=1
rs("jubaolastdate")=now()
rs.update
rs.close

sql="select * from ayjubao" 
rs.open sql,conn,1,3
rs.addnew
rs("ayjubaosjid")=jid
rs("ayjuhuifu")="我们已收到您的投诉请求,并通知了商家,请耐心等待"
rs("aydate")=now()
rs("ayjuishui")=1
rs("ayjuishuisid")=9
rs.update
rs.close

'conn.Execute("Insert Into mailto(mto,mti,mcon) values('"&trim(mmail)&"','我们已经收到了您的投诉申请，并通知了商家','我们已收到您的投诉请求,并通知了商家,请耐心等待')")
call mokuai_sms("IK09","2",trim(mtel),"我们已经收到了您的投诉申请，并通知了商家,请耐心等待","","","","")


title="来自"&webname&"-收到新的投诉,请处理" 
body="收到新的投诉,请及时妥善处理"

conn.Execute("Insert Into mailto(mto,mti,mcon) values('"&trim(aymail)&"','"&trim(title)&"','"&trim(body)&"')")
conn.Execute("Insert Into mailto(mfs,mto,mcon) values('1','"&trim(aytel)&"','"&trim(body)&"')")

	if wxopenid<>"" then
	wxend="买家QQ:"&jubaoqq&"\n"
	wxend=wxend&"买家电话:"&jubaoname&"\n"
	wxend=wxend&"买家邮箱:"&jubaomail&"\n"
	wxend=wxend&"投诉时间:"&aydate&"\n"
	wxend=wxend&"请商家积极的与买家沟通协商。\n请注意：只有买家可以撤销投诉"
	conn.Execute("Insert Into mailto(mfs,wxlei,mto,wxtop,wxtext,wx1,wx2) values('2','3','"&trim(wxopenid)&"','收到新的投诉通知','"&wxend&"','"&jubaodd&"','"&con&"')")
	end if

call PopErr2("处理成功，并通知商户！","ik_adminjubao.asp")
end if


if request.QueryString("act")="tongzhi2" then
uid=request.QueryString("uid")
jid=request.QueryString("jid")
sql="select aynameid,aymail,aytel,wxopenid from ayname where aynameid="&uid&"" 
rs.open sql,conn,1,1
if rs.bof and rs.eof then call PopErr("未找到该商户！")
aymail=trim(rs("aymail"))
aytel=trim(rs("aytel"))
wxopenid=trim(rs("wxopenid"))
rs.close

sql="select * from ayjubao where ayjubaoid="&jid&"" 
rs.open sql,conn,1,1
if rs.bof and rs.eof then call PopErr("未找到该举报！")
mmail=trim(rs("jubaomail"))
mtel=trim(rs("ayjuname"))
jubaoqq=trim(rs("jubaoqq"))
jubaoname=trim(rs("ayjuname"))
jubaomail=trim(rs("jubaomail"))
aydate=rs("aydate")
jubaodd=trim(rs("jubaodd"))
con=trim(rs("ayjubaocon"))
rs.close

title="来自"&webname&"-警告，请及时处理投诉" 
body="您有未处理的投诉，请及时处理投诉所涉及的问题，感谢您的配合，如长期不做处理账号资金将被冻结！"

conn.Execute("Insert Into mailto(mto,mti,mcon) values('"&trim(aymail)&"','"&trim(title)&"','"&trim(body)&"')")
call mokuai_sms("IK15","2",trim(aytel),body,"","","","")

	if wxopenid<>"" then
	wxend="买家QQ:"&jubaoqq&"\n"
	wxend=wxend&"买家电话:"&jubaoname&"\n"
	wxend=wxend&"买家邮箱:"&jubaomail&"\n"
	wxend=wxend&"投诉时间:"&aydate&"\n"
	wxend=wxend&"请商家积极的与买家沟通协商。\n如长期不做处理账号资金将被冻结！"
	conn.Execute("Insert Into mailto(mfs,wxlei,mto,wxtop,wxtext,wx1,wx2) values('2','3','"&trim(wxopenid)&"','警告，请及时处理投诉','"&wxend&"','"&jubaodd&"','"&con&"')")
	end if

call PopErr2("通知成功！","ik_adminjubao.asp")
end if


if request.QueryString("act")="del" then
id=request.QueryString("id")
page=request.QueryString("page")

sql="select * from ayjubao where ayjubaoid="&id&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then
call PopErr("未找到投诉！")
else
		set rsu=server.CreateObject("adodb.recordset")
		sqlu="select * from ayjubao where ayjubaosjid="&rs("ayjubaoid")&"" 
		rsu.open sqlu,conn,1,3
		if not(rsu.bof and rsu.eof) then
		do while not rsu.eof
		rsu.delete
		rsu.movenext  
		loop
		end if
		rsu.close
		
rs.delete
end if
call logadd(request.Cookies("aynameid"),"管理-举报信息删除成功"&id,0,0)
response.Redirect("ik_adminjubao.asp?page="&page&"&uid="&uid)
rs.close
end if



if request.QueryString("act")="guaqi" then
id=request.QueryString("id")
page=request.QueryString("page")

	sql="select * from ayjubao where ayjubaoid="&id&"" 
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	call PopErr("未找到投诉！")
	else
	rs("isguaqi")=1
	rs.update
	end if
	rs.close
	response.Redirect("ik_adminjubao.asp?page="&page&"&uid="&uid)

end if
%>

<title><%=webname%>-最高权限-举报管理</title> 

<DIV>
<script language="javascript" type="text/javascript"> 
var interval = 1000; 
function ShowCountDown(year,month,day,hour,minute,divname) 
{ 
var now = new Date(); 
var endDate = new Date(year, month-1, day,hour,minute); 
var leftTime=endDate.getTime()-now.getTime(); 
var leftsecond = parseInt(leftTime/1000); 
var day1=Math.floor(leftsecond/(60*60*24)); 
var hour=Math.floor((leftsecond-day1*24*60*60)/3600); 
var minute=Math.floor((leftsecond-day1*24*60*60-hour*3600)/60); 
var second=Math.floor(leftsecond-day1*24*60*60-hour*3600-minute*60); 
var cc = document.getElementById(divname); 
if(day1<0)
{
cc.innerHTML = "已超过24小时"; 
}
else
{
cc.innerHTML = day1+"天"+hour+"小时"+minute+"分"+second+"秒"; 
}
} 
</script>
<%

if uid<>"" then
sql="select * from ayjubao where ayjubaouid="&uid&" and ayjubaosjid=0 and isguaqi=1 order by jubaolastdate desc" 
else
sql="select * from ayjubao where ayjubaosjid=0 and ayjuzt=0 and isguaqi=1 order by jubaolastdate desc" 
end if
rs.open sql,conn,1,1
%>
<DIV id=main1200> 
<%call webleft()%>
<DIV id=main_right>
<DIV id=main_right_content>
<STYLE>.apply_style {
	POSITION: absolute
}
.right_title A {
	LINE-HEIGHT: 27px; WIDTH: 126px; DISPLAY: inline-block; BACKGROUND: url(<%=ossurl%>images/bg22.gif) no-repeat; HEIGHT: 27px
}
.right_title A.current {
	BACKGROUND: url(<%=ossurl%>images/main_right_title_bg.gif) no-repeat; COLOR: #fff; FONT-WEIGHT: bold
}
.table_style_1 TD {
	HEIGHT: 38px
}
.table_style_home_info TD {
	PADDING-BOTTOM: 0px; PADDING-LEFT: 10px; PADDING-RIGHT: 0px; HEIGHT: 30px; PADDING-TOP: 0px
}
</STYLE>

<DIV class=right_titleadmin>&nbsp;&nbsp;已挂起投诉 [<a href="ik_adminjubao.asp">查看未处理投诉</a>] [<a href="adminjubaook.asp">查看已处理投诉</a>] [<a href="adminjubaoguaqi.asp">查看已挂起投诉</a>]</DIV>
<DIV class=main>
<form action="?act=edit" method="post" name="form" id="form">
  <TABLE width="99%" border="0" cellpadding="0" cellspacing="0" class="table_style_a1" style="MARGIN: 15px 0px">
  <TBODY>
  <TR>
    <TD align="center" class="border_right border_bottom">订单号</TD>
    <TD align="center" class="border_right border_bottom">状态</TD>
    <TD align="center" class="border_right border_bottom">金额</TD>
    <TD align="center" class="border_right border_bottom">通道</TD>
    <TD align="center" class="border_right border_bottom">渠道</TD>
    <TD align="center" class="border_right border_bottom">商户名</TD>
    <TD align="center" class="border_right border_bottom">级别</TD>
    <TD align="center" class="border_right border_bottom">VIP</TD>
    <TD align="center" class="border_right border_bottom">购买提示</TD>
    <TD align="center" class="border_right border_bottom">强制登录</TD>
    <TD align="center" class="border_right border_bottom">投诉率</TD>
    <TD align="center" class="border_right border_bottom">进展</TD>
    <TD align="center" class="border_right border_bottom">投诉人</TD>
    <TD align="center" class="border_bottom border_right">投诉时间</TD>
    <TD align="center" class="border_bottom border_right"> 投诉24小时倒计时 </TD>
    <TD align="center" class="border_bottom border_right">买家撤销</TD>
    <TD align="center" class="border_bottom border_right">通知商户</TD>
    <TD align="center" class="border_bottom border_right">投诉状态</TD>
    <TD align="center" class="border_bottom ">操作</TD>
  </TR>
  <%
rs.pagesize=40
pagecount=rs.pagecount 
if request("page")="" then 
page=1
else
page=int(request("page")) 
end if
if page<=0 then page=1 
if request("page")="" then page=1
if not(rs.bof and rs.eof) then
rs.absolutepage=page
jin=0
  do while not rs.eof
  %>
  <TR onmouseover=this.bgColor='#D2FFFF' onmouseout=this.bgColor='#ffffff'>
    <%
ayddzffangshi=""

ddku=getddku(rs("jubaodd"))

set rsu=server.CreateObject("adodb.recordset")
if trim(rs("jubaodd"))<>"" then
rsu.open "select qudao,aydingdanzt,aydingdanid,aydingdansum,ayddzffangshi,aydingdanzj from "&ddku&" where aydingdansum='"&trim(rs("jubaodd"))&"'" ,conn,1,1
	if not(rsu.bof and rsu.eof) then 
	ddh=rsu("aydingdanid")
	ayddzffangshi=rsu("ayddzffangshi")
	aydingdanzj=rsu("aydingdanzj")
	aydingdanzt=rsu("aydingdanzt")
	qudao=rsu("qudao")
	end if
rsu.close
end if
%>
    <TD align="center"  class="border_right border_bottom"><a target="_blank" href="adminmydingdanc.asp?id=<%=ddh%>&ddku=<%=ddku%>"><%=rs("jubaodd")%></a>

    </TD>
    <TD align="center"  class="border_right border_bottom">
<%
if aydingdanzt="0" then response.Write "未支付"
if aydingdanzt="1" then response.Write "成功"
%>
    </TD>
    <TD align="center"  class="border_right border_bottom">
      <%
	if trim(rs("jubaodd"))<>"" then
	response.Write aydingdanzj&"元"
	end if
	
	jin=ccur(jin)+ccur(aydingdanzj)
	%>
    </TD>
    <TD align="center"  class="border_right border_bottom">
      <%
	if ayddzffangshi<>"" then

		if cint(ayddzffangshi)=99 then 
		response.Write "余额"
		elseif cint(ayddzffangshi)=0 then 
		response.Write "网银"
		elseif cint(ayddzffangshi)=1 then 
		response.Write "充值卡"
		elseif cint(ayddzffangshi)=2 then 
		response.Write "支付宝"
		elseif cint(ayddzffangshi)=3 then 
		response.Write "财付通"
		elseif cint(ayddzffangshi)=4 then 
		response.Write "微信"
		elseif cint(ayddzffangshi)=5 then 
		response.Write "手Q"
		elseif cint(ayddzffangshi)=6 then 
		response.Write "京东"
		elseif cint(ayddzffangshi)=7 then 
		response.Write "闪云付"
		elseif cint(ayddzffangshi)=10 then 
		response.Write "<span style=color:#F3C>支付宝</span>"
		elseif cint(ayddzffangshi)=12 then 
		response.Write "<span style=color:#F3C>财付通</span>"
		elseif cint(ayddzffangshi)=13 then 
		response.Write "<span style=color:#F3C>微信</span>"
		elseif cint(ayddzffangshi)=14 then 
		response.Write "<span style=color:#F3C>QQPAY</span>"
		elseif cint(ayddzffangshi)=15 then 
		response.Write "<span style=color:#F3C>京东</span>"
		elseif cint(ayddzffangshi)=16 then 
		response.Write "<span style=color:#F3C>闪云付</span>"
		else
		response.Write ayddzffangshi
		end if
		
	end if
		%>	
    </TD>
    <TD align="center"  class="border_right border_bottom">
    <%=trim(qudao)%>
    </TD>
    <TD align="center"  class="border_right border_bottom">
      <% 

sqlu="select * from ayname where aynameid="&rs("ayjubaouid")&"" 
rsu.open sqlu,conn,1,1
if not(rsu.bof and rsu.eof) then%>
      <a href="adminuseredit.asp?id=<%=rs("ayjubaouid")%>" target="_blank"><%=rsu("aytrueuser")%></a>
     <%
	 if cint(rsu("ismiaotui"))=1 then response.Write "<span style=color:#393>【秒退】</span>"
	 %>
    </TD>
    <TD align="center"  class="border_right border_bottom"><%=getjbname(rsu("ayjibie"))%></TD>
    <TD align="center"  class="border_right border_bottom"><%=rsu("ayisxiaojin")%></TD>
    <TD align="center"  class="border_right border_bottom">
	<%if cint(rsu("isbutishi"))=1 then %>
    <a href="?act=goumaitishiguanbi&uid=<%=rsu("aynameid")%>" title="点击关闭">已开启</a>
	<%else%>
	<a href="?act=goumaitishikaiqi&uid=<%=rsu("aynameid")%>" title="点击开启">否</a>
	<%end if%>
    </TD>
    <TD align="center"  class="border_right border_bottom">
	<%if cint(rsu("isbuylog"))=1 then %>
    <a href="?act=logguanbi&uid=<%=rsu("aynameid")%>" title="点击关闭">已开启</a>
	<%else%>
	<a href="?act=logkaiqi&uid=<%=rsu("aynameid")%>" title="点击开启">否</a>
	<%end if%>
    </TD>
    <TD align="center"  class="border_right border_bottom"><strong><%=Formatnumber(rsu("tousulv"),2,true,-1,0)%>%</strong> <a href="?act=tongji&uid=<%=rs("ayjubaouid")%>">统计</a></TD>
<%
else
%>
<TD align="center"  class="border_right border_bottom">-</TD>
<TD align="center"  class="border_right border_bottom">-</TD>
<TD align="center"  class="border_right border_bottom">-</TD>
<TD align="center"  class="border_right border_bottom">-</TD>
<TD align="center"  class="border_right border_bottom">-</TD>
<TD align="center"  class="border_right border_bottom">-</TD>
<%end if
rsu.close
%>
    
    
    <TD align="center"  class="border_right border_bottom">
    <%
	if cint(rs("jubaojinzhan"))=0 then 
	response.Write "<a href=ik_adminjubaoc.asp?id="&rs("ayjubaoid")&" style=color:#F30 target=_blank>【买家申请投诉】</a>"
	elseif cint(rs("jubaojinzhan"))=1 then 
	response.Write "<a href=ik_adminjubaoc.asp?id="&rs("ayjubaoid")&" style=color:#F93 target=_blank>【商家已回复】</a>"
	elseif cint(rs("jubaojinzhan"))=2 then 
	response.Write "<a href=ik_adminjubaoc.asp?id="&rs("ayjubaoid")&" style=color:#393 target=_blank>【管理员已回复】</a>"
	elseif cint(rs("jubaojinzhan"))=3 then 
	response.Write "<a href=ik_adminjubaoc.asp?id="&rs("ayjubaoid")&" style=color:#F30 target=_blank>【买家已回复】</a>"
	elseif cint(rs("jubaojinzhan"))=4 then 
	response.Write "<a href=ik_adminjubaoc.asp?id="&rs("ayjubaoid")&" style=color:#393 target=_blank>【平台准备退款】</a>"
	else
	response.Write "【点击查看详情】"
	end if
	%>
    </TD>

    <TD align="center" class="border_right border_bottom"><%=trim(rs("ayjuname"))%></TD>
    <TD align="center" class="border_bottom border_right"><%=rs("aydate")%></TD>
    <TD align="center" class="border_bottom border_right">
    <%
	ntime=DateAdd("h",24,rs("aydate"))
	%>
    <script language="javascript" type="text/javascript">window.setInterval(function(){ShowCountDown('<%=year(ntime)%>','<%=Month(ntime)%>','<%=day(ntime)%>','<%=hour(ntime)%>','<%=minute(ntime)%>','t<%=rs("ayjubaoid")%>');}, interval);</script> 
    <div id="t<%=rs("ayjubaoid")%>"></div> 
    </TD>
    <TD align="center" class="border_bottom border_right"><a style="color:#009933" href="?act=tzchexiao&tel=<%=trim(rs("ayjuname"))%>&pass=<%=trim(rs("ayjupass"))%>">通知买家</a></TD>
    <TD align="center" class="border_bottom border_right">
      <%if cint(rs("ayjubaozt"))=0 then%>
      
      <a href="?act=tongzhi&uid=<%=rs("ayjubaouid")%>&jid=<%=rs("ayjubaoid")%>" style="color:#FF0000">未通知</a>
      <%elseif cint(rs("ayjubaozt"))=1 then%>
      
      <span style="color: #009933"> 
        <%if cint(rs("ayjuzt"))=0 then%>
        <a href="?act=tongzhi2&uid=<%=rs("ayjubaouid")%>&jid=<%=rs("ayjubaoid")%>" style="color:#009933">再通知</a>
        <%end if%>
        </span>
      <%end if%>	</TD>
    <TD align="center" class="border_bottom border_right">
      <%if cint(rs("ayjuzt"))=0 then response.Write "<span style='color: #FF0000'>处理中</span>"
	if cint(rs("ayjuzt"))=1 then response.Write "<span style='color: #009933'>处理完毕</span>"
	%>    </TD>
    <TD align="center" class="border_bottom"><a href="?act=guaqi&id=<%=rs("ayjubaoid")%>&page=<%=page%>&uid=<%=uid%>">挂起</a>  <a href="?act=del&id=<%=rs("ayjubaoid")%>&page=<%=page%>&uid=<%=uid%>">删除</a></TD>
  </TR>
<%n=n+1
rs.movenext  '指针向下移动
if n>=rs.pagesize then exit do  
loop
end if
rs.close%>
  <TR>
    <TD colspan="18" align="left">
<%if pagecount=0 then   
response.write("首页 ")
elseif page=1 then       
response.write("首页 ")
else%>                   
<a href="<%=link%>&page=1">首页</a>
<%end if

if pagecount=0 then   
response.write("上页&nbsp;")
elseif page=1 then       
response.write("上页&nbsp;")
else%>                   
<a href="<%=link%>&page=<%=page-1%>">上页</a>&nbsp;
<%end if

if pagecount>20 then
if page<=10 then 
aa=1
bb=20
aabu=""
bbbu=" … "
elseif page>=11 then 
aa=page-9
bb=page+10
aabu=" …"
bbbu=" … "
	if bb>=pagecount then 
	aa=pagecount-20
	bb=pagecount
	aabu=" … "
	bbbu=""
	end if
end if
response.Write aabu
for aa=aa to bb
if page=aa then
response.Write("<a href="&link&"&page="&aa&"><strong>"&aa&"</strong></a>&nbsp;")
else
response.Write("<a href="&link&"&page="&aa&">"&aa&"</a>&nbsp;")
end if
next
response.Write bbbu

else

for i=1 to pagecount
if page=i then
response.Write("<a href="&link&"&page="&i&"><strong>"&i&"</a></strong>&nbsp;")
else
response.Write("<a href="&link&"&page="&i&">"&i&"</a>&nbsp;")
end if
next

end if

if pagecount=0 then 
response.write("下页&nbsp;")
elseif page=pagecount then 
response.write("下页&nbsp;")
else%>                    
<a href="<%=link%>&page=<%=page+1%>">下页</a>
<%end if%>
<%if pagecount=0 then  '总页数为0 显示空
response.write("尾页 ") 
elseif page=pagecount then 
response.write("尾页 ")
else%>                    
<a href="<%=link%>&page=<%=pagecount %>">尾页</a>
<%end if

if pagecount<>0 then 
response.Write page&"/"&pagecount
end if
response.Write "&nbsp;共"&zongshu&"条"
response.Write "&nbsp;共"&jin&"元"

%>	</TD>
    </TR>
  </TBODY></TABLE>
	</form>



</DIV></DIV>
<DIV class=clear></DIV></DIV>
</DIV>
<SCRIPT>
$(function(){
$('.left_title').each(function(){
   $(this).click(function(){
	   var index=$('.left_title').index(this);
	   if($(this).next().hasClass('hide_m')){
		   $(this).next().removeClass('hide_m');
           $(this).next().show();		 
		   $(this).find('img').attr('src','<%=ossurl%>images/expansion.gif');
		   $.cookie('m_index_'+index,'',{expires:0});

	   } else {
	       $(this).next().hide();
		   $(this).next().addClass('hide_m');
		   $(this).find('img').attr('src','<%=ossurl%>images/shrank.gif');		   
		   $.cookie('m_index_'+index,'none',{expires:365});
	   }
   })
})

$('.left_title').each(function(){
	var index=$('.left_title').index(this);
    $(this).next().css('display',$.cookie('m_index_'+index) ? $.cookie('m_index_'+index) : '');
	if($.cookie('m_index_'+index)){
	    $(this).next().addClass('hide_m');
	}
	$(this).find('img').attr('src',$.cookie('m_index_'+index) ? '<%=ossurl%>images/shrank.gif' : '<%=ossurl%>images/expansion.gif');
})
})

</SCRIPT>


<!--#include virtual="/show/footadmin.asp"-->

