addpostsadfasd.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.form("编号") <> "") Then 
  Recordset1__MMColParam = request.form("编号")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM 用户基本自资料vfsrgftvrtrefverfcadfc  WHERE 编号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
if not Recordset1.eof or not  Recordset1.bof then 
%>
<script>
{
alert("该用户编号已存在！");history.go(-1)
}
</script>
<%
response.end()
%>
<%else
dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") '获得真实IP这样的话在本地，在服务器测试都没有问题了

Recordset1.addnew
Recordset1("编号")=request.form("编号")
Recordset1("姓名")=request.form("姓名")
Recordset1("曾用名")=request.form("曾用名")
Recordset1("性别")=request.form("性别")
Recordset1("出生日期")=request.form("qishi")
Recordset1("婚姻状况")=request.form("婚姻状况")
Recordset1("籍贯")=request.form("籍贯")
Recordset1("户口所在地")=request.form("户口所在地")
Recordset1("民族")=request.form("民族")
Recordset1("身高")=request.form("身高")
Recordset1("体重")=request.form("体重")
Recordset1("政治面貌")=request.form("政治面貌")
Recordset1("身份证号")=request.form("身份证号")
Recordset1("健康状况")=request.form("健康状况")
Recordset1("血型")=request.form("血型")
Recordset1("手机")=request.form("手机")
Recordset1("电子邮件")=request.form("电子邮件")
Recordset1("毕业学校")=request.form("毕业学校")
Recordset1("专业")=request.form("专业")
Recordset1("学历")=request.form("学历")
Recordset1("毕业日期")=request.form("毕业日期")
Recordset1("外语语种")=request.form("外语语种")
Recordset1("外语水平")=request.form("外语水平")
Recordset1("获得证书外语")=request.form("获得证书外语")
Recordset1("学位")=request.form("学位")
Recordset1("计算机水平")=request.form("计算机水平")
Recordset1("计算机擅长")=request.form("计算机擅长")
Recordset1("获得证书计算机")=request.form("获得证书计算机")
Recordset1("家庭地址")=request.form("家庭地址")
Recordset1("邮编家庭")=request.form("邮编家庭")
Recordset1("家庭电话")=request.form("家庭电话")
Recordset1("普通话水平")=request.form("普通话水平")
Recordset1("现住址")=request.form("现住址")
Recordset1("邮编现住址")=request.form("邮编现住址")
Recordset1("目前电话")=request.form("目前电话")
Recordset1("家庭情况")=request.form("家庭情况")
Recordset1("档案存放地")=request.form("档案存放地")
Recordset1("何时开始参加工作")=request.form("何时开始参加工作")
Recordset1("何时到本单位工作")=request.form("何时到本单位工作")
Recordset1("职称")=request.form("职称")
Recordset1("本单位工龄")=request.form("本单位工龄")
Recordset1("累计工龄")=request.form("累计工龄")
Recordset1("档案存放地")=request.form("档案存放地")
Recordset1("部门")=request.form("userdept")
Recordset1("职务")=request.form("职务")
Recordset1("录入人")=request.form("录入人")
Recordset1("添加该记录所使用的帐号")=session("userssdfgfhtrh")
Recordset1("添加该记录所使用的帐号人姓名")=session("names")
Recordset1("添加该记录所使用的帐号人部门")=session("bumen")
Recordset1("何时到本单位工作")=request.form("何时到本单位工作")
Recordset1("添加IP")=ip
Recordset1("添加日期")=date()
Recordset1("备注")=request("备注")
Recordset1.update
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<script>
{
alert("用户信息添加成功！");window.location.href="addnew.asp"
}
</script>
<%end if%>

<%
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%>