<%on error resume next%> <%if request("action")="setskin" and request("gbskinid")<>"" then sql="update setting set skinid="&request("gbskinid") conn.Execute(sql) response.redirect "gb_skin.asp" end if%> <%if request("action")="modifypost" and request("gbskinid")<>"" then formcolor1=request("formbg1")&","&request("formborder1")&","&request("formtext1") jnfontcolor1=request("namecolor1")&","&request("nameshadow1")&","&request("gbtextcolor1")&","&request("gbtextshadow1") textcolor1=request("maincolor1")&","&request("linkcolor1")&","&request("hovercolor1") bar1=request("barface1")&","&request("barhignlight1")&","&request("barshadow1")&","&request("bar3d1")&","&request("bararrow1")&","&request("bartrack1")&","&request("bardarkshadow1") sql="update skin set skinname='"&request("skinname")&"',bg='"&request("bg")&"',lybg='"&request("lybg")&"',writebg1='"&request("writebg1")&"',writebg2='"&request("writebg2")&"',bgpic='"&request("bgpic")&"',copyrightbg='"&request("copyrightbg")&"',replycolor='"&request("replycolor")&"',recolor='"&request("recolor")&"',formcolor='"&formcolor1&"',jnfontcolor='"&jnfontcolor1&"',textcolor='"&textcolor1&"',bar='"&bar1&"' where skinid="&request("gbskinid") conn.Execute(sql) response.redirect "gb_skin.asp" end if%>

<%sql="select skin.skinname from setting,skin where setting.skinid=skin.skinid" set rs=conn.execute(sql)%> <%rs.close set rs=nothing%> <% if request("gbskinid")="" then gbskinid=request.Cookies("ceocio")("skinid") else gbskinid=request("gbskinid") end if sql="select * from skin where skinid="&gbskinid set rs=conn.execute(sql) if rs.bof or rs.eof then response.write "没有指定id" end if formcolor1=split(rs("formcolor"),",") formbg1=formcolor(0) formborder1=formcolor(1) formtext1=formcolor(2) jnfontcolor1=split(rs("jnfontcolor"),",") namecolor1=jnfontcolor(0) nameshadow1=jnfontcolor(1) gbtextcolor1=jnfontcolor(2) gbtextshadow1=jnfontcolor(3) textcolor1=split(rs("textcolor"),",") maincolor1=textcolor(0) linkcolor1=textcolor(1) hovercolor1=textcolor(2) bar1=split(rs("bar"),",") barface1=bar(0) barhignlight1=bar(1) barshadow1=bar(2) bar3d1=bar(3) bararrow1=bar(4) bartrack1=bar(5) bardarkshadow1=bar(6) %> <%rs.close set rs=nothing%> 当前使用使用的默认皮肤是：<%=rs("skinname")%>   选择要查看或修改的皮肤： 留言皮肤选择 <%sql="select skinid,skinname from skin order by skinid" set rs=conn.execute(sql) do while not rs.eof%> ><%=rs("skinname")%> <%rs.movenext loop rs.close set rs=nothing%> <%if request("gbskinid")="" then%> <%else%> '" type="button" value="设置当前皮肤为默认皮肤"> <%end if%>   颜色设定： 皮肤名称   ">"> 背景图片（若使用则背景颜色不起作用，不使用请留空） ">  "> 背景颜色 ">  "> 留言本内部背景（若使背景应用与此请留空） ">  "> 填写留言背景1 ">  "> 填写留言背景2 ">  "> 底部背景色 ">  "> 回复两字颜色 ">  "> 回复字体颜色 ">  "> 表单背景颜色   表单边框颜色   表单字体颜色   留言人名字颜色   留言人名字阴影   留言颜色   留言阴影   字体颜色   链接颜色   悬停颜色   滚动条表面颜色   高亮颜色   阴影颜色   3D颜色   箭头颜色   条内颜色   滚动时候颜色