tghd.asp

网吧影印系统！很详细！可直接使用！请大家指点！

        <TR>
          <TD bgColor=#94c50a height=6><IMG height=1 
            src="../images/spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
      <P>　</P></TD>
    <TD align=middle width=156 bgColor=#c3ef26>
      <TABLE cellSpacing=0 cellPadding=0 width=156 align=center border=0>
        <TBODY>
        <TR>
          <TD align=middle><IMG height=25 src="../images/service-001.gif" 
            width=156></TD></TR>
        <TR>
          <TD align=middle background=../images/service-002.gif>
            <TABLE width="80%" border=0>
              <TBODY>
              <tr>
        <%
sql="select articleid,domurl,title,content from learning where firstbest=1 order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
b=0
row_count=1
                    %> <%
          do while not rs.eof
          b=b+1%>  
          <td align="center"><span lang="zh-cn">
                            <a href="../html/<%=rs("articleid")%>.html" target="_blank">
                            <img border="0" height="131" src="<%if rs("domurl")="" then%>../images/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="111"></a></span></td>
        </tr>
        <tr>
         <% if row_count mod 1 =0 then%>
          <td align="center">
                      </td>
        </tr>
        <tr>
                      <td align="center"><a href="../html/<%=rs("articleid")%>.html" target="_blank" class="left">
                            <%content=rs("title")
                          if len(content)>8 then content=left(content,8)&"…"
                          response.write content
                            %></a></td>
                            <%end if%>
                  <%row_count=row_count+1
	      if b>=1 then exit do
	      rs.movenext
	      loop
	      rs.close
          set rs=nothing

		              %>              </tr>
              </TBODY></TABLE></TD></TR>
        <TR>
          <TD align=middle><IMG height=50 src="../images/service-003.gif" 
            width=156></TD></TR>
        <TR>
          <TD align=middle background=../images/service-002.gif>
            <TABLE width="100%" border=0>
              <TBODY>
              <tr>
                      <TD align=middle><a ><STRONG><FONT 
                        color=#3c5b17>&lt;&lt; 在线支付</FONT></a></STRONG></TD>
              </tr>
              <tr>
                      <TD align=middle><A                        
                        href="sj.asp"><STRONG><FONT                        
                        color=#3c5b17>&lt;&lt; 手机支付</FONT></STRONG></A></TD>
              </tr>
              <tr>
                      <TD align=middle><A                        
                        href="168.asp"><STRONG><FONT                        
                        color=#3c5b17>&lt;&lt;                        
                    声讯支付</FONT></STRONG></A></TD>
              </tr>
              </TBODY></TABLE><IMG height=19 
            src="../images/service-005.gif" width=156></TD></TR>
        <TR>
          <TD align=middle bgColor=#c3ef26 height=10><IMG height=1 
            src="../images/spacer.gif" 
  width=1></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<% response.end
end if%>
  <TR>
    <TD background=../images/fufeibg.gif>
      <P>　</P>
      <TABLE cellSpacing=0 cellPadding=0 width=562 align=center border=0>
        <TBODY>
        <TR>
          <TD width=550 height=25><IMG height=51 src="../images/tghdtop.gif" 
            width=562></TD></TR>
        <TR>
          <TD height="150" align=center background=../images/fufeiconbg.gif> <div id="zhifu" action="startpay.asp" method="post" name="zhifu"> 
              <table width="491" border="0">
                <tr> 
                  <td width="485">　　 
                    <p>　　你只要将下面这个链接告诉别人，别人通过这个链接访问本站，每5个ip你就可以得到1个影币(访问者的ip将被记录，重复点击无效)。<br>
                      　　已交费和包月用户同样可以参加。参加越早，越划算，快快参加！<br>
                      <br>
                      　　<font color="#FF0000">&nbsp;&nbsp;&nbsp; 本站不定期清理已经访问过的ip记录库，推广活动始终有效</font></p>
                    <p align="center">推广链接：<INPUT class=button2 onfocus=javascript:this.select(); size=56 
                    name=phone1 value="http://61.157.80.118/vod/film.asp?id=<%=request("userid")%>"></p></td>
                </tr>
              </table>
              <br>
            </div></TD>
</TR>
        <TR>
          <TD bgColor=#94c50a height=6><IMG height=1 
            src="../images/spacer.gif" width=1></TD></TR></TBODY></TABLE>
      <P>　</P></TD>
    <TD vAlign=top align=middle width=156 bgColor=#c3ef26>
      <TABLE cellSpacing=0 cellPadding=0 width=156 align=center border=0>
        <TBODY>
        <TR>
          <TD align=middle><IMG height=25 src="../images/service-001.gif" 
            width=156></TD></TR>
        <TR>
          <TD align=middle background=../images/service-002.gif>
            <TABLE width="80%" border=0>
              <TBODY>
              <tr>
        <%
sql="select articleid,domurl,title,content from learning where firstbest=1 order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
b=0
row_count=1
                    %> <%
          do while not rs.eof
          b=b+1%>  
          <td align="center"><span lang="zh-cn">
                            <a href="../html/<%=rs("articleid")%>.html" target="_blank">
                            <img border="0" height="131" src="<%if rs("domurl")="" then%>../images/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="111"></a></span></td>
        </tr>
        <tr>
         <% if row_count mod 1 =0 then%>
          <td align="center">
                      </td>
        </tr>
        <tr>
                      <td align="center"><a href="../html/<%=rs("articleid")%>.html" target="_blank" class="left">
                            <%content=rs("title")
                          if len(content)>8 then content=left(content,8)&"…"
                          response.write content
                            %></a></td>
                            <%end if%>
                  <%row_count=row_count+1
	      if b>=1 then exit do
	      rs.movenext
	      loop
	      rs.close
		  set rs=nothing

		              %> 
		                             </tr>
              </TBODY></TABLE></TD></TR>
        <TR>
          <TD align=middle><IMG height=50 src="../images/service-003.gif" 
            width=156></TD></TR>
        <TR>
          <TD align=middle background=../images/service-002.gif>
            <TABLE width="100%" border=0>
              <TBODY>
              <tr>
                      <TD align=middle><a ><STRONG><FONT 
                        color=#3c5b17>&lt;&lt; 在线支付</FONT></a></STRONG></TD>
              </tr>
              <tr>
                      <TD align=middle><A                        
                        href="sj.asp"><STRONG><FONT                        
                        color=#3c5b17>&lt;&lt; 手机支付</FONT></STRONG></A></TD>
              </tr>
              <tr>
                      <TD align=middle><A                        
                        href="168.asp"><STRONG><FONT                        
                        color=#3c5b17>&lt;&lt;                        
                    声讯支付</FONT></STRONG></A></TD>
              </tr>
              </TBODY></TABLE><IMG height=19 
            src="../images/service-005.gif" width=156></TD></TR>
        <TR>
          <TD align=middle bgColor=#c3ef26 height=10><IMG height=1 
            src="../images/spacer.gif" width=1></TD></TR></TBODY></TABLE></TD>
    <TD>　</TD></TR></TBODY></TABLE></BODY></HTML><!--#include file="end.asp"-->