admincolor.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
If Cint(AdminGroup(0))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<!--#include file="top.asp"-->
<%
select case request("action")
case "saveedit"
call saveedit()
case else
call normal()
end select
sub normal()
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form1" method="post" action="?action=saveedit" >
  <tr align="center"> 
    <td height="25" colspan="2" class="banner">样式设置</td>
  </tr>
<tr> 
            <td width="40%" align="center" class="tablebody">Body样式：</td>
            <td class="tablebody"><textarea name="css0" cols="39" id="css0"><%=AdminCss(0)%></textarea></td>
    </tr>
          <tr> 
            
      <td align="center" class="tablebody">顶部表格样式(toptable1)</td>
            <td class="tablebody"><textarea name="css1" cols="39" rows="3" id="css1"><%=AdminCSS(1)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center" class="tablebody">顶部2表格样式(toptable2)</td>
            <td class="tablebody"><textarea name="css2" cols="39" rows="3" id="css2"><%=AdminCSS(2)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center"  class="tablebody">导航条样式(banner)</td>
            <td class="tablebody"><textarea name="css3" cols="39" rows="3" id="css3"><%=AdminCSS(3)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center" class="tablebody">表格边框颜色(tablecolor)</td>
            <td class="tablebody"><textarea name="css4" cols="39" rows="3" id="css4"><%=AdminCSS(4)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center" class="tablebody">表格颜色(tablebody)</td>
            <td class="tablebody"><textarea name="css5" cols="39" rows="3" id="css5"><%=AdminCSS(5)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center" class="tablebody">表格Td样式(td)</td>
            <td  class="tablebody"><textarea name="css6" cols="39" rows="3" id="css6"><%=AdminCSS(6)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center" class="tablebody">链接样式(link)</td>
            <td class="tablebody"><textarea name="css7" cols="39" rows="3" id="css7"><%=AdminCSS(7)%></textarea></td>
          </tr>
          <tr> 
            
      <td align="center" class="tablebody">特殊链接.a样式(a)</td>
            <td class="tablebody"><textarea name="css8" cols="39" rows="3" id="css8"><%=AdminCSS(8)%></textarea></td>
          </tr>
  <tr align="center"> 
    <td height="25" colspan="2" class="tablebody"><input type="submit" name="Submit" value="更新设置"> 
              <input type="reset" name="Submit2" value="重置"></td>
  </tr></form>
</table>
<%
end sub
sub saveedit
dim AdminCss,rssave
set rssave=server.CreateObject("adodb.recordset")
rssave.open "select * from adminconfig",conn,1,2
AdminCss=request.Form("css0")&"|||"&request.Form("css1")&"|||"&request.Form("css2")&"|||"&request.Form("css3")&"|||"&request.Form("css4")&"|||"&request.Form("css5")&"|||"&request.Form("css6")&"|||"&request.Form("css7")&"|||"&request.Form("css8")
rssave(5)=AdminCss
rssave.update
rssave.close
set rssave=nothing
response.Write("<script>alert('更新设置成功！');location='admincolor.asp'</script>")
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->