📄 prices.asp
字号:
<%ds="../../"%>
<!--#include file="../../conn/adminconn.asp" -->
<!--#include file="../checkvalid.asp" -->
<!--#include file="../../inc/safe.asp" -->
<%
If Not FRAdminLevel(83) Then
Call ErrorMsg()
End If
%>
<%
If request("step")="save" Then
Id=split(request("id"),",")
price_value=split(request("price_value"),",")
For i=0 To Ubound(ID)
conn.execute("update job_prices set price_value="&price_value(i)&" where price_type=0 and id="&Id(i)&"")
Next
Call Success()
Response.End()
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>普通消费价目设定</title>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</head>
<body>
<table cellspacing="1" cellpadding="2" width="100%" align=center class="tableBorder">
<tr>
<th height="25" colspan="3" class="tableHeaderText">
普通消费价目设定</th>
</tr>
<form action="prices.asp?step=save" method="post">
<tr>
<td width="14%" height="25" class="huiby"><font color="ff6600"><b class="style1">消费项目ID</b></font></td>
<td width="31%" class="huiby"><font color="ff6600"><b class="style1">消费项目</b></font></td>
<td width="55%" class="huiby"><font color="ff6600"><b class="style1">消费点数（点）</b></font></td>
</tr>
<%
Set rs=server.CreateObject("adodb.recordset")
sql="select * from job_prices where price_type=0 order by id asc"
rs.open sql,conn,1,1
Do While Not rs.eof
%>
<tr>
<td height="25" align="center" class="amrow"><%=rs("id")%></td>
<td height="25" class="amrow"><%=rs("price_name")%></td>
<td class="amrow" lass="amtd"><input name="price_value" type="text" value="<%=rs("price_value")%>" size="7"></td>
<input name="id" type="hidden" value="<%=rs("id")%>">
</tr>
<%
rs.movenext
Loop%>
<tr>
<td height="25" colspan="3" align="center" class="huiby"><input type="submit" name="Submit" value="保存">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table>
</body>
</html>
<%
Sub Success()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<title>操作成功</title>
</head>
<body>
<table cellpadding=2 cellspacing=1 border=0 width=400 class=tableBorder align=center><TR>
<TH class=tableHeaderText colSpan=2 height=25>修改价目表</TH>
<TR><tr><td height=85 valign=top class=huiby><div align=center><br><br>
修改价目表成功！</div></td></tr><tr align=center><td height=30 class=amrow><a href='prices.asp'><< 返回上一页</a></td>
</tr></table>
<!--#include file="../inc/copy.asp" -->
</body>
</html>
<%
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -