asp文件上传代码

<%
Sub UploadFile()
 Dim Upload,FilePath,sFilePath,FormName,File,F_FileName
 Dim PreviewSetting,DrawInfo,Previewpath,strPreviewPath
 Dim PreviewName,F_Viewname,MakePreview
 '-- 是否生成缩略图片
 MakePreview = True
 Previewpath = Newasp.InstallDir & Newasp.ChannelDir
 strPreviewPath = "UploadPic/" & CreatePath(Previewpath & "UploadPic/")
 PreviewPath = Previewpath & strPreviewpath
 PreviewSetting = Split(Newasp.PreviewSetting, ",")
 If CInt(PreviewSetting(2)) = 1 Then
  DrawInfo = PreviewSetting(5)
 ElseIf CInt(PreviewSetting(2)) = 2 Then
  DrawInfo = Newasp.InstallDir & PreviewSetting(10)
 Else
  DrawInfo = ""
 End If
 If DrawInfo = "0" Then
  DrawInfo = ""
  PreviewSetting(2) = 0
 End If
 sFilePath = CreatePath(sUploadDir) '按日期生成目录
 FilePath = sUploadDir & sFilePath
 
 Set Upload = New UpFile_Cls
 Upload.UploadType = UploadObject    '设置上传组件类型
 Upload.UploadPath = FilePath     '设置上传路径
 Upload.MaxSize = AllowFileSize     '单位 KB
 Upload.InceptMaxFile = 10     '每次上传文件个数上限
 Upload.InceptFileType = AllowFileExt    '设置上传文件限制
 'Upload.ChkSessionName = "uploadfile"
 '预览图片设置
 Upload.MakePreview  = MakePreview
 Upload.PreviewType  = CInt(PreviewSetting(0))  '设置预览图片组件类型
 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)
   F_FileName = FilePath & File.FileName
   SaveFileName = F_FileName
   '创建预览及水印图片
   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) Then
     Call OutPreview(strPreviewPath & PreviewName)
    End If
   End If
   Set File = Nothing
  Next
 Else
  Call OutAlertScript("^_^哥们！请选择一个有效的上传文件。")
  Exit Sub
 End If
 Set Upload = Nothing
End Sub

Sub OutScript(url)
 Response.Write "<script language=javascript>" & vbCrLf
 Response.Write "parent.document.myform.filePath.value='" & url & "';" & vbCrLf
 Response.Write "alert('文件上传成功!\n"&url&"');" & vbCrLf
 Response.Write "history.go(-1);" & vbCrLf
 'Response.Write "location.replace('" & Request.ServerVariables("HTTP_REFERER") & "')" & vbCrLf
 Response.Write "</script>" & vbCrLf
End Sub

Sub OutPreview(url)
 Response.Write "<script language=javascript>" & vbCrLf
 Response.Write "parent.document.myform.ImageUrl.value='" & url & "';" & vbCrLf
 Response.Write "</script>" & vbCrLf
End Sub
%>

时间： 2024-09-16 16:24:36

asp文件上传代码的相关文章

asp.net fileupload文件上传代码

asp教程.net fileupload文件上传代码 <html lang="en"> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css教程" href="history/his

asp.net+jquery 文件上传代码(1/2)

asp教程.net+jquery 文件上传代码 <%@ page language="c#" contenttype="text/html" responseencoding="gb2312" %> <!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml

asp.net适合初学者文件上传代码

asp教程.net适合初学者文件上传代码 今天做了一个从浏览器上传图片的.aspx页面,当然修改后也可以上传其他格式的文件,下面附上代码: --在页面上放一个文件上传控件 和一个按钮,单击按钮触发一下内容 //获取文件路径 string filePath = fileBookPhoto.PostedFile.FileName; if (string.IsNullOrEmpty(filePath)) { Page.ClientScript.RegisterStartupScript(GetType

asp.net多文件上传代码（完整实例）(1/2)

我们这里提供一款asp教程.net多文件上传代码(完整实例)哦,并且这是一款兼容多浏览器的文件上传代码哦. 网页特效代码 <script type="text/网页特效"> var attachname = "uploadfile"; var i = 1; function addinput() { if (i > 0) { var attach = attachname + i; if (createinput(attach)) i = i +

文件上传代码

文件上传代码,这段上传代码都不知道是我什么时候写的了,哈哈还是也拿出来吧, <% dim filename,filepath,filetype,obstream,fso,fod,sql'定义变量 filepath=request.Form("filename"'取得文件路径 if len(filepath)=0 or instr(filepath,"'"<>0 then'路径的合法性 response.Redirect("firstfil

net实现多文件上传代码

net实现多文件上传代码,单个文件上传可能很容易作,但是很多朋友就是不是多文件上传,其它多文件上传和单文件没什么本质上的区别了,好我们先看看下面的文章就知道了. protected bool upMorefile()     {                 //遍历File表单元素         System.Web.HttpFileCollection files = System.Web.HttpContext.Current.Request.Files;         //状态信息

PHP文件上传代码用法

  php文件上传代码编写过程 1. 先判断是否上传文件 2. 如果有再来判断上传中是否出错 3. 如果出错,则提示出错信息 4. 如查没出错,再判断文件类型 5. 如果类型符合条件,再判断指定目录中有没有存在该文件 6. 如果没有就把该文件移至指定目录 在php中上传文件必须知道的几个东西 $_FILES['myfile']['name'] 是指被上传文件的名称 $_FILES['myfile']['type'] 是指被上传文件的类型 $_FILES['myfile']['size'] 是指被

java 后台实现文件上传代码

问题描述 java 后台实现文件上传代码 java后台做一个文件上传,前端选择了照片点击上传到后台,后台需要保存到服务器上, 这个该怎么做,能不能贴一贴现成的代码?求解 解决方案 try { ??????????? FileItemFactory factory = new DiskFileItemFactory(); ??????????? ServletFileUpload upload = new ServletFileUpload(factory); ??????????? ??????

asp文件上传的速度和上传组件有关吗

问题描述 asp文件上传的速度和上传组件有关吗,我有两个上传文件源代码,一个上传组件是无惧上传组件一个是upload_5xsoft程序运行时前者上传文件90M很快上传了(都是本地上传到本地的),后者10M的都要很慢求解等大虾~~~ 解决方案 解决方案二:有关系有的组件做得很好上传很快解决方案三:由关系吧解决方案四:有关系的,尽量用第三方组件或者.Net上传,纯脚本写的效率不高