📄 user_price.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(40)
if Cmd = "Upd" then
for each tmp in Request.form
If Instr(tmp,"_Pri") > 0 Then
PSign = Replace(tmp,"_Pri","")
pri = Request.form(PSign & "_Pri")
NorPri = Request.form(PSign & "_Nor")
If pri <> NorPri And pri<>"" And pri<>"0" Then
User_Pri = User_Pri & PSign & "=" & pri & ";"
End If
End If
next
EfsValue=EfsValue & "User_Pri='" & User_Pri & "'"
call Conn.Update("EfangUser",EfsValue,"User_User=" & User)
Call ShowErMsgGo("修改成功！","?User=" & User)
End If
Set UData = Conn.Query("EfangUser","User_User=" & User)
if UData.BOF or UData.EOF then ShowErMsg("会员帐号不存在！")
if UData("User_State")=3 And Mid(session("SessAdminPOP"),38,1)<>1 then ShowErMsg("会员帐号已被删除！")
%>
<html>
<head>
<title>会员价格</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
<%=Efs_Cfg_PHeader%>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="会员价格">
</form>
<form name="form1" method="post" action="?Cmd=Upd">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">管理工具>> 会员管理 >> <b></b><b></b><b>会员价格</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img src="images/toolbar_help.gif" alt="帮助" width="43" height="20" border="0" id="id_locate" style="cursor:hand;width:22px; height:20px;" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<tr>
<td colspan="6"><input name="User" type="hidden" id="User" value="<%=User%>">会员 <%=User%> 的级别是 ： <%=Conn.QueryItem("EfangLevel","Level_Name","Level_Sign='" & UData("User_Level") & "'")%></td>
</tr>
<th width="11%" height="25" align="center" nowrap class="DataListHeader">商品编号</th>
<th width="11%" align="center" nowrap class="DataListHeader">商品类目</th>
<th width="22%" height="25" align="center" nowrap class="DataListHeader">商品名称</th>
<th width="16%" height="25" align="center" nowrap class="DataListHeader">零售价</th>
<th width="13%" align="center" nowrap class="DataListHeader">标准购买价</th>
<th width="16%" align="center" nowrap class="DataListHeader">实际价格</th>
</tr>
<%
Set PdtData=Conn.Query("EfangPdt","Pdt_State = 1 Order By Pdt_Sort,Pdt_Desc")
Do while not (PdtData.EOF or PdtData.BOF)
%>
<tr bgcolor="#FFFFFF" style="#ffffff">
<td width="11%" height="25" align="center" nowrap class="DataListGrid"><%=PdtData("Pdt_Sign")%></td>
<td width="11%" align="center" nowrap class="DataListGrid"><a href="Pdt_SortUpd.asp?Sign=<%=PdtData("Pdt_Sort")%>" class="CommonFace"><%=Conn.QueryItem("EfangPdtSort","PSort_Name","PSort_Sign='" & PdtData("Pdt_Sort") & "'")%>
</a></td>
<td width="22%" align="center" nowrap class="DataListGrid"> <a href="Pdt_Upd.asp?Sign=<%=PdtData("Pdt_Sign")%>" class="CommonFace"><%=PdtData("Pdt_Name")%></a> </td>
<td width="16%" align="center" nowrap class="DataListGrid"><%=PdtData("Pdt_Level1")%> 元</td>
<td width="13%" align="center" nowrap class="DataListGrid"><%=PdtData("Pdt_" & UData("User_Level"))%>
元</td>
<td width="16%" align="center" nowrap class="DataListGrid">
<input name="<%=PdtData("Pdt_Sign")%>_Old" type="hidden" id="<%=PdtData("Pdt_Sign")%>_Old" value="<%=PdtData("Pdt_" & UData("User_Level"))%>">
<input name="<%=PdtData("Pdt_Sign")%>_Pri" type="text" class="InputOne" value="<%=GetPri(UData("User_Pri"),PdtData("Pdt_Sign"),PdtData("Pdt_" & UData("User_Level")))%>" size="5">
元 </td>
</tr>
<%
PdtData.movenext
Loop
Set PdtData=Nothing
%>
<tr align="right" bgcolor="#FFFFFF" style="#ffffff">
<td height="25" colspan="6"> <table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="78%"> </td>
<td width="22%" align="center" nowrap class="DataListGrid"> <input name="Submit" type="submit" class="ButtonOne" value=" 修 改 ">
</td>
</tr>
</table></td>
</tr>
</table></div>
</td>
</tr>
</table>
</form>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -