remoteupload.asp 艺术签名文章资讯网源代码 - ASP源码程序

www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/remoteupload.asp
    <!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_down.Asp"-->
<%
'-- remoteupload.asp
Server.ScriptTimeout = 99999
Dim sAllowExt, nAllowSize, sUploadDir, sContentPath
Dim sFileExt, sOriginalFileName, sSaveFileName, sPathFileName, nFileNum
Dim SaveFilePath,UploadPath,strUploadDir
Dim ChannelSetting,m_strUploadPicDir

If Len(Newasp.Channel_Setting &"") < 30 Then Newasp.Channel_Setting = "0|||1|||2|||3|||4|||0|||1|||UploadPic/|||UploadFile/|||"
ChannelSetting = Split(Newasp.Channel_Setting & "|||||||||||||||", "|||")
m_strUploadPicDir = Replace(Trim(ChannelSetting(7)), "\", "/")
If Len(m_strUploadPicDir) < 2 Then m_strUploadPicDir = "UploadPic/"
If Right(m_strUploadPicDir,1) <> "/" Then m_strUploadPicDir = m_strUploadPicDir & "/"

Dim Action

Action = LCase(Request("action"))

Call InitUpload()

If Action="upload" Then
	Call UploadRemote()
End If

'-- 自动获取远程文件
Sub UploadRemote()
	Dim strContent, i,objFile
	strUploadDir = CreatePath(sUploadDir)
	sUploadDir = sUploadDir & strUploadDir
	For i = 1 To Request.form("NewAsp_UploadText").Count 
		strContent = strContent & Request.form("NewAsp_UploadText")(i) 
	Next
	If sAllowExt <> "" Then
		Set objFile = New Download_Cls
		objFile.RemoteDir = sUploadDir
		objFile.AllowMaxSize = nAllowSize
		objFile.AllowExtName = sAllowExt
		strContent = objFile.ChangeRemote(strContent)
		sOriginalFileName = objFile.RemoteFileName
		sSaveFileName = objFile.LocalFileName
		sPathFileName = objFile.LocalFilePath
		SaveFilePath = Replace(sPathFileName, Newasp.InstallDir & Newasp.ChannelDir, "",1,-1,1)
	End If

	Response.Write "<html><head><title>远程上传</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""/></head><body>" & _
		"<input type=""hidden"" id=""UploadText"" value=""" & inHTML(strContent) & """/>" & _
		"</body></html>"

	Call OutScriptNoBack("try{parent.addUploadFile('" & sOriginalFileName & "', '" & sSaveFileName & "', '" & SaveFilePath & "');} catch(e){}")
	Set objFile = Nothing
End Sub

'-- 初始化上传限制数据
Sub InitUpload()
	If ChannelID <> 0 Then
		sUploadDir		= Newasp.InstallDir & Newasp.ChannelDir		'上传文件路径
	Else
		sUploadDir		= Newasp.InstallDir							'上传文件路径
	End If

	UploadPath			= m_strUploadPicDir							'上传文件目录
	sUploadDir			= sUploadDir & UploadPath					'上传文件路径
	nAllowSize			= 102400									'允许上传的文件大小
	sAllowExt			= "gif|jpg|bmp|png|jpge"					'上传文件类型
	sAllowExt			= Replace(Replace(UCase(sAllowExt), "ASP", ""), "ASA", "")
End Sub

Function inHTML(str)
	Dim sTemp
	sTemp = str
	inHTML = ""
	If IsNull(sTemp) = True Then
		Exit Function
	End If
	sTemp = Replace(sTemp, "&", "&amp;")
	sTemp = Replace(sTemp, "<", "&lt;")
	sTemp = Replace(sTemp, ">", "&gt;")
	sTemp = Replace(sTemp, Chr(34), "&quot;")
	inHTML = sTemp
End Function

Public Sub OutScriptNoBack(str)
	Response.Write "<script type=""text/javascript"">" & vbCrLf
	Response.Write "setUploadDone();" & vbCrLf
	Response.Write str & vbCrLf
	Response.Write "function setUploadDone() {" & vbCrLf
	Response.Write "	try{" & vbCrLf
	Response.Write "		var strHTML = UploadText.value;" & vbCrLf
	Response.Write "		parent.FCK.SetHTML(strHTML);" & vbCrLf
	Response.Write "	}" & vbCrLf
	Response.Write "	catch(e){}" & vbCrLf
	Response.Write "	parent.remoteUploadDone();" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "</script>" & vbCrLf
End Sub

%>