uppost.asp

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

<%Response.Expires = -1
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 levels__MMColParam
levels__MMColParam = "1"
If (Session("names")  <> "") Then 
  levels__MMColParam = Session("names") 
End If
%>
<%
Dim levels
Dim levels_numRows
Set levels = Server.CreateObject("ADODB.Recordset")
levels.ActiveConnection = MM_oavbsconn_STRING
levels.Source = "SELECT 姓名,操作名称  FROM levelssdfgsfgtrgrthe5fgbdnjyu76  WHERE 姓名 = '" + Replace(levels__MMColParam, "'", "''") + "' and 操作名称='修改人事档案'"
levels.CursorType = 0
levels.CursorLocation = 2
levels.LockType = 1
levels.Open()
levels_numRows = 0
%>
<%if not levels.eof or not levels.bof then%>
<%if request("姓名")="" then %>
<%Response.Write("<script>alert(""请输入姓名！"");location=""javascript:history.back()"";</script>") 
response.end()
end if%>


<%if request("userdept")="%" then %>
<%Response.Write("<script>alert(""请选择部门！"");location=""javascript:history.back()"";</script>") 
response.end()
end if%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request("编号") <> "") Then 
  Recordset1__MMColParam = Request("编号")
End If
%>
<%
Dim Recordset1__varid
Recordset1__varid = "1"
If (request("id") <> "") Then 
  Recordset1__varid = request("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT id  FROM 用户基本自资料vfsrgftvrtrefverfcadfc  WHERE 编号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and id<>" + Replace(Recordset1__varid, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
%>
<%if not Recordset1.eof or not Recordset1.bof then%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%Response.Write("<script>alert(""该用户编号已存在！"");location=""javascript:history.back()"";</script>") 
response.end()
end if%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request("ID") <> "") Then 
  Recordset2__MMColParam = Request("ID")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_oavbsconn_STRING
Recordset2.Source = "SELECT *  FROM 用户基本自资料vfsrgftvrtrefverfcadfc  WHERE ID = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
%>
<%
dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") '获得真实IP这样的话在本地，在服务器测试都没有问题了
Recordset2("编号")=request("编号")
Recordset2("姓名")=request("姓名")
Recordset2("曾用名")=request("曾用名")
Recordset2("性别")=request("性别")
Recordset2("出生日期")=request("qishi")
Recordset2("婚姻状况")=request("婚姻状况")
Recordset2("籍贯")=request("籍贯")
Recordset2("户口所在地")=request("户口所在地")
Recordset2("民族")=request("民族")
Recordset2("身高")=request("身高")
Recordset2("体重")=request("体重")
Recordset2("政治面貌")=request("政治面貌")
Recordset2("身份证号")=request("身份证号")
Recordset2("健康状况")=request("健康状况")
Recordset2("血型")=request("血型")
Recordset2("手机")=request("手机")
Recordset2("电子邮件")=request("电子邮件")
Recordset2("毕业学校")=request("毕业学校")
Recordset2("专业")=request("专业")
Recordset2("学历")=request("学历")
Recordset2("毕业日期")=request("毕业日期")
Recordset2("外语语种")=request("外语语种")
Recordset2("外语水平")=request("外语水平")
Recordset2("获得证书外语")=request("获得证书外语")
Recordset2("学位")=request("学位")
Recordset2("计算机水平")=request("计算机水平")
Recordset2("计算机擅长")=request("计算机擅长")
Recordset2("获得证书计算机")=request("获得证书计算机")
Recordset2("家庭地址")=request("家庭地址")
Recordset2("邮编家庭")=request("邮编家庭")
Recordset2("家庭电话")=request("家庭电话")
Recordset2("普通话水平")=request("普通话水平")
Recordset2("现住址")=request("现住址")
Recordset2("邮编现住址")=request("邮编现住址")
Recordset2("目前电话")=request("目前电话")
Recordset2("家庭情况")=request("家庭情况")
Recordset2("档案存放地")=request("档案存放地")
Recordset2("何时开始参加工作")=request("何时开始参加工作")
Recordset2("何时到本单位工作")=request("何时到本单位工作")
Recordset2("职称")=request("职称")
Recordset2("本单位工龄")=request("本单位工龄")
Recordset2("累计工龄")=request("累计工龄")
Recordset2("档案存放地")=request("档案存放地")
Recordset2("部门")=request("部门")
Recordset2("职务")=request("职务")
Recordset2("录入人")=request("录入人")
Recordset2("添加该记录所使用的帐号")=session("userssdfgfhtrh")
Recordset2("添加该记录所使用的帐号人姓名")=session("names")
Recordset2("添加该记录所使用的帐号人部门")=session("bumen")
Recordset2("何时到本单位工作")=request("何时到本单位工作")
Recordset2("更新IP")=ip
Recordset2("更新时间")=now()
Recordset2("更新日期")=date()
Recordset2("备注")=request("备注")

Recordset2.update
Recordset2_numRows = 0

%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<script>
{
alert("用户信息更新成功！");window.location.href="listuserl.asp"
}
</script>
<%
levels.Close()
Set levels = Nothing
%>
<%else%>
<%
levels.Close()
Set levels = Nothing
%>
<%
response.write"<script>alert('"&Session("names")&"很抱歉,您没有修改人事档案的权限。');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
%>
<%response.end()
end if%>