blogpost.asp

一套非常实用的博客源代码,功能全,界面简单易用.

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<%IF memStatus<>"Admin" AND memStatus<>"SupAdmin" Then%>
<table width="780" border="0" align="center" bgcolor="#ffffff" cellpadding="0" cellspacing="0">
  <tr>
    <td width="128" align="center" nowrap><b>发表新日志<br>
          <br>
    <font color="#FF0000">出现错误</font> </b></td>
    <td align="center" valign="top"><br>
      <br><div class="msg_head">没有权限发表新日志</div>
        <div class="msg_content"><a href="default.asp">点击返回主页面</a><br><br>
              <a href="logging.asp">或者用管理员帐户重新登陆</a></div>
    <br>
    <br></td>
  </tr>
</table>
<%Else
IF Request.Form("log_CateID")=Empty Then%>
<table width="780" border="0" align="center" bgcolor="#ffffff" cellpadding="0" cellspacing="0">
  <tr>
    <td width="128" align="center" nowrap><b>发表新日志<br>
      <br>
      <font color="#FF0000">选择分类</font>
    </b></td>
    <td align="center" valign="top"><table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
      <tr align="center">
        <td colspan="2" class="msg_head">选择分类</td>
        </tr>
      <form name="form_C" method="post" action=""><tr bgcolor="#FFFFFF">
        <td width="19%" align="right"><b>分类：</b></td>
        <td width="81%"><select name="log_CateID" id="log_CateID">
          <option value="">请选择分类</option>
		  <%Dim log_CateNums,log_CateNumI
			log_CateNums=Ubound(Arr_Category,2)
			For log_CateNumI=0 To log_CateNums
				Response.Write("<option value='"&Arr_Category(0,log_CateNumI)&"'>"&Arr_Category(1,log_CateNumI)&"</option>")
			Next%>
        </select>
        </td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF">
        <td colspan="2"><input name="C_Submit" type="submit" id="C_Submit" value=" 确 定 "></td>
        </tr></form>
    </table></td>
  </tr>
</table><%ElseIF Request.Form("PostBLOG")=Empty Then%>
<table width="780" border="0" align="center" bgcolor="#ffffff" cellpadding="0" cellspacing="0">
  <tr>
	<td width="100%" valign="top"><table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
        <tr align="center">
          <td colspan="2" class="msg_head">在分类&nbsp;<font color="#FFFA20">[ <%=znwl.ExeCute("SELECT cate_Name FROM blog_Category WHERE cate_ID="&Request.Form("log_CateID")&"")(0)%> ]</font>&nbsp;中发表新日志</td>
        </tr>
        <form name="input" method="post" action="">
          <tr bgcolor="#FFFFFF">
            <td width="112" align="right" nowrap><b>标题：</b></td>
            <td width="100%">
              <input name="log_Title" type="text" id="log_Title" size="50">&nbsp;<select name="log_Weather" id="log_Weather" onChange="document.images['show_Weather'].src='images/weather/'+options[selectedIndex].value.split('|')[0]+'.gif';" size="1">
                    <option value="0|未知" selected>天气</option>
                    <option value="1|晴天">晴天</option>
                    <option value="2|多云">多云</option>	 
                    <option value="3|雨天">雨天</option>
                    <option value="4|刮风">刮风</option>
                    <option value="5|雪天">雪天</option>
                    <option value="6|彩虹">彩虹</option>
                    <option value="7|露水">露水</option>
                  </select>&nbsp;<img id="show_Weather" id="show_Weather" src="images/weather/0.gif" align="absmiddle">
			</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right"><strong>属性：</strong></td>
            <td><input name="log_IsShow" type="radio" value="0" checked> 公开日志&nbsp;&nbsp;<input type="radio" name="log_IsShow" value="1"> 隐藏日志&nbsp;&nbsp;|&nbsp;&nbsp;<input name="log_IsTop" type="checkbox" id="log_IsTop" value="1"> 置顶日志&nbsp;&nbsp;<input name="log_DisComment" type="checkbox" id="log_DisComment" value="1"> 禁止评论</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right"><b>来自：</b></td>
            <td><input name="log_From" type="text" id="log_From" value="本站原创" size="12">
&nbsp;<b>地址：
              <input name="log_FromURL" type="text" id="log_FromURL" value="<%=siteURL%>" size="38">
            </b></td>
          </tr>
<tr bgcolor="#FFFFFF">
            <td align="right"><b>Tags：</b></td>
            <td><input name="log_Tags" type="text" id="log_Tags" size="50"> 最多5个Tag 用;分隔</td>
          </tr>
<script language="JavaScript" src="include/ubbhelp.js"></script>
<script language="JavaScript" src="include/ubbcode.js"></script>
          <tr bgcolor="#FFFFFF">
            <td align="right" valign="top"><b>内容：<br>
              <br>
            </b>
              <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
                <tr>
                  <td align="center" bgcolor="#EFEFEF"><b>表&nbsp;&nbsp;情</b></td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF">
			<%Dim log_SmiliesListNums,log_SmiliesListNumI
			log_SmiliesListNums=Ubound(Arr_Smilies,2)
			TempVar=""
			For log_SmiliesListNumI=0 To log_SmiliesListNums
				Response.Write(TempVar&"<img style=""cursor:hand;"" onclick=""AddText('"&Arr_Smilies(2,log_SmiliesListNumI)&"');"" src=""images/smilies/"&Arr_Smilies(1,log_SmiliesListNumI)&""" />")
				TempVar=" "
			Next%></td>
                </tr>
              </table>
              <div style="padding-left:8px;" align="left" width="100%">
                <br>
                <br>
                <input name="log_DisSM" type="checkbox" id="log_DisSM" value="1">
                禁止表情<br>
                <input name="log_DisUBB" type="checkbox" id="log_DisUBB" value="1">
                禁止UBB<br>
                <input name="log_DisIMG" type="checkbox" id="log_DisIMG" value="1">
                禁止图片<br>
				<input name="log_AutoURL" type="checkbox" id="log_AutoURL" value="1" checked>
                识别链接<br>
				<input name="log_AutoKEY" type="checkbox" id="log_AutoKEY" value="1">
                识别关键字
              </div></td>
            <td><table width="98%" border="0" cellspacing="0" cellpadding="2">
              <tr>
                <td width="100%"><select name="font" onFocus="this.selectedIndex=0" onChange="chfont(this.options[this.selectedIndex].value)" size="1">
                    <option value="" selected>选择字体</option>
                    <option value="宋体">宋体</option>
                    <option value="黑体">黑体</option>
                    <option value="Arial">Arial</option>
                    <option value="Book Antiqua">Book Antiqua</option>
                    <option value="Century Gothic">Century Gothic</option>
                    <option value="Courier New">Courier New</option>
                    <option value="Georgia">Georgia</option>
                    <option value="Impact">Impact</option>
                    <option value="Tahoma">Tahoma</option>
                    <option value="Times New Roman">Times New Roman</option>
                    <option value="Verdana">Verdana</option>
                  </select>
                    <select name="size" onFocus="this.selectedIndex=0" onChange="chsize(this.options[this.selectedIndex].value)" size="1">
                      <option value="" selected>字体大小</option>
                      <option value="-2">-2</option>
                      <option value="-1">-1</option>
                      <option value="1">1</option>
                      <option value="2">2</option>
                      <option value="3">3</option>
                      <option value="4">4</option>
                      <option value="5">5</option>
                      <option value="6">6</option>
                      <option value="7">7</option>
                    </select>
                    <select name="color"  onFocus="this.selectedIndex=0" onChange="chcolor(this.options[this.selectedIndex].value)" size="1">