Archive for November, 2006

« Older Entries

感恩节。

Friday, November 24th, 2006
感恩要感恩的，感谢上苍给予我生命。谢谢。。
终于理论考试过了 90 分 一个恰好的分数。
天气天气天气还是隐讳的很，不见太阳，压抑压抑
 
但是在这个需要我们感恩的节日里还是要回想美好，当然也祝愿给我带来温暖的朋友们幸福快乐！
：）
 

Posted in 未分类 | No Comments »

普陀山之行

Friday, November 24th, 2006

嘿嘿，自拍。。。。
 

去普陀那天天气不怎么好。。。
 
 

哈哈，：）海边纯情少年。。。
 
 

海边小码头。。。
 

直接领导我的领导人：）

(more...)

Posted in 摄影 | No Comments »

舟山之行 二

Wednesday, November 22nd, 2006
已经是回到了相比舟山稍显可爱的绍兴，不过天气倒也一样阴沉，压抑，在车上云就象一个巨大的棉花糖粘在你身上，这样的感觉最是不爽了。
肚子也的确是吃坏了，哪天半夜起来就吐啦吐啦的害的后几天一直清茶淡饭，不敢越雷池一步。其实舟山最有名的就是夜排挡了，那些排挡只在夜里营业，当然上句是废话哈，一般都在港口一长溜的摆滩，灯火通明热闹非凡，是来舟山必备的项目。幸好我去时肚子还没彻底的罢工，倒是享受了一回渔家风味的舟山原味海鲜。。。
昨天上WOW的是时候发现被盗200金币，装备倒好，痛心疾首啊，那个舟山的鸟网吧，不厚道，肯定被装了木马。。。
恩 再来分析一下为什么舟山没有PLMM吧，根据地理学上讲，舟山属于群岛城市，淡水资源并不丰富，仅靠几个水库支撑，可想而之水库的水质，同时当地海风肆虐，大家都知道岩石风化现象吧，一个道理。同时舟山以渔民为主，人民比较富裕，相貌较好一般被保护起来送到内陆的地方好好培养了，一方水土养一放人，来舟山我一个PLMM都没看到，哎。。街上都是大妈级的人物。。。
恩 废话不多说哈 发一些照片上来哈：）
 
 

去宁波的路上一直在修路车子走走停停的。。。。
 
 

恩 到舟山是要坐渡船的。。。。我总觉得这个船不牢靠，要是开到水底下不就成潜水艇了哈。。。。。
 
 

海上军舰三两两的，倒也挺气派的，要是停个中国自己的航母那就最好了。。
 
 
 

到舟山的港口了，这个港口很有意思叫鸭蛋山，估计是最近咸鸭蛋吃多了听这个名字就感到亲切。。。
 

到的时候是夜晚了，手机的夜拍功能不怎么好，不过街上倒是挺热闹的。
 

这个就是传说中的舟山夜排挡了，可惜我和那群老赌鬼们去吃的时候已经是凌晨很多点了。。人比较少，但也不冷清，。。。。
 
 

这张看起来瘦一点哈，其实原来减肥有点效果了来到舟山后又开始反弹了//
5555555555~~
 

舟山的公园一角。。
 

腐败活动主办方的大楼。
 

开会开会，边听边消灭眼前的障碍//
 

农家菜馆，本以为能吃到什么山珍的结果还上满口的海味。。。。。。
 
恩  今天就发到这里了，照片是我的小黑（575）拍的不是很清晰。。恩底下再发一些普陀山的照片哈：）

Posted in 未分类 | No Comments »

推荐，独立DV《宠儿》

Friday, November 17th, 2006

影片题目：《宠儿》
    编剧/导演：向晶晶
    影片长度：90分钟左右。
    影片格式：前期：ＤＶ格式
    后期：D-9/5版（交流与其他）中文字幕
    影片语言：国语配音
    影片类型：剧情/爱情
   
    他们，都在各自的命运之中茫然地寻找着，不知不觉，当脚步迷失在绚烂的绯华中，到底谁，才是真正的上帝的宠儿？
   
    本影片以一枚戒指为事件的中心，围绕这一个小小的东西，去探索身处在社会与学校边缘中的大学生内心深处的真实世界。大学生不是象牙塔中纯洁无暇的天使，他们同样拥有欲望，欺骗，背叛，可是，却并不是因为每个人都生来那么坏，而是生活充满了无奈。故事发生的地点涉及到大学校园和社会环境，即将毕业和已经毕业的大学生们，在校园与社会的边缘徘徊，茫然而矛盾。他们极力希望维护自己的纯洁，却不得不接受纷繁社会的浸染。于是，他们只能选择欺骗，利用，逃避。最终又努力回归真实的自我。

    在影片的整体风格上，用一种理性的的述事方法，以一种清新，唯美，浪漫的画面去说故事，同时也向观众道出时下年青人对生活、对命运、对爱情的一种看法；?参与影片演出的演员都是非专业演员，演员来自湖北民族学院各院系的学生和大家的朋友圈子。在演员的选择方面，通过一定活动组织挑选。

    在摄影方面，主要采用移动镜头、多角度的方法表现；由于本地对DV创作的不重视，在没有任何资金资助的情况下，本次摄影采用松下3CCD数码摄像—180A，佳能XL-1进行，灯光方面采用的是工作人员自制灯光。录音方面采用同期录音，后期配音的方法。演员化妆方面，由剧组和化妆人员与演员本人协助完成，服装方面除特殊要求外，尽可能由演员自备，再经导演确认、选择，以求在视觉上给观众最好的感受，又能体现出人物的形象特点和性格特征。在后期方面，导演全程跟进剪接、配音、音乐等方面的工作。其中，音乐创作方面，会尽量采用原创音乐。剪接、拟音这方面工作将会在拍摄进程中的空闲时间进行。

Posted in 未分类 | No Comments »

舟山之行 一

Friday, November 17th, 2006
来舟山已经两天了，海鲜已经让我吃不出味道了，舟山的本地菜是实行原味主义的，在海里是什么味道在餐桌上也是什么味道。幸好胃口比较好没吃拉肚子，同行的那些西北和东北来的同志就受不了了，几个四川的一直叫嚷着要服务员来最辣的辣椒，汗。。。晚上也只吃了一点就出来了，酒店边上就有网吧，感觉还不错，酒店是有WIFI网络的，可是我什么也没带。。。只能来网吧上了。
恩。。。我是去参加一个水族论坛的，呵呵，其实是来腐败的，既然人家叫了不去也不好意思，在绍兴那地方挂面白饭加咸蛋已经吃出了鸟的味道了。主办方很是客气，包的是四星的酒店，吃的还可以，今天开会，拍照，吃饭，中国会议的一般模式都全了也没有什么好说的。倒是会上几个BOSS讲话很不错，值得学习。
来的比较匆忙，什么都没带，照片没办法上传，拍了一些港口的PP，明天主办方安排游普陀山，继续跟着腐败，照片要等回去上传和诸君分享了。
不得不提的是舟山街上是没有或者很少有MM的，恐龙和大妈是非常的多的，恩就说到这里了：）
 

Posted in 未分类 | No Comments »

上传处理模块

Monday, November 13th, 2006

<!--#include FILE="Upload.inc"-->
<%
'-----------------------------------------------------------------------
'--- 上传处理类模块
'--- Copyright (c) 2004 Aspsky, Inc.
'--- Mail: Sunwin@artbbs.net   http://www.aspsky.net
'--- 2004-12-18
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-- InceptFileType : 设置上传类型属性 (以逗号分隔多个文件类型) String
'-- MaxSize   : 设置上传文件大小上限 (单位：kb) Long
'-- InceptMaxFile : 设置一次上传文件最大个数 Long
'-- UploadPath  : 设置保存的目录相对路径 String
'-- UploadType  : 设置上传组件类型 （0=无组件上传类，1=Aspupload3.0 ,2=SA-FileUp 4.0 ,3=DvFile.Upload V1.0）
'-- SaveUpFile  : 执行上传
'-- GetBinary  : 设置上传是否返回文件数据流  Bloon值 : True/False
'-- ChkSessionName : 设置SESSION名，防止重复提交，SESSION名与提交的表单名要一致。
'-- RName设置文件名 : 定义文件名前缀 (如默认生成的文件名为200412230402587123.jpg
'         设置：RName="http://www.hpsky.cn/blog/PRE_",生成的文件名为：PRE_200412230402587123.jpg)
'-----------------------------------------------------------------------
'-- 设置图片组件属性
'-- PreviewType  : 设置组件(0=CreatePreviewImage组件，1=AspJpegV1.2 ,2=SoftArtisans ImgWriter V1.21)
'-- PreviewImageWidth : 设置预览图片宽度
'-- PreviewImageHeight : 设置预览图片高度
'-- DrawImageWidth : 设置水印图片或文字区域宽度
'-- DrawImageHeight : 设置水印图片或文字区域高度
'-- DrawGraph  : 设置水印图片或文字区域透明度
'-- DrawFontColor : 设置水印文字颜色
'-- DrawFontFamily : 设置水印文字字体格式
'-- DrawFontSize : 设置水印文字字体大小
'-- DrawFontBold : 设置水印文字是否粗体
'-- DrawInfo  : 设置水印文字信息或图片信息
'-- DrawType  : 设置加载水印模式：0=不加载水印 ，1=加载水印文字 ，2=加载水印图片
'-- DrawXYType  : 图片添加水印LOGO位置坐标："0" =左上，"1"=左下,"2"=居中,"3"=右上,"4"=右下
'-- DrawSizeType : 生成预览图片大小规则："0"=固定缩小，"1"=等比例缩小
'-----------------------------------------------------------------------
'-- 获取上传信息
'-- ObjName   : 采用的组件名称
'-- Count   : 上传文件总数
'-- CountSize  : 上传总大小字节数
'-- ErrCodes  : 错误NUMBER (默认为0)
'-- Description  : 错误描述
'-----------------------------------------------------------------------
'-- CreateView Imagename,TempFilename,FileExt
' 创建预览图片过程: 原始文件的相对路径,生成预览文件相对路径,原文件后缀
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-- 获取文件对象属性 : UploadFiles
'-- FormName  : 表单名称
'-- FileName  : 生成的文件名称
'-- FilePath  : 保存文件的相对路径
'-- FileSize  : 文件大小
'-- FileContentType : ContentType文件类型
'-- FileType  : 0=其它,1=图片,2=FLASH,3=音乐,4=电影
'-- FileData  : 文件数据流 (若组件不支持直接获取，则返回Null)
'-- FileExt   : 文件后缀
'-- FileWidth  : 图片/Flash文件宽度 （其他文件默认=-1）
'-- FileHeight  : 图片/Flash文件高度 （其他文件默认=-1）
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-- 获取表单对象属性 : UploadForms
'-- Count   : 表单数
'-- key    : 表单内容
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------

Class UpFile_Cls
 Private UploadObj,ImageObj
 Private FilePath,InceptFile,FileMaxSize,MaxFile,Upload_Type,FileInfo,IsBinary,SessionName
 Private Preview_Type,View_ImageWidth,View_ImageHeight,Draw_ImageWidth,Draw_ImageHeight,Draw_Graph
 Private Draw_FontColor,Draw_FontFamily,Draw_FontSize,Draw_FontBold,Draw_Info,Draw_Type,Draw_XYType,Draw_SizeType
 Private RName_Str,Transition_Color
 Public ErrCodes,ObjName,UploadFiles,UploadForms,Count,CountSize
 '-----------------------------------------------------------------------------------
 '初始化类
 '-----------------------------------------------------------------------------------
 Private Sub Class_Initialize
  SessionName = Empty
  IsBinary = False
  ErrCodes = 0
  Count = 0
  CountSize = 0
  FilePath = "./"
  InceptFile = ""
  FileMaxSize = -1
  MaxFile = 1
  Upload_Type = -1
  Preview_Type = 999
  ObjName = "未知组件"
  View_ImageWidth = 0
  View_ImageHeight = 0
  Draw_FontColor = &H000000
  Draw_FontFamily = "Arial"
  Draw_FontSize = 10
  Draw_FontBold = False
  Draw_Info  = "WWW.OIOJ.NET"
  Draw_Type  = -1
  Set UploadFiles = Server.CreateObject ("Scripting.Dictionary")
  Set UploadForms = Server.CreateObject ("Scripting.Dictionary")
  UploadFiles.CompareMode = 1
  UploadForms.CompareMode = 1
 End Sub

 '-----------------------------------------------------------------------------------
 '销毁类
 '-----------------------------------------------------------------------------------
 Private Sub Class_Terminate
  If IsObject(UploadObj) Then
   Set UploadObj = Nothing
  End If
  If IsObject(ImageObj) Then
   Set ImageObj = Nothing
  End If
  UploadFiles.RemoveAll
  UploadForms.RemoveAll
  Set UploadForms = Nothing
  Set UploadFiles = Nothing
 End Sub

 '-----------------------------------------------------------------------------------
 '设置上传是否返回文件数据流
 '-----------------------------------------------------------------------------------
 Public Property Let GetBinary(Byval Values)
  IsBinary = Values
 End Property

 '-----------------------------------------------------------------------------------
 '设置上传类型属性 (以逗号分隔多个文件类型)
 '-----------------------------------------------------------------------------------
 Public Property Let InceptFileType(Byval Values)
  InceptFile = Lcase(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '设置上传类型属性 (以逗号分隔多个文件类型)
 '-----------------------------------------------------------------------------------
 Public Property Let ChkSessionName(Byval Values)
  SessionName = Values
 End Property

 '-----------------------------------------------------------------------------------
 '设置上传文件大小上限 (单位：kb)
 '-----------------------------------------------------------------------------------
 Public Property Let MaxSize(Byval Values)
  FileMaxSize = ChkNumeric(Values) * 1024
 End Property
 Public Property Get MaxSize
  MaxSize = FileMaxSize
 End Property

 '-----------------------------------------------------------------------------------
 '设置每次上传文件上限
 '-----------------------------------------------------------------------------------
 Public Property Let InceptMaxFile(Byval Values)
  MaxFile = ChkNumeric(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '设置上传目录路径
 '-----------------------------------------------------------------------------------
 Public Property Let UploadPath(Byval Path)
  FilePath = Replace(Path,Chr(0),"")
  If Right(FilePath,1)<>"/" Then FilePath = FilePath & "/"
 End Property

 Public Property Get UploadPath
  UploadPath = FilePath
 End Property

 '-----------------------------------------------------------------------------------
 '获取错误信息
 '-----------------------------------------------------------------------------------
 Public Property Get Description
  Select Case ErrCodes
   Case 1 : Description = "不支持 " & ObjName & " 上传，服务器可能未安装该组件。"
   Case 2 : Description = "暂未选择上传组件！"
   Case 3 : Description = "请先选择你要上传的文件!"
   Case 4 : Description = "文件大小超过了限制 " & (FileMaxSize\1024) & "KB!"
   Case 5 : Description = "文件类型不正确!"
   Case 6 : Description = "已达到上传数的上限！"
   Case 7 : Description = "请不要重复提交！"
   Case Else
    Description = Empty
  End Select
 End Property

 '-----------------------------------------------------------------------------------
 '设置文件名前缀
 '-----------------------------------------------------------------------------------
 Public Property Let RName(Byval Values)
  RName_Str = Values
 End Property

 '-----------------------------------------------------------------------------------
 '设置上传组件属性
 '-----------------------------------------------------------------------------------
 Public Property Let UploadType(Byval Types)
  Upload_Type = Types
  If Upload_Type = "" or Not IsNumeric(Upload_Type) Then
   Upload_Type = -1
  End If
 End Property

 '-----------------------------------------------------------------------------------
 '设置上传图片组件属性
 '-----------------------------------------------------------------------------------
 Public Property Let PreviewType(Byval Types)
  Preview_Type = Types
  On Error Resume Next
  If Preview_Type = "" or Not IsNumeric(Preview_Type) Then
   Preview_Type = 999
  Else
   If PreviewType <> 999 Then
    Select Case Preview_Type
     Case 0
     '---------------------CreatePreviewImage---------------
      ObjName = "CreatePreviewImage组件"
      Set ImageObj = Server.CreateObject("CreatePreviewImage.cGvbox")
     Case 1
     '---------------------AspJpegV1.2---------------
      ObjName = "AspJpegV1.2组件"
      Set ImageObj = Server.CreateObject("Persits.Jpeg")
     Case 2
     '---------------------SoftArtisans ImgWriter V1.21---------------
      ObjName = "SoftArtisans ImgWriter V1.21组件"
      Set ImageObj = Server.CreateObject("SoftArtisans.ImageGen")
     Case Else
      Preview_Type = 999
    End Select
    If Err.Number<>0 Then
     ErrCodes = 1
    End If
   End If
  End If
 End Property

 Public Property Get PreviewType
  PreviewType = Preview_Type
 End Property

 '-----------------------------------------------------------------------------------
 '设置预览图片宽度属性
 '-----------------------------------------------------------------------------------
 Public Property Let PreviewImageWidth(Byval Values)
  View_ImageWidth = ChkNumeric(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '设置预览图片高度属性
 '-----------------------------------------------------------------------------------
 Public Property Let PreviewImageHeight(Byval Values)
  View_ImageHeight = ChkNumeric(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印图片或文字区域宽度属性
 '-----------------------------------------------------------------------------------
 Public Property Let DrawImageWidth(Byval Values)
  Draw_ImageWidth = ChkNumeric(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印图片或文字区域高度属性
 '-----------------------------------------------------------------------------------
 Public Property Let DrawImageHeight(Byval Values)
  Draw_ImageHeight = ChkNumeric(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印图片或文字区域透明度属性
 '-----------------------------------------------------------------------------------
 Public Property Let DrawGraph(Byval Values)
  If IsNumeric(Values) Then
   Draw_Graph = Formatnumber(Values,2)
  Else
   Draw_Graph = 1
  End If
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印图片透明度去除底色值
 '-----------------------------------------------------------------------------------
 Public Property Let TransitionColor(Byval Values)
  If Values<>"" or Values<>"0" Then
   Transition_Color = Replace(Values,"#","&h")
  End If
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印文字颜色
 '-----------------------------------------------------------------------------------
 Public Property Let DrawFontColor(Byval Values)
  If Values<>"" or Values<>"0" Then
   Draw_FontColor = Replace(Values,"#","&h")
  End If
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印文字字体格式
 '-----------------------------------------------------------------------------------
 Public Property Let DrawFontFamily(Byval Values)
  Draw_FontFamily = Values
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印文字字体大小
 '-----------------------------------------------------------------------------------
 Public Property Let DrawFontSize(Byval Values)
  Draw_FontSize = Values
 End Property

 '-----------------------------------------------------------------------------------
 '设置水印文字是否粗体 Boolean
 '-----------------------------------------------------------------------------------
 Public Property Let DrawFontBold(Byval Values)
  Draw_FontBold = ChkBoolean(Values)
 End Property
 '-----------------------------------------------------------------------------------
 '设置水印文字信息或图片信息
 '-----------------------------------------------------------------------------------
 Public Property Let DrawInfo(Byval Values)
  Draw_Info = Values
 End Property

 '-----------------------------------------------------------------------------------
 '加载模式：0=不加载水印 ，1=加载水印文字 ，2=加载水印图片
 '-----------------------------------------------------------------------------------
 Public Property Let DrawType(Byval Values)
  Draw_Type = ChkNumeric(Values)
 End Property

 '-----------------------------------------------------------------------------------
 '图片添加水印LOGO位置坐标："0" =左上，"1"=左下,"2"=居中,"3"=右上,"4"=右下
 '-----------------------------------------------------------------------------------
 Public Property Let DrawXYType(Byval Values)
   Draw_XYType = Values
 End Property

 '-----------------------------------------------------------------------------------
 '生成预览图片大小规则："0"=固定缩小，"1"=等比例缩小
 '-----------------------------------------------------------------------------------
 Public Property Let DrawSizeType(Byval Values)
  Draw_SizeType = Values
 End Property

 Private Function ChkNumeric(Byval Values)
  If Values<>"" and Isnumeric(Values) Then
   ChkNumeric = Int(Values)
  Else
   ChkNumeric = 0
  End If
 End Function

 Private Function ChkBoolean(Byval Values)
  If Typename(Values)="Boolean" or IsNumeric(Values) or Lcase(Values)="false" or Lcase(Values)="true" Then
   ChkBoolean = CBool(Values)
  Else
   ChkBoolean = False
  End If
 End Function

 '-----------------------------------------------------------------------------------
 '日期时间定义文件名
 '-----------------------------------------------------------------------------------
 Private Function FormatName(Byval FileExt)
  Dim RanNum,TempStr
  Randomize
  RanNum = Int(9000*rnd)+1000
  TempStr = Year(now) & Month(now) & Day(now) & RanNum & "." & FileExt
  If RName_Str<>"" Then
   TempStr = RName_Str & TempStr
  End If
  FormatName = TempStr
 End Function
 
 '-----------------------------------------------------------------------------------
 '格式后缀
 '-----------------------------------------------------------------------------------
 Private Function FixName(Byval UpFileExt)
  If IsEmpty(UpFileExt) Then Exit Function
  FixName = Lcase(UpFileExt)
  FixName = Replace(FixName,Chr(0),"")
  FixName = Replace(FixName,".","")
  FixName = Replace(FixName,"'","")
  FixName = Replace(FixName,"asp","")
  FixName = Replace(FixName,"asa","")
  FixName = Replace(FixName,"aspx","")
  FixName = Replace(FixName,"cer","")
  FixName = Replace(FixName,"cdx","")
  FixName = Replace(FixName,"htr","")
  FixName = Replace(FixName,"shtml","")
 End Function

 '-----------------------------------------------------------------------------------
 '判断文件类型是否合格
 '-----------------------------------------------------------------------------------
 Private Function CheckFileExt(FileExt)
  Dim Forumupload,i
  CheckFileExt=False
  If FileExt="" or IsEmpty(FileExt) Then
   CheckFileExt = False
   Exit Function
  End If
  If FileExt="asp" or FileExt="asa" or FileExt="aspx" or FileExt="shtml" Then
   CheckFileExt = False
   Exit Function
  End If
  Forumupload = Split(InceptFile,",")
  For i = 0 To ubound(Forumupload)
   If FileExt = Trim(Forumupload(i)) Then
    CheckFileExt = True
    Exit Function
   Else
    CheckFileExt = False
   End If
  Next
 End Function

 '-----------------------------------------------------------------------------------
 '判断文件类型:0=其它,1=图片,2=FLASH,3=音乐,4=电影
 '-----------------------------------------------------------------------------------
 Private Function CheckFiletype(Byval FileExt)
  FileExt = Lcase(Replace(FileExt,".",""))
  Select Case FileExt
    Case "gif", "jpg", "jpeg","png","bmp","tif","iff"
     CheckFiletype=1
    Case "swf", "swi"
     CheckFiletype=2
    Case "mid", "wav", "mp3","rmi","cda"
     CheckFiletype=3
    Case "avi", "mpg", "mpeg","ra","ram","wov","asf"
     CheckFiletype=4
    Case Else
     CheckFiletype=0
  End Select
 End Function

 '-----------------------------------------------------------------------------------
 '执行保存上传文件
 '-----------------------------------------------------------------------------------
 Public Sub SaveUpFile()
  'On Error Resume Next
  Select Case (Upload_Type)
   Case 0
    ObjName = "无组件"
    Set UploadObj = New UpFile_Class
    If Err.Number<>0 Then
     ErrCodes = 1
    Else
     SaveFile_0
    End If
   Case 1
    ObjName = "Aspupload3.0组件"
    Set UploadObj = Server.CreateObject("Persits.Upload")
    If Err.Number<>0 Then
     ErrCodes = 1
    Else
     SaveFile_1
    End If
   Case 2
    ObjName = "SA-FileUp 4.0组件"
    Set UploadObj = Server.CreateObject("SoftArtisans.FileUp")
    If Err.Number<>0 Then
     ErrCodes = 1
    Else
     SaveFile_2
    End If
   Case 3
    ObjName = "DvFile.Upload V1.0组件"
    Set UploadObj = Server.CreateObject("DvFile.Upload")
    If Err.Number<>0 Then
     ErrCodes = 1
    Else
     SaveFile_3
    End If
   Case Else
    ErrCodes = 2
  End Select
 End Sub

 ''-----------------------------------------------------------------------------------
 ' 上传处理过程
 ''-----------------------------------------------------------------------------------
 ''-----------------------------------------------------------------------------------
 ''无组件上传
 ''-----------------------------------------------------------------------------------
 Private Sub SaveFile_0()
  Dim FormName,Item,File
  Dim FileExt,FileName,FileType,FileToBinary
  UploadObj.InceptFileType = InceptFile
  UploadObj.MaxSize = FileMaxSize
  UploadObj.GetDate () '取得上传数据
  FileToBinary = Null
  If Not IsEmpty(SessionName) Then
   If Session(SessionName) <> UploadObj.Form(SessionName) or Session(SessionName) = Empty Then
    ErrCodes = 7
    Exit Sub
   End If
  End If
  If UploadObj.Err > 0 then
   Select Case UploadObj.Err
    Case 1 : ErrCodes = 3
    Case 2 : ErrCodes = 4
    Case 3 : ErrCodes = 5
   End Select
   Exit Sub
  Else
   For Each FormName In UploadObj.File  ''列出所有上传了的文件
    If Count>MaxFile Then
     ErrCodes = 6
     Exit Sub
    End If
    Set File = UploadObj.File(FormName)
    FileExt = FixName(File.FileExt)
    If CheckFileExt(FileExt) = False then
     ErrCodes = 5
     EXIT SUB
    End If
    FileName = FormatName(FileExt)
    FileType = CheckFiletype(FileExt)
    If IsBinary Then
     FileToBinary = File.FileData
    End If
    If File.FileSize>0 Then
     File.SaveToFile Server.Mappath(FilePath & FileName)
     AddData FormName , _
       FileName , _
       FilePath , _
       File.FileSize , _
       File.FileType , _
       FileType , _
       FileToBinary , _
       FileExt , _
       File.FileWidth , _
       File.FileHeight
     Count = Count + 1
     CountSize = CountSize + File.FileSize
    End If
    Set File=Nothing
   Next
   For Each Item in UploadObj.Form
    If UploadForms.Exists (Item) Then _
     UploadForms(Item) = UploadForms(Item) & ", " & UploadObj.Form(Item) _
    Else _
    UploadForms.Add Item , UploadObj.Form(Item)
   Next
   If Not IsEmpty(SessionName) Then Session(SessionName) = Empty
  End If
 End Sub
 ''-----------------------------------------------------------------------------------
 ''Aspupload3.0组件上传
 ''-----------------------------------------------------------------------------------
 Private Sub SaveFile_1()
  Dim FileCount
  Dim FormName,Item,File
  Dim FileExt,FileName,FileType,FileToBinary
  UploadObj.OverwriteFiles = False  '不能复盖
  UploadObj.IgnoreNoPost = True
  UploadObj.SetMaxSize FileMaxSize, True '限制大小
  FileCount = UploadObj.Save
  FileToBinary = Null
  If Not IsEmpty(SessionName) Then
   If Session(SessionName) <> UploadObj.Form(SessionName) or Session(SessionName) = Empty Then
    ErrCodes = 7
    Exit Sub
   End If
  End If

  If Err.Number = 8 Then
    ErrCodes = 4
    EXIT SUB
  Else
    If Err <> 0 Then
     ErrCodes = -1
     Response.Write "错误信息: " & Err.Description
     EXIT SUB
    End If
    If FileCount < 1 Then
     ErrCodes = 3
     EXIT SUB
    End If
    For Each File In UploadObj.Files '列出所有上传文件
     If Count>MaxFile Then
      ErrCodes = 6
      Exit Sub
     End If
     FileExt = FixName(Replace(File.Ext,".",""))
     If CheckFileExt(FileExt) = False then
      ErrCodes = 5
      EXIT SUB
     End If
     FileName = FormatName(FileExt)
     FileType = CheckFiletype(FileExt)
     If IsBinary Then
      FileToBinary = File.Binary
     End If
     'File.Filename
     If File.Size>0 Then
      File.SaveAs Server.Mappath(FilePath & FileName)
      AddData File.Name , _
       FileName , _
       FilePath , _
       File.Size , _
       File.ContentType , _
       FileType , _
       FileToBinary , _
       FileExt , _
       File.ImageWidth , _
       File.ImageHeight
      Count = Count + 1
      CountSize = CountSize + File.Size
     End If
    Next
    For Each Item in UploadObj.Form
     If UploadForms.Exists (Item) Then _
      UploadForms(Item) = UploadForms(Item) & ", " & Item.Value _
     Else _
      UploadForms.Add Item.Name , Item.Value
    Next
    If Not IsEmpty(SessionName) Then Session(SessionName) = Empty
  End If
 End Sub
 ''-----------------------------------------------------------------------------------
 ''SA-FileUp 4.0组件上传FileUpSE V4.09
 ''-----------------------------------------------------------------------------------
 Private Sub SaveFile_2()
  Dim FormName,Item,File,FormNames
  Dim FileExt,FileName,FileType,FileToBinary
  Dim Filesize
  FileToBinary = Null
  If Not IsEmpty(SessionName) Then
   If Session(SessionName) <> UploadObj.Form(SessionName) or Session(SessionName) = Empty Then
    ErrCodes = 7
    Exit Sub
   End If
  End If
  For Each FormName In UploadObj.Form
   FormNames = ""
   If IsObject(UploadObj.Form(FormName)) Then
    If Not UploadObj.Form(FormName).IsEmpty Then
     UploadObj.Form(FormName).Maxbytes = FileMaxSize '限制大小
     UploadObj.OverWriteFiles = False
     Filesize = UploadObj.Form(FormName).TotalBytes
     If Err.Number<>0 Then
      ErrCodes = -1
      Response.Write "错误信息: " & Err.Description
      EXIT SUB
     End If
     If Filesize>FileMaxSize then
      ErrCodes = 4
      Exit sub
     End If
     FileName = UploadObj.Form(FormName).ShortFileName  '原文件名
     FileExt  = Mid(Filename, InStrRev(Filename, ".")+1)
     FileExt  = FixName(FileExt)
     If CheckFileExt(FileExt) = False then
      ErrCodes = 5
      EXIT SUB
     End If
     FileName = FormatName(FileExt)
     FileType = CheckFiletype(FileExt)
     'If IsBinary Then
      'FileToBinary = UploadContents (2)
     'End If
     '保存文件
     If Filesize>0 Then
      UploadObj.Form(FormName).SaveAs Server.MapPath(FilePath & FileName)
      AddData FormName , _
        FileName , _
        FilePath , _
        FileSize , _
        UploadObj.Form(FormName).ContentType , _
        FileType , _
        FileToBinary , _
        FileExt , _
        -1 , _
        -1
      Count = Count + 1
      CountSize = CountSize + Filesize
     End If
    Else
     ErrCodes = 3
     EXIT SUB
    End If
   Else
    If UploadObj.FormEx(FormName).Count > 1 Then
     For Each FormNames In UploadObj.FormEx(FormName)
      FormNames = FormNames & ", " & FormNames
     Next
     UploadForms.Add FormName , FormNames
    Else
     UploadForms.Add FormName , UploadObj.Form(FormName)
    End If
   End If
  Next
  If Not IsEmpty(SessionName) Then Session(SessionName) = Empty
 End Sub
 ''-----------------------------------------------------------------------------------
 ''DvFile.Upload V1.0组件上传
 ''-----------------------------------------------------------------------------------
 Private Sub SaveFile_3()
  Dim FormName,Item,File
  Dim FileExt,FileName,FileType,FileToBinary
  UploadObj.InceptFileType = InceptFile
  UploadObj.MaxSize = FileMaxSize
  UploadObj.Install
  FileToBinary = Null
  If Not IsEmpty(SessionName) Then
   If Session(SessionName) <> UploadObj.Form(SessionName) or Session(SessionName) = Empty Then
    ErrCodes = 7
    Exit Sub
   End If
  End If
  If UploadObj.Err > 0 then
   Select Case UploadObj.Err
    Case 1 : ErrCodes = 3
    Case 2 : ErrCodes = 4
    Case 3 : ErrCodes = 5
    Case 4 : ErrCodes = 5
    Case 5 : ErrCodes = -1
   End Select
   Exit Sub
  Else
   For Each FormName In UploadObj.File  ''列出所有上传了的文件
    If Count>MaxFile Then
     ErrCodes = 6
     Exit Sub
    End If
    Set File = UploadObj.File(FormName)
    FileExt = FixName(File.FileExt)
    If CheckFileExt(FileExt) = False then
     ErrCodes = 5
     EXIT SUB
    End If
    FileName = FormatName(FileExt)
    FileType = CheckFiletype(FileExt)
    If IsBinary Then
     FileToBinary = File.FileData
    End If
    If File.FileSize>0 Then
     File.SaveToFile Server.mappath(FilePath & FileName)
     AddData FormName , _
       FileName , _
       FilePath , _
       File.FileSize , _
       File.FileType , _
       FileType , _
       FileToBinary , _
       FileExt , _
       File.FileWidth , _
       File.FileHeight
     Count = Count + 1
     CountSize = CountSize + File.FileSize
    End If
    Set File=Nothing
   Next
   For Each Item in UploadObj.Form
    UploadForms.Add Item.Name , Item.Value
   Next
   If Not IsEmpty(SessionName) Then Session(SessionName) = Empty
  End If
 End Sub

 Private Sub AddData( Form_Name,File_Name,File_Path,File_Size,File_ContentType,File_Type,File_Data,File_Ext,File_Width,File_Height )
  Set FileInfo = New FileInfo_Cls
   FileInfo.FormName = Form_Name
   FileInfo.FileName = File_Name
   FileInfo.FilePath = File_Path
   FileInfo.FileSize = File_Size
   FileInfo.FileType = File_Type
   FileInfo.FileContentType = File_ContentType
   FileInfo.FileExt = File_Ext
   FileInfo.FileData = File_Data
   FileInfo.FileHeight = File_Height
   FileInfo.FileWidth = File_Width
   UploadFiles.Add Form_Name , FileInfo
  Set FileInfo = Nothing
 End Sub

 '创建预览图片:Call CreateView(原始文件的路径,预览文件名及路径,原文件后缀)
 Public Sub CreateView(Imagename,TempFilename,FileExt)
  If ErrCodes <>0 Then Exit Sub
  Select Case Preview_Type
   Case 0
    Image_Obj_0 Imagename,TempFilename,FileExt
   Case 1
    Image_Obj_1 Imagename,TempFilename,FileExt
   Case 2
    Image_Obj_2 Imagename,TempFilename,FileExt
   Case Else
    Preview_Type = 999
  End Select
 End Sub

 Sub Image_Obj_0(Imagename,TempFilename,FileExt)
   ImageObj.SetSavePreviewImagePath = Server.MapPath(TempFilename)   '预览图存放路径
   ImageObj.SetPreviewImageSize = SetPreviewImageSize      '预览图宽度
   ImageObj.SetImageFile = Trim(Server.MapPath(Imagename))     'Imagename原始文件的物理路径
   '创建预览图的文件
   If ImageObj.DoImageProcess = False Then
    ErrCodes = -1
    Response.Write "生成预览图错误: " & ImageObj.GetErrString
   End If
 End Sub

 '---------------------AspJpegV1.2---------------
 Sub Image_Obj_1(Imagename,TempFilename,FileExt)
   ' 读取要处理的原文件
   Dim Draw_X,Draw_Y,Logobox
   Draw_X = 0
   Draw_Y = 0
   FileExt = Lcase(FileExt)
   ImageObj.Open Trim(Server.MapPath(Imagename))
   If ImageObj.OriginalWidth<View_ImageWidth or ImageObj.Originalheight<View_ImageHeight Then
    TempFilename = ""
    Exit Sub
   Else
    If FileExt<>"gif" and ImageObj.OriginalWidth > Draw_ImageWidth * 2 and Draw_Type >0 Then
     Draw_X = DrawImage_X(ImageObj.OriginalWidth,Draw_ImageWidth,2)
     Draw_Y = DrawImage_y(ImageObj.Originalheight,Draw_ImageHeight,2)
     If Draw_Type=2 Then
      Set Logobox = Server.CreateObject("Persits.Jpeg")
      '*添加水印图片 添加时请关闭水印字体*
      '//读取添加的图片
      Logobox.Open Server.MapPath(Draw_Info)
      Logobox.Width = Draw_ImageWidth        '// 加入图片的原宽度
      Logobox.Height = Draw_ImageHeight       '// 加入图片的原高度
      ImageObj.DrawImage Draw_X, Draw_Y, Logobox, Draw_Graph,Transition_Color,90 '// 加入图片的位置价坐标（添加水印图片）
      'ImageObj.Sharpen 1, 130
      ImageObj.Save Server.MapPath(Imagename)
      Set Logobox=Nothing
     Else
      '//关于修改字体及文字颜色的
      ImageObj.Canvas.Font.Color  = Draw_FontColor '// 文字的颜色
      ImageObj.Canvas.Font.Family  = Draw_FontFamily '// 文字的字体
      ImageObj.Canvas.Font.Bold  = Draw_FontBold
      ImageObj.Canvas.Font.Size  = Draw_FontSize     '//字体大小
      ' Draw frame: black, 2-pixel width
      ImageObj.Canvas.Print Draw_X, Draw_Y, Draw_Info '// 加入文字的位置坐标
      ImageObj.Canvas.Pen.Color  = &H000000  '// 边框的颜色
      ImageObj.Canvas.Pen.Width  = 1    '// 边框的粗细
      ImageObj.Canvas.Brush.Solid = False   '// 图片边框内是否填充颜色
      'ImageObj.Canvas.Bar 0, 0, ImageObj.Width, ImageObj.Height '// 图片边框线的位置坐标
      ImageObj.Save Server.MapPath(Imagename)
     End If
    End If
    If ImageObj.Width > ImageObj.height Then
     ImageObj.Width = View_ImageWidth
     ImageObj.Height = ViewImage_Height(ImageObj.OriginalWidth,ImageObj.Originalheight,View_ImageWidth,View_ImageHeight)
    Else
     ImageObj.Width = ViewImage_Width(ImageObj.OriginalWidth,ImageObj.Originalheight,View_ImageWidth,View_ImageHeight)
     ImageObj.Height = View_ImageHeight
    End If
    ImageObj.Sharpen 1, 120
    ImageObj.Save Server.MapPath(TempFilename)  '// 生成预览文件
   End If
 End Sub

 'SoftArtisans ImgWriter V1.21
 Public Sub Image_Obj_2(Imagename,TempFilename,FileExt)
   '定义变量
   Dim Draw_X,Draw_Y
   FileExt = Lcase(FileExt)
   Draw_X = 0
   Draw_Y = 0
   ' 读取要处理的原文件
   ImageObj.LoadImage Trim(Server.MapPath(Imagename))
   If ImageObj.ErrorDescription <> "" Then
    TempFilename = ""
    ErrCodes = -1
    Response.Write "生成预览图错误: " &ImageObj.ErrorDescription
    Exit Sub
   End If
   If ImageObj.Width<Cint(View_ImageWidth) or ImageObj.Height<Cint(View_ImageHeight) Then
    TempFilename=""
    Exit Sub
   Else
    IF FileExt<>"gif" and ImageObj.Width > Draw_ImageWidth * 2 and Draw_Type>0 Then
     Draw_X = DrawImage_X(ImageObj.Width,Draw_ImageWidth,2)
     Draw_Y = DrawImage_y(ImageObj.Height,Draw_ImageHeight,2)
     Dim saiTopMiddle
     Select Case Draw_XYType
      Case "0" '左上
       saiTopMiddle = 3
      Case "1" '左下
       saiTopMiddle = 5
      Case "2" '居中
       saiTopMiddle = 1
      Case "3" '右上
       saiTopMiddle = 6
      Case "4" '右下
       saiTopMiddle = 8
      Case Else '不显示
       saiTopMiddle = 0
     End Select
     If Draw_Type=2 Then
      ImageObj.AddWatermark Server.MapPath(Draw_Info), saiTopMiddle, Draw_Graph,Transition_Color,True
      'ImageObj.AddWatermark Server.MapPath(Request.QueryString("mimg")), 0, 0.3
     Else
      ImageObj.Font.Italic = False   '斜体
      ImageObj.Font.height = Draw_FontSize
      ImageObj.Font.name  = Draw_FontFamily
      ImageObj.Font.Color  = Draw_FontColor
      ImageObj.Text   = Draw_Info
      ImageObj.DrawTextOnImage Draw_X, Draw_Y, ImageObj.TextWidth, ImageObj.TextHeight
     End If
     ImageObj.SaveImage 0, ImageObj.ImageFormat, Server.MapPath(Imagename)
    End If
    'ImageObj.SharpenImage 100
    ImageObj.ColorResolution = 24 '24色保存
    ImageObj.ResizeImage View_ImageWidth,View_ImageHeight,0,0
    '0=saiFile,1=saiMemory,2=saiBrowser,4=saiDatabaseBlob
    'saiBMP=1,saiGIF=2,saiJPG=3,saiPNG=4,saiPCX=5,saiTIFF=6,saiWMF=7,saiEMF=8,saiPSD=9
    ImageObj.SaveImage 0, 3, Server.MapPath(TempFilename)
   End If
 End Sub

 '比例或固定缩小
 Private Function ViewImage_Width(Image_W,Image_H,xView_W,xView_H)
  If Draw_SizeType = "1" Then
   ViewImage_Width = Image_W * xView_H / Image_H
  Else
   ViewImage_Width = xView_W
  End If
 End Function

 Private Function ViewImage_Height(Image_W,Image_H,xView_W,xView_H)
  If Draw_SizeType = "1" Then
   ViewImage_Height = xView_W * Image_H / Image_W
  Else
   ViewImage_Height = xView_H
  End If
 End Function

 'SpaceVal X轴坐标边缘距离
 Private Function DrawImage_X(xImage_W,xLogo_W,SpaceVal)
  Select Case Draw_XYType
   Case "0" '左上
    DrawImage_X = SpaceVal
   Case "1" '左下
    DrawImage_X = SpaceVal
   Case "2" '居中
    DrawImage_X = (xImage_W + xLogo_W) / 2
   Case "3" '右上
    DrawImage_X = xImage_W - xLogo_W - SpaceVal
   Case "4" '右下
    DrawImage_X = xImage_W - xLogo_W - SpaceVal
   Case Else '不显示
    DrawImage_X = 0
  End Select
 End Function

 'SpaceVal Y轴坐标边缘距离
 Private Function DrawImage_Y(yImage_H,yLogo_H,SpaceVal)
  Select Case Draw_XYType
   Case "0" '左上
    DrawImage_Y = SpaceVal
   Case "1" '左下
    DrawImage_Y = yImage_H - yLogo_H - SpaceVal
   Case "2" '居中
    DrawImage_Y = (yImage_H + yLogo_H) / 2
   Case "3" '右上
    DrawImage_Y = SpaceVal
   Case "4" '右下
    DrawImage_Y = yImage_H - yLogo_H - SpaceVal
   Case Else '不显示
    DrawImage_Y = 0
  End Select
 End Function

End Class

Class FileInfo_Cls
 Public FormName,FileName,FilePath,FileSize,FileContentType,FileType,FileData,FileExt,FileWidth,FileHeight
 Private Sub Class_Initialize
  FileWidth = -1
  FileHeight = -1
 End Sub
End Class
%>

Posted in 未分类 | No Comments »

« Older Entries