📄 product_list.asp
字号:
ProductID=request("ProductID")
strClass=request("ID")
strName=request("strname")
strDetail=request("detail")
listID=request("ListID")
status=request("status")
'IsTry = request("IsTry")
IsTry = request("IsTry") & "|" & request("strptype") & "|" & request("pIISEdit") & "," & request("pFtpEdit") & "," & request("pMailEdit") & "," & request("pDnsEdit") & "," & request("pMssqlEdit") &"," & request("pDomainEdit")
MPrice=request("MPrice")
priceType = request("priceType")
if priceType ="其它" then priceType = request("priceType2")
applyInfo = request("applyInfo")
if priceType = "" or MPrice = "" or ProductID="" or strclass="" or listID="" or strName="" or strdetail="" or status="" then
session("mesg")="输入域都不能为空"
Response.Redirect "../result.asp"
end if
'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from product where ID='"&ProductID&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs.close
set rs=nothing
session("mesg")="已经存在编码为["&ProductID&"]的产品"
session("mesgtype")="mesg"
Response.Redirect "../result.asp"
end if
rs.addnew
rs("ID")=ProductID
rs("class")=strclass
rs("listID")=listID
rs("name")=strName
rs("detail")=strDetail
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="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"><b>产品实时开通设置</b></div>
</td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>是否支持实时开通*</td>
<td width='25%'>
<select name="IsTry">
<option value="N" >不支持</option>
<option value="Y" >支持</option>
</select></td>
<td width='25%' bgcolor='#efefef'>控制面板类型*</td>
<td width='25%'>
<select name="strptype">
<option value="" >无</option>
<option value="1" >主机-本系统</option>
<option value="2A" >>域名-本系统</option>
<option value="2B" >域名-新网互联</option>
<option value="2C" >域名-新网</option>
<option value="2D" >域名-中频</option>
<option value="3" >数据库-本系统</option>
<option value="4" >邮局-本系统</option>
</select></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>控制面板内容*</td>
<td width='75%' colspan="3">
<input type="Checkbox" name="pIISEdit" value="IIS">IIS
<input type="Checkbox" name="pFtpEdit" value="FTP" >FTP
<input type="Checkbox" name="pMssqlEdit" value="MSSQL" >MSSQL
<input type="Checkbox" name="pMailEdit" value="MAIL" >MAIL
<input type="Checkbox" name="pDnsEdit" value="DNS" >DNS
<input type="Checkbox" name="pDomainEdit" value="Domain" >Domain</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></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>
<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;
}
}
//-->
</script>
<%
end sub
%>
<!--#include file="../inc/bottom2.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -