showad.asp

SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手

<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="22"><b><%=Site_name%> - 用户控制面板 - 获取广告代码</b></td>
  </tr>
</table>
<br>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
 <%
 	Nowpage=CLng(Request.QueryString("Page"))
 	Set Rs=GrateRs("Select * from sms order by id desc",1)
	i=1
	Rs.PageSize=60
    if not Rs.eof then 
	If Nowpage=0 then Nowpage=1
	Rs.AbsolutePage=Nowpage 
    do while not Rs.eof and i<=Rs.pagesize
 %>
  <tr>
	<%
	for j = 1 to 4
	%>
    <td height="22" background="images/line4.gif"><a href="AdShow.asp?Adid=<%=Rs("id")%>" target="adopen"><%=Rs("name")%></a></td>
	<%
		Rs.movenext
		i=i+1
		if Rs.eof then exit for 
	next
	do while j<=4
		response.write ("<td></td>")
		j=j+1
	loop
	%>
  </tr>
<%
   loop
   else
   		response.write("还没有添加广告代码!")
   end if
%>
</table>
<br>

<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="22" align="right"><%
  myurl="?Action=ShowAd&"
  response.write("<form name='form2' method='get' action="&myurl&">共:"&Rs.PageCount&"页,"&Rs.PageSize&"条/页,第"&NowPage&"页&nbsp;")
  response.write("<a href='"&myurl&"page=1'>"&"第一页</a>&nbsp;")
  if NowPage>1 then response.write("<a href='"&myurl&"page="&Nowpage-1&"'>前一页</a>&nbsp;")
  if NowPage<Rs.PageCount then response.write("<a href='"&myurl&"page="&Nowpage+1&"'>后一页</a>&nbsp;")
  response.write("<a href='"&myurl&"page="&Rs.PageCount&"'>最后页</a>&nbsp;")
  response.write("&nbsp;转到&nbsp;<input name='Action' type='hidden' value='ShowAd'><input name='page' type='text' width='2'' size='3' class='textbox'>&nbsp;页<input name='Submit' type='submit' class='inputbutton' value='跳转'></form>")
  %></td>
  </tr>
</table>
<br>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="22"><IFRAME border=0 name=adopen marginWidth=0 frameSpacing=0 marginHeight=0 src="about:blank" frameBorder=0 noResize width="100%" scrolling=Auto height="400" allowTransparency vspale="0"></IFRAME></td>
  </tr>
</table>
<br>