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("file")
formPath=upload.form("filepath")
title=upload.form("caption")
urlpath=upload.form("content")
classid=upload.form("classid")
sql="select*from fad"
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
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("imgpath1")=arr(0)
if arr(1)<>"" then
rs("imgpath2")=arr(1)
end if
if arr(2)<>"" then
rs("imgpath3")=arr(2)
end if
end if

rs("caption")=title
rs("classid")=classid
rs("content")=urlpath
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>