styleup.asp

不是我做的一个留言板

<!--#include file="../main/conn.asp" -->
<%
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="<!-- top -->"
end if

foot_m=request.form("foot_m")
if foot_m="" then
foot_m="<!-- foot -->"
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 
%>

 <!--#include file="../main/welcom.asp" -->
<% end if%>