blogedit.asp

来自「L-Blog是一套BLOG系统」· ASP 代码 · 共 351 行 · 第 1/2 页

      <option value="" selected>字体颜色</option>
      <option value="White" style="background-color:white;color:white;">White</option>
      <option value="Black" style="background-color:black;color:black;">Black</option>
      <option value="Red" style="background-color:red;color:red;">Red</option>
      <option value="Yellow" style="background-color:yellow;color:yellow;">Yellow</option>
      <option value="Pink" style="background-color:pink;color:pink;">Pink</option>
      <option value="Green" style="background-color:green;color:green;">Green</option>
      <option value="Orange" style="background-color:orange;color:orange;">Orange</option>
      <option value="Purple" style="background-color:purple;color:purple;">Purple</option>
      <option value="Blue" style="background-color:blue;color:blue;">Blue</option>
      <option value="Beige" style="background-color:beige;color:beige;">Beige</option>
      <option value="Brown" style="background-color:brown;color:brown;">Brown</option>
      <option value="Teal" style="background-color:teal;color:teal;">Teal</option>
      <option value="Navy" style="background-color:navy;color:navy;">Navy</option>
      <option value="Maroon" style="background-color:maroon;color:maroon;">Maroon</option>
      <option value="LimeGreen" style="background-color:limegreen;color:limegreen;">LimeGreen</option>
    </select></td>
                <td rowspan="2" nowrap><b>模式：</b>&nbsp;
                  <input type="radio" name="mode" value="2" onclick="chmode('2')" checked> 基本&nbsp;
	<input type="radio" name="mode" value="0" onclick="chmode('0')"> 高级&nbsp;
	<input type="radio" name="mode" value="1" onclick="chmode('1')"> 帮助</td>
              </tr>
              <tr>
                <td>
                  <a href="javascript:bold()"><img src="images/ubbcode/bb_bold.gif" border="0" alt="插入粗体文本"></a> <a href="javascript:italicize()"><img src="images/ubbcode/bb_italicize.gif" border="0" alt="插入斜体文本"></a> <a href="javascript:underline()"><img src="images/ubbcode/bb_underline.gif" border="0" alt="插入下划线"></a> <a href="javascript:center()"><img src="images/ubbcode/bb_center.gif" border="0" alt="居中对齐"></a> <a href="javascript:hyperlink()"><img src="images/ubbcode/bb_url.gif" border="0" alt="插入超级链接"></a> <a href="javascript:email()"><img src="images/ubbcode/bb_email.gif" border="0" alt="插入邮件地址"></a> <a href="javascript:image()"><img src="images/ubbcode/bb_image.gif" border="0" alt="插入图像"></a> <a href="javascript:flash()"><img src="images/ubbcode/bb_flash.gif" border="0" alt="插入 Flash"></a> <a href="javascript:code()"><img src="images/ubbcode/bb_code.gif" border="0" alt="插入代码"></a> <a href="javascript:quote()"><img src="images/ubbcode/bb_quote.gif" border="0" alt="插入引用"></a> <a href="javascript:list()"><img src="images/ubbcode/bb_list.gif" border="0" alt="插入列表"></a> <a href="javascript:wma()"><img src="images/ubbcode/bb_wma.gif" alt="插入音频文件" width="23" height="22" border="0"></a> <a href="javascript:wmv()"><img src="images/ubbcode/bb_wmv.gif" alt="插入视频文件" width="23" height="22" border="0"></a></td>
              </tr></table><table width="98%" border="0" cellpadding="0" cellspacing="0" class="wordbreak">
              <tr valign="top">
                <td><textarea name="message" style="width:100%" rows="18" wrap="VIRTUAL" id="Message" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyUp="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();"><%=EditDeHTML(blog_Edit("log_Content"))%></textarea></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right"><b>附件：</b></td>
            <td><iframe border="0" frameBorder="0" frameSpacing="0" height="21" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="attachment.asp"></iframe></td>
          </tr>
          <tr align="center" bgcolor="#FFFFFF">
            <td colspan="2"><input name="log_ID" type="hidden" id="log_ID" value="<%=blog_Edit("log_ID")%>">
            <input name="editsubmit" type="submit" value=" 确定编辑 [可按 Ctrl+Enter 发布] " onClick="this.disabled=true;document.input.submit();">
&nbsp;            <input name="L_Reset" type="button" id="L_Reset" value=" 取消编辑 " onclick="javascript:history.go(-1);"></td>
          </tr>
        </form>
    </table></td>
  </tr>
</table><%
End If
End If
blog_Edit.Close
Set blog_Edit=Nothing
End If
Else
	Dim blogEditPost_ID
	blogEditPost_ID=Trim(Request.Form("log_ID"))
	If IsInteger(blogEditPost_ID)=False Then%><table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <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></div>
    <br>
    <br></td>
  </tr>
</table>
	<%Else
	Dim blog_EditPost
	Set blog_EditPost=Server.CreateObject("ADODB.Recordset")
	SQL="SELECT log_ID,log_Author FROM blog_Content WHERE log_ID="&blogEditPost_ID
	blog_EditPost.Open SQL,Conn,1,1
	SQLQueryNums=SQLQueryNums+1
	If blog_EditPost.EOF AND blog_EditPost.BOF Then%>
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <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></div>
    <br>
    <br></td>
  </tr>
</table>
<%Else
If Not((blog_EditPost("log_Author")=memName And memStatus="Admin") Or memStatus="SupAdmin") Then
%><table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <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%>
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <tr>
    <td width="128" align="center" nowrap><b>修改日志<br>
          <br>
    <font color="#FF0000">保存日志</font></b></td>
    <td align="center" valign="top"><br>
      <div class="msg_head">保存日志</div>
        <div class="msg_content"><%If Request.Form("message")=Empty OR Request.Form("log_Title")=Empty Then
				Response.Write("必须填写日志内容<br><a href='javascript:history.go(-1);'>请返回重新填写</a>")
			ElseIf Request.Form("blogdele")="1" Then
				Conn.ExeCute("DELETE * FROM blog_Content WHERE log_ID="&blogEditPost_ID)
				Conn.ExeCute("DELETE * FROM blog_Comment WHERE blog_ID="&blogEditPost_ID)
				Conn.ExeCute("UPDATE blog_Member SET mem_PostLogs=mem_PostLogs-1 WHERE mem_Name='"&Request.Form("log_Author")&"'")
				Conn.ExeCute("UPDATE blog_Info SET blog_LogNums=blog_LogNums-1")
				SQLQueryNums=SQLQueryNums+4
				Response.Write("<br><br>日志及相关留言删除成功<br><br><a href='default.asp'>点击返回首页</a><br><br>")
			Else
				dim Log_Title,log_Content,log_From,log_FromURL,log_ID,log_Intro,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_Modify,log_IsShow,log_AutoKEY,log_IsTop,log_DisComment,log_Weather
				log_Title=CheckStr(Request.Form("log_Title"))
				log_Content=CheckStr(Request.Form("message"))
				If InStr(log_Content,"[#seperator#]")>0 Then
					log_Intro=HTMLEncode(Left(log_Content,InStr(log_Content,"[#seperator#]")-1))
				Else
					log_Intro=SplitLines(HTMLEncode(log_Content),4)
				End If
				log_From=CheckStr(Request.Form("log_From"))
				log_FromURL=Request.Form("log_FromURL")
				log_ID=blogEditPost_ID
				log_DisSM=Request.Form("log_DisSM")
				log_DisUBB=Request.Form("log_DisUBB")
				log_DisIMG=Request.Form("log_DisIMG")
				log_AutoURL=Request.Form("log_AutoURL")
				log_AutoKEY=Request.Form("log_AutoKEY")
				log_Weather=Request.Form("log_Weather")
				IF Request.Form("log_IsTop")="1" Then
					log_IsTop=True
				Else
					log_IsTop=False
				End IF
				IF Request.Form("log_IsShow")="0" Then
					log_IsShow = True
				Else
					log_IsShow = False
				End IF
				If Request.Form("log_DisComment")="1" Then
					log_DisComment=True
				Else
					log_DisComment=False
				End IF
				IF log_DisSM=Empty Then log_DisSM=0
				IF log_DisUBB=Empty Then log_DisUBB=0
				IF log_DisIMG=Empty Then log_DisIMG=0
				IF log_AutoURL=Empty Then log_AutoURL=0
				IF log_AutoKEY=Empty Then log_AutoKEY=0
				log_Modify="[本日志由 "&memName&" 于 "&DateToStr(Now(),"Y-m-d H:I A")&" 编辑]"
				Dim log_MoveToSQL
				IF Request.Form("blogmoveto")<>"0" Then
					log_MoveToSQL=",log_CateID="&Request.Form("blogmoveto")&""
				End IF
				Conn.ExeCute("UPDATE blog_Content Set log_Title='"&log_Title&"',log_Intro='"&log_Intro&"',log_Content='"&log_Content&"',log_From='"&log_From&"',log_FromURL='"&log_FromURL&"',log_DisSM="&log_DisSM&",log_DisUBB="&log_DisUBB&",log_DisIMG="&log_DisIMG&",log_AutoURL="&log_AutoURL&",log_AutoKEY="&log_AutoKEY&",log_Modify='"&log_Modify&"',log_IsShow="&log_IsShow&",log_DisComment="&log_DisComment&",log_Weather='"&log_Weather&"',log_IsTop="&log_IsTop&log_MoveToSQL&" WHERE log_ID="&log_ID&"")
				SQLQueryNums=SQLQueryNums+1
				Response.Write("<br><br>修改日志成功<br><br><a href='default.asp'>点击返回首页</a><br><br><a href='blogview.asp?logID="&log_ID&"'>或者返回你所修改的日志</a><br><br>或者等待3秒后自动返回你所修改的日志<meta http-equiv='refresh' content='3;url=blogview.asp?logID="&log_ID&"'><br><br>")
			End If%></div>
    <br></td>
  </tr>
</table><%End If
End If
blog_EditPost.Close
Set blog_EditPost=Nothing
End If
End IF%>
<!--#include file="footer.asp" -->