syshtml.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"-->
<!--#include file="listhtml.asp"--> 
<!--#include file="shhtm.asp"--> 
<title>网站配置</title>
<%
if uzhiwu=100 then '是管员才能进
 
setall=request("setall")
delon=request("delon")
unhtml=request("unhtml")
luntanhtml=request("luntanhtml")
if luntanhtml<>"" then
html=abs(request("html")-1)
conn.Execute("update luntan set html='"&html&"' where idl="&request("luntanhtml"))
response.redirect"list.asp?idl="&luntanhtml&""
end if
if setall<>"" then
allhtml=abs(sallhtml-1)
conn.Execute("update system set allhtml='"&allhtml&"'")
conn.Execute("update luntan set html='"&allhtml&"'")
response.redirect"syshtml.asp"
end if

if delon<>"" then
delonline=abs(sdelonline-1)
conn.Execute("update system set delonline='"&delonline&"'")
response.redirect"syshtml.asp"
end if

if unhtml<>"" then
nohtml ="select * from luntan  where html=1" 
set rshtml=server.createobject("adodb.recordset")
rshtml.open nohtml,conn,1,1
do while not rshtml.eof
idllt=rshtml("idl")
Set fs = CreateObject("Scripting.FileSystemObject")
jinghuau="jinghuau"
jinghuau=""&jinghuau&"/"&idllt&"/"
jinghuau=server.mappath(jinghuau)
Response.Write ""&jinghuau&""
If fs.folderexists(jinghuau) then
fs.deletefolder(jinghuau)
end if
rshtml.movenext
loop
rshtml.close
set rshtml=nothing
conn.Execute("update system set allhtml=0")
conn.Execute("update luntan set html=0")
conn.Execute("update neirong set html=0")
response.redirect"syshtml.asp"
end if

if sallhtml=0 then
allthml="否"
else
allthml="是"
end if
if sdelonline=0 then
delonline="否"
else
delonline="是"
end if
%>
<table width=775 border="0" align="center" cellspacing="0">
  <tr> 
    <td align="center"><a href="showhtml.asp" target="_self">生成html精华贴</a>|<a href="indexhtml.asp?idh=1" target="_self"> 
      生成html主页</a>|<a href="jinghuauhtml.asp" target="_self">生成精华主页</a>|</td>
  </tr>
  <tr> 
    <td align="center"><table width="60%" border="0" align="center" cellspacing="0"  class=td1>
        <tr> 
          <td width="20%"  class=td3><a href="syshtml.asp?setall=1" target="_self">全部生成html</a></td>
          <td width="10%"  class=td3><%=allthml%></td>
          <td  class=td3>如果设为“是”将每发一个贴或回复都生成相应贴子和相应<%=sbbs%>的html文件。如果同时发贴多服务器可能变得慢，如果是“否”，你可以选择部分<%=sbbs%>自动生成html。</td>
        </tr>
        <tr> 
          <td class=td3><a href="syshtml.asp?delon=1" target="_self">支持在线删除</a></td>
          <td class=td3><%=delonline%></td>
          <td class=td3>如果你的空间支持在线删除文件请设置为“是”，当你删除主题或<%=sbbs%>时，系统会同时删除相应的文件或文件夹。不支持在线删除请设为“否”，否则系统会出错，当您删除主题或<%=sbbs%>时，再以ftp登陆删除相应的文件或文件夹。</td>
        </tr>
        <tr> 
          <td colspan="2"><a href="syshtml.asp?unhtml=1" target="_self">取消生进入html</a></td>
          <td>如果您有部分或全部<%=sbbs%>是进入html，当不想再进入html时，可以使用此功能，系统将直接进入asp显示，同时把所有html文件删除（若支持在线删除）</td>
        </tr>
        <tr> 
          <td colspan="3">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
</table>

<% 
else '是管员才能进
Response.Write"请以管理员登陆"
end if '是管员才能进
Response.Write""&asptbcopy&""
Response.Flush
 %>