⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sysset_fudong.asp

📁 购物系统(本版为正式商业版
💻 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>浮动价</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">

<style type="text/css">
<!--
.style1 {
	color: #000000;
	font-weight: bold;
}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0">
<center><br>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
    <tr>
      <td width="1%">&nbsp;</td>
      <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
          <tr>
            <td width="30%" height="32" style="font-size:14px;color:#000000">&nbsp;<span class="style1">浮动价设置</span></td>
            <td width="70%" align="right">&nbsp;</td>
          </tr>
      </table></td>
    </tr>
  </table>
  <table border="0" width="90%" cellpadding="3" cellspacing="1" style="border-collapse: collapse" bgcolor="#9DB2D4" >
    <form method="post" action="fudongset.asp?action=update">
      <tr align=center bgcolor="#C7D3E6" height=25> 
        <td>序号</td>
        <td>说明</td>
        <td>VIP送货上门</td>
        <td>会员送货上门</td>
        <td>VIP普通平邮</td>
        <td>会员普通平邮</td>
        <td>VIPEMS</td>
        <td>会员EMS</td>
        <td>删除</td>
      </tr>
      <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT  * From shop_fudong order by id",conn,1,1
if rs.recordcount=0 then 
%>
      <tr bgcolor="#F0F3F8"> 
        <td width="100" height=25 colspan="13" align="center"> 还没有添加设置</td>
      </tr>
      <%
else
    do while not rs.eof
%>
      <tr height=25 bgcolor="#F0F3F8"> 
        <td align=center><%=rs("ID")%></td>
        <td align=center> 
          <input type="hidden" name="id" value="<%=rs("id")%>">
          <input class="wenbenkuang" type="text" name="shuoming" size="12" value="<%=trim(rs("shuoming"))%>">
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="smvip" size="6" value="<%=trim(rs("smvip"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="smhy" size="6" value="<%=trim(rs("smhy"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="pyvip" size="6" value="<%=trim(rs("pyvip"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="pyhy" size="6" value="<%=trim(rs("pyhy"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="emsvip" size="6" value="<%=trim(rs("emsvip"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="emshy" size="6" value="<%=rs("emshy")%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center> <a href="fudongkill.asp?id=<%=rs("id")%>">删除</a> </td>
      </tr>
      <%
    rs.MoveNext
    Loop
%>
      <tr bgcolor="#F0F3F8"> 
        <td width="100%" height=25 colspan="13" align="center"> 
          <input type="submit" name="Submit2" value="保存修改" class="go-wenbenkuang">
          &nbsp; 
          <input type="reset" value="重新设定" class="go-wenbenkuang" name="重置" >
        </td>
      </tr>
      <%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
    </form>
    <form method="post" action="fudongset.asp?action=add">
      <tr height=25 bgcolor="#F0F3F8"> 
        <td align=center>添加设置</td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="shuoming" size="12">
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="smvip" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="smhy" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="pyvip" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="pyhy" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="emsvip" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td align=center> 
          <input class="wenbenkuang" type="text" name="emshy" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0">
        </td>
        <td colspan="2" align=center> 
          <input type="submit" name="Submit2" value="添加" class="go-wenbenkuang">
        </td>
      </tr>
    </form>
  </table>
</center>
</body>
</html>

⌨️ 快捷键说明

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