zhuanti.asp

电子商城代码

<!--#include file="top.asp"-->
<%
session.codepage=65001
response.charset="utf-8"
Dim sqlt,rst,rsc,sqlc,classname,classname1
www56770com_d_userlogins()
www56770com_d_userlogins_w()
www56770com_d_cart()

Select Case request("action")
       Case "news_Class" : news_Class
	   Case "news_list" :news_list()
	   Case Else
	            news_main()
End Select

Sub news_main
        strwebtitle=www56770com_word225
        response.write c_skin_56770(c_skin_word(skin_head))
        topmenu()
        www56770com_zhuanti_menu()
        response.write"<table width='"&webwidth&"' border='0' cellpadding='0' cellspacing'0' align='center' align='center'>"&_
                      "   <tr>"&_
			          "      <td valign='top'>"
        response.write c_skin_56770(c_skin_word(skin_zhuanti_top))
        response.write c_skin_56770(c_skin_word(skin_zhuanti_menu))
        response.write"<table width='100%' border='0' cellpadding='2' cellspacing='0'>"
        response.write"<tr>"
        set rsc=server.createobject("adodb.recordset")
        sqlc="select * from bigclass"
        rsc.open sqlc, conn, 1, 1
        zhuanti_num=1
        if rsc.eof then
                response.write"<tr><td width=""100%"" height=""100"" align=""center"">"&www56770com_word53&"</TD></TR>"
        else
        do while not rsc.eof
		
%>
<td align=center valign="top" width="50%">
       <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><table width="120" height="22"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td align="center" valign="bottom" background="skins/dl/icons/zt.gif" class="zhuanti_title"><%=rsc(""&lan_bigclassname&"")%></td>
                  </tr>
                </table></td>
                <td align="right"><a href="zhuanti.asp?action=news_Class&classname=<%=server.urlencode(rsc("BigClassName"))%>"><img src="skins/<%=trim(skin_ml)%>/more_02.gif" width="45" height="10" border="0"></a>&nbsp;&nbsp;</td>
              </tr>
            </table></td>
          </tr>
          <tr>
            <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center" class="zhuanti_title_l">		
				<%www56770com_zhuanti_topnews()%>
                 </td>            
              </tr>
            </table>
		  </td>
        </tr>
      </table>
</td>

<%
        if zhuanti_num mod 2 = 0 then
                response.write"</tr>"
        end if
        rsc.movenext
        zhuanti_num=zhuanti_num+1
        loop
        end if
        rsc.close:set rsc=Nothing
		response.write"</table>"
End Sub 

Sub news_Class
		classname=safereplace(request("classname"))
		classname1=safereplace(request("classname1"))
        If classname1="" Then strwebtitle=classname&" - "&www56770com_word225
		If classname1<>"" Then strwebtitle=classname1&" - "&classname&" - "&www56770com_word225
        response.write c_skin_56770(c_skin_word(skin_head))
        topmenu()
        www56770com_zhuanti_menu()
		www56770com_zhuanti_class()
        response.write"<table width='"&webwidth&"' border='0' cellpadding='0' cellspacing'0' align='center'>"&_
                      "   <tr>"&_
			          "      <td valign='top'>"
        response.write c_skin_56770(c_skin_word(skin_zhuanti_top))
		response.write c_skin_56770(c_skin_word(skin_zhuanti_menu))
        response.write c_skin_56770(c_skin_word(skin_zhuanti_class))
End Sub 

Sub news_list
        Dim title
		id=cint(request("id"))
		Set rs=conn.execute("select title from news where id="&id&"")
        strwebtitle=rs(""&lan_title&"")&" - "&www56770com_word225
		rs.close:Set rs=Nothing 
		response.write c_skin_56770(c_skin_word(skin_head))
		topmenu()
        www56770com_zhuanti_menu()
		www56770com_zhuanti_list()
        response.write"<table width='"&webwidth&"' border='0' cellpadding='0' cellspacing'0' align='center'>"&_
                      "   <tr>"&_
			          "      <td valign='top'>"
        response.write c_skin_56770(c_skin_word(skin_zhuanti_top))
		response.write c_skin_56770(c_skin_word(skin_zhuanti_menu))
        response.write c_skin_56770(c_skin_word(skin_zhuanti_list))
End Sub 
        response.write c_skin_56770(c_skin_word(skin_zhuanti_footer))
%>
</td>
<td width="5"></td>
<%
response.write c_skin_56770(c_skin_word(skin_zhuanti_right))
%>
    </tr>
</table>
<!--#include file="footer.asp"-->