indexhtml.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="sysinfo.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="top.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="admingongneng.asp"-->
<!--#include file="luntantuijian.asp"-->
<Script Language="JScript" Runat=Server>
function cosdcc(stemp){
stemp = stemp.replace(/"/ig, "");
return (stemp);
}
function htmlcod(temp) {        
        temp = temp.replace(/\[sme1\]/ig, sme1);
        temp = temp.replace(/\[sme2\]/ig, sme2);
		temp = temp.replace(/\[scss\]/ig, scss);
		temp = temp.replace(/\[swebname\]/ig, swebname);
		temp = temp.replace(/\[slogo\]/ig, slogo);
		temp = temp.replace(/\[surl\]/ig, surl);
		temp = temp.replace(/\[luntantuijian\]/ig, luntantuijian);
		temp = temp.replace(/\[stopguang\]/ig,stopguang);
return (temp);
}
</Script>
<%
if uzhiwu=100 then
idh=request("idh")
cchtml="select * from asptbhtml where idh="&idh
set rshtml=server.createobject("adodb.recordset")
rshtml.open cchtml,conn,1,1
if not rshtml.eof then
htmlcode=rshtml("bodycode")
htmlname=rshtml("htmlname")
idh=rshtml("idh")
end if
%>
<table width="755" border="0" align="center" cellspacing="0">
  <tr>
    <td width="791" align="center">
<form action="indexhtml.asp" method="post">
        <input name="htmlname" type="text" value="<%=htmlname%>">
        <textarea name="bodycode" cols="100" rows="10"><%=htmlcode%></textarea>
        <input type="submit" name="Submit2" value="修改模板">
        <input name="idh" type="hidden" value="<%=idh%>">
      </form></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellspacing="0">
  <tr>
    <td><a href="indexhtml.asp?html=jl&idh=<%=idh%>">生成html主页</a></td>
  </tr>
</table>


<%

dd=request("html")
response.Write(dd)
if dd="jl" then 
indexhtml=""
htmlcode=htmlcod(htmlcode)
indexhtml=indexhtml&htmlcode
if len(sguang)>6 then
indexhtml=indexhtml&"<table width=775 border=0 align=center cellspacing=0><tr><td align=center>"
indexhtml=indexhtml&sguang
indexhtml=indexhtml&"</td></tr></table>"
end if
indexhtml=indexhtml&asptbcopy


dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(Server.MapPath(".")&"/"&"Default.htm", True)
f.write(indexhtml)
f.close
Set f = nothing
Set fs = nothing
response.redirect "indexhtml.asp?idh="&idh&""
rlhtml.close
set rlhtml=nothing
end if
idh=(request.Form("idh"))
response.Write(idh)
if idh>CInt(0) then
bodycode=request.form("bodycode")
bodycode=cosdcc(bodycode)
htmlname=request.Form("htmlname")
conn.Execute("update asptbhtml set htmlname='"&htmlname&"',bodycode='"&bodycode&"' where idh="&idh&"")
response.redirect "indexhtml.asp?idh="&idh&""
end if
else 
response.Write"<table width=775 border=0 align=center cellspacing=0><tr><td align=center>"
response.Write"请以管理员登陆"
response.Write"</td></tr></table>"
end if
Response.Write""&asptbcopy&""


Response.Flush
%>