📄 admin_delivertype.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
const PageSize=20
dim Action,TypeID,Ddzt,DdztText,PNum
dim NeedInvoice,Invoiced,Status,delflag
dim DTypeName,Intro,Charge,IsDefault,IsDisabled,OrderID
Action = Trim(request("Action"))
TypeID = Cl.GetClng(request("TypeID"))
CurrentPage = Cl.GetClng(request("page"))
DTypeName = Trim(request("TypeName"))
Intro = Trim(request("Intro"))
Charge = Trim(request("Charge"))
IsDefault = Trim(request("IsDefault"))
IsDisabled = Trim(request("IsDisabled"))
OrderID = Cl.GetClng(request("OrderID"))
Header
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border" align="center">
<tr>
<td colspan="2" align="center" class="title"><b>送 货 方 式 管 理</b></td>
</tr>
<tr>
<td width="70" height="30" class="tdbg">管理导航：</td>
<td class="tdbg"><a href="Admin_DeliverType.asp">送货方式管理首页</a> | <a href="Admin_DeliverType.asp?Action=Add">添加送货方式</a></td>
</tr>
</table>
<br />
<%
Select Case Action
Case "Modify"
Call Modify()
Case "Order"
Call Order()
Case "Add"
Call Add()
Case "SaveModify"
Call SaveModify()
Case "SaveAdd"
Call SaveAdd()
Case "SetDefault"
Call SetDefault()
Case "Disabled"
Call Disabled()
Case "CDisabled"
Call CDisabled()
Case "Del"
Call Del()
Case else
Call Main()
end Select
if FoundErr=True then
Cl.ShowErr(ErrMsg)
end if
Footer
Sub Main()
call OpenConn()
sql="select * from Cl_DeliverType"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,1
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border" align="center">
<tr align="center" class="title">
<td width="30">ID</td>
<td width="80">送货方式名称</td>
<td>送货方式简介</td>
<td width="60">运费</td>
<td width="60">是否默认</td>
<td width="50">已启用</td>
<td width="100">排序操作</td>
<td width="150">常规操作</td>
</tr>
<%
if rs.eof and rs.bof then
response.write "<tr><td colspan='8' height='50' align='center'>没有任何方案</td></tr>"
else
do while not rs.eof
%>
<form name="Order" method="post" action="Admin_DeliverType.asp">
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="30" align="center"><%=rs("TypeID")%></td>
<td width="80" align="center"><%=rs("typename")%></td>
<td align="center"><%=rs("intro")%></td>
<td width="60" align="center"><%=rs("charge")%>元</td>
<td width="60" align="center"><%if rs("IsDefault") then response.write "<font color=blue>√</font>"%></td>
<td width="50" align="center"><%
if rs("IsDisabled")=False then
response.write "<font color=blue>√</font>"
else
response.write "<font color='red'>×</font>"
end if%></td>
<td width="100" align="center">
<input name="OrderID" type="text" id="OrderID" value="<%=rs("OrderID")%>" size="4" maxlength="4" style="text-align:center ">
<input type="Submit" name="Submit" value="修改">
<input name="Action" type="hidden" id="Action" value="Order">
<input name="TypeID" type="hidden" id="TypeID" value="<%=rs("TypeID")%>">
</td>
<td width="150" align="center">
<%
if rs("IsDefault") then
response.write "<font color='gray'>默认送货方式</font> "
else
response.write "<a href='Admin_DeliverType.asp?Action=SetDefault&TypeID="&rs("TypeID")&"'>设为默认</a> "
if rs("IsDisabled")=False then
response.write "<a href='Admin_DeliverType.asp?Action=Disabled&TypeID="&rs("TypeID")&"'>禁用</a>"
else
response.write "<a href='Admin_DeliverType.asp?Action=CDisabled&TypeID="&rs("TypeID")&"'>启用</a>"
end if
end if
%>
<a href="Admin_DeliverType.asp?Action=Modify&TypeID=<%=rs("TypeID")%>">修改</a> <a href="Admin_DeliverType.asp?Action=Del&TypeID=<%=rs("TypeID")%>">删除</a></td>
</tr>
</form>
<%
rs.movenext
loop
end if
rs.close:set rs=Nothing
%>
</table>
<br />
说明：“禁用”某送货方式后，前台下订单时不显示，原订单中仍显示。<br />
<%
End Sub
Sub Add()
%>
<form name="myform" method="post" action="Admin_DeliverType.asp">
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border">
<tr align="center">
<td colspan="2" class="title"><b>添 加 送 货 方 式</b></td>
</tr>
<tr class="tdbg">
<td width="40%" align="right">名称：</td>
<td><input name="TypeName" type="text" id="TypeName" size="20" maxlength="20">
<font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td width="40%" align="right">说明：</td>
<td><input name="Intro" type="text" id="Intro" size="40" maxlength="50"></td>
</tr>
<tr class="tdbg">
<td width="40%" align="right">运费：</td>
<td><input name="Charge" type="text" id="Charge" value="100" size="6" maxlength="6" style="text-align:center ">元</td>
</tr>
<tr class="tdbg">
<td align="right"> </td>
<td><input name="IsDefault" type="checkbox" id="IsDefault" value="<%=TrueType%>">
设为默认</td>
</tr>
<tr align="center" class="tdbg">
<td height="50" colspan="2"> <input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="Submit" name="Submit" value="保存送货方式"></td>
</tr>
</table>
</form>
<%
end Sub
Sub Modify()
set rs=Cl.Execute("select * from Cl_DeliverType where TypeID="&TypeID)
%>
<form name="myform" method="post" action="Admin_DeliverType.asp">
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border">
<tr align="center">
<td colspan="2" class="title"><b>修 改 送 货 方 式</b></td>
</tr>
<tr class="tdbg">
<td width="40%" align="right">名称：</td>
<td><input name="TypeID" type="hidden" id="TypeID" value="<%=rs("TypeID")%>"><input name="TypeName" type="text" id="TypeName" value="<%=rs("TypeName")%>" size="20" maxlength="20">
<font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td width="40%" align="right">说明：</td>
<td><input name="Intro" type="text" id="Intro" value="<%=rs("Intro")%>" size="40" maxlength="50"></td>
</tr>
<tr class="tdbg">
<td width="40%" align="right">运费：</td>
<td><input name="Charge" type="text" id="Charge" value="<%=rs("Charge")%>" size="6" maxlength="6" style="text-align:center ">
元</td>
</tr>
<tr class="tdbg">
<td align="right"> </td>
<td><input name="IsDefault" type="checkbox" id="IsDefault" value="<%=TrueType%>" <%if ""&rs("IsDefault")&""=TrueType then %> Checked <%end if %>>
设为默认</td>
</tr>
<tr align="center" class="tdbg">
<td height="50" colspan="2"> <input name="Action" type="hidden" id="Action" value="SaveModify">
<input type="Submit" name="Submit" value="保存修改"></td>
</tr>
</table>
</form>
<%
Rs.close
Set rs=nothing
End Sub
Sub SaveModify()
dim MinTypeID
select case IsDefault
case TrueType
IsDefault=TrueType
Cl.Execute("update Cl_DeliverType set IsDefault= " & FalseType & " where TypeID <> " & TypeID & " and IsDefault= " & TrueType & " ")
IsDisabled=FalseType
case else
IsDefault=FalseType
MinTypeID=Cl.Execute("select min(TypeID) from Cl_DeliverType where TypeID<> " &TypeID)(0)
Cl.Execute("update Cl_DeliverType set IsDefault= " & TrueType & " ,IsDisabled= " & FalseType & " where IsDefault= " & FalseType & " and TypeID=" & MinTypeID)
end select
if Not IsNumeric(Charge) then Charge=0
Charge=FormatNumber(Charge,2)
Cl.Execute("update Cl_DeliverType set TypeName='"&DTypeName & "',Intro='"&Intro & "',Charge="&Charge & ",IsDefault="&IsDefault & " ,IsDisabled= " & FalseType & " where TypeID = " & TypeID & " ")
Cl.SaveAdminLog
Call Cl.OutMsg(0,"操作成功，所选送货方式已被成功修改！","Admin_DeliverType.asp")
End Sub
Sub SaveAdd()
dim MaxOrder,MaxTypeID,Deliver
Deliver=Cl.Execute("select Max(OrderID),Max(TypeID) from Cl_DeliverType")
MaxOrder=Deliver(0)
MaxTypeID=Deliver(1)
if Not IsNumeric(MaxOrder) then MaxOrder=0
if Not IsNumeric(MaxTypeID) then MaxTypeID=0
select case IsDefault
case TrueType
IsDefault=TrueType
IsDisabled=FalseType
Cl.Execute("update Cl_DeliverType set IsDefault= " & FalseType & " where TypeID <> " & TypeID & " and IsDefault= " & TrueType & " ")
case else
IsDefault=FalseType
end select
Cl.Execute("insert into Cl_DeliverType (TypeID,TypeName ,Intro ,Charge ,IsDefault ,OrderID ) values (" & MaxTypeID+1 &" ,'" & DTypeName &"' ,'" & Intro&"' ,"&Charge &","&IsDefault &","&MaxOrder+1 &")")
Cl.SaveAdminLog
Call Cl.OutMsg(0,"操作成功，成功添加送货方式！","Admin_DeliverType.asp")
End Sub
Sub SetDefault()
if TypeID=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请先选择ID！</li>"
exit Sub
end if
Cl.Execute("update Cl_DeliverType set IsDefault= " & FalseType & " where TypeID <> " & TypeID & " and IsDefault= " & TrueType & " ")
Cl.Execute("update Cl_DeliverType set IsDefault= " & TrueType & ", IsDisabled= " & FalseType & " where TypeID = " & TypeID & " ")
Cl.SaveAdminLog
response.Redirect ComeUrl
end Sub
Sub Disabled()
if TypeID=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请先选择ID！</li>"
exit Sub
end if
Cl.Execute("update Cl_DeliverType set IsDisabled= " & TrueType & " where TypeID = " & TypeID & " ")
Cl.SaveAdminLog
response.Redirect ComeUrl
end Sub
Sub CDisabled()
if TypeID=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请先选择ID！</li>"
exit Sub
end if
Cl.Execute("update Cl_DeliverType set IsDisabled= " & FalseType & " where TypeID = " & TypeID & " ")
Cl.SaveAdminLog
response.Redirect ComeUrl
end Sub
Sub Order()
Cl.Execute("update Cl_DeliverType set OrderID=" & OrderID & " where TypeID = " & TypeID & " ")
Cl.SaveAdminLog
response.Redirect ComeUrl
end Sub
Sub Del()
if TypeID=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请先选择ID！</li>"
exit Sub
end if
Cl.Execute("delete from Cl_DeliverType where TypeID = " & TypeID & " ")
Cl.SaveAdminLog
Call Cl.OutMsg(0,"操作成功，所选送货方式已被删除！","Admin_DeliverType.asp")
end Sub
%>
<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -