yewu_upd.asp

易方4.0程序+邮局接口+序列号+销售系统

For i=0 To UBound(TmAy)-1
Response.Write "<a href=Pdt_Upd.asp?Sign=" & TmAy(i) & ">"
Response.Write Conn.QueryItem("EfangPdt","Pdt_Name","Pdt_Sign='"&TmAy(i)&"'") & "</a><br>"
Next
%></td>
          </tr>
          <tr>
            <td height="28" align="right">开始时间：</td>
            <td height="28"><input name="YeWu_STime" type="text" class="InputOne" id="YeWu_User4" value="<%=YeWuData("YeWu_STime")%>" size="20"></td>
            <td height="28" align="right">结束时间：</td>
            <td height="28"><input name="YeWu_ETime" type="text" class="InputOne" id="YeWu_User4" value="<%=YeWuData("YeWu_ETime")%>" size="20"></td>
          </tr>
          <tr> 
            <td height="28" align="right"> 会员帐号： </td>
            <td height="28"> <%=YeWuData("YeWu_User")%> </td>
            <td height="28" align="right" width="13%"> <font color="#0000CC"> 
              <% If Mid(session("SessAdminPOP"),56,1)=1 Then Response.Write"*"%>
            专员：</font></td>
            <td height="28"> <input name="YeWu_WUser" type="text" class="InputOne" id="YeWu_WUser" value="<%=YeWuData("YeWu_WUser")%>" size="10"> 
              <%
Set ALData = Conn.Query("EfangAdmin")
Do while not (ALData.EOF or ALData.BOF)
	WUserList = WUserList & "<option value=" & ALData("Admin_User") & ">" & ALData("Admin_User") & "</option>"
ALData.movenext
Loop
Set ALData=Nothing
%> <select name="WUSer_Pick" size="1" id="User_WUSer_Pick" style="width: 79px" onClick="PickWUser(this.options[this.options.selectedIndex].value);">
                <option value="">未选择</option>
            <%=WUserList%> </select> <script language="JavaScript">
<!--
EForm.WUSer_Pick.value = "<%=YeWuData("YeWu_WUser")%>";
function PickWUser(ppid){
EForm.YeWu_WUser.value = ppid;
}
-->
</script> </td>
          </tr>
          <tr> 
            <td height="28" align="right">商品编号：</td>
            <td height="28"><a href="Pdt_Upd.asp?Sign=<%=YeWuData("YeWu_PSign")%>" class="CommonFace">
            <%
TmStr = Conn.QueryItem("EfangPdt","Pdt_Name","Pdt_Sign='" & YeWuData("YeWu_PSign") & "'")
If Len(TmStr)>0 Then
Response.Write TmStr
Else
Response.Write YeWuData("YeWu_PSign")
End If
%></a></td>
            <td height="28" align="right" width="13%">类目编号：</td>
            <td height="28"><a href="Pdt_SortUpd.asp?Sign=<%=YeWuData("YeWu_PSort")%>" class="CommonFace"><%=Conn.QueryItem("EfangPdtSort","PSort_Name","PSort_Sign='" & YeWuData("YeWu_PSort") & "'")%></a></td>
          </tr>
          <tr> 
            <td height="28" align="right">单价：</td>
            <td height="28"><font color="#FF0000"><%=YeWuData("YeWu_Pri")%></font> 元　　　数量: <font color="#FF0000"><%=YeWuData("YeWu_Numy")%></font></td>
            <td height="28" align="right" width="13%">总金额：</td>
            <td height="28"><font color="#FF0000"><%=YeWuData("YeWu_Sum")%></font> 元</td>
          </tr>
          <%If YeWuData("YeWu_PSort")="DM" Then %>
          <tr> 
            <td height="28" align="right">域名：</td>
            <td height="28"><input name="YeWu_DName" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DName")%>" size="20" readonly="true"><input name="YeWu_DSuff" type="text" class="InputOne" id="YeWu_USuff3" value="<%=YeWuData("YeWu_DSuff")%>" size="7" readonly="true"></td>
            <td height="28" align="right" width="13%">管理密码：</td>
            <td height="28">
			<input name="YeWu_Pass" type="text" class="InputOne" id="YeWu_IP" value="<%=YeWuData("YeWu_Pass")%>" size="20">&nbsp;<input type="button" onclick="<% ="window.open('?Cmd=PassUpd&Sign=" & Sign & "&Domain=" & YeWuData("YeWu_DName") & "&DomSuff=" & YeWuData("YeWu_DSuff") & "','_self')" %>" value="同步密码"></td>
          </tr>
          <tr> 
            <td height="28" align="right">域名所有者：</td>
            <td height="28" colspan="3"><input name="YeWu_DomEnName" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DomEnName")%>" size="40">
            （英文） </td>
          </tr>
          <tr> 
            <td height="28" align="right">姓：</td>
            <td height="28" colspan="3"><input name="YeWu_DomEnXing" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DomEnXing")%>" size="40">
            （英文） </td>
          </tr>
          <tr> 
            <td height="28" align="right">名：</td>
            <td height="28" colspan="3"><input name="YeWu_DomEnMing" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DomEnMing")%>" size="40">
            （英文） </td>
          </tr>
          <tr> 
            <td height="28" align="right">域名所有者：</td>
            <td height="28" colspan="3"><input name="YeWu_DomZhName" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DomZhName")%>" size="40">
            （中文）</td>
          </tr>
          <tr> 
            <td height="28" align="right">姓：</td>
            <td height="28" colspan="3"><input name="YeWu_DomZhXing" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DomZhXing")%>" size="40">
            （中文）</td>
          </tr>
          <tr> 
            <td height="28" align="right">名：</td>
            <td height="28" colspan="3"><input name="YeWu_DomZhMing" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DomZhMing")%>" size="40">
            （中文）</td>
          </tr>
          <%elseIf YeWuData("YeWu_PSort")="HT" Then%>
          <tr> 
            <td height="29" align="right">空间大小：</td>
            <td> <input name="YeWu_MaxDisk" type="text" class="InputOne" id="YeWu_MaxDisk" value="<%=YeWuData("YeWu_MaxDisk")%>" size="20">            </td>
            <td align="right" width="13%">个数：</td>
            <td> <input name="YeWu_MaxNum" type="text" class="InputOne" id="YeWu_MaxNum" value="<%=YeWuData("YeWu_MaxNum")%>" size="20">            </td>
          </tr>
          <tr> 
            <td height="28" align="right">IP：</td>
            <td height="28"><input name="YeWu_IP" type="text" class="InputOne" id="YeWu_Url2" value="<% YeWuIP = YeWuData("YeWu_IP") : response.write YeWuIP %>" size="20"></td>
            <td height="28" align="right" width="13%">管理密码：</td>
            <td height="28"><input name="YeWu_Pass" type="text" class="InputOne" id="YeWu_IP" value="<%=YeWuData("YeWu_Pass")%>" size="20"></td>
          </tr>
          <tr> 
            <td height="28" align="right">域名：</td>
            <td height="28"><input name="YeWu_DName" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DName")%>" size="20"></td>
            <td height="28" align="right" width="13%">站点管理：</td>
            <td height="28"><a href="siteAdmin.asp?Cmd=start&ftpuser=<% =YeWuData("YeWu_FtpUser") %>&IP=<% =YeWuIP %>">启动</a> <a href="siteAdmin.asp?Cmd=stop&ftpuser=<% =YeWuData("YeWu_FtpUser") %>&IP=<% =YeWuIP %>">停止</a> <a href="siteAdmin.asp?Cmd=restart&ftpuser=<% =YeWuData("YeWu_FtpUser") %>&IP=<% =YeWuIP %>" onclick="javascript:if(!confirm('真的要重新开通该业务对应的站点吗？'))return false;">重新开通</a> <a href="siteAdmin.asp?Cmd=del&ftpuser=<% =YeWuData("YeWu_FtpUser") %>&IP=<% =YeWuIP %>" onclick="javascript:if(!confirm('真的要删除该业务对应的站点吗？'))return false;">删除站点</a></td>
          </tr>
          <tr> 
            <td height="28" align="right">域名头：</td>
            <td height="28"><input name="YeWu_DHead" type="text" class="InputOne" id="YeWu_UHead2" value="<%=YeWuData("YeWu_DHead")%>" size="20"></td>
            <td height="28" align="right" width="13%">FTP帐号：</td>
            <td height="28"><input name="YeWu_FtpUser" type="text" class="InputOne" id="YeWu_FtpUser" value="<%=YeWuData("YeWu_FtpUser")%>" size="20"></td>
          </tr>
          <%elseIf YeWuData("YeWu_PSort")="EM" Then%>
          <tr> 
            <td height="29" align="right">空间大小：</td>
            <td> <input name="YeWu_MaxDisk" type="text" class="InputOne" id="YeWu_MaxDisk" value="<%=YeWuData("YeWu_MaxDisk")%>" size="20">            </td>
            <td align="right" width="13%">个数：</td>
            <td> <input name="YeWu_MaxNum" type="text" class="InputOne" id="YeWu_MaxNum" value="<%=YeWuData("YeWu_MaxNum")%>" size="20">            </td>
          </tr>
          <tr> 
            <td height="28" align="right">IP：</td>
            <td height="28"><input name="YeWu_IP" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_IP")%>" size="20"></td>
            <td height="28" align="right" width="13%">管理密码：</td>
            <td height="28"><input name="YeWu_Pass" type="text" class="InputOne" id="YeWu_IP" value="<%=YeWuData("YeWu_Pass")%>" size="20"></td>
          </tr>
          <tr> 
            <td height="28" align="right">域名：</td>
            <td height="28"><input name="YeWu_DName" type="text" class="InputOne" id="YeWu_Url2" value="<%=YeWuData("YeWu_DName")%>" size="20"></td>
            <td height="28" align="right" width="13%"></td>
            <td height="28"></td>
          </tr>
		  <%End If%>
          <tr bordercolor="#FF0000"> 
            <td width="14%" height="24" align="right"> 备注：</td>
            <td colspan="3"> <textarea name="YeWu_Memo" cols="60" rows="5" wrap="VIRTUAL"><%=YeWuData("YeWu_Memo")%></textarea>            </td>
          </tr>
          <tr> 
            <td colspan="4" height="33" align="center"><% If Mid(session("SessAdminPOP"),54,1)=1 Then %> <input type='submit' value=' 修 改 ' name='amend' class="ButtonOne"> 
              <%End If%> <% If Mid(session("SessAdminPOP"),53,1)=1 Then %> <input class=ButtonOne name=delete2 type=button value=" 删 除 " onClick="if(!confirm('确认要删除此业务？')){return false;}else{document.location='?Cmd=Del&Sign=<%=Sign%>';}"> 
            <%End If%> </td>
          </tr></form>
        </table></td>
    </tr>

  </table>
  </div></td>
    </tr>
  </table></td>
	</tr>
</table>
<%Set YeWuData = Nothing%>
<br>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
	document.parentWindow.onresize = fn_RejustViewPanel ;
	fn_RejustViewPanel ( ) ;
	//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>