📄 admin_delivercharge.asp
字号:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.buffer = True
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
Dim DeliverTypeID
Call Execute
Public Sub Execute()
DeliverTypeID = PE_CLng(Trim(Request("DeliverTypeID")))
If DeliverTypeID <= 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定DeliverTypeID！</li>"
Exit Sub
End If
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>外省运费标准</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link rel='stylesheet' href='Admin_Style.css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Select Case Action
Case "Add"
Call Add
Case "Modify"
Call Modify
Case "SaveAdd", "SaveModify"
Call SaveCharge
Case "Del"
Call Del
Case Else
Call Main
End Select
If FoundErr = True Then
Response.Write ErrMsg
End If
Response.Write "</body></html>" & vbCrLf
Call CloseConn
End Sub
Private Sub Main()
Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr align='center' class='tdbg2'>" & vbCrLf
Response.Write " <td>省份列表</td>" & vbCrLf
Response.Write " <td width='60'>基本运费</td>" & vbCrLf
Response.Write " <td width='60'>起算重量</td>" & vbCrLf
Response.Write " <td width='60'>单位运费</td>" & vbCrLf
Response.Write " <td width='60'>单位重量</td>" & vbCrLf
Response.Write " <td width='60'>最高运费</td>" & vbCrLf
Response.Write " <td width='60'>操作</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Dim rsChargeList, arrProvince
arrProvince = ""
Set rsChargeList = Conn.Execute("select * from PE_DeliverCharge where AreaType=4 and DeliverTypeID=" & DeliverTypeID & "")
If rsChargeList.bof And rsChargeList.EOF Then
Response.Write "<tr class='tdbg'><td colspan='10' height='40' align='center'>目前没有任何外省运费标准</td></tr>"
Else
Do While Not rsChargeList.EOF
If arrProvince = "" Then
arrProvince = rsChargeList("arrArea")
Else
arrProvince = arrProvince & "," & rsChargeList("arrArea")
End If
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td>" & rsChargeList("arrArea") & "</td>" & vbCrLf
Response.Write " <td width='60' align='right'>￥" & FormatNumber(rsChargeList("Charge_Min"), 2, vbTrue, vbFalse, vbTrue) & "</td>" & vbCrLf
Response.Write " <td width='60' align='right'>" & FormatNumber(rsChargeList("Weight_Min"), 2, vbTrue, vbFalse) & "Kg</td>" & vbCrLf
Response.Write " <td width='60' align='right'>￥" & FormatNumber(rsChargeList("ChargePerUnit"), 2, vbTrue, vbFalse, vbTrue) & "</td>" & vbCrLf
Response.Write " <td width='60' align='right'>" & FormatNumber(rsChargeList("WeightPerUnit"), 2, vbTrue, vbFalse, vbTrue) & "Kg</td>" & vbCrLf
Response.Write " <td width='60' align='right'>￥" & FormatNumber(rsChargeList("Charge_Max"), 2, vbTrue, vbFalse, vbTrue) & "</td>" & vbCrLf
Response.Write " <td width='60' align='center'><a href='#' onClick=""window.open('Admin_DeliverCharge.asp?DeliverTypeID=" & DeliverTypeID & "&Action=Modify&ID=" & rsChargeList("ID") & "','Charge','height=360, width=640');"">修改</a> <a href='Admin_DeliverCharge.asp?Action=Del&DeliverTypeID=" & DeliverTypeID & "&ID=" & rsChargeList("ID") & "' onclick=""return confirm('确定要删除此运费标准吗？');"">删除</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
rsChargeList.MoveNext
Loop
End If
Set rsChargeList = Nothing
Response.Write "</table>" & vbCrLf
Dim rsProvince, strProvince
strProvince = ""
Set rsProvince = Conn.Execute("select DISTINCT Province from PE_City")
Do While Not rsProvince.EOF
If FoundInArr(arrProvince, rsProvince(0), ",") = False Then
If strProvince = "" Then
strProvince = rsProvince(0)
Else
strProvince = strProvince & "," & rsProvince(0)
End If
End If
rsProvince.MoveNext
Loop
Set rsProvince = Nothing
If strProvince <> "" Then
Response.Write "<b>还有以下省份没有设定运费标准：</b><br>" & strProvince & "<br>"
Response.Write "<div align='center'><input type='button' name='Submit' value=' 添加外省运费标准 ' onClick=""window.open('Admin_DeliverCharge.asp?DeliverTypeID=" & DeliverTypeID & "&Action=Add','Charge','height=360, width=640');""></div>" & vbCrLf
End If
End Sub
Sub Add()
Response.Write "<form name='myform' method='post' action='Admin_DeliverCharge.asp'>" & vbCrLf
Response.Write " <table width='100%' border='0' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr align='center' class='topbg'>" & vbCrLf
Response.Write " <td colspan='2'><b>添 加 外 省 运 费 标 准</b></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='180' align='center'><b>可以选择的省份：" & vbCrLf
Response.Write " <select name='arrArea' size='2' multiple style='height:200;width:150 '>" & GetProvince("")
Response.Write " </select>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " 按Ctrl或Shift键可以多选" & vbCrLf
Response.Write "</b></td>" & vbCrLf
Response.Write " <td valign='top'><table width='100%' border='0' cellpadding='2' cellspacing='1'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='140' align='right'><b>基本运费：</b></td>" & vbCrLf
Response.Write " <td><input name='Charge_Min' type='text' id='Charge_Min' value='10' size='10' maxlength='10' style='text-align:center '>" & vbCrLf
Response.Write " 元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='140' align='right' valign='top'><b>基本运费的起算重量：</b></td>" & vbCrLf
Response.Write " <td><input name='Weight_Min' type='text' id='Weight_Min' value='1' size='10' maxlength='10' style='text-align:center '>" & vbCrLf
Response.Write " 千克（Kg）<br>" & vbCrLf
Response.Write " 当商品重量不超过上述指定起算重量时，实际运费按基本运费计算。</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='140' align='right' valign='top'><b>浮动运费：</b></td>" & vbCrLf
Response.Write " <td>当商品总重量超过基本运费的起算重量后，除了收取基本运费外，<br>" & vbCrLf
Response.Write " 每" & vbCrLf
Response.Write " <input name='WeightPerUnit' type='text' id='WeightPerUnit' value='1' size='6' maxlength='6' style='text-align:center '>" & vbCrLf
Response.Write " 千克的商品增加运费" & vbCrLf
Response.Write " <input name='ChargePerUnit' type='text' id='ChargePerUnit' value='5' size='10' maxlength='10' style='text-align:center '>" & vbCrLf
Response.Write " 元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='140' align='right' valign='top'><b>最高运费：</b></td>" & vbCrLf
Response.Write " <td><input name='Charge_Max' type='text' id='Charge_Max' value='100' size='10' maxlength='10' style='text-align:center '>" & vbCrLf
Response.Write " 元（当基本运费＋浮动运费超过最高运费时，实际运费按最高运费计算）</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <p align='center'>" & vbCrLf
Response.Write " <input name='DeliverTypeID' type='hidden' id='DeliverTypeID' value='" & DeliverTypeID & "'>" & vbCrLf
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveAdd'>" & vbCrLf
Response.Write " <input type='submit' name='Submit' value=' 保 存 '>" & vbCrLf
Response.Write " " & vbCrLf
Response.Write "<input type='button' name='Submit' value=' 取 消 ' onclick='window.close()'>" & vbCrLf
Response.Write " </p>" & vbCrLf
Response.Write " <p align='left'>如果“可以选择的省份”列表中没有您所需要的省份，则可能是因为这个省份在其他运费标准中已经存在，您需要先修改其他运费标准，去掉相应的省份，然后才添加新运费标准。</p></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write "</form>" & vbCrLf
End Sub
Sub Modify()
Dim ID
Dim rsCharge
ID = PE_CLng(Trim(Request("ID")))
If ID <= 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定ID！</li>"
Exit Sub
End If
Set rsCharge = Conn.Execute("select * from PE_DeliverCharge where ID=" & ID & "")
If rsCharge.bof And rsCharge.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的记录！</li>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -