remoteupload.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 94 行

ASP
94 行
字号 
<!--#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 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			= "UploadPic/"
	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

%>

remoteupload.asp - 源码说明

本页面展示了「小游戏网站演示www.4399.io 拥有4万条游戏数据」中的 remoteupload.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与4399相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?