shfs.asp

诚信商店系统源代码

<!--#include file="title.asp"--><title>送货方式……</title>

<table 
style="BACKGROUND: black; WIDTH: 450pt; mso-cellspacing: .7pt; mso-padding-alt: 0cm 0cm 0cm 0cm" 
cellspacing=1 cellpadding=0 width=60% bgcolor=black border=0 align="center">
  <tbody>
    <tr style="HEIGHT: 15pt"> 
      <td nowrap bordercolor="#CCCCCC" background="images2/wxl.jpg" bgcolor="#CCCCCC" 
    style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; BACKGROUND: #996699; PADDING-BOTTOM: 0cm; PADDING-TOP: 0cm; HEIGHT: 15pt"> 
        <p class=MsoNormal style="TEXT-ALIGN: center" align=center><font color="#CCCCCC"><span style="color: white">-配送方式-</span></font></p></td>
    </tr>
    <tr> 
      <th 
    style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; PADDING-TOP: 0cm"> 
       </th>
    </tr>
    <tr> 
      <td 
    style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; BACKGROUND: white; PADDING-BOTTOM: 0cm; PADDING-TOP: 0cm"> 
      <%set rs=server.CreateObject("adodb.recordset")
	  sql="select  * from web_shopnews where int_snewstype='3'"
	 rs.open sql,conn,1,1
	
	  if rs.eof then
	  %>  
	  <center>
          暂无送货方式
</center><%end if
	  do while not rs.eof
	 
	       response.write  "<h1>"&rs("str_sNewsTitle")&"</h1>"
	  	  response.write  rs("txt_sNewsContent")&"<p>" 
		  
		  response.write  "<br>"
		  rs.movenext
		  loop
		  
		  %>
		  </td>
    </tr>
  </tbody>
</table>
<!--#include file="copyright.asp"--><%response.end%>