?? zhuanfaupfileintodatalog.asp
字號:
<!--#include file="../../../../../Connections/gongyobngwenjianxitongvbs.asp" -->
<!--#include file="../../../../../Connections/oavbsconn.asp" -->
<%
' *** 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
%>
<%if session("loginstatus")<>"islogined" then
response.Redirect("../../../index.asp")
end if%>
<% if request("bumen")="請選擇部門" then %>
<script language="javascript">
{
alert("請選擇部門");history.go(-1)
}
</script>
<%response.end
end if%>
<% if request("City")="" then %>
<script language="javascript">
{
alert("請選擇接收人");history.go(-1)
}
</script>
<%response.end
end if%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../../../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<img src="../../../../../toall/jfoanet/img/978.gif" width="27" height="24">文件轉發成功...
<hr size=1 color="#5AAE18" noshadow width=700 align=left>
<p><br>
<br>
<%
Server.ScriptTimeout=900
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (request.form("City") <> "") Then
Recordset1__MMColParam = request.form("City")
End If
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT * FROM usertertggbng WHERE names = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
if request.form("City")="對所有人群發" then
formPath="/dataandfiles/files/qunfafiles"
jieshounames="對所有人群發"
jieshoubumen="對所有人群發"
thepathfname=formPath&"/"&request("fname")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If not objFSO.FileExists(Server.MapPath(p1)) Then
objFSO.CreateFolder(Server.MapPath(p1))
End If
Set objFSO = Nothing '釋放 FileSystemObject 對象實例內存空間
end if
if request.form("City")<>"對所有人群發" then
formPath=Recordset1("pathaccess")
jieshounames=Recordset1("names")
jieshoubumen=Recordset1("部門")
thepathfname="../../"&Recordset1("getrealpath")&"/"&request("fname")
Dim objFSO1
Set objFSO1= Server.CreateObject("Scripting.FileSystemObject")
If objFSO1.FolderExists(Server.MapPath(formPath)) Then
Else
objFSO1.CreateFolder(Server.MapPath(formPath))
Set objFSO1 = Nothing '釋放 FileSystemObject 對象實例內存空間
response.write"<script>alert('"&upload.form("City")&"個人目錄不存在,服務器已經自動為其建立。')</script>'"
End If
end if
%>
<%
Set myfileobject=server.createobject("scripting.filesystemobject")
If not myfileobject.FileExists(Server.MapPath(request.form("fpath"))) Then%>
<script language="javascript">
{
alert("文件不存在,轉發失敗!");history.go(-2)
}
</script>
<%response.End()
end if%>
<%
dim ks
ks="k"
Dim datalog__MMColParam
datalog__MMColParam = "1"
If (request.form("fname") <> "") Then
datalog__MMColParam = request.form("fname")
End If
Dim datalog__vargeter
datalog__vargeter = "1"
If (request.form("City") <> "") Then
datalog__vargeter = request.form("City")
End If
Dim datalogdel
datalogdel = "是"
If (request.form("MM_EmptyValue") <> "") Then
datalogdel= request.form("MM_EmptyValue")
End If
Dim datalog
Dim datalog_numRows
Set datalog = Server.CreateObject("ADODB.Recordset")
datalog.ActiveConnection = MM_gongyobngwenjianxitongvbs_STRING
datalog.Source = "SELECT * FROM 文件信息 WHERE 文件名= '" + Replace(datalog__MMColParam, "'", "''") + "' and 接收人姓名='" + Replace(datalog__vargeter, "'", "''") + "' and 接收人是否刪除='否'"
datalog.CursorType = 0
datalog.CursorLocation = 3
datalog.LockType = 3
datalog.Open()
if not datalog.eof then
response.Redirect("zhuanwrong.asp")
response.end()
else
datalog.addnew
total=total+1
datalog("文件名")= request("fname")
datalog("文件路徑")=thepathfname
datalog("上傳人帳號")=Session("userssdfgfhtrh")
datalog("接收人姓名")=jieshounames
datalog("上傳人姓名")=Session("names")
datalog("上傳人部門")=Session("bumen")
datalog("接收人部門")=jieshoubumen
flength=request("daxiao")
datalog("文件大小")=request("daxiao")
datalog.update
end if
%>
<%
set afile=myfileobject.getfile(Server.MapPath(request.form("fpath")))
afile.copy Server.MapPath(thepathfname)
set myfileobject= nothing
%>
<table width="594" height="109" border="0" cellpadding="6" cellspacing="0">
<tr>
<td>轉發文件 <span class="style1">"<%=request("fname")%>"</span> 給 <span class="style1"><%=jieshoubumen%>--<%=jieshounames%></span>OK! <img src="../../../mrgreen.gif" width="50" height="50"></td>
</tr>
<tr>
<td><div align="center"><a href="javascript:history.go(-2)">返回</a> </div></td>
</tr>
</table>
<p>
</body>
</html>
<%
datalog.Close()
Set datalog = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -