inc.asp

日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。 2、日记加密：当日记添加时

<!--#include file="mfk_class.asp"-->
<%
Server.ScriptTimeout=30
Response.Buffer=True
dim mfkiqpl
set mfkiqpl=new Angelic
dim conn
function codestr(text)
text=trim(text)
if not isnull(text) then
    text = replace(text, ">", "&gt;")
    text = replace(text, "<", "&lt;")
    text = Replace(text, CHR(32), "<I></I>&nbsp;")
    text = Replace(text, CHR(9), "&nbsp;")
    text = Replace(text, CHR(34), "&quot;")
    text = Replace(text, CHR(39), "&#39;")
    text = Replace(text, CHR(13), "")
    codestr=text
end if
end function
sub top
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="60%" bgcolor="#00CC33" align=center><table width="60%"  border="0" align="center" cellpadding="0" cellspacing="0">
      <tr align="center">
        <td height="31"><a href="admin-1.asp"><img src="images/mfkb1.gif" width="66" height="20" border="0"></a></td>
        <td><a href="admin-2.asp"><img src="images/mfkb2.gif" width="66" height="20" border="0"></a></td>
        <td><a href="admin-3.asp"><img src="images/mfkb3.gif" width="66" height="20" border="0"></a></td>
        <td><a href="http://www.yongzi.com" target="_blank"><img src="images/mfkb4.gif" width="66" height="20" border="0"></a></td>
      </tr>
    </table></td>
  </tr>
</table>
<%
end sub
%>