succeed.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="787" align="center" cellpadding="0"  cellspacing="0">
      <tr>
        <td width="1" bgcolor="#D7D7D7"></td>
        <td width="618" height="132">
          <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="132">
            <param name="movie" value="mb/anli.swf">
            <param name="quality" value="high">
            <embed src="mb/anli.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="584" height="132"></embed>
          </object></td>
      </tr>
      <tr>
        <td bgcolor="#D7D7D7"></td>
        <td valign="top"><%
dim strFileName
strFileName="succeed.asp"
pageno=3
%>
<table width="585"  cellspacing="0" cellpadding="0">
          <tr>
            <td width="583"><img src="images/tt_sc.gif" width="584" height="35"></td>
          </tr>
          <tr>
            <td align="center"><TABLE cellSpacing=0 cellPadding=5 width="95%" 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>
    </table>
    </td>
    <td width="3">&nbsp;</td>
  </tr>
</table>
<!--#include file="foot.asp"-->