📄 productinfoedt.asp
字号:
<% ModuleCode="M0635" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckSelect(RadioName)
{
var HaveSelect=false;
for (var i = 0; i < document.form9.elements.length; i++)
{
var e = document.form9.elements[i];
if (e.name == RadioName)
{
if(e.checked) {
HaveSelect=true;
break;
}
}
}
return HaveSelect;
}
function CheckAll()
{
//检查非空
if (!CheckEmpty(form9.ProdCode, "产品编号")) return false;
if (!CheckEmpty(form9.ProdName, "产品名称")) return false;
if (!CheckEmpty(form9.ProdPrice, "直接售价")) return false;
if (!CheckReal(form9.ProdPrice, "直接售价")) return false;
if (!CheckEmpty(form9.ProdLevel, "优先级")) return false;
if (!CheckInteger(form9.ProdLevel, "优先级")) return false;
if (!CheckEmpty(form9.ProdInfo, "产品说明 ")) return false;
if (!CheckEmpty(form9.ProdMemo, "产品备注")) return false;
if(form9.STCode.value=="1") {
if (!form9.BPCode1.checked) {
alert("在服务权限中必须选中域名！");
return false;
}
}
if(form9.STCode.value=="2") {
if (!form9.BPCode2.checked) {
alert("在服务权限中必须选中虚拟主机！");
return false;
}
}
if(form9.STCode.value=="3") {
if (!form9.BPCode3.checked) {
alert("在服务权限中必须选中邮局！");
return false;
}
}
if(form9.STCode.value=="5") {
if (!form9.BPCode1.checked && !form9.BPCode2.checked && !form9.BPCode3.checked) {
alert("在服务权限中必须至少选中一项！");
return false;
}
}
if (form9.BPCode1.checked) {
if (!CheckSelect("BPSubCode1")) {
alert("必须选择一个域名类型！");
return false;
}
}
if (form9.BPCode2.checked) {
if (!CheckEmpty(form9.MaxSize2, "空间大小")) return false;
if (!CheckInteger(form9.MaxSize2, "空间大小")) return false;
if (!CheckEmpty(form9.MaxUser2, "允许绑定域名")) return false;
if (!CheckInteger(form9.MaxUser2, "允许绑定域名")) return false;
if (!CheckEmpty(form9.MaxIIS2, "最大连接数")) return false;
if (!CheckInteger(form9.MaxIIS2, "最大连接数")) return false;
if (!CheckSelect("BPSubCode2")) {
alert("必须选择一个虚拟主机类型！");
return false;
}
}
if (form9.BPCode3.checked) {
if (!CheckEmpty(form9.MaxSize3, "邮局大小")) return false;
if (!CheckInteger(form9.MaxSize3, "邮局大小")) return false;
if (!CheckEmpty(form9.MaxUser3, "邮局用户个数")) return false;
if (!CheckInteger(form9.MaxUser3, "邮局用户个数")) return false;
if (!CheckSelect("BPSubCode3")) {
alert("必须选择一个邮局类型！");
return false;
}
}
if (!CheckMoneys()) return false;
//全部通过
//submitonce(form9);
return true;
}
-->
</script>
<%
strSQL="Select * from T_DNS_ProdInfo Where ProdCode='" & Request.QueryString("ProdCode") & "'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
Response.Write "<br><br><br><br><p align='center'>没有找到该产品的记录！"
Rs.Close
Cn.Close
Call PrintPageBottom
Response.End
end if
%>
<table width="500" cellspacing="0" cellpadding="0" border="0" align="center">
<tr>
<td>
<font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>修改产品</strong></font>
</td>
<td align="right">
<a href="#" onclick="javascript:history.go(-1)" class="a2">返回</a>
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
<form name="form9" action="ProductInfoEdtDo.asp" method="post" onSubmit="return(CheckAll());">
<input type="hidden" name="ProdCode" value="<%=Rs("ProdCode")%>">
<tr height="28">
<td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
<strong>基本信息</td>
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center" width="80">
产品编号
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<font color="<%=Opt_Font_TitleColor%>"><strong><%=Rs("ProdCode")%></strong></font>
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
产品名称
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<input type="text" name="ProdName" size="30" maxlength="100" class="input" value="<%=Rs("ProdName")%>">
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
产品种类
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<select name="STCode" class="input">
<%
strSQL="Select * from T_DNS_ServiceType"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn
while not Rs1.eof
%>
<option value="<%=Rs1("STCode")%>"
<% if Rs1("STCode")=Rs("STCode") then
Response.Write "Selected"
end if
%>
><%=Rs1("STName")%></option>
<%
Rs1.movenext
wend
Rs1.Close
%>
</select>
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
产品图片
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<input type="text" name="ProdPic" size="30" maxlength="100" class="input" value="<%=Rs("ProdPic")%>">
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
市场售价
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<input type="text" name="ProdPrice" size="27" maxlength="8" class="input" value="<%=Rs("ProdPrice")%>">
元
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
产品说明
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<textarea name="ProdInfo" cols="50" rows="3" class="input"><%=Rs("ProdInfo")%></textarea>
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
产品备注
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<textarea name="ProdMemo" cols="50" rows="3" class="input"><%=Rs("ProdMemo")%></textarea>
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
优 先 级
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<input type="text" name="ProdLevel" size="5" maxlength="5" class="input" value="<%=Rs("ProdLevel")%>"> 从小到大排列、显示
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">
产品状态
</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<Select name="ProdStat" class="input">
<option value="1" <% if Rs("ProdStat")="1" then Response.Write "Selected" %>>正常</option>
<option value="2" <% if Rs("ProdStat")="2" then Response.Write "Selected" %>>推荐</option>
<option value="3" <% if Rs("ProdStat")="3" then Response.Write "Selected" %>>停止</option>
</select>
</td>
</tr>
<tr height="24">
<td bgcolor="<%=Opt_TR_BGColor%>" align="center">是否允许试用</td>
<td bgcolor="<%=Opt_TD_BGColor2%>">
<%
if Rs("IfTest")="Y" then
strIfTest1="checked"
strIfTest2=""
else
strIfTest1=""
strIfTest2="checked"
end if
%>
<input type="radio" name="IfTest" value="1" <%=strIfTest1%> >允许
<input type="radio" name="IfTest" value="2" <%=strIfTest2%>>不允许
</td>
</tr>
<%
'if Rs("STCode")="1" or Rs("STCode")="2" or Rs("STCode")="3" then
%>
<tr height="30">
<td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
<strong>服务权限</strong>
</td>
</tr>
<tr>
<td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<%
Set Rs2= Server.CreateObject("ADODB.Recordset")
strSQL="Select * from T_DNS_ProdType"
Rs1.open strSQL,Cn
while not Rs1.eof
strSQL="Select * from T_DNS_ProdPower where ProdCode='" & Rs("ProdCode") & +_
"' and BPCode in (Select BPCode from T_DNS_ProdBasicPower where TypeCode='" & Rs1("TypeCode") & "')"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -