admin_config.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="top.asp"-->
<img src="" width="1" height="3"><table width="680" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tablebackcolor%>">
  <tr> 
    <td width="160" bgcolor="<%=tabletitlecolor%>" height="129" valign=top> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="622" bgcolor="<%=tablebodycolor%>" valign="middle" height="129"> 
<%
sql="select * from config"
rs.open sql,conn,1,1
if rs.eof then
	response.write"<br><li>非法更改数据库，请重新下载数据库"
	response.end
else
%>
      <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tabletitlecolor%>">
        <form method="post" action="admin_configsave.asp">
          <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
            <td colspan="2" height="20">网站默认配置</td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td width="20%" align="right">网站名称:</td>
            <td width="80%"> 
              <input type="text" name="webname" size="30" maxlength="255" value="<%=rs("webname")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">网站地址:</td>
            <td>
              <input type="text" name="weburl" size="40" maxlength="255" value="<%=rs("weburl")%>">
            </td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">每页主题显示数目:</td>
            <td> 
              <input type="text" size="15" maxlength="100" name="maxperpage" value="<%=rs("maxperpage")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">默认背景色:</td>
            <td> 
              <input type="text" size="15" maxlength="100" name="bgcolor" value="<%=rs("bgcolor")%>">
            </td>
          </tr>
		 
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right"> 默认背景图片:</td>
            <td> 
              <input type="text" name="bgimage" size="40" maxlength="255" value="<%=rs("bgimage")%>">
            </td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛主题图片:</td>
            <td> 
              <input type="text" name="images" size="20" maxlength="255" value="<%=rs("images")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">广告代码:</td>
            <td> 
              <input type="text" name="ads" size="20" maxlength="255" value="<%=rs("ads")%>">
            </td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格边框色:</td>
            <td> 
              <input type="text" name="tablebackcolor" size="20" maxlength="20" value="<%=rs("tablebackcolor")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格内容色:</td>
            <td> 
              <input type="text" name="tablebodycolor" size="20" maxlength="20" value="<%=rs("tablebodycolor")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格标题色:</td>
            <td> 
              <input type="text" name="tabletitlecolor" size="20" maxlength="255" value="<%=rs("tabletitlecolor")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格穿插色:</td>
            <td> 
              <input type="text" name="tablebodyacolor" size="20" maxlength="255" value="<%=rs("tablebodyacolor")%>">
            </td>
          </tr>  
          <tr align="center" bgcolor="<%=tablebodycolor%>"> 
            <td colspan="2"> 
              <input type="submit" value=" 提 交 ">
              <input type="reset" value=" 清 空 ">
            </td>
          </tr>
        </form>
      </table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>