sprerd.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="top.asp" -->
<%
dim strFileName
strFileName="sprerd.asp"
pageno=4
%>
<table width="100%"  cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="801" align="right" cellpadding="0"  cellspacing="0">
      <tr>
        <td width="181" rowspan="2" valign="top"><!--#include file="left.asp" --></td>
        <td width="1" bgcolor="#D7D7D7"></td>
        <td valign="top"><!--#include file="body.asp" --></td>
        </tr>
      <tr>
        <td bgcolor="#D7D7D7"></td>
        <td height="630" valign="top"><table width="618"  cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/tt_ws.gif" width="618" height="35"></td>
          </tr>
          <tr>
            <td align="center"><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;?Y?Tí???í?1?áD±í...</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>￡o<%=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>
      </tr>
    </table></td>
    <td width="1" bgcolor="#D7D7D7"></td>
    <td width="206" background="images/right_bg2.gif">&nbsp;</td>
  </tr>
</table>
<!--#include file="end.asp" -->
<!--#include file="ad.asp" -->