system.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="admingongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="sysinfo.asp"-->

<title>网站配置</title>
<%
if uzhiwu=100 then '是管员才能进
syss="select * from system"
set rssys=server.createobject("adodb.recordset")
rssys.open syss,conn,1,1
ccss="select * from css"
set rscss=server.createobject("adodb.recordset")
rscss.open ccss,conn,1,1
%>
<table width=775 border="0" align="center" cellspacing="0">
  <tr> 
    <td align="center">&nbsp;</td>
  </tr>
  <tr> 
    <td align="center"><form name="form" method="post" action="system.asp">
        <table width="70%" border="0" cellspacing="0" class="130b">
          <tr> 
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><a href="syshtml.asp" target="_self">设置生成html</a></td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>主题颜色</td>
            <td> 
              <% do while not rscss.eof %>
              <a href=system.asp?css=<%=rscss("css")%> target=_self><%=rscss("cssname")%></a> 
              | 
              <%
		   rscss.MoveNext
			loop%>
            </td>
            <td><a href="addcss.asp" target="_self">填加样式</a></td>
          </tr>
          <tr> 
            <td>网站名称</td>
            <td><input name="webname" type="text" value="<%=rssys("webname")%>" size="50">
              *</td>
            <td>最多250个字</td>
          </tr>
          <tr> 
            <td>主吧地址</td>
            <td><input name="url" type="text" value="<%=rssys("url")%>" size="50">
              * </td>
            <td>指向您首页指向的吧</td>
          </tr>
          <tr> 
            <td>标题后缀</td>
            <td><input name="bbs" type="text" value="<%=rssys("bbs")%>" size="50"></td>
            <td>如：贴吧，论坛，留言簿，社区等等</td>
          </tr>
          <tr> 
            <td>网站logo</td>
            <td><input name="logo" type="text" value="<%=rssys("logo")%>" size="50">
              *</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>版权信息</td>
            <td><textarea name="copy" cols="50" rows="5"><%=rssys("copy")%></textarea>
              *</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>首页广告</td>
            <td><textarea name="guang" cols="50" rows="5"><%=sguang%></textarea></td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>首页中间</td>
            <td><textarea name="topguang" cols="50" rows="5"><%=rssys("topguang")%></textarea></td>
            <td>首页中间文字说明，支持html</td>
          </tr>
          <tr> 
            <td>顶部右边广告</td>
            <td><textarea name="toprguang" cols="50" rows="5"><%=rssys("toprguang")%></textarea></td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>右边广告</td>
            <td><textarea name="rguang" cols="50" rows="5"><%=rssys("rguang")%></textarea></td>
            <td>主题列表的右边</td>
          </tr>
          <tr> 
            <td>第1楼广告</td>
            <td><textarea name="bodyguang" cols="50" rows="5"><%=rssys("bodyguang")%></textarea></td>
            <td>贴子列表的第一楼</td>
          </tr>
          <tr> 
            <td>贴间广告</td>
            <td><textarea name="tieguang" cols="50" rows="5"><%=rssys("tieguang")%></textarea></td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>底部广告</td>
            <td><textarea name="botguang" cols="50" rows="5"><%=rssys("botguang")%></textarea></td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>贴吧描述</td>
            <td><input name="me1" type="text" value="<%=sme1%>" size="50"></td>
            <td>让搜索引擎搜索</td>
          </tr>
          <tr> 
            <td>关键字</td>
            <td><input name="me2" type="text" value="<%=sme2%>" size="50"></td>
            <td>让搜索引擎搜索</td>
          </tr>
          <tr> 
            <td>删除用户</td>
            <td><input name="hd" type="text" value="<%=shd%>" size="3">
              分钟</td>
            <td>删除不活动在线用户</td>
          </tr>
          <tr> 
            <td>贴子列表数</td>
            <td><input name="pageshu" type="text" value="<%=spageshu%>" size="3">
              太多会服务器负担会重，30适中，不得小于10</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>贴吧开关</td>
            <td><select name="lclose">
                <option value="0">开</option>
                <option value="1">关</option>
              </select> <textarea name="shuming" cols="40" rows="5"><%=sshuming%></textarea></td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td> <input type="submit" name="Submit" value="提交"> </td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>

<% 
 
     if request.form("webname")<>"" then
     webname=request.form("webname")
	 url=request.Form("url")
	 if url="" then
	    url="&nbsp;"
		end if	
     logo=request.Form("logo")
	 copy=request.Form("copy")
	 bbs=request.form("bbs")
	 topguang=request.Form("topguang")
	 if topguang="" then
	    topguang="&nbsp;"
		end if
	 toprguang=request.Form("toprguang")
	 	 if toprguang="" then
	    toprguang="&nbsp;"
		end if
	 rguang=request.Form("rguang")
	 if rguang="" then
	    rguang="&nbsp;"
		end if
	 bodyguang=request.form("bodyguang")
	 if bodyguang="" then
	    bodyguang="&nbsp;"
		end if
	 tieguang=request.form("tieguang")
	 if tieguang="" then
	    tieguang="&nbsp;"
		end if
	 botguang=request.Form("botguang")
	 if botguang="" then
	    botguang="&nbsp;"
		end if
	 me1=request.form("me1")
	 me2=request.form("me2")
	 hd=request.form("hd")
	 pageshu=request.form("pageshu")
	 if CInt(pageshu)<10 then
	    pageshu=10
		end if
	 lclose=request.form("lclose")
	 shuming=request.form("shuming")
	 guang=request.form("guang")
	 
	 conn.Execute("update system set webname='"&webname&"',url='"&url&"',logo='"&logo&"',copy='"&copy&"',rguang='"&rguang&"',botguang='"&botguang&"'")
	 conn.Execute("update system set bbs='"&bbs&"',topguang='"&topguang&"',toprguang='"&toprguang&"', bodyguang='"&bodyguang&"',tieguang='"&tieguang&"'")
	 conn.Execute("update system set me1='"&me1&"',me2='"&me2&"',hd='"& hd &"',pageshu='"&pageshu&"',close='"&lclose&"',shuming='"&shuming&"',guang='"&guang&"'")
	 response.redirect"system.asp"
	else
	end if
if request("css")<>"" then
css=request("css")
conn.Execute("update system set css='"&css&"'")
response.redirect"system.asp"
end if
else '是管员才能进
Response.Write"请以管理员登陆"
end if'是管员才能进
Response.Write""&asptbcopy&""
Response.Flush
 %>