📄 sysset.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx5<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="34%"> <strong><font color="#000000">修改配送方式</font></strong></td>
<td width="66%" align="right"> </td>
</tr>
</table></td>
</tr>
</table><br>
<%dim action,songid
songid=request.QueryString("id")
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "del"
conn.execute "delete from shop_sys where songid="&songid
response.write "<script language=javascript>alert('成功删除了送货方式！');history.go(-1);</script>"
response.End
'////修改支付方式
case "save"
rs.open "select * from shop_sys where songid="&songid,conn,1,3
rs("fsh")=trim(request("fsh"))
rs("fy")=trim(request("fy"))
rs("je")=trim(request("je"))
rs("mje")=trim(request("mje"))
rs("px")=request("px")
rs.update
rs.close
response.write "<p align=center><font color=red>设置成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=sysset.asp"">"
response.End
'/////添加支付方式
case "add"
rs.open "select * from shop_sys",conn,1,3
rs.addnew
rs("fsh")=trim(request("fsh2"))
rs("fy")=trim(request("fy2"))
rs("je")=trim(request("je2"))
rs("mje")=trim(request("mje2"))
rs("px")=request("px2")
rs.update
rs.close
response.write "<p align=center><font color=red>添加成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=sysset.asp"">"
response.End
end select
set rs=nothing
%>
<br>
<br>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<tr bgcolor="#C7D3E6">
<td height="22">
<div align="center">ID</div></td>
<td align="center">排 序</td>
<td height="22">
<div align="center">送货方式</div></td>
<td align="center">送货费</td>
<td align="center">参数</td>
<td height="22">
<div align="center"></div></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_sys where songid<>1 order by px",conn,1,1
j=rs.recordcount
do while not rs.eof%>
<tr bgcolor="#F0F3F8">
<form name="form1" method="post" action="sysset.asp?action=save&id=<%=rs("songid")%>">
<td>
<div align="center">
<%=rs("songid")%> </div></td>
<td align="center"><input name="px" class="wenbenkuang" type="text" id="px" size="5" value=<%=rs("px")%> 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>
<div align="center">
<input name="fsh" type="text" class="wenbenkuang" id="subject4" size="22" value="<%=trim(rs("fsh"))%>">
</div></td>
<td align="center"><input name="fy" type="text" class="wenbenkuang" id="fy" value="<%=trim(rs("fy"))%>" size="12"></td>
<td align="center">满
<input name="je" type="text" class="wenbenkuang" id="fsh3" value="<%=trim(rs("je"))%>" size="12">
元免
<input name="mje" type="text" class="wenbenkuang" id="je" value="<%=trim(rs("mje"))%>" size="12">
元送货费</td>
<td>
<div align="center">
<input type="submit" name="Submit2" class="go-wenbenkuang" value="确 认">
<a href="sysset.asp?action=del&id=<%=rs("songid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a></div></td>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</tr>
<tr bgcolor="#F0F3F8">
<form name="form1" method="post" action="sysset.asp?action=add">
<td>
<div align="center"> </div></td>
<td align="center"> <input name="px2" class="wenbenkuang" type="text" id="px3" value=<%=j+1%> size="5" 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>
<div align="center">
<input name="fsh2" class="wenbenkuang" type="text" id="fsh2" size="22">
</div></td>
<td align="center"><input name="fy2" class="wenbenkuang" type="text" id="fy2" size="12"></td>
<td align="center">满
<input name="je2" class="wenbenkuang" type="text" id="je2" size="12">
元免
<input name="mje2" class="wenbenkuang" type="text" id="mje2" size="12">
元送货费</td>
<td>
<div align="center">
<input type="submit" name="Submit32" class="go-wenbenkuang" value="添 加">
</div></td>
</form>
</tr>
</table>
<br>
<!--#include file="copyright.asp"-->
</body>
</html>
<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 + -