saveproducts.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,filccy

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")
caption=upload.form("caption")
classid=upload.form("classid")
company=upload.form("company")
address=upload.form("Address")
market=upload.form("market")
atline=upload.form("atline")
content=ChangeToHtmlStr(upload.form("content"))

 ''在目录后加(/)
 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<1 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=".asp" and fileEXT=".asa" and fileEXT=".aspx" then
	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

sql="select*from product"
rs.open sql,conn,3,2
rs.addnew
rs("imgpath")=filename
rs("name")=caption
rs("classId")=classid
rs("address")=address
rs("username")=company
rs("atline")=atline
rs("market")=market
rs("content")=content
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('addproducts.asp');
//-->
</SCRIPT>