?? methord.asp
字號:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('請先登錄！');history.go(-1);</script>"
response.End
else
if session("rank")>1 then
response.Write "<div align=center><font size=50 color=red><b>你的權限不夠！</b></font></div>"
response.End
end if
end if
%>
<title>送貨方式</title>
<%dim action,deliveryid
deliveryid=request.QueryString("id")
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "deliverysave"
rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
rs("subject")=trim(request("subject"))
rs("deliveryidorder")=request("deliveryidorder")
rs("fee")=request("fee")
rs("methord")=0
rs.update
rs.close
response.write "<script language=javascript>alert('成功修改了送貨方式！');history.go(-1);</script>"
response.End
case "deliveryadd"
rs.open "select * from delivery",conn,1,3
rs.addnew
rs("subject")=trim(request("subject"))
rs("deliveryidorder")=request("deliveryidorder")
rs("fee")=request("fee")
rs("methord")=0
rs.update
rs.close
response.write "<script language=javascript>alert('成功添加了新的送貨方式！');history.go(-1);</script>"
response.End
case "deliverydel"
conn.execute "delete from delivery where deliveryid="&deliveryid
response.redirect "methord.asp?action=delivery"
case "zhifudel"
conn.execute "delete from delivery where deliveryid="&deliveryid
response.redirect "methord.asp?action=zhifu"
case "zhifusave"
rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
rs("subject")=trim(request("subject"))
rs("deliveryidorder")=request("deliveryidorder")
rs("methord")=1
rs.update
rs.close
response.write "<script language=javascript>alert('成功修改了支付方式！');history.go(-1);</script>"
response.End
case "zhifuadd"
rs.open "select * from delivery",conn,1,3
rs.addnew
rs("subject")=trim(request("subject"))
rs("deliveryidorder")=request("deliveryidorder")
rs("methord")=1
rs.update
rs.close
response.write "<script language=javascript>alert('成功添加了新的支付方式！');history.go(-1);</script>"
response.End
end select
set rs=nothing
%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#6699cc">
<tr align="center" bgcolor="#6699cc" height="20">
<td><a href="methord.asp?action=delivery"><font color="#FFFFFF">修改送貨方式</font></a></td>
<td><a href="methord.asp?action=zhifu"><font color="#FFFFFF">修改支付方式</font></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="100" colspan="2"> <br>
<%select case action
case "delivery"%>
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF" align="center" height="20">
<td width="30%">送貨方式</td>
<td width="25%">加收金額</td>
<td width="20%">排 序</td>
<td width="25%">操 作 </td>
</tr>
<%dim i,j
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
i=rs.recordcount
do while not rs.eof%>
<tr align="center" bgcolor="#FFFFFF">
<form name="form1" method="post" action="methord.asp?action=deliverysave&id=<%=rs("deliveryid")%>">
<td><input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>></td>
<td><input name="fee" type="text" id="fee" size="4" value=<%=rs("fee")%> onKeyPress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))">元</td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" size="2" value=<%=rs("deliveryidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit" value="修 改">
<a href="methord.asp?action=deliverydel&id=<%=rs("deliveryid")%>" onClick="return confirm('您確定進行刪除操作嗎？')"><font color="#FF0000">刪除</font></a>
</td>
</form>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<tr align="center" bgcolor="#FFFFFF">
<form name="form2" method="post" action="methord.asp?action=deliveryadd">
<td><input name="subject2" type="text" id="subject" size="14"></td>
<td><input name="fee" type="text" id="fee" size="4" onKeyPress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))">元</td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" value=<%=i+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit3" value="添 加"></td>
</form>
</tr>
</table>
<%case "zhifu"%>
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF" align="center" height="20">
<td width="40%">支付方式</td>
<td width="30%">排 序</td>
<td width="30%">操作</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
j=rs.recordcount
do while not rs.eof%>
<tr align="center" bgcolor="#FFFFFF">
<form name="form1" method="post" action="methord.asp?action=zhifusave&id=<%=rs("deliveryid")%>">
<td><input name="subject2" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>></td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" size="2" value=<%=rs("deliveryidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit2" value="確 認">
<a href="methord.asp?action=zhifudel&id=<%=rs("deliveryid")%>" onClick="return confirm('您確定進行刪除操作嗎？')"><font color="#FF0000">刪除</font></a>
</td>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<form name="form1" method="post" action="methord.asp?action=zhifuadd">
<td><input name="subject2" type="text" id="subject" size="14"></td>
<td><input name="deliveryidorder" type="text" id="deliveryidorder" value=<%=j+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td><input type="submit" name="Submit32" value="添 加"></td>
</form>
</tr>
</table>
<%end select%>
<br> </td>
</tr>
</table>
<br>
<!--#include file="footer.asp"-->
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -