addnews_submit.asp

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

<!--#include file=../common/conn.asp -->
<!--#include file="upload.inc"-->
<%
Function ChangeToHtmlStr(CTHStr)
  Dim TempStr,i,LenStr
  If IsNull(CTHStr) Then
     ChangeToHtmlStr=""
     Exit Function
  End If
  LenStr=Len(CTHStr)
  TempStr=""
  For i=1 To LenStr
      Select Case Mid(CTHStr,i,1)
             Case "<"
                TempStr=TempStr+"&lt;"
             Case ">"   
                TempStr=TempStr+"&gt;"
             Case "&"      
                TempStr=TempStr+"&amp;"
             Case Chr(34)
                TempStr=TempStr+"&quot;"
             Case Chr(13)
                TempStr=TempStr+"<br>"
             Case Chr(9)
                TempStr=TempStr+"&nbsp;&nbsp;&nbsp;&nbsp;"
             Case Chr(32)
                TempStr=TempStr+"&nbsp;"     
             Case Else
                TempStr=TempStr+Mid(CTHStr,i,1)
             End Select
    Next         
  ChangeToHtmlStr=TempStr                 
End Function
%>
<%
'path="e:\client\xcrm\admin\picture"
'上传方法，0＝无组件，1＝lyfupload，2＝aspupload，3＝chinaaspupload
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 ''建立上传对象


formPath=upload.form("image")
classid=upload.form("classid")
urlpath=upload.form("urlpath")
sql="select*from AddHTP"
rs.open sql,conn,3,2
rs.addnew
if formpath<>"" then
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 'response.Write(fromName)
 'response.End()
 if file.filesize<10 then
 	response.write "<font size=2>请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if
 	
 '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]'</script>"
		'exit for
		'end if
'	next
 iCount=iCount+1
 end if
 set file=nothing
next
rs("imgpath")=filename
end if
rs("caption")=classid
if urlpath<>"" then
rs("urlpath")=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('addnew.asp');
//-->
</SCRIPT>