<% '================================== ' 日志编辑或删除 ' 更新时间: 2006-5-29 '================================== Dim logid Dim preLog, nextLog, getTag Dim loadTag, loadTags logid = Trim(CheckStr(Request("id"))) If ChkPost() Then If logid = Empty Or IsInteger(logid) = False Then %>
出错信息
非法操作!
单击返回上一页
<%Else Dim lArticle, EditLog, DeleteLog Set lArticle = New logArticle editLog = lArticle.getLog(logid) If stat_EditAll Or (stat_Edit And lArticle.logAuthor = memName) Then %> <%If Request.Form("action") = "post" Then Dim pws, pwtips, pwtitle, pwcomm, IsShow, keyword, description pws = Trim(Request.Form("log_Readpw")) pwtips = Trim(Request.Form("log_Pwtips")) pwtitle = Request.Form("log_Pwtitle") pwcomm = Request.Form("log_Pwcomm") keyword = Trim(Request.Form("log_KeyWords")) description = Trim(Request.Form("log_Description")) If CheckStr(Request.Form("log_IsHidden")) = "1" Then IsShow = False If CheckStr(Request.Form("c_pws")) = "1" Then'如果密码更改了 If IsEmpty(pws) or IsNull(pws) or pws = "" Then Else pws = md5(pws) End If End If If pws = "" Then pwtips = "" Else IsShow = True pws = "" pwtips = "" pwtitle = False pwcomm = False End If If Request.Form("log_pws") = "0" Then pws = "" pwtips = "" End If If CheckStr(Request.Form("log_Meta")) = "0" Then keyword = "" description = "" End If lArticle.categoryID = request.Form("log_CateID") lArticle.logTitle = request.Form("title") lArticle.logAuthor = memName lArticle.logEditType = request.Form("log_editType") lArticle.logIntroCustom = request.Form("log_IntroC") lArticle.logIntro = request.Form("log_Intro") lArticle.logWeather = request.Form("log_weather") lArticle.logLevel = request.Form("log_Level") lArticle.logCommentOrder = request.Form("log_comorder") lArticle.logDisableComment = request.Form("log_DisComment") lArticle.logIsShow = IsShow lArticle.logIsTop = request.Form("log_IsTop") lArticle.logIsDraft = request.Form("log_IsDraft") lArticle.logFrom = request.Form("log_From") lArticle.logFromURL = request.Form("log_FromURL") lArticle.logDisableImage = request.Form("log_disImg") lArticle.logDisableSmile = request.Form("log_DisSM") lArticle.logDisableURL = request.Form("log_DisURL") lArticle.logDisableKeyWord = request.Form("log_DisKey") lArticle.logMessage = request.Form("Message") lArticle.logTrackback = request.Form("log_Quote") lArticle.logTags = request.Form("tags") lArticle.logPubTime = request.Form("PubTime") lArticle.logPublishTimeType = request.Form("PubTimeType") If blog_postFile = 2 Then lArticle.logCname = request.Form("Cname") lArticle.logCtype = request.Form("Ctype") End If lArticle.logReadpw = pws lArticle.logPwtips = pwtips lArticle.logPwtitle = pwtitle lArticle.logPwcomm = pwcomm lArticle.logMeta = request.Form("log_Meta") lArticle.logKeyWords = keyword lArticle.logDescription = description EditLog = lArticle.editLog(request.Form("id")) Set lArticle = Nothing %>
反馈信息
">
<%=EditLog(1)%>
点击返回首页
<%if EditLog(0)>=0 Then %> 返回你所编辑的日志
<%end if%>
<% ElseIf Request.QueryString("action") = "del" Or Request.Form("action") = "del" Then DeleteLog = lArticle.deleteLog(request("id")) Set lArticle = Nothing %>
反馈信息
">
<%=DeleteLog(1)%>
点击返回首页
<% Else If editLog(0)<0 Then %>
出错信息
<%=editLog(1)%>
返回首页
<% Else Dim log_editType, editTs log_editType = lArticle.logEditType %>
编辑日志
<% If blog_postFile = 2 Then dim cdb set cdb=conn.execute("select log_cname,log_ctype from blog_Content where log_ID="&logid&"") %> "> "> <% set cdb=nothing end if %> <% Dim UseIntro UseIntro = False UseIntro = CBool(lArticle.logIntroCustom) %> <%if lArticle.logIsDraft Then%> <%end if%>
标题:    分类:
别名: " onBlur="check('Action.asp?action=checkAlias&cname='+document.forms['frm'].cname.value,'CheckAlias','CheckAlias')" style="ime-mode:disabled"/> .
日志设置:
隐私及Meta:
> - 私密日志只有主人和作者能查阅
- 加密日志允许客人输入正确的密码即可查看
     密码:   密码提示:
> - 自定义日志页面头的Meta信息,留空则默认为Tag和日志摘要
KeyWords  :
Description:
来源: 网址:
发表时间: <%if lArticle.logIsDraft Then%> " size="21" class="inputBox" /> (格式:yyyy-mm-dd hh:mm:ss) <%else%> " size="21" class="inputBox" /> (格式:yyyy-mm-dd hh:mm:ss) <%end if%>
Tags: 插入已经使用的Tag (tag之间用英文的空格或逗号分割)
内容: <% If log_editType = 0 Then Dim sBasePath sBasePath = "FCKeditor/" Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Config("AutoDetectLanguage") = False oFCKeditor.Config("DefaultLanguage") = "zh-cn" oFCKeditor.Value = UnCheckStr(lArticle.logMessage) oFCKeditor.Height = "350" oFCKeditor.Create "Message" Else UBB_TextArea_Height = "200px;" UBB_AutoHidden = False UBB_Msg_Value = UBBFilter(UnCheckStr(lArticle.logMessage)) UBBeditor("Message") End If %>
  <%if log_editType<>0 then %>
内容摘要:
> <% If log_editType = 0 Then Dim oFCKeditor1 Set oFCKeditor1 = New FCKeditor oFCKeditor1.BasePath = sBasePath oFCKeditor1.Height = "150" oFCKeditor1.ToolbarSet = "Basic" oFCKeditor1.Config("AutoDetectLanguage") = False oFCKeditor1.Config("DefaultLanguage") = "zh-cn" oFCKeditor1.Value = UnCheckStr(lArticle.logIntro) oFCKeditor1.Create "log_Intro" Else %> <% End If %>
附件上传:
引用通告:
请输入网络日志项的引用通告URL。可以用逗号分隔多个引用通告地址.
<%if lArticle.logIsDraft Then%> <%end if%>
友情提示:保存草稿后,日志不会在日志列表中出现。只有再次编辑,取消草稿后才显示出来。
<% Set lArticle = Nothing End If End If Else %>
出错信息
你没有没有权限修改日志
单击返回首页
<%End If End If Else %>
日志发表错误
不允许外部链接提交数据
点击返回首页
<%end if%>