📄 pdt_upd.asp
字号:
</tr>
<%End If%>
<%
Set TmData = Conn.Query("EfangLevel","Level_Sign='Level5'")
If TmData("Level_Enable") = True Then
%>
<tr>
<td height="29" align="right"> <%=TmData("Level_Name")& "："%> </td>
<td colspan="3"><input name="Pdt_Level5" type="text" class="InputOne" value="<%=PdtData("Pdt_Level5")%>" size="10">
元
<%Set TmData = Nothing%> </td>
</tr>
<%End If%>
<%
Set TmData = Conn.Query("EfangLevel","Level_Sign='Level6'")
If TmData("Level_Enable") = True Then
%>
<tr>
<td height="29" align="right"> <%=TmData("Level_Name")& "："%> </td>
<td colspan="3"><input name="Pdt_Level6" type="text" class="InputOne" value="<%=PdtData("Pdt_Level6")%>" size="10">
元
<%Set TmData = Nothing%> </td>
</tr>
<%End If%>
<%
Set TmData = Conn.Query("EfangLevel","Level_Sign='Level7'")
If TmData("Level_Enable") = True Then
%>
<tr>
<td height="29" align="right"> <%=TmData("Level_Name")& "："%> </td>
<td colspan="3"><input name="Pdt_Level7" type="text" class="InputOne" value="<%=PdtData("Pdt_Level7")%>" size="10">
元
<%Set TmData = Nothing%> </td>
</tr>
<%End If%>
<%
Set TmData = Conn.Query("EfangLevel","Level_Sign='Level8'")
If TmData("Level_Enable") = True Then
%>
<tr>
<td height="29" align="right"> <%=TmData("Level_Name")& "："%> </td>
<td colspan="3"><input name="Pdt_Level8" type="text" class="InputOne" value="<%=PdtData("Pdt_Level8")%>" size="10">
元
<%Set TmData = Nothing%> </td>
</tr>
<%End If%>
<%
Set TmData = Conn.Query("EfangLevel","Level_Sign='Level9'")
If TmData("Level_Enable") = True Then
%>
<tr>
<td height="29" align="right"> <%=TmData("Level_Name")& "："%> </td>
<td colspan="3"><input name="Pdt_Level9" type="text" class="InputOne" value="<%=PdtData("Pdt_Level9")%>" size="10">
元
<%Set TmData = Nothing%> </td>
</tr>
<%End If%>
<tr>
<td height="23" align="right">域名后辍：</td>
<td colspan="3" > <input name="Pdt_DSuff" type="text" class="InputOne" id="Pdt_MaxDisk" value="<%=PdtData("Pdt_DSuff")%>" size="38">
（多个后辍用“/”号分割） </td>
</tr>
<tr>
<td height="29" align="right">空间大小：</td>
<td > <input name="Pdt_MaxDisk" type="text" class="InputOne" id="Pdt_KIP" value="<%=PdtData("Pdt_MaxDisk")%>" size="18">
</td>
<td align="right">个数：</td>
<td > <input name="Pdt_MaxNum" type="text" class="InputOne" id="Pdt_KIP2" value="<%=PdtData("Pdt_MaxNum")%>" size="18">
</td>
</tr>
<tr>
<td height="29" align="right">赠送商品1：</td>
<td ><span class="10pt">
<%
Set LData=Conn.Query("EfangPdt","Pdt_Sign <> '" & Sign & "' And Pdt_Sort<>'DM' Order By Pdt_Sort,Pdt_Desc")
Do while not (LData.EOF or LData.BOF)
PdtList = PdtList & "<option value=" & LData("Pdt_Sign") & ">" & LData("Pdt_Name") & "</option>"
LData.movenext
Loop
Set LData=Nothing
%>
<select name="SongA" size="1" id="SongA">
<option value="">未选择</option>
<%=PdtList%>
</select>
</span></td>
<td align="right">赠送商品2：</td>
<td ><span class="10pt">
<select name="SongB" size="1">
<option value="">未选择</option>
<%=PdtList%>
</select>
</span></td>
</tr>
<tr>
<td width="96" height="29" align="right">赠送商品3：</td>
<td width="190"><span class="10pt">
<select name="SongC" size="1">
<option value="">未选择</option>
<%=PdtList%>
</select>
</span> </td>
<td width="88" align="right">赠送商品4：</td>
<td width="187"><span class="10pt">
<select name="SongD" size="1">
<option value="">未选择</option>
<%=PdtList%>
</select>
<script language="JavaScript">
<!--
<%
If IsNull(PdtData("Pdt_Song"))=False Then TmAy = split(PdtData("Pdt_Song"),"=")
If IsArray(TmAy)=True Then
TmNum = UBound(TmAy)
If TmNum >0 Then SongA = TmAy(0)
If TmNum >1 Then SongB = TmAy(1)
If TmNum >2 Then SongC = TmAy(2)
If TmNum >3 Then SongD = TmAy(3)
End If
%>
EForm.SongA.value = "<%=SongA%>";
EForm.SongB.value = "<%=SongB%>";
EForm.SongC.value = "<%=SongC%>";
EForm.SongD.value = "<%=SongD%>";
-->
</script>
</span> </td>
</tr>
<%If PdtData("Pdt_Sort") = "HT" Then%>
<tr>
<td height="20" colspan="4"><strong><font color="#FF0000">以下为拥有自己服务器的设置，请先在 系统管理 －服务器管理 里面添加服务器并设置接口密码。</font></strong></td>
</tr>
<tr>
<td height="29" align="right">实时开通：</td>
<td ><span class="10pt">
<select name="Pdt_KPick" size="1" id="select8">
<option value="True">是</option>
<option value="False">否</option>
</select>
<script language="JavaScript">
EForm.Pdt_KPick.value = "<%=PdtData("Pdt_KPick")%>";
</script>
</span> </td>
<td align="right">选择服务器：</td>
<td > <%
Set LData = Conn.Query("EfangServer","Order By Svr_ID")
SvrList=""
Do while not (LData.EOF or LData.BOF)
SvrList = SvrList & "<option value=" & LData("Svr_ID") & ">" & LData("Svr_Name") & "</option>"
LData.movenext
Loop
Set LData=Nothing
%> <select name="Pdt_KSvr" size="1" id="select2">
<option value="">未选择</option>
<%=SvrList%> </select> <script language="JavaScript">
<!--
EForm.Pdt_KSvr.value = "<%=PdtData("Pdt_KSvr")%>";
-->
</script> </td>
</tr>
<tr>
<td height="23" align="right">主机类型：</td>
<td colspan="3"> <input name="Pdt_KStyle" type="text" class="InputOne" id="Pdt_MaxDisk22" value="<%=PdtData("Pdt_KStyle")%>" size="18">
（请填写与虚拟主机管理系统中相对应的编号，不填写为默认类型） </td>
</tr>
<%End If%>
<tr>
<td height="20" colspan="4"><font color="#FFFFFF"><strong><font color="#FF0000">
<%
If PdtData("Pdt_Sort") = "EM" Then
Response.Write "需要实时开通邮局请填写，填写前请先修改邮局自动开通接口文件"
Else
Response.Write "以下为下级代理商向上级代理商提交业务使用,如果有服务器此项不用填写。"
End If%></font></strong></font></td>
</tr>
<tr>
<td height="29" align="right">实时提交：</td>
<td ><span class="10pt">
<select name="Pdt_TPick" size="1" id="select3">
<option value="True">是</option>
<option value="False">否</option>
</select>
<script language="JavaScript">
EForm.Pdt_TPick.value = "<%=PdtData("Pdt_TPick")%>";
</script>
</span></td>
<td align="right"> </td>
<td ><span class="10pt"> </span></td>
</tr>
<tr>
<td height="29" align="right">提交域名或IP：</td>
<td ><span class="10pt">
<input name="Pdt_TIP" type="text" class="InputOne" id="Pdt_KIP4" value="<%=PdtData("Pdt_TIP")%>" size="18">
</span> </td>
<td align="right">提交业务编号：</td>
<td ><span class="10pt">
<input name="Pdt_TSign" type="text" class="InputOne" id="Pdt_KSign2" value="<%=PdtData("Pdt_TSign")%>" size="18">
</span> </td>
</tr>
<tr>
<td height="29" align="right">提交-帐号：</td>
<td ><span class="10pt">
<input name="Pdt_TUser" type="text" class="InputOne" id="Pdt_KUser2" value="<%=PdtData("Pdt_TUser")%>" size="18">
</span> </td>
<td align="right">提交接口密码：</td>
<td ><span class="10pt">
<input name="Pdt_TPass" type="text" class="InputOne" id="Pdt_KPass2" value="<%=PdtData("Pdt_TPass")%>" size="18">
<%
If PdtData("Pdt_Sort") = "EM" Then
Response.Write "（帐号密码在邮局接口文件里）"
Else
Response.Write "（会员中心－资料修改处取得）"
End If%></span> </td>
</tr>
<tr>
<td height="20" colspan="4"><hr></td>
</tr>
<tr>
<td height="23" align="right">简介图片：</td>
<td colspan="3"><img src="../kfile/pic/<%=Sign%>_IntroPic.gif"> <a href="#" class="CommonFace" onclick="window.open('Pdt_UpdPic.asp?Sign=<%=Sign%>',null,'width=340,height=240,scrollbars=yes,resizable=yes');">修改简介图片</a></td>
</tr>
<tr>
<td height="23" align="right">注意事项：</td>
<td colspan="3"> <input name="Pdt_Notice" type="text" class="InputOne" id="Pdt_Notice" value="<%=PdtData("Pdt_Notice")%>" size="66"> </td>
</tr>
<tr>
<td height="23" align="right">简介：</td>
<td colspan="3"> <textarea name="Pdt_Intro1" cols="55" rows="3" wrap="VIRTUAL" id="Pdt_Intro1"><%=PdtData("Pdt_Intro1")%></textarea> </td>
</tr>
<tr>
<td height="23" align="right">详细说明：</td>
<td colspan="3"> <textarea name="Pdt_Intro2" cols="55" rows="4" wrap="VIRTUAL" id="Pdt_Intro2"><%=PdtData("Pdt_Intro2")%></textarea> </td>
</tr>
<tr>
<td height="23" align="right">备注：</td>
<td colspan="3"> <textarea name="Pdt_Memo" cols="55" rows="4" wrap="VIRTUAL" id="Pdt_Memo"><%=PdtData("Pdt_Memo")%></textarea></td>
</tr>
<tr>
<td colspan="4" height="33" align="center">
<input type='submit' value=' 修 改 ' name='amend' class="ButtonOne">
<input class=ButtonOne name=delete type=button value=" 删 除 " onClick="if(!confirm('确认要删除此商品吗？')){return false;}else{document.location='?Cmd=Del&Sign=<%=Sign%>';}"> </td>
</tr>
</table>
</td>
</tr>
</table> </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 + -