<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->

 <%
 
 
  function initdata(str,strs)
   if instr(trim(strs),str)>0 then
    resultval=1
    else
	resultval=0
    end if
	initdata=resultval
 end function
 
 
postname=request.form("postname")
project=request.form("project")
englishname=request.form("englishname")
postxx=request.form("postxx")
type_class1=request.form("p_z_Z_RootCategory")
CategoryId=split(Replace_Text(request("p_z_Z_CategoryId1")),",")
post_info=request.form("post_info")
condition=request.form("condition")
linkman=request.form("linkman")
company=request.form("company")
country=request.form("country1")
province=request.form("province")
city=request.form("city")
phone=request.form("phone")
code=request.form("code")
email=request.form("email")
fax=request.form("fax")
web=request.form("homepage")
address=request.form("address")
mobile=request.form("mobile")
drawalt=request.form("draw")
tm=request.Form("tm")
logo=request("picture")
 type_class2=CategoryId(0)                 
 if ubound(CategoryId)>=1 then
    type_class3=CategoryId(1)                                                               
 else
    type_class3=0
 end if

if postname="" then
Response.Write ("<script>alert('品牌名称必须填写!');history.back();</script>")
end if
if project="" then
Response.Write ("<script>alert('项目标题必须填写!');history.back();</script>")
end if

Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select * from Websen_post where id="&request("id")
rs.open sql,conn,1,3

rs("postname")=postname
rs("project")=project
rs("englishname")=englishname
rs("postxx")=postxx
rs("type_class1")=type_class1
rs("type_class2")=type_class2
rs("post_info")=post_info
rs("condition")=condition
rs("country")=country
rs("province")=province
rs("city")=city
rs("phone")=phone
rs("code")=code
rs("email")=email
rs("fax")=fax
rs("web")=web
rs("address")=address
rs("mobile")=mobile
rs("drawalt")=drawalt
rs("type_class3")=type_class3
rs("tm")=tm
rs("logo")=logo
rs("flag")=1
rs.update
rs.close
set rs=nothing

 %>

 <%
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='postmanage.asp'>返回</a></td>"
response.write"</tr>"
response.write"</table>"
conn.close
set conn=nothing
 %>