blogedit.asp
来自「L-Blog是一套BLOG系统」· ASP 代码 · 共 351 行 · 第 1/2 页
ASP
351 行
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="include/library.asp" -->
<!--#include file="header.asp" -->
<%If Request.QueryString("action")<>"postedit" Then
Dim blog_ID
blog_ID=Trim(Request.QueryString("logID"))
If IsInteger(blog_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_Edit
Set blog_Edit=Server.CreateObject("ADODB.Recordset")
SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_ID="&blog_ID&" AND C.cate_ID=L.log_cateID"
blog_Edit.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If blog_Edit.EOF AND blog_Edit.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_Edit("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
Dim edit_logWeather
edit_logWeather = blog_Edit("log_Weather")
%>
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
<tr>
<td width="100%" valign="top"><table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center">
<td colspan="2" class="msg_head">修改分类 <font color="#FFFA20">[ <%=blog_Edit("cate_Name")%> ]</font> 中的日志</td>
</tr>
<form name="input" method="post" action="blogedit.asp?action=postedit">
<tr bgcolor="#FFFFFF">
<td align="right" nowrap><b>操作：</b></td>
<td>作者：<b><input name="log_Author" type="hidden" id="log_Author" value="<%=blog_Edit("log_Author")%>"><%=blog_Edit("log_Author")%></b> | <input name="blogdele" type="checkbox" id="blogdele" value="1">
删除此日志 | 转移日志到：
<select name="blogmoveto" id="blogmoveto">
<option value="0">选择分类</option>
<%Dim blog_MoveCateNumS,blog_MoveCateNumI
blog_MoveCateNumS=Ubound(Arr_Category,2)
For blog_MoveCateNumI=0 To blog_MoveCateNums
Response.Write("<option value='"&Arr_Category(0,blog_MoveCateNumI)&"'>"&Arr_Category(1,blog_MoveCateNumI)&"</option>")
Next%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap><strong>属性：</strong></td>
<td><input type="radio" name="log_IsShow" value="0" <%IF blog_Edit("log_IsShow")=True Then Response.Write("checked")%>>
公开日志
<input type="radio" name="log_IsShow" value="1" <%IF blog_Edit("log_IsShow")=False Then Response.Write("checked")%>>
隐藏日志 |
<input name="log_IsTop" type="checkbox" id="log_IsTop" value="1" <%IF blog_Edit("log_IsTop")=True Then Response.Write("checked")%>>
置顶日志 |
<input name="log_DisComment" type="checkbox" id="log_DisComment" value="1" <%IF blog_Edit("log_DisComment")=True Then Response.Write("checked")%>>
禁止评论</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="112" align="right" nowrap><b>标题：</b></td>
<td width="100%">
<input name="log_Title" type="text" id="log_Title" value="<%=EditDeHTML(blog_Edit("log_Title"))%>" size="50"> <select name="log_Weather" id="log_Weather" onload="options[selectedIndex].value=<%=blog_Edit("log_Weather")%>" onChange="document.images['show_Weather'].src='images/weather/'+options[selectedIndex].value.split('|')[0]+'.gif';" size="1">
<option value="0|未知" <%If edit_logWeather="0|未知" Then Response.Write("selected")%>>天气</option>
<option value="1|晴天" <%If edit_logWeather="1|晴天" Then Response.Write("selected")%>>晴天</option>
<option value="2|多云" <%If edit_logWeather="2|多云" Then Response.Write("selected")%>>多云</option>
<option value="3|雨天" <%If edit_logWeather="3|雨天" Then Response.Write("selected")%>>雨天</option>
<option value="4|刮风" <%If edit_logWeather="4|刮风" Then Response.Write("selected")%>>刮风</option>
<option value="5|雪天" <%If edit_logWeather="5|雪天" Then Response.Write("selected")%>>雪天</option>
<option value="6|彩虹" <%If edit_logWeather="6|彩虹" Then Response.Write("selected")%>>彩虹</option>
<option value="7|露水" <%If edit_logWeather="7|露水" Then Response.Write("selected")%>>露水</option>
</select> <img id="show_Weather" id="show_Weather" src="images/weather/<%=Split(edit_logWeather,"|")(0)%>.gif" align="absmiddle">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"><b>来自：</b></td>
<td><input name="log_From" type="text" id="log_From" value="<%=blog_Edit("log_From")%>" size="12">
<b>地址：
<input name="log_FromURL" type="text" id="log_FromURL" value="<%=blog_Edit("log_FromURL")%>" size="38">
</b></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>表 情</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" <%IF blog_Edit("log_DisSM")=1 Then Response.Write("checked")%>>
禁止表情<br>
<input name="log_DisUBB" type="checkbox" id="log_DisUBB" value="1" <%IF blog_Edit("log_DisUBB")=1 Then Response.Write("checked")%>>
禁止UBB<br>
<input name="log_DisIMG" type="checkbox" id="log_DisIMG" value="1" <%IF blog_Edit("log_DisIMG")=1 Then Response.Write("checked")%>>
禁止图片<br>
<input name="log_AutoURL" type="checkbox" id="log_AutoURL" value="1" <%IF blog_Edit("log_AutoURL")=1 Then Response.Write("checked")%>> 识别链接<br>
<input name="log_AutoKEY" type="checkbox" id="log_AutoKEY" value="1" <%IF blog_Edit("log_AutoKEY")=1 Then Response.Write("checked")%>> 识别关键字
</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">
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?