duinfw_cp.asp

一套asp办公小软件

<!--#include file="Global.asp" -->
<br>
<!--#include FILE="upload_5xsoft.inc"--><br>
<table border="1" width="80%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
<table border="1" width="100%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td width="100%" height="20" colspan=2 align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>上 传 结 果</b></td>
</tr>
<tr>
<td width="100%">
<table width="100%" border="1" cellspacing="0" cellpadding="1" align="center" bgcolor="<%=MainBgColor%>">
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")

'fso.CreateFolder("d:\sj\text1")
'fso.CreateFolder(Server.mappath("/bangong/wj/"&upload.form(""Title6)))
'response.end
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft 
 
    sj1 = upload.form("Title")   '得到form元素的值
	sj2 = upload.form("Title1")
	sj3 = upload.form("Title2")
    sj4 = upload.form("Title3")
	sj5 = upload.form("Title4")
    sj6 = upload.form("Title5")
	sj7 = upload.form("Title6")
    sj8 = upload.form("Content")
    sj9 = upload.form("Content1")
    sj11 = upload.form("sele1")
    sj12=upload.form("Title10")
    sj13=upload.form("Title11")
'response.write(sjlj)
'response.end
            dim rs1
	        set rs1=server.CreateObject("adodb.recordset")
        	rs1.Open "duinfw",conn,2,2
  		    rs1.AddNew
			rs1("biaot")=sj1
			rs1("zhutc")=sj2
			rs1("wenjh")=sj3
			rs1("fawbm")=sj5
			if sj4<>"" then
			   rs1("bianzrq")=sj4
			end if
			if sj6<>"" then
			   rs1("cundfs")=sj6
			end if
			if sj7<>"" then
			   rs1("dayfs")=sj7
			end if
			rs1("shr")="1"
			rs1("shyj")="1"
			rs1("shoujr")="1"
			if sj8<>"" then
			rs1("faz")=sj8
			end if
			if sj9<>"" then
			rs1("shuom")=sj9
			end if
            rs1("tianbr")=session("yonghm")
            rs1("fawlb")=sj11
           IF SJ12<>"" then
            rs1("chaob")=sj12
           end if
           rs1("chaos")=sj13
           
		rs1.Update 
        rs1.close
sql="select max(id) as sjid from duinfw "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs("sjid")>0 then
   sjlj=rs("sjid")
else
   sjlj=1
end if    
sjlj=cstr(sjlj)
response.write(sjlj)
response.end
aa=Server.mappath("/bangong/wjfj/duinfw/"&sjlj)
if FSO.FolderExists(aa) then
response.write("文件目录已经存在")
else

FSO.CreateFolder(aa)
end if


formPath="sj"
''在目录后加(/)
'if right(formPath,1)<>"/" then formPath=formPath&"/"
'end if
'response.write(formpath)
'response.end
iCount=1
response.write "<tr align=center><td>源文件</td><td>文件大小</td><td>上传路径</td><td>目的文件</td><td>上传结果</td></tr>"
for each formName in upload.file 
set file=upload.file(formName)
'response.write(Server.mappath("/bangong/wjfj/"&sj7&"/"&file.FileName))
'response.end
if file.fileName<>"" then
if instr("asp,asa,css,jpg.doc,xls",getFileExtName(file.fileName))=0 then	'-------在此行的引号内添加受限的文件格式----------
response.write "<tr align=center ><td>"&file.FileName&"</td><td>"&file.FileSize&"</td><td>-</td><td><font color=red>受限文件</font></td><td><font color=red>失败！</font></td></tr>"
else
if file.FileSize>0 then
file.SaveAs Server.mappath("/bangong/wjfj/duinfw/"&sjlj&"/"&file.FileName)
'Server.mappath("/sj"&file.FileName)
response.write "<tr align=center ><td>"&file.FileName&"</td><td>"&file.FileSize&"</td><td>"&Server.MapPath("/bangong/wjfj/duinfw/"&sjlj)&"</td><td>"&file.FileName&"</td><td>成功！</td></tr>"
end if	
end if
else
Response.Write "<tr align=center><td><font color=red>没有选择</font></td><td>－</td><td>－</td><td>－</td><td><font color=red>失败！</font></td></tr>"
end if
iCount=iCount+1
set file=nothing
next
set upload=nothing
%>
</table></td></tr><td height='27' align='center'><%=iCount-1%>个文件上传结束!</td></tr>
<%
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function
%>
</table>
</td>
</tr>
</table>
<%set rs=nothing%>