admincs.asp

本系统由齐齐哈尔职业学院计算机软件052班 袁利峰 开发, 版权属于 袁利峰 所有,本作品仅作为网友学习使用, 如果您需要本系统或者需要在本系统基础上进行二次开发,请与我联系 QQ:20893918

<%@ CODEPAGE = "936" %>
<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->
<% if session("25175guestbook")="" then
response.redirect("login.asp")
end if%>
 <% if Request.QueryString("action")="do" then
 s_id=request("s_id")
background=request.form("background")
ttitle=request.form("ttitle")
h_Color=request.form("hColor")
tColor=request.form("tColor")
tColor1=request.form("tColor1")
tColor2=request.form("tColor2")
bdtj=request.form("bdtj")
tdc=request.form("tdc")
tdc1=request.form("tdc1")
bgcolor=request.form("bgcolor")
top1=request.form("top1")
link=request.form("link")
 if request("del")<>"1" then
sqlch="Update stycss set top1='"&top1&"',ttitle='"&ttitle&"',hcolor='"&h_color&"',link='"&link&"',bgcolor='"&bgcolor&"',tdc1='"&tdc1&"',tdc='"&tdc&"',bdtj='"&bdtj&"',tColor2='"&tColor2&"',tColor1='"&tColor1&"',tColor='"&tColor&"',background='"&background&"'where s_id="&s_id&""
conn.Execute (sqlch)
else
s="delete * from stycss where s_id="&s_id&""
conn.execute(s)
end if
response.redirect("admincs.asp")
elseif Request.QueryString("action")="" then
%>




  <div align="center">
  <table width="760"  border="1" align="center" cellpadding="4" cellspacing="1" bordercolor="<%=bgcolor%>" style="border-collapse: collapse">
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=22>&nbsp;</td>
    </tr>
       <tr><% sql="select s_id,ttitle from stycss"
set rs=conn.Execute (sql)
if not rs.eof then
end if%>
      <td width="100%" align="center" bgcolor=<%=tColor1%> class=tdc colspan="2"><% do while not rs.eof%><a href=admincs.asp?action=edit&s_id=<%=rs("s_id")%>><%=rs("ttitle")%></a> 
      <%rs.movenext
      loop
      set rs=nothing%>　</td>
      
    </tr>
    </table>
  </div>
   
    
    <%else

 s_id=request("s_id")
sqlchk="select * from stycss where s_id="&s_id&""
set rschk=conn.Execute (sqlchk)
%> <div align="center">
  <center>
  <table width="760"  border="1" align="center" cellpadding="4" cellspacing="1" bordercolor="<%=bgcolor%>" style="border-collapse: collapse">
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=22><a href="admincs.asp">留言簿基本样式设置</a> | 
      <a href="adminadd.asp">新建样式</a></td>
    </tr>
     <form name="form1" method="POST" action="admincs.asp?action=do&s_id=<%=s_id%>">
         <tr>
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>样式名称：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="ttitle" class=tdc size="20" value="<%=rschk("ttitle")%>">&nbsp;
        </td>
    </tr>
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>背景音乐：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="top1" class=tdc size="20" value="<%=rschk("top1")%>"> (不设，请留空)
        </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>页背景图片：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="background" class=tdc size="30" value="<%=rschk("background")%>">
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>分类背景色：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="hcolor" class=tdc size="30" value="<%=rschk("hcolor")%>">
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>标题背景色：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="tcolor" class=tdc size="30" value="<%=rschk("tcolor")%>">
      </td>
    </tr>
       <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>按钮背景色1：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="bdtj" class=tdc size="10" value="<%=rschk("bdtj")%>"> 
        (通常跟标题背景色一致）</td>
    </tr>
    <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>文字色1:：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="tdc" class=tdc size="10" value="<%=rschk("tdc")%>">(一般显示文章内容)
      </td>
    </tr>
       <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>文字色2:：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="tdc1" class=tdc size="10" value="<%=rschk("tdc1")%>">(一般显示标题栏上的文字)
      </td>
    </tr>
      <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>表格背景色1：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="tColor2" class=tdc size="10" value="<%=rschk("tColor2")%>">
      </td>
    </tr>
         <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>表格背景色2：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="tColor1" class=tdc size="10" value="<%=rschk("tColor1")%>">
      </td>
    </tr>
 
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>超级连接颜色：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="link" class=tdc size="10" value="<%=rschk("link")%>"> 
        </td>
    </tr>
          <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>表格线颜色：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="bgcolor" class=tdc size="10" value="<%=rschk("bgcolor")%>"> 
        </td>
    </tr>
      <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>操作：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="checkbox" name="del" value="1">删除此样式 
        </td>
    </tr>
    <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>　</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="submit" name="Submit" value="提交" class=bdtj>
        <input type="reset" name="Submit2" value="重置" class=bdtj>
      </td>
    </tr>
    </table>
  </center>
  </div>
  </form>
    <% end if%>