📄 product_list_bak.asp
字号:
rs("status")=status
rs("priceType")=priceType
rs("IsTry")=IsTry
rs("MPrice")=MPrice
rs("applyInfo")=applyInfo
rs("A") = request("year1")
rs("B") = request("year2")
rs("C") = request("year3")
rs("D") = request("year4")
rs("E") = request("year5")
rs("F") = request("year6")
rs.update
rs.close
set rs=nothing
set rsv = conn.execute("select * from userlevel")
do while not rsv.eof
conn.execute("insert productprice (PID,LevelCode) values ('"&ProductID&"','"&rsv("levelcode")&"')")
priceA = request(rsv("levelcode")&"1")
priceB = request(rsv("levelcode")&"2")
priceC = request(rsv("levelcode")&"3")
priceD = request(rsv("levelcode")&"4")
priceE = request(rsv("levelcode")&"5")
if isnumeric(priceA) and priceA<> "" then
conn.execute("update productprice set A="&priceA&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
end if
if isnumeric(priceB) and priceB<> "" then
conn.execute("update productprice set B="&priceB&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
end if
if isnumeric(priceC) and priceC<> "" then
conn.execute("update productprice set C="&priceC&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
end if
if isnumeric(priceD) and priceD<> "" then
conn.execute("update productprice set D="&priceD&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
end if
if isnumeric(priceE) and priceE<> "" then
conn.execute("update productprice set E="&priceD&" where PID='"&ProductID&"' and LevelCode='"&rsv("levelcode")&"' ")
end if
rsv.movenext
loop
'set rsv = conn.execute("select * from userlevel")
' do while not rsv.eof
' for i=1 to 5
' price = request(rsv("levelcode")&i)
' pyear1 = request("year"&i)
' if isnumeric(pyear1) and isnumeric(price) and pyear1<>"" and price<>"" then
' conn.execute("insert productprice values ('"&ProductID&"','"&rsv("levelcode")&"',"&i&","&price&","&pyear1&")")
' end if
' next
' rsv.movenext
' loop
end sub
sub Add_Pre()
call Check()
%>
<br><br><br>
<form method='POST' name="F1" action='product_list.asp' onsubmit='return check_input()'>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=80% class='size09' align='center'>
<tr>
<td colspan="2" bgcolor="#efefef" height="28">
<div align="center" class="color01">请输入产品信息</div>
</td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>产品编号*</td>
<td width='25%'>
<input type='hidden' class='form' name=ProductAction value='add'>
<input type='hidden' class='form' name='ID' value='<%=ID%>'>
<input type='text' class='form' name='ProductID' size='5' maxlength="5" value='P'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>排序*</td>
<td width='25%'>
<input type='text' class='form' name='listID' size='5' maxlength="5" value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>产品*</td>
<td width='75%'><input type='text' class='form' name='strname' size='20' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>产品说明*</td>
<td width='75%'><input type='text' class='form' name='detail' size='60' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>申请提示*</td>
<td width='75%'><input type='text' class='form' name='applyInfo' size='60' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>是否支持实时开通</td>
<td width='75%'>
<select name="IsTry">
<option value="N">不支持</option>
<option value="Y">支持</option>
</select></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>状态*</td>
<td width='75%'><select name="status" size="1"><option value="1">正常</option><option value="0">锁定</option></select>锁定表示不正开常该项业务</td>
</tr>
</table>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=80% class='size09' align='center'>
<tr>
<td colspan="6" bgcolor="#efefef" height="28">
<div align="center" class="color01">产品价格设置</div>
</td>
</tr>
<tr>
<td bgcolor='#efefef'>计价单位*</td>
<td colspan="5">
<select name="priceType">
<option value="年">年</option>
<option value="月">月</option>
<option value="其它">其它</option>
</select>
其它的计价单位:<input type='text' class='form' name='priceType2' size='20' value=''>如:件,个等</td>
</tr>
<tr>
<td bgcolor='#efefef'>市场售价*</td>
<td colspan="5"><input type='text' class='form' name='MPrice' size='20' value=''></td>
</tr>
<tr><td>计价级别</td><td><input name="year1" size="4" maxlength="8" value="1">×计价单位</td><td><input name="year2" size="4" maxlength="8" value="2">×计价单位</td><td><input name="year3" size="4" maxlength="8" value="3">×计价单位</td><td><input name="year4" size="4" maxlength="8" value="4">×计价单位</td><td><input name="year5" size="4" maxlength="8" value="5">×计价单位</td></tr>
<%set rsv = conn.execute("select * from userlevel")
do while not rsv.eof
%>
<tr><td><%=rsv("levelname")%></td><td><input name="<%=rsv("levelcode")%>1" size="10" maxlength="10"></td><td><input name="<%=rsv("levelcode")%>2" size="10" maxlength="10"></td><td><input name="<%=rsv("levelcode")%>3" size="10" maxlength="10"></td><td><input name="<%=rsv("levelcode")%>4" size="10" maxlength="10"></td><td><input name="<%=rsv("levelcode")%>5" size="10" maxlength="10"></td></tr>
<%
rsv.movenext
loop
rsv.close
set rsv = nothing
%>
</table>
<p align='center'><input type='submit' value='增 加' name='B1'></p>
</form>
<%
end sub
sub List
set rs=server.createobject("adodb.recordset")
sql="select * from product where class='"&ID&"' order by listID "
rs.open sql,conn,1,1
%>
<br>
<img src='../images/dotdb.gif' width='10' height='10'>
<font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=95% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>产品编号</td><td class='color01' bgcolor='#efefef'>排序</td><td class='color01' bgcolor='#efefef'>产品</td><td class='color01' bgcolor='#efefef'>说明</td><td class='color01' bgcolor='#efefef'>状态</td><td class='color01' bgcolor='#efefef'>市场价</td><td class='color01' bgcolor='#efefef'>计价单位</td><td class='color01' bgcolor='#efefef'>实时开通</td><td class='color01' bgcolor='#efefef'>删除</td><td class='color01' bgcolor='#efefef'>修改</td></tr>
<%
do while not rs.eof %>
<tr><td><%=rs("ID")%></td><td><%=rs("ListID")%></td><td><%=rs("name")%></td><td><%=rs("detail")%></td>
<td><%if rs("status")="1" then response.write "正常" else response.write "锁定" end if %>
</td><td> <%=rs("MPrice")%></td><td> <%=rs("PriceType")%></td><td> <%=rs("IsTry")%></td>
<form action="product_list.asp"><input type="Hidden" name="ProductID" value="<%=rs("ID")%>"><input type="Hidden" name="ProductAction" value="del"><input type="Hidden" name="ID" value="<%=ID%>"><td><input type='submit' value='删 除' name='B1' class=form></td></form>
<form action="product_list.asp"><input type="Hidden" name="ProductAction" value="edit_pre"><input type="Hidden" name="ID" value="<%=ID%>"><input type="Hidden" name="ProductID" value="<%=rs("ID")%>"><td><input type='submit' value='修 改' name='B1' class=form></td></form>
</tr>
<% i=i+1
rs.movenext
loop
%>
<tr><form method='POST' action='product_list.asp' >
<input type="Hidden" name="ProductAction" value="add_pre">
<td colspan="13" align="center"><input type="Hidden" name="ID" value="<%=ID%>"> <input type='submit' value='增 加' name='B2'></td></form>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
sub Check()
%>
<script language='JavaScript'>
<!--
function check_input()
{
f=document.F1;
if(f.ProductID.value=='')
{
alert('产品编号不能为空');
f.ProductID.focus();
return false;
}
if(f.listID.value=='')
{
alert('排序不能为空');
f.listID.focus();
return false;
}
if(isNaN(f.listID.value))
{
alert('排序只能为数字');
f.listID.focus();
return false;
}
if(f.strname.value=='')
{
alert('产品名不能为空');
f.strname.focus();
return false;
}
if(f.detail.value=='')
{
alert('产品说明不能为空');
f.detail.focus();
return false;
}
if(f.a.value=='')
{
alert('价格A不能为空');
f.a.focus();
return false;
}
if(isNaN(f.a.value))
{
alert('价格A只能为数字');
f.a.focus();
return false;
}
if(f.b.value=='')
{
alert('价格b不能为空');
f.b.focus();
return false;
}
if(isNaN(f.b.value))
{
alert('价格b只能为数字');
f.b.focus();
return false;
}
if(f.c.value=='')
{
alert('价格c不能为空');
f.c.focus();
return false;
}
if(isNaN(f.d.value))
{
alert('价格d只能为数字');
f.d.focus();
return false;
}
if(f.e.value=='')
{
alert('价格e不能为空');
f.e.focus();
return false;
}
if(isNaN(f.e.value))
{
alert('价格e只能为数字');
f.e.focus();
return false;
}
if(f.f.value=='')
{
alert('价格f不能为空');
f.f.focus();
return false;
}
if(isNaN(f.f.value))
{
alert('价格f只能为数字');
f.f.focus();
return false;
}
}
//-->
</script>
<%
end sub
%>
<!--#include file="../inc/bottom2.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -