📄 peisong.asp

📁 电子商务系统Easy_Buy是一个在线销售系统
💻 ASP
字号:
<!--#include file="0.asp"-->
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp" -->
<%
set rs = conn.execute("select id from user_name where name='"&nosql(session("www.wygk.cn"))&"'")
userid=rs("id")
rs.close
if request("del")="yes" then
Set s= Server.CreateObject("abodb.recordset")
		set rs = conn.execute("select userid from fukuan where id="&clng(Request("id"))&"")
		userid2=rs("userid")
	    rs.close
    if userid=userid2 then
	Set s= Server.CreateObject("abodb.recordset")
         conn.execute("Delete fukuan where id="&clng(request("id"))&"")
         Response.Write("<script>alert(""删除成功"");location.href=""peisong.asp"";</script>")
    else
		Response.Write("对不起，您不能删除该条类别信息。如有疑问请与网站管理员联系。")
	 end if
end if 
Set s= Server.CreateObject("abodb.recordset")
if request("add")<>"" then
fs=nosql(replace(request("fs"),"'",""))
fw=nosql(replace(request("fw"),"'",""))
rmb_fs=request("rmb_fs")
rmb1=request("rmb1")
rmb2=request("rmb2")
rmb3=request("rmb3")
rmb4=request("rmb4")
sj=nosql(replace(request("sj"),"'",""))
if not (isnumeric(rmb_fs) or isnumeric(rmb1) or isnumeric(rmb2) or isnumeric(rmb3) or isnumeric(rmb4)) then
Response.Write("<script>alert(""配送费用输入错误，请检查！"");history.back();</script>")
Response.end
end if
if fs<>"" and fw<>"" and sj<>"" then
set rs = conn.execute("select * from fukuan where fs='"&fs&"' and userid="&userid&"")
if rs.eof then
conn.execute("Insert into fukuan(fs,sj,rmb_fs,rmb1,rmb2,rmb3,rmb4,fw,userid)values('"&fs&"','"&sj&"','"&rmb_fs&"','"&rmb1&"','"&rmb2&"','"&rmb3&"','"&rmb4&"','"&fw&"',"&userid&")")
Response.Write("<script>alert(""添加配送支付方式成功"");location.href=""peisong.asp"";</script>")
else
Response.Write("<script>alert("""&fs&"配送方式贵公司已经存在，不能重复添加。"");history.back();</script>")
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/css.css" rel="stylesheet" type="text/css">
<STYLE>
BODY {
	SCROLLBAR-FACE-COLOR: #799ae1;
	SCROLLBAR-HIGHLIGHT-COLOR: #799ae1;
	SCROLLBAR-SHADOW-COLOR: #799ae1;
	SCROLLBAR-3DLIGHT-COLOR: #799ae1;
	SCROLLBAR-ARROW-COLOR: #fcfcfc;
	SCROLLBAR-TRACK-COLOR: #aabfec;
	SCROLLBAR-DARKSHADOW-COLOR: #799ae1;
	SCROLLBAR-BASE-COLOR: #799ae1;
	background-color: #CAD7F7;
}
.STYLE3 {
	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
.STYLE4 {color: #FFFFFF}
.STYLE6 {color: #FFFFFF; font-size: 12px; }
</STYLE>
</head>
<body><br>
<form name="form1" method="post" action="?add=yes">
  <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
    <tr bgcolor="#FFFFFF"> 
      <td height="25" colspan="2" background="../../images/admin_bg_11.gif">&nbsp; <strong><span class="STYLE6">增加配送方式</span></strong><font color="#FF3333" size="3"><strong>&nbsp; 
        </strong></font><span class="STYLE4">（指用户购买贵公司商品后如何进行商品配送）</span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center" bgcolor="#E8F1FF">配送方式</td>
      <td bgcolor="#E8F1FF"> 
        <select name="fs" class="wenbenkuang" id="fs">
          <option  value="普通邮政" selected>普通邮政</option>
          <option  value="邮政快递">邮政快递</option>
          <option  value="EMS">EMS</option>
          <option  value="货到付款">货到付款</option>
          <option  value="E-mail发送">E-mail发送</option>
          <option  value="铁路货运">铁路货运</option>
          <option  value="自提">自提</option>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="94" align="center" bgcolor="#E8F1FF"> 配送费用</td>
      <td width="394" bgcolor="#E8F1FF"> 
        <input name="rmb_fs" type="radio" value="1" checked>
        <input name="rmb1" type="text" id="rmb1" size="5" maxlength="10">
        元 <br>
        <input type="radio" name="rmb_fs" value="2">
        免费配送<br>
        <input type="radio" name="rmb_fs" value="3">
        购物总价小于
        <input name="rmb2" type="text" id="rmb2" size="5" maxlength="10">
        元,配送价格为
        <input name="rmb3" type="text" id="rmb3" size="5" maxlength="10">
        元;大于等于时配送价格为
        <input name="rmb4" type="text" id="rmb4" size="5" maxlength="10">
      元 </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center" bgcolor="#E8F1FF"> 配送范围</td>
      <td bgcolor="#E8F1FF"> 
        <input name="fw" type="text" id="fw" size="45" maxlength="50">
      50字内,请尽量简短</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center" bgcolor="#E8F1FF">预计收货时间</td>
      <td bgcolor="#E8F1FF"> 
        <input name="sj" type="text" id="sj" size="20" maxlength="20">
      (例如:xx天或xx——xx天) </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center" bgcolor="#E8F1FF">&nbsp;</td>
      <td bgcolor="#E8F1FF"> 
        <input name="Submit" type="submit" value="增 加"> 
        &nbsp; <input name="Submit2" type="reset" value="重 置">
      (全部正确填写才能正常提交增加)</td>
    </tr>
  </table>

</form>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
  <tr> 
    <td height="25" colspan="2" background="../../images/admin_bg_11.gif"><span class="STYLE3"> 目前已有的配送方式</span></td>
  </tr>
  <tr> 
    <td width="179" bgcolor="#E8F1FF">&nbsp; </td>
    <td width="803" bgcolor="#E8F1FF"> 
      <%set rs = conn.execute("select * from fukuan where userid="&userid&" order by id desc")
	  do while not rs.eof
	  Response.Write("配送方式："&rs("fs")&"<br>配送费用：")
	  Select case rs("rmb_fs")
      case "1"
        Response.Write(""&rs("rmb1")&"")
     case "2"
	     Response.Write "0" 
     case "3"
	     Response.Write ("购物总价小于"&rs("rmb2")&"元,配送价格为"&rs("rmb3")&"元;大于等于时配送价格为"&rs("rmb4")&"") 
    End Select
	  Response.Write("元<br>配送范围："&rs("fw")&"<br>预计收货时间："&rs("sj")&"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='?del=yes&id="&rs("id")&"'>&gt;&gt;删除此配送方式</a><br>")
	  rs.movenext
	  loop
	  rs.close%>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -