不是我做的一个留言板

源代码在线查看: styleup.asp

软件大小: 1063 K
上传用户: littlefish
关键词: 留言板
下载地址: 免注册下载 普通下载 VIP

相关代码

				
								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 
				%>
				
				 
				
							

相关资源