setfluctuate.asp

来自「asp商城之王」· ASP 代码 · 共 124 行

ASP
124 行
字号 
<!--#include file="conn.asp"-->
<!--#include file="session1.asp"-->
<html>
<head>
<title>浮动价</title>
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<center>
<table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
 <form method="post" action="SetFluctuate2.asp?action=update">
   <tr> 
	<th class="tableHeaderText" colspan=9>浮动价设置</th>	
   </tr>
      <tr align=center> 
        <td class="forumRowHighlight">序号</td>
        <td class="forumRowHighlight">说明</td>
        <td class="forumRowHighlight">送货上门<br>VIP价</td>
        <td class="forumRowHighlight">送货上门<br>普通会员价</td>
        <td class="forumRowHighlight">普通平邮<br>VIP价</td>
        <td class="forumRowHighlight">普通平邮<br>普通会员价</td>
        <td class="forumRowHighlight">EMS<br>VIP价</td>
        <td class="forumRowHighlight">EMS<br>普通会员价</td>
        <td class="forumRowHighlight">删除</td>
      </tr>
      <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT  * From sh_float order by id",conn,1,1
if rs.recordcount=0 then 
%>
      <tr> 
        <td align="center" class="forumRowHighlight"> 还没有添加设置</td>
      </tr>
      <%
else
    do while not rs.eof
%>
      <tr> 
        <td align=center class="forumRowHighlight"><%=rs("ID")%></td>
        <td align=center class="forumRowHighlight"> 
          <input type="hidden" name="id" value="<%=rs("id")%>">
          <input class=text type="text" name="shuoming" size="12" value="<%=trim(rs("shuoming"))%>">
        </td>
        <td align=center class="forumRowHighlight">
          <input class=text type="text" name="smvip" size="6" value="<%=trim(rs("smvip"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center class="forumRowHighlight">
          <input class=text type="text" name="smhy" size="6" value="<%=trim(rs("smhy"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center class="forumRowHighlight">
          <input class=text type="text" name="pyvip" size="6" value="<%=trim(rs("pyvip"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center class="forumRowHighlight">
          <input class=text type="text" name="pyhy" size="6" value="<%=trim(rs("pyhy"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center class="forumRowHighlight">
          <input class=text type="text" name="emsvip" size="6" value="<%=trim(rs("emsvip"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center class="forumRowHighlight"> 
          <input class=text type="text" name="emshy" size="6" value="<%=rs("emshy")%>" ONKEYPRESS="event.returnValue=IsDigit();" >
        </td>
        <td align=center class="forumRowHighlight"><a href="KillFluctuate.asp?id=<%=rs("id")%>">删除</a> </td>
      </tr>
      <%
    rs.MoveNext
    Loop
%>
      <tr> 
        <td height="50"  colspan="9" align="center" class="forumRowHighlight"> 
          <input class="button" type="submit" name="Submit2" value="保存修改" style="font-family: 宋体; font-size: 9pt" >
          &nbsp; 
          <input class="button" type="reset" value="重新设定" style="font-family: 宋体; font-size: 9pt" name="重置" >
        </td>
      </tr>
      <%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
    </form>
    <form method="post" action="SetFluctuate2.asp?action=add">
      <tr> 
        <td align=center class="forumRowHighlight">添加设置</td>
        <td align=center class="forumRowHighlight"> 
          <input class=text type="text" name="shuoming" size="12">
        </td>
        <td class="forumRowHighlight" align=center>
          <input class=text type="text" name="smvip" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td class="forumRowHighlight" align=center>
          <input class=text type="text" name="smhy" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td class="forumRowHighlight" align=center>
          <input class=text type="text" name="pyvip" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td class="forumRowHighlight" align=center>
          <input class=text type="text" name="pyhy" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td class="forumRowHighlight" align=center>
          <input class=text type="text" name="emsvip" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0" >
        </td>
        <td class="forumRowHighlight" align=center> 
          <input class=text type="text" name="emshy" size="6" ONKEYPRESS="event.returnValue=IsDigit();" value="0">
        </td>
        <td class="forumRowHighlight" align=center> 
          <input class="button" type="submit" name="Submit2" value="添加" style="font-family: 宋体; font-size: 9pt">
        </td>
      </tr>
    </form>
  </table>

</center>
<!--#include file="copyright.asp"-->
</body>
</html>

setfluctuate.asp - 源码说明

本页面展示了「asp商城之王」中的 setfluctuate.asp 源码文件，采用 ASP 编程语言编写，共 124 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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