upload.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 339 行 · 第 1/2 页
ASP
339 行
End If
Upload.PreviewImageWidth = CInt(PreviewSetting(3)) '设置预览图片宽度
Upload.PreviewImageHeight = CInt(PreviewSetting(4)) '设置预览图片高度
Upload.DrawImageWidth = CInt(PreviewSetting(13)) '设置水印图片或文字区域宽度
Upload.DrawImageHeight = CInt(PreviewSetting(14)) '设置水印图片或文字区域高度
Upload.DrawGraph = CCur(PreviewSetting(11)) '设置水印透明度
Upload.DrawFontColor = PreviewSetting(7) '设置水印文字颜色
Upload.DrawFontFamily = PreviewSetting(8) '设置水印文字字体格式
Upload.DrawFontSize = CInt(PreviewSetting(6)) '设置水印文字字体大小
Upload.DrawFontBold = CInt(PreviewSetting(9)) '设置水印文字是否粗体
Upload.DrawInfo = DrawInfo '设置水印文字信息或图片信息
Upload.DrawType = CInt(PreviewSetting(2)) '0=不加载水印 ，1=加载水印文字，2=加载水印图片
Upload.DrawXYType = CInt(PreviewSetting(15)) '"0" =左上，"1"=左下,"2"=居中,"3"=右上,"4"=右下
Upload.DrawSizeType = CInt(PreviewSetting(1)) '"0"=固定缩小，"1"=等比例缩小
If PreviewSetting(12)<>"" Or PreviewSetting(12)<>"0" Then
Upload.TransitionColor = PreviewSetting(12) '透明度颜色设置
End If
'执行上传
Upload.SaveUpFile
If Upload.ErrCodes<>0 Then
Response.write ("<script>alert('错误："& Upload.Description & "');history.go(-1)</script>")
Exit Sub
End If
If Upload.Count > 0 Then
For Each FormName In Upload.UploadFiles
Set File = Upload.UploadFiles(FormName)
SaveFilePath = sFilePath & File.FileName
F_FileName = FilePath & File.FileName
m_strFileExt = File.FileExt
'创建预览及水印图片
If Upload.PreviewType<>999 and File.FileType=1 then
PreviewName = "p" & Replace(File.FileName,File.FileExt,"") & "jpg"
F_Viewname = Previewpath & PreviewName
'创建预览图片:Call CreateView(原始文件的路径,预览文件名及路径,原文件后缀)
Upload.CreateView F_FileName,F_Viewname,File.FileExt
If CBool(MakePreview) And Upload.MakePreview Then
Call OutPreview(strPreviewPath & PreviewName)
End If
End If
Set File = Nothing
Next
m_intMaxsize = Upload.MaxSize
Else
Call OutAlertScript("请选择一个有效的上传文件。")
Exit Sub
End If
Set Upload = Nothing
End Sub
Sub UploadMain()
%> <table cellspacing="0" cellpadding="0" border="0">
<form action="?action=save&ChannelID=<%=ChannelID%>&sType=<%=sType%>&m=<%=m_strType%>&inst=<%=m_strInstance%>&s=<%=m_intshow%>" method="post" enctype="multipart/form-data" name="myform">
<tr valign="top">
<td valign="top" nowrap="nowrap" align="left"><input type="file" size="50" name="file1" /> <input type="submit" name="Submit" value="开始上传" />
<%
If m_intshow = 1 Then
If sType = "FILE" Then
%>
<input title="如果你要上传图片请点这里" type='button' name='upic' value='上传图片' onclick="{if(confirm('确定要切换到上传图片模式吗?')){location.href='?ChannelID=<%=ChannelID%>&sType=image&m=<%=m_strType%>&inst=<%=m_strInstance%>&s=<%=m_intshow%>';}return false;}">
<%
Else
%>
<input title="如果你要上传文件请点这里" type='button' name='ufile' value='上传文件' onclick="{if(confirm('确定要切换到上传文件模式吗?')){location.href='?ChannelID=<%=ChannelID%>&sType=file&m=<%=m_strType%>&inst=<%=m_strInstance%>&s=<%=m_intshow%>';}return false;}">
<%
End If
End If
%>
</td>
</tr>
<tr valign="top">
<td class="TableRow1" valign="top" colspan="4">
<%
If m_strType = "FLASH" Or m_strType = "INDEX" Or sType = "FILE" Then
Response.Write "<input type=""hidden"" name=""NoThumbnail"" value=""1"" />" & vbNewLine
Else
%>
<input type="checkbox" name="NoThumbnail" value="1" checked="checked" /> 不生成缩略图
<%
End If
%>
<input type="checkbox" name="Rename" value="1"<%If m_intRename =1 Then Response.Write " checked=""checked"""%> /> 不自动更名
允许上传的文件类型：<%=AllowFileExt%> 大小：<font color="#ff0000"><strong><%=CStr(Newasp.UploadFileSize)%></strong></font> KB</td>
</tr>
</form>
</table><%
End Sub
Sub OutScript(url)
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "try{" & vbCrLf
Response.Write "parent.document.forms[0].Previewimg.value='" & url & "';" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "catch(e){}" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub OutPreview(url)
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "try{" & vbCrLf
Response.Write "parent.document.forms[0].ImageUrl.value='" & url & "';" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "catch(e){" & vbCrLf
Response.Write "try{" & vbCrLf
Response.Write "parent.document.forms[0].Previewimg.value='" & url & "';" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "catch(e){}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub OutFilesize(filesize)
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "try{" & vbCrLf
Response.Write "parent.document.forms[0].filesize.value='" & Round(filesize/1024,2) & "';" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "catch(e){}" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub addUploadItem(sType,strPath,url)
Response.Write "<script type=""text/javascript"">" & vbCrLf
Call OutUploadScript(sType,strPath)
Response.Write "</script>" & vbCrLf
End Sub
Sub OutUploadScript(sType,strPath)
sType = LCase(sType)
Response.Write "var EditType="""";" & vbCrLf
Response.Write "try{" & vbCrLf
Response.Write " var oEditor = parent.FCKeditorAPI.GetInstance('" & m_strInstance & "')" & vbCrLf
Response.Write " EditType=""FCkEditor"";" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "catch(e){" & vbCrLf
Response.Write " EditType=""UBBEditor"";" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "if (EditType==""UBBEditor""){parent.document.forms[0]." & m_strInstance & ".value+="
Select Case sType
Case "gif","jpg","png","bmp","jpeg","tif","iff"
Response.Write "'[img]" & strPath & "[/img]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<img src=""" & strPath & """ alt="""" />')}" & vbCrLf
Case "swf"
Response.Write "'[flash]" & strPath & "[/flash]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<object codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" width=""400"" height=""300""><param name=""movie"" value=""" & strPath & """ /><param name=""quality"" value=""high"" /><param name=""AllowScriptAccess"" value=""never"" /><embed src=""" & strPath & """ quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""400"" height=""300"" /></object>')}" & vbCrLf
Case "mp3","wma"
Response.Write "'[wma]" & strPath & "[/wma]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<object classid=""CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" id=""MediaPlayer"" width=""450"" height=""70""><param name=""howStatusBar"" value=""-1""><param name=""AutoStart"" value=""False""><param name=""Filename"" value=""" & strPath & """></object>')}" & vbCrLf
Case "rm","rmvb"
Response.Write "'[rm]" & strPath & "[/rm]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" width=""400"" height=""300""><param name=""SRC"" value=""" & strPath & """ /><param name=""CONTROLS"" VALUE=""ImageWindow"" />"
Response.Write "<param name=""CONSOLE"" value=""one"" /><param name=""AUTOSTART"" value=""true"" /><embed src=""" & strPath & """ nojava=""true"" controls=""ImageWindow"" console=""one"" width=""400"" height=""300""></object><br/>"
Response.Write "<object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" width=""400"" height=""32"" /><param name=""CONTROLS"" value=""StatusBar"" /><param name=""AUTOSTART"" value=""true"" /><param name=""CONSOLE"" value=""one"" />"
Response.Write "<embed src=""" & strPath & """ nojava=""true"" controls=""StatusBar"" console=""one"" width=""400"" height=""24"" /></object><br/><object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" width=""400"" height=""32"" />"
Response.Write "<param name=""CONTROLS"" value=""ControlPanel"" /><param name=""AUTOSTART"" value=""true"" /><param name=""CONSOLE"" value=""one"" /><embed src=""" & strPath & """ nojava=""true"" controls=""ControlPanel"" console=""one"" width=""400"" height=""24"" autostart=""true"" loop=""false"" /></object>')}" & vbCrLf
Case "ra"
Response.Write "'[ra]" & strPath & "[/ra]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<object classid=""clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"" id=""RAOCX"" width=""450"" height=""60""><param name=""_ExtentX"" value=""6694""><param name=""_ExtentY"" value=""1588""><param name=""AUTOSTART"" value=""true""><param name=""SHUFFLE"" value=""0""><param name=""PREFETCH"" value=""0"">"
Response.Write "<param name=""NOLABELS"" value=""0""><param name=""SRC"" value=""" & strPath & """><param name=""CONTROLS"" value=""StatusBar,ControlPanel""><param name=""LOOP"" value=""0""><param name=""NUMLOOP"" value=""0""><param name=""CENTER"" value=""0""><param name=""MAINTAINASPECT"" value=""0""><param name=""BACKGROUNDCOLOR"" value=""#000000""><embed src=""" & strPath & """ width=""450"" autostart=""true"" height=""60""></embed></object>')}" & vbCrLf
Case "asf","avi","wmv"
Response.Write "'[wmv]" & strPath & "[/wmv]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<object classid=""clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,02,902"" type=""application/x-oleobject"" standby=""Loading..."" width=""400"" height=""300"">"
Response.Write "<param name=""FileName"" VALUE=""" & strPath & """ /><param name=""ShowStatusBar"" value=""-1"" /><param name=""AutoStart"" value=""true"" /><embed type=""application/x-mplayer2"" pluginspage=""http://www.microsoft.com/Windows/MediaPlayer/"" src=""" & strPath & """ autostart=""true"" width=""400"" height=""300"" /></object>')}" & vbCrLf
Case Else
Response.Write "'[down=" & strPath & "]点击下载此文件[/down]\n'}" & vbCrLf
Response.Write "else{oEditor.InsertHtml('<a href=""" & strPath & """><img src=""" & Newasp.InstallDir & "images/pic/download.gif"" border=""0"" style=""margin:0px 2px -4px 0px""/>点击下载此文件</a>')}" & vbCrLf
End Select
End Sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?