<% 
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
Dim StartTime,EndTime
StartTime=timer() '創(chuàng)建一個計時器,單位：毫秒,頁面開始執(zhí)行時間
%>
<%server.ScriptTimeout=1800%>
<%
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="../shenpi/upload_5xsoft.inc"-->
<!--#include file="../../Connections/oavbsconn.asp" -->

<!--#include file="../../Connections/ifr/ifrasp.asp" -->
<%'on error resume next
Server.ScriptTimeout=900
dim upload,file,formName,formPath,iCount,fileformat
set upload=new upload_5xSoft
fawenupid=upload.form("id")
%>
<%dim beizhu,fasongren,qianfa,tof,shengaoren,wenjianbiaoti,bianhao,nigaoren,jimichengdu,yinfariqi,fenshu,zhusongjiguan,chaosongjiguan,zhutici,daziren,jiaoduiren
 formPath=upload.form("filepath")
content=upload.form("content")
fasongren=session("names")
qianfaimg=upload.form("qianfaimg")
shenheimg=upload.form("shenheimg")

if upload.form("tof")<>"" then
tof="是"
else
tof="否"
end if
qianfa=upload.form("簽發(fā)")
shengaoren=upload.form("審稿人")
wenjianbiaoti=upload.form("文件標題")
bianhao=upload.form("編號")
nigaoren=upload.form("擬稿人")
jimichengdu=upload.form("機密程度")
yinfariqi=upload.form("印發(fā)日期")
fenshu=upload.form("共印份數(shù)")
zhusongjiguan=upload.form("主送機關")
chaosongjiguan=upload.form("抄送機關")
zhutici=upload.form("主題詞")
daziren=upload.form("打字人")
jiaoduiren=upload.form("校對人")
beizhu=upload.form("備注")
%>
<%
Dim s__q
s__q = "1"
If (upload.form("qianfaimg") <> "") Then 
  s__q = upload.form("qianfaimg")
End If
%>
<%
Dim s1__s
s1__s = "1"
If (upload.form("shenheimg")  <> "") Then 
  s1__s = upload.form("shenheimg") 
End If
%>
<%
Dim s
Dim s_numRows
Set s = Server.CreateObject("ADODB.Recordset")
s.ActiveConnection = MM_oavbsconn_STRING
s.Source = "SELECT fawenforimg as p  FROM usertertggbng  WHERE (usersdsfg56 = '" + Replace(s__q, "'", "''") + "' or names='" + Replace(s__q, "'", "''") + "')  ORDER BY usersdsfg56 ASC"
s.CursorType = 0
s.CursorLocation = 2
s.LockType = 1
s.Open()
s_numRows = 0
%>
<%if not s.eof or not s.bof then
dim p
p=s("p")
end if%>
<%
Dim s1
Dim s1_numRows
Set s1 = Server.CreateObject("ADODB.Recordset")
s1.ActiveConnection = MM_oavbsconn_STRING
s1.Source = "SELECT fawenforimg as p  FROM usertertggbng  WHERE (usersdsfg56 = '" + Replace(s1__s, "'", "''") + "' or names='" + Replace(s1__s, "'", "''") + "')  ORDER BY usersdsfg56 ASC"
s1.CursorType = 0
s1.CursorLocation = 2
s1.LockType = 1
s1.Open()
s1_numRows = 0
%>
<%if not s1.eof or not s1.bof then
dim p1
p1=s1("p")
end if%>
 <%
s1.Close()
Set s1 = Nothing
%>
<%
s.Close()
Set s = Nothing
%>
<%if upload.form("filepath")<>"" then  %>
<%
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
iCount=0
for each formName in upload.file ''列出所有上傳了的文件
 set file=upload.file(formName)  ''生成一個文件對象
	fileformat="."&Mid(file.filename,InStrRev(file.filename,".")+1)
    	fileformatxz="."&Mid(file.filename,InStrRev(file.filename,".")+1)%>
<!--#include FILE="../gw/ftyepseesrfgtsf.asp"-->
 <%
dim flength,fpath,fname
 if file.FileSize>0 then      
flength=cint(file.FileSize/1024)
fpath=formPath&File.FileName
fname=file.FileName
session("fnames")=fname
Dim datalog__MMColParam '先驗證，再上傳
datalog__MMColParam = "1"
If (file.FileName  <> "") Then 
datalog__MMColParam = file.FileName 
End If
Dim datalog__vargeter
datalog__vargeter = "1"
If (upload.form("接收部門") <> "") Then 
  datalog__vargeter = upload.form("接收部門")
End If
Dim datalog
Dim datalog_numRows
Set datalog = Server.CreateObject("ADODB.Recordset")
datalog.ActiveConnection = MM_oavbsconn_STRING
datalog.Source = "SELECT *  FROM fawenfiles  WHERE 文件名 = '" + Replace(datalog__MMColParam, "'", "''") + "'"
datalog.CursorType = 0
datalog.CursorLocation = 3
datalog.LockType = 3
datalog.Open()
if not datalog.eof then 
response.Redirect("../gw/wrong.asp")
end if
on error resume next

file.SaveAs Server.mappath(formPath&file.FileName)   ''保存文件
if err.number<>0 then
   	response.write"<script>alert('"&Session("names")&"很抱歉,您上傳的文件"&file.FileName&"含有,.;等非法字符,請去掉該類字符繼續(xù)上傳,謝謝！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
response.end()
end if

  iCount=iCount+1
  dim total
total=1
dim ks
ks="k"
%>

<%
do while total<=iCount and datalog.eof 
datalog.addnew
datalog("郵件編號")=upload.form("id")
total=total+1
datalog("文件名")= fname
datalog("文件路徑")=fpath
datalog("上傳人帳號")=Session("userssdfgfhtrh")

if flength=0 then
flength=1
end if
datalog("文件大小")=flength&"KB"
datalog.update
datalog_numRows = 0
loop
 end if
set file=nothing
next
Set datalog = Nothing
set upload=nothing 
Htmend iCount&" 個文件上傳結束!"
sub HtmEnd(Msg)
 set upload=nothing
end sub
%>
<%
end if
%>
<%
Dim Recordset1__u
Recordset1__u = "1"
If (Session("userssdfgfhtrh")    <> "") Then 
  Recordset1__u = Session("userssdfgfhtrh")   
End If
%>
<%
Dim Recordset1__MMColParam1
Recordset1__MMColParam1 = "1"
If ("|"&session("names")  <> "") Then 
  Recordset1__MMColParam1 = "|"&session("names") 
End If
%>
<%
Dim Recordset1__d
Recordset1__d = "1"
If (fawenupid  <> "") Then 
  Recordset1__d = fawenupid 
End If
%>
<%
 dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR")
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM fawen  WHERE (添加人帳號 = '" + Replace(Recordset1__u, "'", "''") + "' or  審稿人 like '%" + Replace(Recordset1__MMColParam1, "'", "''") + "%'  or  簽閱人 like '%" + Replace(Recordset1__MMColParam1, "'", "''") + "%') and fawen.id=" + Replace(Recordset1__d, "'", "''") + " and 開關='是'  ORDER BY fawen.id desc"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
if not Recordset1.eof or not Recordset1.bof then
dim p11
p11=Recordset1("接收人")
Recordset1("簽發(fā)")=qianfa
Recordset1("內容")=content
'Recordset1("審稿人")=shengaoren
Recordset1("文件標題")=wenjianbiaoti
Recordset1("編號")=bianhao
Recordset1("擬稿人")=nigaoren
Recordset1("機密程度")=jimichengdu
Recordset1("印發(fā)日期")=yinfariqi
Recordset1("共印份數(shù)")=fenshu
Recordset1("主送機關")=zhusongjiguan
Recordset1("抄送機關")=chaosongjiguan
Recordset1("主題詞")=zhutici
Recordset1("打字人")=daziren
Recordset1("校對人")=jiaoduiren
Recordset1("添加年份")=year(now())
Recordset1("添加月份")=month(now())
Recordset1("添加日")=day(now())
Recordset1("添加ip")=ip
Recordset1("備注")=beizhu
Recordset1("發(fā)送人")=fasongren
Recordset1("最后更新ip")=ip
Recordset1("最后更新日期")=date()
Recordset1("最后更新時間")=now()
Recordset1("最后更新年份")=year(now())
Recordset1("最后更新月份")=month(now())
Recordset1("最后更新日")=day(now())
Recordset1("簽名帳號")=qianfaimg
Recordset1("審核帳號")=shenheimg

if qianfaimg<>"" then
Recordset1("導入簽發(fā)圖片")=p
end if
if shenheimg<>"" then

Recordset1("導入審稿圖片")=p1
end if
Recordset1.update

Recordset1_numRows = 0
%>
<%
else


end if
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%session("shenpishiyou")=wenjianbiaoti
session("shenqingren")=shengqingren

%>

<script>
{
alert("發(fā)文修改成功。");history.go(-2)
}
</script>