t;")
  Response.Write("</body></html>")

 End sub

 Function GetExtendName(FileName)
 '本过程用于获取上传源文件的扩展名
  dim ExtName
  ExtName = LCase(FileName)
  ExtName = mid(ExtName,instrRev(ExtName,"."))
  GetExtendName = ExtName
 End function
 
 Sub showErr(msg)
 '本过程用于显示操作错误信息
  Response.Write(msg)
  CALL closeObject()
  Response.End()
 End sub
 
 Sub closeObject()
 '本过程用于关闭对象
  set upload=Nothing
  set thisFile=Nothing
 End sub
%>

　　以上源代码只要稍作修改即可。最好在父文件使用iFrame标签调用。父文件用于记录上传后文件名的隐藏表单控件名为<input name="P_Image" type="hidden" id="P_Image" value="0">，表单名为"parent.frm_publish"。如表单名和控件名改变，则相应地，源代码红色标注部分也要作相应改变，否则无法传递值。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 

在google里搜索更多防止用户上传产生无效文件源码

	Web www.51ec.org

上一篇信息学院： .net中控件中嵌套控件的用法

下一篇信息学院： ASP.NET中TreeView控件使用小结