if session_cookie_name"" and session_cookie_group>3 then
web_id1="../language/"
web_id=web_id1&l_id&"/WELCOM_MSG.ASP"
call include(web_id)
style_id=request.form("id")
'风格名
name=request.form("T1")
if name="" then
name="风格末命名"&style_id
end if
'图片路经
web_background=trim(request.form("T2"))
if web_background="" then
response.Redirect("set_style.asp?styleid="&style_id)
response.end
end if
'背景色
web_bg_color=request.form("t3")
if left(web_bg_color,1)"#" then
web_bg_color="#"&web_bg_color
end if
'网页宽度
web_width=request.form("web_width")
if web_width="" then
web_width="100%"
end if
'#####################################################################
top_bg_color=request.form("t4")
if left(top_bg_color,1)"#" then
top_bg_color="#"&top_bg_color
end if
top_borderbg_color=request.form("t5")
if left(top_borderbg_color,1)"#" then
top_borderbg_color="#"&top_borderbg_color
end if
td_bg_color=request.form("t6")
if left(td_bg_color,1)"#" then
td_bg_color="#"&td_bg_color
end if
td_bor=request.form("td_bor")
if left(td_bor,1)"#" then
td_bor="#"&td_bor
end if
tr_bg_color=request.form("t7")
if left(tr_bg_color,1)"#" then
tr_bg_color="#"&tr_bg_color
end if
table_bg_color=request.form("t8")
if left(table_bg_color,1)"#" then
table_bg_color="#"&table_bg_color
end if
table_borderbg_color=request.form("t9")
if left(table_borderbg_color,1)"#" then
table_borderbg_color="#"&table_borderbg_color
end if
list_bg_color=request.form("t10")
if left(list_bg_color,1)"#" then
list_bg_color="#"&list_bg_color
end if
list_borderbg_color=request.form("t12")
if left(list_borderbg_color,1)"#" then
list_borderbg_color="#"&list_borderbg_color
end if
onMouseOverr=request.form("t13")
if left(onMouseOverr,1)"#" then
onMouseOverr="#"&onMouseOverr
end if
onMouseOut=request.form("t14")
if left(onMouseOut,1)"#" then
onMouseOut="#"&onMouseOut
end if
rigth_bg=request.form("rigth_bg")
if left(rigth_bg,1)"#" then
rigth_bg="#"&rigth_bg
end if
rigth_bor=request.form("rigth_bor")
if left(rigth_bor,1)"#" then
rigth_bor="#"&rigth_bor
end if
top_m=request.form("top_m")
if top_m="" then
top_m=""
end if
foot_m=request.form("foot_m")
if foot_m="" then
foot_m=""
end if
style=request.form("t15")
set sty=server.CreateObject("adodb.recordset")
mysty="select * from style where id="&style_id
sty.open mysty,conn,3,3
sty("name")=name
sty("web_background")=web_background
sty("web_bgcolor")=web_bg_color
sty("web_width")=web_width
sty("top_bg_color")=top_bg_color
sty("top_borderbg_color")=top_borderbg_color
sty("td_bg_color")=td_bg_color
sty("td_bor")=td_bor
sty("tr_bg_color")=tr_bg_color
sty("table_bg_color")=table_bg_color
sty("table_borderbg_color")=table_borderbg_color
sty("list_bg_color")=list_bg_color
sty("list_borderbg_color")=list_borderbg_color
sty("onMouseOverr")=onMouseOverr
sty("onMouseOut")=onMouseOut
sty("rigth_bg")=rigth_bg
sty("rigth_bor")=rigth_bor
sty("top_m")=top_m
sty("foot_m")=foot_m
sty("style")=style
sty.update
sty.close
set sty=nothing
log_url="admin_style.asp?styleid="&style_id
log_msg=L_WELCOM_MSG27
%>