<% Option Explicit %>
<!--#include file="../../../FS_Inc/Const.asp" -->
<!--#include file="../../../FS_Inc/Function.asp"-->
<!--#include file="../../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../../FS_InterFace/MS_Function.asp" -->
<%
	Dim Conn,strShowErr
	MF_Default_Conn
	'session判断
	MF_Session_TF 
	if not MF_Check_Pop_TF("MS_Param") then Err_Show
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>配送资料</title>
<link href="../../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <tr class="hback"> 
    <td class="xingmu">系统配送须知<a href="../../../help?Lable=NS_Class_add" target="_blank" style="cursor:help;'" class="sd"><img src="../../Images/_help.gif" width="50" height="17" border="0"></a></td>
  </tr>
  <tr> 
    <td height="18" class="hback"><div align="left"><a href="Help_Mail_Infor.asp">管理首页</a> 
        | <a href="../Sys_Para_Set.asp">参数设置</a> | &nbsp;<a href="Help_Mail_Infor.asp">邮寄资料</a> 
       <!-- | <a href="../Sys_Para_Set.asp">在线支付</a> --> |&nbsp;<a href="Help_Express_Infor.asp">配送须知</a> 
        | <a href="Help_Bank_Infor.asp">银行资料</a> | <a href="../../help?Lable=MS_Help_Mail_Infor" target="_blank" style="cursor:help;'" class="sd"><img src="../../Images/_help.gif" width="50" height="17" border="0"></a></div></td>
  </tr>
</table>

  
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <form name="form1" method="post" action="">
    <%
   Dim obj_mail_rs,str_Content,lng_id
	Set obj_mail_rs = server.CreateObject(G_FS_RS)
	obj_mail_rs.open "select top 1 Content,id From FS_MS_PayMethod",Conn,1,1
	if not obj_mail_rs.eof then
	    If obj_mail_rs(0) <> "" Then
		    str_Content = Replace(obj_mail_rs(0),"%*%","'")
	    Else
		    str_Content = obj_mail_rs(0)
	    End if
		lng_id = obj_mail_rs(1)
	Else
		str_Content = ""
		lng_id = ""
	End if
	obj_mail_rs.close:set obj_mail_rs = nothing
  %>
    <tr> 
      <td colspan="2" class="xingmu">配送资料</td>
    </tr>
    <tr class="hback"> 
      <td width="15%" class="hback"> <div align="right">配送资料</div></td>
      <td width="85%" class="hback"><textarea name="Content" rows="18" id="Content" style="width:90%"><% = str_Content %></textarea></td>
    </tr>
    <tr class="hback"> 
      <td class="hback"><div align="center"> </div></td>
      <td class="hback"><input type="submit" name="Submit" value="更新配送资料"> <input type="reset" name="Submit2" value="重置"> 
        <input name="Action" type="hidden" id="Action" value="Save"> <input name="ID" type="hidden" id="ID" value="<%=lng_id%>"></td>
    </tr>
  </form>
</table>

</body>
</html>
<%
if Request.Form("Action") = "Save" then
	'Response.Write Request.Form("Content") : Response.End
	if Request.Form("Content") = "" or len(Request.Form("Content"))>10000 then
		strShowErr = "<li>内容为空或内容字数超过规定数量</li>"
		Response.Redirect("../lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	Else
		if trim(lng_id) = "" then
			dim obj_mail_rs_1
			Set obj_mail_rs_1 = server.CreateObject(G_FS_RS)
			obj_mail_rs_1.open "select * From FS_MS_PayMethod",Conn,1,3
			obj_mail_rs_1.addnew
			obj_mail_rs_1("Content") = Replace(Request.Form("Content"),"'","%*%")
			obj_mail_rs_1.update
			obj_mail_rs_1.close:set obj_mail_rs_1 = nothing
		Else
			Conn.execute("Update FS_MS_PayMethod set Content='"& Replace(Request.Form("Content"),"'","%*%") &"'")
		End if
		strShowErr = "<li>更新配送成功</li>"
		Response.Redirect("../lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	End if
End if
%>





