sprerd.asp

伟业科技全站程序。 并且有原文件。 可以任意修改

<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" background="/imgs/beijing.png">
  <!--DWLayoutTable-->
  <tr>
    <td width="6" height="800"></td>
    <td width="184" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="181" valign="top" height="800"><!--#include file="left.asp"--></td>
		<td width="1" bgcolor="#D7D7D7"></td>
        </tr>
    </table></td>
    <td width="585" valign="top"><table width="584" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="584" height="800"><table width="584" height="800" align="center" cellpadding="0"  cellspacing="0" bgcolor="#FFFFFF">
      <tr>
        <td width="1" bgcolor="#D7D7D7"></td>
        <td width="589" height="160" valign="top">
          <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="584" height="160">
            <param name="movie" value="mb/tuiguang.swf">
            <param name="quality" value="high">
            <embed src="mb/tuiguang.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="584" height="160"></embed>
        </object></td>
      </tr>
      <tr>
        <td bgcolor="#D7D7D7"></td>
        <td valign="top"><%
dim strFileName
strFileName="sprerd.asp"
pageno=4
%>
<table width="96" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <tr>
                <td valign="top"><%
dim rs,sql
sql="select * from sprerd where isagree=1 order by sortnum asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rscount=rs.recordcount
if  rscount<1 then
%>
                    <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="100%" height="40" align="center">&nbsp;暂无网站推广列表...</td>
                      </tr>
                    </table>
                    <%
else
call showsql(pageno)
%>
<%
rs.move(rsno)
for i=1 to loopno
%>             <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="4" height="10"><img src="images/type_top_left.gif" width="4" height="10"></td>
                        <td width="431" background="images/type_top.gif"><img src="images/Spacer.gif" width="1" height="10"></td>
                        <td width="4"><img src="images/type_top_right.gif" width="4" height="10"></td>
                      </tr>
                      <tr>
                        <td background="images/type_left.gif"><img src="images/Spacer.gif" width="4" height="1"></td>
                        <td><table width="100%" border="0" cellspacing="3" cellpadding="3">
                            <tr>
                              <td width="34%" height="69" valign="top"><a href="<%=rs("wsurl")%>" target="_blank"><img src="<%=rs("wspic")%>" width="192" height="49" border="0"></a></td>
                              <td class="cleargray"><b><font color=#ff3300><%=rs("wsname")%></font></b>：<%=ubbcode(rs("content"))%></td>
                            </tr>
                            <tr>
                              <td><a href="index1.net?Ca=9&SubCa=11" target="_blank"></a></td>
                              <td><a href="<%=rs("wssend")%>"><img src="images/out.gif" width="330" height="30" border="0"></a></td>
                            </tr>
                        </table></td>
                        <td background="images/type_right.gif"><img src="images/Spacer.gif" width="4" height="4"></td>
                      </tr>
                      <tr>
                        <td height="14"><img src="images/type_bottom_left.gif" width="4" height="14"></td>
                        <td background="images/type_bottom.gif"><img src="images/Spacer.gif" width="1" height="14"></td>
                        <td><img src="images/type_bottom_right.gif" width="4" height="14"></td>
                      </tr>
<%
rs.movenext
next
%>
                    </table>
                    <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td align="right"  class="tablebody" colspan="2"><%call showpage(strFileName,rscount,pageno,false,true,"条记录")%></td>
                    </table>
                    <%
end if
rs.close
set rs=nothing
%></td>
              </tr>
          </table></td>
      </tr>
</table></td>
		<td width="1" bgcolor="#D7D7D7"></td>
    </table>
    </td>
    <td width="3">&nbsp;</td>
  </tr>
</table>
<!--#include file="foot.asp"-->