<link href="../css/style.css" rel="stylesheet" type="text/css">
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include FILE="../../inc/upload_5xsoft.inc"-->
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"41")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<%
set upload=new upload_5xSoft

formPath=newspic
formPath2="vipinfopic/"


showname=Replace_Text(upload.form("showname"))
jgsm=Replace_Text(upload.form("jgsm"))
content=Replace_Text(upload.form("content"))
sortid=Replace_Text(upload.form("p_z_Z_RootCategory"))
CategoryId=split(Replace_Text(upload.form("p_z_Z_CategoryId1")),",")
typeid=CategoryId(0)
typeid_2=CategoryId(1)
Keywords=Replace_Text(upload.form("p_z_Z_Keywords"))
mmfx=Replace_Text(upload.form("type"))
period=Replace_Text(upload.form("period"))
linkman=Replace_Text(upload.form("linkman"))
phone=Replace_Text(upload.form("phone"))
company=Replace_Text(upload.form("company"))
address=Replace_Text(upload.form("address"))
country=Replace_Text(upload.form("country"))
city=Replace_Text(upload.form("city"))
email=Replace_Text(upload.form("email"))
postcode=Replace_Text(upload.form("postcode"))
fax=Replace_Text(upload.form("fax"))
web=Replace_Text(upload.form("web"))
if upload.form("checkbox")="1" then
tjhome=1
else
tjhome=0
end if


'iCount=0
for each formName in upload.objFile 
set file=upload.file(formName)
if file.FileSize>0 then
if file.filesize>200000 then
response.write"<SCRIPT language=JavaScript>alert('您上傳的圖片大于規定大小(200K),請改變文件大小后再進行上傳。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
FileExt	= Mid(file.Filename, InStrRev(file.Filename, ".")+1)
FileExt	= FixName(FileExt)
If Not ( CheckFileExt(FileExt) and CheckFileType(File.FileType) ) Then
'if trim(right(file.FileName,3))<>"jpg" and trim(right(file.FileName,3))<>"gif" then
response.write"<SCRIPT language=JavaScript>alert('您上傳的文件必須是gif|jpg|jpeg|bmp|png圖象文件，請將你上傳的文件轉換為以上格式后再進行上傳。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'FileName=gsid&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
FileName=formPath2&MakedownName()&"."&FileExt
Dim objFSO    '聲明一個名稱為 objFSO 的變量以存放對象實例
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(Server.MapPath(""&formPath&""&formPath2&"")) Then'如果存在就直接保存圖片
file.SaveAs Server.mappath(formPath&thename)
  Else
   objFSO.CreateFolder(Server.MapPath(""&formPath&""&formPath2&""))'不存在就建一個目錄
file.SaveAs Server.mappath(formPath&thename)
  End If
  Set objFSO = Nothing      '釋放 FileSystemObject 對象實例內存空間
file.SaveAs Server.mappath(formPath&FileName)
picture=FileName
'iCount=iCount+1
end if
next
set file=nothing

set rs=server.createobject("adodb.recordset")
sql="select * from vipinfo where vipshowname='"&showname&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write"<SCRIPT language=JavaScript>alert('對不起，您已經提交過此信息！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
else
rs.addnew
rs("vipshowname")=showname
rs("vippricetems")=jgsm
rs("keywords")=Keywords
rs("vipcontent")=content
rs("sortid")=sortid
rs("typeid")=typeid

if picture="" then picture="nopicture.gif"
rs("picture")=picture
rs("viptype")=mmfx
rs("vipperiod")=period
rs("lxr")=linkman
rs("phone")=phone
rs("gsmc")=company
rs("gsdz")=address
rs("country")=country
rs("city")=city
rs("email")=email
rs("post")=postcode
rs("fax")=fax
rs("weburl")=web
rs("dateandtime")=now()
rs("tjhome")=tjhome
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
set upload=nothing 
end if
response.write"<table cellpadding=2 cellspacing=1 border=0 width=100% class=tableBorder align=center>"
response.write"<TR>"
response.write"<TH class=tableHeaderText colSpan=2 height=25>專項商機管理</TH>"
response.write"<TR><tr><td height=85 valign=top class=forumRow><div align=center><br><br>發布專項商機信息成功！</div></td></tr>"
response.write"<tr align=center><td height=30 class=forumRowHighlight><a href='index.asp'>&lt;&lt; 返回上一頁</a></td>"
response.write"</tr>"
response.write"</table>"
%>
<br>
<!--#include file="../copy.asp" -->