succeed.asp

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

<!--#include file="top.asp" -->
<%
dim strFileName
strFileName="succeed.asp"
pageno=3
%>
<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_sc.gif" width="618" height="35"></td>
          </tr>
          <tr>
            <td align="center"><TABLE cellSpacing=0 cellPadding=5 width="96%" border=0>
              <!--DWLayoutTable-->
              <TBODY>
                <TR>
                  <TD bgColor=#ffffff><%
dim rs,sql
sql="select * from succeed where elite=1 order by sdate desc"
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">没有</td>
  </tr>
</table>
<%
else
call showsql(pageno)
%>
<%
rs.move(rsno)
for i=1 to loopno
%>                      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                        <!--DWLayoutTable-->
                        <TBODY>
                          <TR>
                            <TD vAlign=middle align=middle width=224 bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=0 border=0>
                                <TBODY>
                                  <TR>
                                    <TD class=zp align=middle width=185 height=140><A 
href="<%=rs("surl")%>" target=_blank><IMG 
src="<%if rs("spic")="" then response.Write("images/noweb.jpg") else response.Write(rs("spic")) end if%>" alt="<%=rs("sname")%>" border=0></A></TD>
                                    <TD vAlign=bottom><IMG height=54 src="images/bg_y1.gif" 
width=17></TD>
                                  </TR>
                                </TBODY>
                            </TABLE></TD>
                            <TD vAlign=center align=middle width=311><TABLE cellSpacing=0 cellPadding=0 width="95%" bgColor=#ffffff border=0>
                                  <TR>
                                    <TD height=20>[项目]<A href="<%=rs("surl")%>" target=_blank><%=rs("sname")%></A></TD>
                                  </TR>
                                  <TR>
                                    <TD height=1 background="images/1.gif"></TD>
                                  </TR>
                                  <TR>
                                    <TD height=20>[日期]<%=rs("sdate")%></TD>
                                  </TR>
 <TR>
                                    <TD height=1 background="images/1.gif"></TD>
                                  </TR>
                                  <TR>
                                    <TD height=20>[网址]<%=rs("surl")%></TD>
                                  </TR>
 <TR>
                                    <TD height=1 background="images/1.gif"></TD>
                                  </TR>
                                  <TR>
                                    <TD height=60 title="<%=ubbcode(rs("content"))%>"><%=left(ubbcode(rs("content")),70)%><%if len(rs("content"))>70 then response.Write("...")%></TD>
                                  </TR>
                                  <TR>
                                    <TD align=middle height=30>
                                      <table width="80%" align="center" cellpadding="0"  cellspacing="0">
                                        <tr>
                                          <td>
                                            <TABLE height=21 cellSpacing=0 cellPadding=0 width=87 border=0>
                                                  <TR>
                                                    <TD align=middle background=images/z_bg.gif>&nbsp;&nbsp;&nbsp;&nbsp;<A 
href="mailto:<%=rs("mail")%>" target=_blank>联系客户</A></TD>
                                                  </TR>
                                             </TABLE>
                                          </td>
                                          <td>
                                            <TABLE height=21 cellSpacing=0 cellPadding=0 width=87 border=0>
                                                <TBODY>
                                                  <TR>
                                                    <TD align=middle background=images/z_bg.gif>&nbsp;&nbsp;&nbsp;&nbsp;<A 
href="<%=rs("surl")%>" target=_blank>浏览作品</A></TD>
                                                  </TR>
                                                </TBODY>
                                              </TABLE>
                                           </td>
                                        </tr>
                                      </table></TD>
                                  </TR>
                                
                            </TABLE></TD>
                          </TR>
                    </TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
    <TR>
      <TD height=15><table width="100%"  cellspacing="0" cellpadding="0">
          <tr>
            <td width="2%"><FONT color=#ff6600>+</FONT></td>
            <td width="98%"><table width="100%"  cellspacing="0" cellpadding="0">
                <tr>
                  <td height="3"></td>
                </tr>
                <tr>
                  <td height="1" background="images/1.gif"></td>
                </tr>
            </table></td>
          </tr>
      </table></TD>
    </TR>
</TABLE>
<%
rs.movenext
next
%>
<table width="100%" 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>
              </TBODY>
            </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" -->