addnews_submit.asp

中原商贸城 中原商贸城 项目库 企业库 供求信息 会员 招聘 企业展示

<!--#include file="../common/conn.asp"-->
<!--#include file="upload.inc"-->
<%

'上传方法，0＝无组件，1＝lyfupload，2＝aspupload，3＝chinaaspupload
dim arr(2)
dim upload_type
upload_type=0
dim upNum
dim uploadsuc
dim Forumupload
dim ranNum
dim uploadfiletype
dim upload,file,formName,formPath,iCount,filename,fileExt,fileccy

select case upload_type
case 0
	call upload_0()
case 1
	call upload_1()
case else
	response.write "本系统未开放插件功能"
	response.end
end select

sub upload_0()
set upload=new upload_5xSoft ''建立上传对象

set image=upload.file("newspic")
formPath=upload.form("filepath")
classid=upload.form("classid")
urlpath=upload.form("content")
 
sql="select*from schd"
rs.open sql,conn,3,2
rs.addnew
if image.filename<>"" then
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
iCount=0
j=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象

 	
 'if file.filesize>cint(uploadsize)*1000 then
'' 	response.write "<font size=2>文件大小超过了限制 "&uploadsize&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"'
'	response.end
 'end if

 fileExt=lcase(right(file.filename,4))
 uploadsuc=false
 Forumupload=split(Forum_upload,",")
 for i=0 to ubound(Forumupload)
	if fileEXT="."&trim(Forumupload(i)) then
	uploadsuc=true
	exit for
	else
	uploadsuc=false
	end if
 next
 

 if fileEXT = ".jpg"  or  fileEXT=".gif"  or  fileEXT=".bmp"  or  fileEXT=".swf"  then
 uploadsuc=true
 else
	uploadsuc=false
 end if
 response.Write(fileExt)
  response.Write(uploadsuc)
 if uploadsuc=false then
 	response.write "<font size=2>文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
end if

 randomize
 ranNum=int(90000*rnd)+10000
 fileccy=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt
 filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt


 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath("../image/"&fileccy)   ''保存文件
	'for i=0 to ubound(Forumupload)
	'	if fileEXT="."&trim(Forumupload(i)) then
	 '	response.write "<script>parent.frmAnnounce.Content.value+='[upload="&Forumupload(i)&"]"&FileName&"[/upload]'
		'exit for
		'end if
'	next
 arr(j)=filename
 j=j+1
 iCount=iCount+1
 end if
 set file=nothing
next

rs("imgpath")=arr(0)
end if
rs("classid")=classid
if urlpath<>"" then
rs("content")=urlpath
end if
rs.update
rs.close

set upload=nothing

'Htmend iCount&" 个文件上传结束!"
end sub

sub HtmEnd(Msg)
 if upNum="" then upNum=1
 session("upNum")=upNum+1
 response.write "<font size=2>文件上传成功 [ <a href=# onclick=history.go(-1)>继续上传</a> ]</font>"
 response.end
end sub

'--------将日期转化成文件名--------
function MakedownName(filename)
  dim fname,Forumupload,u
  fname = year(now())&month(now())&day(now())&hour(now())&minuth(now())&secong(now())
  Forumupload=split(Forum_upload,",")
  for u=0 to ubound(Forumupload)
		if instr(filename,Forumupload(u))>0 then
			uploadfiletype=Forumupload(u)
			MakedownName=fname & "." & Forumupload(u)
			exit for
		end if
  next
end function


%>
<SCRIPT LANGUAGE="JavaScript">
<!--
	alert('服务添加成功！');
	window.navigate('addnews.asp');
//-->
</SCRIPT>