<!--#include FILE="UpLoadClass.asp"-->
<!--#include file="admin.asp"-->
<%
dim request2,formPath,formName,intCount,intTemp,tname
tname=""

'建立上传对象
set request2=new UpLoadClass

	'设置文件允许的附件类型为gif/jpg/rar/zip
	request2.FileType="gif/jpg/bmp/swf/rar/zip/doc/xls/ppt"

	'设置服务器文件保存路径
	request2.SavePath="../upload/"

	'打开对象
	request2.open() 
%>
<%
	
	'----列出所有上传了的文件开始----
	intCount=0
	for intTemp=1 to Ubound(request2.FileItem)
		
		'获取表单文件控件名称，注意FileItem下标从1开始
		formName=request2.FileItem(intTemp)
		
		'显示文件域
		response.write "<br>"&intTemp&"、文件域["&formName&"]："

		'显示源文件路径与文件名
		response.write "<br>"&request2.form(formName&"_Path")&request2.form(formName&"_Name")

		'显示文件大小（字节数）
		response.write "("&request2.form(formName&"_Size")&") => "

		'显示目标文件路径与文件名
		response.Write formPath&request2.form(formName)&" "
        tname=tname&formPath&request2.form(formName)&"|"
		'显示文件保存状态
		select case request2.form(formName&"_Err")
			case -1:
				response.write "<font color=red>没有文件上传</font<br>"
			case 0:
				response.write "上传文件成功<br>"
				intCount=intCount+1
			case 1:
				response.write "<font color=red>文件太大，拒绝上传，单个文件不能超过10M</font><br>"
			case 2:
				response.write "<font color=red>文件格式不对，拒绝上传，只允许格式：gif/jpg/bmp/swf/rar/zip/doc/xls/ppt</font<br>"
			case 3:
				response.write "<font color=red>文件太大且格式不对，拒绝上传</font<br>"
		end select

	next
    

	'response.write "<font color=red><strong></strong></font><br>"
    'response.Write(tname)
	'----列出所有上传了的文件结束并将文件名写入数据库---- 
	'response.Write(tname)

    'dim myrs,mysql,contitle
	'contitle=tname
    'set myrs=server.createobject("adodb.recordset")
    'mysql="select * from [upfiles]"
   ' myrs.open mysql,conn,1,3
   ' myrs.addnew
   ' myrs("myupfiles")=contitle
    'myrs.update
   ' myrs.close
   ' set myrs=nothing
	'response.write "<br>"&intCount&" 个文件上传成功! "
	'response.write "[<a href=""javascript:history.back();"">返回</a>]"
%>
<style type="text/css">
<!--
.STYLE1 {
	color: #FF0000;
	font-weight: bold;
}
-->
</style>

<link href="../index.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE2 {font-weight: bold}
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25"><span class="STYLE1">请将下面黑色区域中的数值复制到附件的列表框，每个文件之间用"|"隔开。</span></td>
  </tr>
  <tr>
    <td height="25" bgcolor="#000000" style="word-break:break-all"><font color=white><%=tname%></font></td>
  </tr>
</table>
<%
'释放上传对象
set request2=nothing
%>
<div align="center"><span class="STYLE2"><a href="uploadfiles.asp">返</a><font color="#04478D"><a href="uploadfiles.asp"> 回</a></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:window.close()" class="style4">关闭窗口</a></span></div>
