<!--#include file="../head.asp"-->
 <!--#include file="../checkrole.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
   call checkuser("xm")
  
if issession=0 then
id=Replace_Text(request.Cookies("Yxmemberid"))
else
id=session("id")
end if
if markct then
else
Response.Write ("<script>alert(' 该功能未开通 !');history.back();</script>")
end if
sql="select * from Websen_corporation where flag=1 and  id="&id&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then 
response.Redirect("../index.asp")
response.end
else
user=rs("user")
mark=rs("mark")
%>
</script>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="2%"><IMG height=32 src="../images/modifyadment.gif" width=128 
            border=0></TD>
              <TD width="98%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>
      <TABLE class=content_border cellSpacing=0 cellPadding=0 width=100% 
border=0>
       		
        <TBODY>
        <TR>
          <TD align=middle>
		  
<FORM name="Form1" action="modify_pass_save.asp" method="post">
 
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
              <TR>
                <TD valign="top" class=tbg3 style="font-size: 12px">
				&nbsp;&nbsp;&nbsp;&nbsp;<%=user%>您好;您的现在的积分是<%=mark%>,您可以换取以下的广告位。积分越高换取的广告位就越多，赶快积累你个的积分来换取更多的广告位				</TD>
              </TR>
             </TBODY></TABLE>
 
				  <BR> 
                  <table width='98%' border="0" align=center cellpadding=3 cellspacing=1 bgcolor="#CEE0FF">
        <% 
		
Set rs = Server.CreateObject("ADODB.Recordset")
dim adnote_a
adnote_a=request("adnote_a")
sql="SELECT * FROM [Websen_ad] Where ADmark<"& mark


'response.write sql
'response.end
rs.open sql, conn, 1, 1
if rs.eof then
Response.Write "<script>alert('对不起您的积分不够！');history.back();</script>"
end if 
		
		Do While NOT rs.eof 
		id=rs("id")
		ADID=rs("ADID")
		ADViews=rs("ADViews")
		ADHits=rs("ADHits")
		ADType=rs("ADType")
		ADMark=rs("ADMark")
		ADSrc=rs("ADSrc")
		ADLink=rs("ADLink")
		ADAlt=rs("ADAlt")
		ADSrc=rs("ADSrc")
		ADWidth=rs("ADWidth")
		ADHeight=rs("ADHeight")
		ADNote=rs("ADNote") 
		ADStopViews=rs("ADStopViews")
		ADStopHits=rs("ADStopHits")
		ADStopDate=rs("ADStopDate") %>
        <tr bgcolor="#c0c0c0"> 
          <td width="43%" height="25" bgcolor="#DEEEFE">广告名称：<%=ADID%> </td>
          <td width="57%" bgcolor="#DEEEFE">风格及所在页面：<%
		  
		  
		  set rstemp=server.CreateObject("adodb.recordset")
		  YXsql="select yx_tempname,id from [Websen_worldec_Temp] where id="&rs("which_mod")
		  rstemp.open YXsql,conn,1,1
		  if not rstemp.eof then
		  
		  Response.write "<a href=?modid="&rs("which_mod")&"><b>"&rstemp("yx_tempname")&"</b></a>-<a href=?modid="&rs("which_mod")&"&pagename="&rs("which_page")&">"&rs("which_page")&"</a>"
           set rstemp=nothing
		  end if%></td>
          </tr>
        <tr bgcolor="e6e6e6"> 
          <td height="25" bgcolor="#EEF7FF">广告类型：<%=ShowAdType(ADType,rs("ADSrc"))%></td>
          <td bgcolor="#EEF7FF">广告所显示(图片等)地址：
          <%If ADType<>6 Then%><a href=<%=ADSrc%> target=_blank><font color="#000000"><%=ADSrc%></a><%else%>不显示<%end if%></td>
        </tr>
        <tr bgcolor="e6e6e6">
		<td bgcolor="#EEF7FF"> 积 分：<%=ADMark%></td>         
          <td height="25" bgcolor="#EEF7FF">广 告 规 格：<%=ADWidth%>×<%=ADHeight%></td>
        </tr>
		<%
		if right(weburl,1)<>"/" then weburl=weburl&"/"
		'weburl2=left(weburl,len(weburl)-1)&HOPE_InstallDir
		%>
		  <tr bgcolor="e6e6e6"> 
		  <td height="25" colspan="2" bgcolor="#EEF7FF"><a href="advertisement.asp?user=<%=user%>&ADID=<%=ADID%>">换取该广告位
                </a></td> 
          </tr>
		<tr><td  bgcolor="#666666"  colspan="2" height="1"></td>
        <% 
        i=i+1
		rs.movenext
		If i>=rs.PageSize Then Exit Do     
		Loop
		%>
        <tr align="center" bgcolor="c0c0c0"> 
          <td height="25" colspan=4 bgcolor="#DEEEFE"> <center>  第<%=cstr(curpage)%>页　总<%=cstr(rs.pagecount)%>页　本页<%=cstr(i-1)%>条　总<%=cstr(rs.recordcount)%>条          
      
            <%If curpage = 1 Then%>
　&nbsp;&nbsp;<span class="STYLE1"><%=ADID%></span>    [首页] [上一页]
<%Else%>
[<a href='?page=1'>首页</a>] [<a href='?page=<%=cstr(curpage-1)%>'>上一页</a>]
<%End If
      If  curpage = rs.pagecount Then%>
[下一页] [尾页]
<%Else%>
[<a href='?page=<%=cstr(curpage+1)%>'>下一页</a>] [<a href='?page=<%=cstr(rs.pagecount)%>'>尾页</a>]&nbsp;
<%End If%></td>
        </tr>
</table>
                  <BR>
            <TABLE cellSpacing=0 cellPadding=0 border=0 width="100%">
              <TBODY>
			  <tr><td colspan="2" bgcolor="#F3F3F3"  height="3" ></td></tr>
              </TBODY></TABLE></FORM><BR>
   
            <BR><BR></TD></TR>
        </TABLE><BR><BR></TD></TR>
  </TABLE>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
