modimailinfodo.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 47 行

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request.Form("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
strSQL="Select * from V_MailList Where PostID='" & PostID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Rs.Close
	Set Rs=Nothing
	Cn.Close
	Set Cn=Nothing
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
	Call PrintPageBottom
	Response.End
End if
%>
<!--#include file="MailMenu.asp"-->
<br><br><br>
<%

if ChangeMailInfo(Rs("ServerIP"),rs("BPostDN"),Request.Form("CorpName"), Request.Form("CorpAddr"),Request.Form("CorpPC"),Request.Form("CorpTel"),Request.Form("CorpFax"))<>0 then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
else
	strSQL="Update T_DNS_AllPost Set CorpName='" & Request.Form("CorpName") & "',CorpAddr='" & Request.Form("CorpAddr") & "',CorpPC='" & Request.Form("CorpPC") & "',CorpTel='" & Request.Form("CorpTel") & "',CorpFax='" & Request.Form("CorpFax") & "' Where PostID='" & PostID & "'"
	Cn.Execute(strSQL)
	Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllPost','修改邮局信息','" & PostID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
	response.write "<P align='center' class='titletext'>邮局信息修改成功! </p>"
end if

%>

<%
Rs.Close
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>