📄 mb.asp

📁 一个简单的小程序
💻 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="../news/mb.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"mb.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>
<%
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="../news/mb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename&""))
If Not fso.FileExists(server.mappath(""&filename&"")) Then
spmb="新闻页面模版news.htm不存在，请检查该路径文件。"
else
spmb=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
%>
                  <div align=center><a href="makenews.asp?type=all">生成所有新闻页</a></div>	  
  <br>
  <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(spmb)%></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">
          </div></td>
      </tr>
    </table>
	  </form>
    </div>
</body>
</html>
⌨️ 快捷键说明

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