<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/ip.asp"-->
<%
dim rs,sql,class1,class2,biaoti,diqu,city,memo,a,b,c,d,username,userip,id,sdays,jiage,file
if session("addxinxi")<>"" then
  if DateDiff("s",session("addxinxi"),Now())<30 then
  Response.Write "<script language='javascript'>alert('系統保護：你提交數據太快，系統中止運行，請等待30秒鐘！');history.back();</script>" 
  response.end
  end if
end if

username=request.cookies("cnmai")("username")
class1=trim(request("class1"))
class2=trim(request("class2"))
biaoti=CheckStr(trim(request("biaoti")))
sdays=trim(request("days"))
dim jg
if request("jiage")="" then 
	Response.Write "<script language='javascript'>alert('必須輸入價格');window.history.back();</script>"
	response.end
else 
	jg= Cint(CheckStr(request("jiage")))
end if	
if right(request("tupian"),4)=".gif" or right(request("tupian"),4)=".bmp" or right(request("tupian"),4)=".jpg" or right(request("tupian"),5)=".jpeg" or request("tupian")="" then
else
Response.Write "<script language='javascript'>alert('請正確填寫圖片地址！');history.back();</script>" 
response.end
end if

if class1="0" or class1="" then
Response.Write "<script language='javascript'>alert('請選擇一級分類！');history.back();</script>" 
response.end
end if
if class2="0" or class2="" then
Response.Write "<script language='javascript'>alert('請選擇二級分類！');history.back();</script>" 
response.end
end if

if username<>"" then
set rs=server.createobject("adodb.recordset")
if request("comper")="com" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
rs.open sql,conn,1,3
rs("jf")=rs("jf")+jf_3
if len(request("a"))=6 and rs("a")>=1 then
rs("a")=rs("a")-1
end if
if request("b")>=1 and rs("b")>=1 then
rs("b")=rs("b")-int(request("b"))
end if
if request("tupian")<>"" and rs("c")>=1 then
rs("c")=rs("c")-1
end if
if request("d")="1"then
rs("d")=rs("d")-1
else
rs("d")=0
end if

rs.update
rs.close
set rs=nothing
end if

set rs=server.createobject("adodb.recordset")
sql = "select * from xinxi"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("class1")=class1
rs("class2")=class2
rs("biaoti")=biaoti
rs("leixing")=request("leixing")
rs("diqu")=trim(request("diqu"))
rs("jiage")=jg
rs("memo")=CheckStr(trim(request("memo")))
rs("name")=CheckStr(trim(request("name")))
rs("dianhua")=CheckStr(trim(request("dianhua")))
rs("email")=CheckStr(trim(request("email")))
rs("qq")=CheckStr(trim(request("qq")))
rs("dizhi")=CheckStr(trim(request("dizhi")))
if request("tupian")="" then
rs("tupian")=0
else
rs("tupian")=CheckStr(trim(request("tupian")))
end if

if username<>"" then
rs("com")=CheckStr(trim(request("com")))
rs("a")=request("a")
rs("b")=request("b")
rs("yz")=request("d")
rs("tuijian")=request("tui")
end if

rs("fbsj")=now()
rs("dqsj")= dateadd("d", sdays, now)
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then 
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.update
session("addxinxi")=now()
id=rs("id")
rs.update

rs.close  
set rs=nothing                                                                                     
conn.close   
set conn=nothing
if username<>"" then
Response.Write "<script language='javascript'>alert('恭喜您！信息發布成功！');</script>" 
else
Response.Write "<script language='javascript'>alert('(游客)信息發布成功,我們將在24小時內審核通過！');</script>" 
end if
response.write "<meta http-equiv=refresh content=""1;URL=index.asp"">"
response.end
%>