uppostforenone.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<%  
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim bumenpaixu__MMColParam
bumenpaixu__MMColParam = "1"
If (session("bumen") <> "") Then 
  bumenpaixu__MMColParam = session("bumen")
End If
%>
<%
Dim bumenpaixu
Dim bumenpaixu_numRows
Set bumenpaixu = Server.CreateObject("ADODB.Recordset")
bumenpaixu.ActiveConnection = MM_oavbsconn_STRING
bumenpaixu.Source = "SELECT 排序  FROM sms部门表  WHERE 部门 = '" + Replace(bumenpaixu__MMColParam, "'", "''") + "'"
bumenpaixu.CursorType = 0
bumenpaixu.CursorLocation = 2
bumenpaixu.LockType = 1
bumenpaixu.Open()
bumenpaixu_numRows = 0
%>
<%if not bumenpaixu.eof or not bumenpaixu.bof then
dim bumenpaixus
bumenpaixus=bumenpaixu("排序")
end if
%>
<%
Dim userpaixu__MMColParam
userpaixu__MMColParam = "1"
If (session("userssdfgfhtrh") <> "") Then 
  userpaixu__MMColParam = session("userssdfgfhtrh")
End If
%>
<%
Dim userpaixu
Dim userpaixu_numRows
Set userpaixu = Server.CreateObject("ADODB.Recordset")
userpaixu.ActiveConnection = MM_oavbsconn_STRING
userpaixu.Source = "SELECT 排序  FROM usertertggbng  WHERE usersdsfg56 = '" + Replace(userpaixu__MMColParam, "'", "''") + "'"
userpaixu.CursorType = 0
userpaixu.CursorLocation = 2
userpaixu.LockType = 1
userpaixu.Open()
if not userpaixu.eof or not userpaixu.bof then
dim upaixu
upaixu=userpaixu("排序")
end if
userpaixu_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (session("userssdfgfhtrh") <> "") Then 
  Recordset1__MMColParam = session("userssdfgfhtrh")
End If
%>
<%dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") '获得真实IP这样的话在本地，在服务器测试都没有问题了

Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM 通讯录  WHERE 个人帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
if not Recordset1.eof or not Recordset1.bof then 
if Recordset1("锁定否")="否" then 

if request("办公电话")<>Recordset1("办公电话") then
Recordset1("办公电话")=request("办公电话")
dim s
s=s &"办公电话变更为: " &request("办公电话")


end if

if request("手机")<>Recordset1("手机1") then
Recordset1("手机1")=request("手机")
s=s&"  手机变更为:"&request("手机")
end if

if request("email")<>Recordset1("email") then
s=s&"  email变更为:"&request("email")
Recordset1("email")=request("email")
end if
if request("部门")<>Recordset1("部门") then
s=s&"  部门变更为:"&request("部门")
Recordset1("部门")=request("部门")
end if
Recordset1("小灵通")=request("小灵通")
Recordset1("集群号")=request("集群号")

Recordset1("姓名")=request("姓名")
Recordset1("个人帐号")=session("userssdfgfhtrh")
Recordset1("部门排序")=bumenpaixus
if request("单位")<>Recordset1("单位") then
s=s&"  单位变更为:"&request("单位")
Recordset1("单位")=request("单位")
end if
if request("分机")<>Recordset1("分机") then
s=s&"  分机变更为:"&request("分机")
Recordset1("分机")=request("分机")
end if
if request("地址")<>Recordset1("地址1") then
s=s&"  地址变更为:"&request("地址")
Recordset1("地址1")=request("地址")
end if
if request("传真")<>Recordset1("传真") then
Recordset1("传真")=request("传真")
s=s&"  传真变更为:"&request("传真")
end if
if request("qq")<>Recordset1("qq") then
s=s&"  QQ变更为:"&request("QQ")

Recordset1("QQ")=request("QQ")
END IF

if request("备注")<>Recordset1("备注") then
s=s&"  备注变更为:"&request("备注")

Recordset1("备注")=request("备注")
end if
Recordset1("用户排序")=upaixu
if request("职务")<>Recordset1("职务") then
s=s&"  职务变更为:"&request("职务")

Recordset1("职务")=request("职务")
end if

if request("msn")<>Recordset1("msn") then
s=s&"  msn变更为:"&request("msn")

Recordset1("MSN")=request("MSN")
end if
if request("直拨电话")<>Recordset1("直拨电话") then
s=s&"  直拨电话变更为:"&request("直拨电话")

Recordset1("直拨电话")=request("直拨电话")
end if


if request("qq公开否")="是" then 
Recordset1("qq公开否")=request("qq公开否")
else
Recordset1("qq公开否")="否"

end if
Recordset1("职务")=request("职务")
if request("msn公开否")="是" then 

Recordset1("msn公开否")=request("msn公开否")
else
Recordset1("msn公开否")="否"
end if
if request("email公开否")="是" then 

Recordset1("email公开否")=request("email公开否")
else
Recordset1("email公开否")="否"
end if
Recordset1("更新ip")=ip
Recordset1("更新时间")=now()
Recordset1("更新日期")=date()

if request("临时提交")="是" then 

Recordset1("用户临时提交否")="是"
else
Recordset1("用户临时提交否")="否"
end if

Recordset1.update
Recordset1_numRows = 0
%>
<%
Dim up__MMColParam
up__MMColParam = "1"
If (session("userssdfgfhtrh") <> "") Then 
  up__MMColParam = session("userssdfgfhtrh")
End If
%>
<%if s<>"" then
Dim up
Dim up_numRows

Set up = Server.CreateObject("ADODB.Recordset")
up.ActiveConnection = MM_oavbsconn_STRING
up.Source = "SELECT *  FROM txlgupdasd  WHERE 操作人帐号 = '" + Replace(up__MMColParam, "'", "''") + "'"
up.CursorType = 0
up.CursorLocation = 3
up.LockType = 3
up.Open()
if up.eof and up.bof then
up.addnew
end if
up("事件名称")=up("事件名称")&s
up("发生IP")=ip
up("操作人帐号")=session("userssdfgfhtrh")
up("操作人姓名")=session("names")
up("操作人部门")=session("bumen")
up("最后时间")=now()

up.update
up_numRows = 0
%>
<%
up.Close()
Set up = Nothing
end if
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<%
userpaixu.Close()
Set userpaixu = Nothing
%>
<%
bumenpaixu.Close()
Set bumenpaixu = Nothing
%>
<script>
{
alert("通讯录更新成功！");location.href="adminmyselfforen.asp"
}
</script>
<%else%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
userpaixu.Close()
Set userpaixu = Nothing
%>
<%
bumenpaixu.Close()
Set bumenpaixu = Nothing
%>
<script>
{
alert("本记录已由系统锁定，无法更新。请联系管理员。");history.go(-1)
}
</script>
<%
response.end()
end if
end if
%>