snsn.asp

网络商店源码 实现商品浏览 购物车 后台管理等

                                            </b></td>
                                        </tr>
                                        <tr bgcolor="#FFFFFF"> 
                                          <td width="199"  ><b>&nbsp;&nbsp;电子邮件：</b></td>
                                          <td width="771" height="28"  > <b> &nbsp;&nbsp; 
                                            <input name="useremail"class="wenbenkuang" type="text" id="useremail" value= >
                                            </b></td>
                                        </tr>
                                        <b></b> 
                                        <tr bgcolor="#FFFFFF"> 
                                          <td height="32" colspan="2" align=center  > 
                                            <input type="button" name="Submit2" class="go-wenbenkuang" value="上一步" onClick="javascript:history.go(-1)"> 
                                            <input type="submit" name="Submit42" class="go-wenbenkuang" value="下一步" onClick='return ssxx();'> 
                                          </td>
                                        </tr>
                                      </form>
                                    </table></td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <%
'/////////////////////////////////////////
case "txxx2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_action] where userzhenshiname=userzhenshiname",conn,1,1
%>
            <table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
              <tr> 
                <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td rowspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
                          <tr> 
                            <td class="12v" > <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                                <tr> 
                                  <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang">
                                      <tr bgcolor="#FFFFFF" class="a1"> 
                                        <td height="40" colspan="2" align="center"   style='PADDING-LEFT: 20px'><b>请正确选择送货方式</b></td>
                                      </tr>
                                      <form name="shouhuoxx" method="post" action="snsn.asp?action=txxx3">
                                        <tr bgcolor="#FFFFFF"> 
                                          <td width="199"   style='PADDING-LEFT: 20px'><b>送货方式：</b></td>
                                          <td width="771" height="28"   style='PADDING-LEFT: 20px'> 
                                            <b> 
                                            <%
          set rs2=server.CreateObject("adodb.recordset")
          rs2.Open "select * From shop_youbian where youbian='"&trim(request("youbian"))&"'",conn,1,1
          if rs2.recordcount=1 then
          	shangmen=1
          else
          	shangmen=0
          end if
          rs2.close
          set rs2=nothing
          '//////////判断送货方式
          set rs3=server.CreateObject("adodb.recordset")
          rs3.Open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
          do while not rs3.EOF
          if not(shangmen=0 and trim(rs3("songid"))=3) then          '显示不显示“送货上门”
          	response.Write "<input name=songhuofangshi type=radio value="&rs3("songid")
          	if int(rs("songhuofangshi"))=int(rs3("songid")) then 
          		response.Write " checked>"
          	else
          		response.Write ">"
          	end if
          	response.Write trim(rs3("subject"))          
          end if
          rs3.MoveNext
          loop
          rs3.Close
          set rs3=nothing
         %>
                                            </b> <input name="userzhenshiname" type="hidden" value=<%=trim(request("userzhenshiname"))%>> 
                                            <input name="shousex" type="hidden" value=<%=trim(request("shousex"))%>> 
                                            <input name="useremail" type="hidden" value=<%=trim(request("useremail"))%>> 
                                            <input name="shouhuodizhi" type="hidden" value=<%=trim(request("shouhuodizhi"))%>> 
                                            <input name="youbian" type="hidden" value=<%=trim(request("youbian"))%>> 
                                            <input name="usertel" type="hidden" value=<%=trim(request("usertel"))%>> 
                                            <input name=userid type=hidden value="<%=request("userid")%>" > 
                                          </td>
                                        </tr>
                                        <tr bgcolor="#FFFFFF"> 
                                          <td height="32" colspan="2" align=center  > 
                                            <input type="button" name="Submit" class="go-wenbenkuang" value="上一步" onClick="javascript:history.go(-1)"> 
                                            <input type="submit" name="Submit" class="go-wenbenkuang" value="下一步" > 
                                          </td>
                                        </tr>
                                      </form>
                                    </table></td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "txxx3"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_action] where userzhenshiname=userzhenshiname",conn,1,1
%>
            <table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
              <tr> 
                <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td rowspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
                          <tr> 
                            <td class="12v" > <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%" class="table-zuoshang">
                                <tr> 
                                  <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                                      <tr bgcolor="#FFFFFF" class="a1"> 
                                        <td height="40" colspan="2" align="center"   style='PADDING-LEFT: 20px'><b>请正确选择付款方式</b></td>
                                      </tr>
                                      <form name="shouhuoxx" method="post" action="snsn.asp?action=txxx4">
                                        <tr bgcolor="#FFFFFF"> 
                                          <td width="199"   style='PADDING-LEFT: 20px'><b>付款方式：</b></td>
                                          <td width="771" height="28"   style='PADDING-LEFT: 20px'> 
                                            <b> 
                                            <%
          if cint(request("songhuofangshi"))=3 then
          	fukuan=1
          else
          	fukuan=0
          end if
          '//////////判断支付方式
          set rs3=server.CreateObject("adodb.recordset")
          rs3.open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
          do while not rs3.eof
          if not(fukuan=0 and trim(rs3("songid"))=4) then	'显示不显示“货到付款”
          	response.Write "<input name=zhifufangshi type=radio value="&rs3("songid")
          	if int(rs("zhifufangshi"))=int(rs3("songid")) then
          		response.Write " checked>"
          	else
          		response.Write ">"
          	end if
          	response.Write trim(rs3("subject"))
          end if
          rs3.movenext
          loop
          rs3.close
          set rs3=nothing
		  %>
                                            </b> <input name="userzhenshiname" type="hidden" value=<%=trim(request("userzhenshiname"))%>> 
                                            <input name="shousex" type="hidden" value=<%=trim(request("shousex"))%>> 
                                            <input name="useremail" type="hidden" value=<%=trim(request("useremail"))%>> 
                                            <input name="shouhuodizhi" type="hidden" value=<%=trim(request("shouhuodizhi"))%>> 
                                            <input name="youbian" type="hidden" value=<%=trim(request("youbian"))%>> 
                                            <input name="usertel" type="hidden" value=<%=trim(request("usertel"))%>> 
                                            <input name="songhuofangshi" type="hidden" value=<%=trim(request("songhuofangshi"))%>> 
                                            <input name=userid type=hidden value="<%=request("userid")%>" > 
                                          </td>
                                        </tr>
                                        <tr bgcolor="#FFFFFF"> 
                                          <td height="32" colspan="2" align=center  > 
                                            <input type="button" name="Submit2" class="go-wenbenkuang" value="上一步" onClick="javascript:history.go(-1)"> 
                                            <input type="submit" name="Submit42" class="go-wenbenkuang" value="下一步"> 
                                          </td>
                                        </tr>
                                      </form>
                                    </table></td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "txxx4"
%>
            <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td rowspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
                          <tr> 
                            <td class="12v" > <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                                <tr> 
                                  <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                                      <tr> 
                                        <td align="center" valign="top" height=50 colspan=2> 
                                          <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select sum(shopcount) as Sum_jianshu,sum(zonger) as Sum_zonger from shop_action where username='"&session("tmp_usersessionid")&"' and zhuangtai=7",conn,1,1 
if (rs("Sum_jianshu")>cint(pifa_s)) or (rs("Sum_zonger")>cint(pifa_e)) then
	tmpPIFA=1
else 
	tmpPIFA=0
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.shopid,shop_action.shopcount,shop_action.zonger,shop_snsn.shopname,shop_snsn.anclassid,shop_snsn.banci,shop_snsn.shichangjia,shop_snsn.huiyuanjia,shop_snsn.vipjia from shop_snsn inner join  shop_action on shop_snsn.shopid=shop_action.shopid where shop_action.username='"&session("tmp_usersessionid")&"' and shop_action.zhuangtai=7",conn,1,1 
%>
                                          <table width=100% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="#CCCCCC" class="table-zuoshang">
                                            <tr bgcolor="#FFFFFF" class="a1"> 
                                              <td width=21% height="23"  > <div align=center><strong>商品名称</strong></div></td>
                                              <td width=21% height="23"  > <div align=center><strong>市场价</strong></div></td>
                                              <td width=21% height="23"  > <div align=center><strong>批发价</strong></div></td>
                                              <td width=14% height="23"  > <div align=center><strong>单价 
                                                  </strong></div></td>
                                              <td width=14% height="23"  > <div align=center><strong>数量</strong></div></td>
                                              <td width=14% height="23"  > <div align=center><strong>邮寄浮动<br>
                                                  (单价)</strong></div></td>
                                              <td width=14% height="23"  > <div align=center><strong><font color="<%=flzhbt%>">总价</font></strong></div></td>
                                            </tr>
                                            <%
											shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
do while not rs.eof%>
                                            <tr> 
                                              <td bgcolor="#FFFFFF" style='PADDING-LEFT: 5px'  > 
                                                <div align=left><%=rs("shopname")%> 
                                                  <input name=shopname type=hidden value="<%=rs("shopname")%>" >
                                                  <input name=shopid2 type=hidden value="<%=rs("shopid")%>" >
                                                  <input name=actionid type=hidden value="<%=rs("actionid")%>" >
                                                </div></td>
                                              <td align="center" bgcolor="#FFFFFF"  ><s><%=rs("shichangjia")%></s> 
                                                元</td>
                                              <td align="center" bgcolor="#FFFFFF"  ><s><%=rs("vipjia")%></s> 
                                                元</td>
                                              <td bgcolor="#FFFFFF"  > <div align=center> 
                                                  <%if tmpPIFA=1 then%>
                                                  <%=rs("Vipjia")%> 
                                                  <%else%>
                                                  <%=rs("shichangjia")%> 
                                                  <%end if%>
                                                  元</div></td>
                                              <td bgcolor="#FFFFFF"  > <div align=center> 
                                                  <%=rs("shopcount")%> </div></td>
                                              <td bgcolor="#FFFFFF"  > <div align=center> 
                                                  <%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1
if cint(request("songhuofangshi"))=3 then	'看是不是“送货上门”
	if request.Cookies("snsn")("reglx")=2 then
		fudongjia_dj=rs_s("smvip")
	else
		fudongjia_dj=rs_s("smhy")
	end if
elseif cint(request("songhuofangshi"))=1 then	'看是不是“平邮”
	if request.Cookies("snsn")("reglx")=2 then