📄 mb1.asp

📁 静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出
💻 ASP
字号:
<%
Function HTMLChange(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, "&#38;", "CHR(38)")
        fString = Replace(fString, "&gt;", ">")
        fString = Replace(fString, "&lt;", "<")
        HTMLChange= fString
    End If
End Function
If Request("Action")="Save" then
filename="../indexmb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f1= fso.CreateTextFile(server.mappath(""&filename&""))
f1.write HTMLChange(request("mb"))
f1.close
set f1=nothing
set fso=nothing
Response.Redirect"mb1.asp"
End If
%>
<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<html>
<head>
<title>首页模版管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link  href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="mainmiddle">
        <tr> 
          <td width="29" height="32"> <div align="left"> 
              <p class="maindaohang">&nbsp;</p>
            </div></td>
          <td width="709"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <b><font color="#000000"><b> <span class="bigNavi">首页模版管理</span>　　　　　　　　　　　　　　</b></font></b></td>
          <td width="8" class="mainrights"></td>
        </tr>
      </table>
	 <br>
  <a href="makeindex.asp">生成网站首页</a><br>
  		   <%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:13964489818
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
 Function HTMLEncode(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&#38;")
        fString = Replace(fString, ">", "&gt;")
        fString = Replace(fString, "<", "&lt;")
        HTMLEncode = fString
    End If
End Function
filename="../indexmb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename&""))
If Not fso.FileExists(server.mappath(""&filename&"")) Then
classmb="首页模版index.htm不存在，请检查该路径文件。"
else
classmb=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
%>
  <form method="POST" name="formadd" action="?Action=Save">      
    <table width="95%" height="43" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
      <tr class="tabbgcolorli"> 
        <td width="17%" height="20" valign="top"><div align="center">模版标签<br>
            [title] <br>
            [banner] </div></td>
        <td width="83%" height="20">　     
          <textarea rows="10" name="mb" cols="60" class="border"><%=HTMLEncode(classmb)%></textarea> <div align="center"></div></td>
      </tr>
      <tr class="tabbgcolorli"> 
        <td height="20" colspan="2">           　 
          <div align="center"> 
            <input type="submit" value="现在提交" name="tijiao" class="border">
            　　　　 
            <input type="reset" value="全部重写" name="chongxie" class="border">
          </div></td>
      </tr>
    </table>
	  </form>
    </div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -