📄 zhuanfaupfileintodatalogfordiazifujian.asp
字号:
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<!--#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}
.style2 {font-size: 14px}
-->
</style>
</head>
<body>
<img src="../../../../../toall/jfoanet/img/978.gif" width="27" height="24">文件转发...
<hr size=1 color="#5AAE18" noshadow width=700 align=left>
<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 pathaccess,names,部门,getrealpath 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.FolderExists(Server.MapPath(formPath)) Then
objFSO.CreateFolder(Server.MapPath(formPath))
End If
Set objFSO = Nothing
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 对象实例内存空间
End If
end if
%>
<%on error resume next
Set myfileobject=server.createobject("scripting.filesystemobject")
If not myfileobject.FileExists(Server.MapPath("../"&request.form("fpath"))) Then
if err.number<>0 then
response.write"<script>alert('"&Session("names")&"很抱歉,该文件来自远程服务器,无法转发。');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
end if
%>
<script language="javascript">
{
alert("文件不存在,转发失败!");history.go(-2)
}
</script>
<%response.End()
end if%>
<%
dim huizhi,fuyan
huizhi=request("huizhi")
fuyan=request("fuyan")
if huizhi="是" then
else
huizhi="否"
end if
%>
<%
if len(fuyan)>65535then
Response.Write("<script>alert(""您输入的附言内容超出数据库极限,系统最多接收的字符是65535个！"");location=""javascript:history.back()"";</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
datalog("文件大小")=request("daxiao")
datalog("是否回执")=huizhi
datalog("附言")=fuyan
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 colspan="2"><span class="style2">转发文件 <span class="style1">"<%=request("fname")%>"</span> 给 <span class="style1"><%=jieshoubumen%>--<%=jieshounames%></span>OK!</span> </td>
</tr>
<tr>
<td width="249"><div align="right"><a href="../../../filesupadmin/totongshifiles.asp">发送记录</a> </div>
<div align="center"></div></td>
<td width="321"><a href="javascript:history.go(-2)"> 返回</a></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 + -