<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Ex_Cls/Ex_SkinCls.asp"-->
<!--#include file="Ex_Cls/Ex_SplitPageCls.asp"-->
<!--#include file="Ex_Cls/Ex_RefreshCls.asp"-->
<!--#include file="Ex_Cls/Ex_ImgCls.asp"-->
<!--#include file="Ex_Cls/Ex_FilterHtmlCls.asp"-->
<%Server.ScriptTimeOut=9999%>
<% Response.charset="GB2312" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<title>日志管理</title>
<script src="inc/jquery.js"></script>
<script type="text/javascript" src="AienUpload/init.js"></script>
<script type="text/javascript" charset="gb2312" src="wbTextBox/kindeditor.js"></script>
<script language="JavaScript">
/*自动保存函数*/
function autosave()
{
	var title=document.getElementById("title").value;
	var tags=document.getElementById("tags").value;
	var content=KE.util.getData('Body');
	var abody=KE.util.getData('aBody');;
	$.ajax({
		url:'admin_log.asp?action=autosave',
		type:'POST',
		timeout:2000,
		error: function(){},
		data:"action=autosave&title="+escape(title)+"&content="+escape (content)+"&tags="+escape (tags)+"&abody="+escape(abody),
		success:function(msg){
			document.getElementById("autosavemsg").innerHTML=document.getElementById("autosavemsg").innerHTML+"<br><a href=javascript:restore('"+msg+"')>"+msg.replace('_',' ').replace('#',":").replace('#',":")+"</a>";
		}
	})
}
setInterval(autosave,60000);
function restore(fname)
{
	if (confirm('是否要恢复'+fname.replace('_',' ').replace('#',":").replace('#',":")+'存稿?'))
	{
		$.ajax({
			url:'admin_log.asp?action=restore',
			type:'POST',
			timeout:2000,
			error: function(){},
			data:"fname="+fname,
			success:function(msg){
				var arr=msg.split("$exblog#$!");
				document.getElementById("title").value=arr[0];
				document.getElementById("tags").value=arr[1];
				document.getElementById("aBody").value=arr[2];
				document.getElementById("Body").value=arr[3];
				KE.util.setExData('Body',arr[3]);
				KE.util.setExData('aBody',arr[2]);
			}
		})
	}
}
/*显示自动保存*/
function showautosavemsg()
{
	document.getElementById('autosavemsg').style.display='';
}
/*隐藏自动保存*/
function hideautosavemsg()
{
	document.getElementById('autosavemsg').style.display='none';
}
/*检测是否有自动保存文件*/
function checkautosave()
{
	$.ajax({
			url:'admin_log.asp?action=checkautosave',
			type:'POST',
			timeout:2000,
			error: function(){},
			data:'type=new',
			success:function(msg){
				var flag;
				if (msg=="")
				{
					return false;
				}
				if (1==1)
				{
					var arr=msg.split("|");
					for (var i=0;i<arr.length ;i++ )
					{
						document.getElementById("autosavemsg").innerHTML=document.getElementById("autosavemsg").innerHTML+"<br><a href=javascript:restore('"+arr[i]+"')>"+arr[i].replace('_',' ').replace('#',":").replace('#',":")+"</a>";
					}
				}
			}
		})
}
/*检测自定义静态文件名是否重复*/
function checkfilename(filename){
	if (filename!="")
	{ 
			if (filename.indexOf("/")!=-1 || filename.indexOf("\\")!=-1)
			{
				document.getElementById("filename").value="false";
				alert("自定义文件名中不能出现 \\ 和 /");
				return false;
			}
			if (isNumber(filename))
			{
				document.getElementById("filename").value="false";
				alert("自定义文件名不能全为数字");
				return false;
			}
			if (document.getElementById("filenamed")!=null)
			{
				if (filename==document.getElementById("filenamed").value)
				{
					document.getElementById("filename").value="";
					return false;
				}
			}
			$.ajax({
				url:'admin_log.asp?action=checkfilename',
				type:'POST',
				timeout:2000,
				error: function(){},
				data:'filename='+filename,
				success:function(msg){
					if (msg=="false")
					{
						document.getElementById("filename").value="false";
						alert("自定义静态文件名重复,请重新填写");
						document.getElementById("file_name").focus();
					}
					else{
						document.getElementById("filename").value="";
					}
				}
			})
	}
}
/*判断是否为数字*/
	function isNumber(oNum)
   {
	if(!oNum) return false;
	var strP=/^\d+(\.\d+)?$/;
	if(!strP.test(oNum)) return false;
	try{
		if(parseFloat(oNum)!=oNum) return false;
	}
		catch(ex)
	{
		return false;
	}
	return true;
  }
//灾难恢复 把日志暂时存储在粘贴板上
function copyclip(meintext)
    {
     if (window.clipboardData){
	 if (window.clipboardData.setData("Text", meintext)){
			alert('日志已经复制到了粘贴板');
			return true;
	   }
	   else {
			alert('复制失败\n请允许网页访问"剪切板"');
			return false;
		}
      }else if (window.netscape) { 
       try{
       	netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');
       } catch (e) {
          alert("被浏览器拒绝！\n请在浏览器地址栏输入'about:config'并回车\n然后将'signed.applets.codebase_principal_support'设置为'true'");
		  return false;
       }

       var clip = Components.classes['@mozilla.org/widget/clipboard;1']
                     .createInstance(Components.interfaces.nsIClipboard);
       if (!clip) return false;
       

       var trans = Components.classes['@mozilla.org/widget/transferable;1']
                      .createInstance(Components.interfaces.nsITransferable);
       if (!trans) return false;
       
       trans.addDataFlavor('text/unicode');
       
       var str = new Object();
       var len = new Object();
       
       var str = Components.classes["@mozilla.org/supports-string;1"]
                    .createInstance(Components.interfaces.nsISupportsString);
       
       var copytext=meintext;
       
       str.data=copytext;
       
       trans.setTransferData("text/unicode",str,copytext.length*2);
       
       var clipid=Components.interfaces.nsIClipboard;
       
       if (!clip) return false;
       
       clip.setData(trans,null,clipid.kGlobalClipboard);
       
       }
	   alert('日志已经复制到了粘贴板');
       return true;
    }
//用户自定义函数---检测表单填写
//t[为chang 则]清空摘要
function Checkpostdata(t)
{ 
  if (document.getElementById("filename").value=="false")
  {
	alert("自定义静态文件名重复或者包含不允许的字符,请重新填写");
	document.getElementById("file_name").focus();
	return false;
  }
  if(document.all.title.value=="" || document.all.title.value.length>50)
  {alert("标题不能为空,并且不能超过50个字符");
  document.all.title.focus();
  return false;
  }
  if(KE.util.getData('Body')=="")
  {alert("内容不能为空");
  return false;
  }
  if(document.all.classx.value=="")
  {alert("你没有选择分类");
  document.all.classx.focus();
  return false;
  }
  document.getElementById("aBody").value=KE.util.getData('aBody');
  if (t=="change")
  {
	if (confirm('是否根据日志内容自动生成摘要?')) {
		document.getElementById('aBody').value='<P>&nbsp;</P>';
		}
  }
   //copyclip(document.getElementById("Body").value);
   return true;
  
}

</script>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor" >
<%
Dim ExLog
Set ExLog=new ExLogCls
ExLog.Execute
Class ExLogCls
Dim ExComm,ExFso,ExImg,ExHtml
Private Sub  class_initialize
	Set ExComm=new Ex_CommonCls
	ExComm.GetConfigCache("*")
	ExComm.IsAdLogin 
	ExComm.IsIpAllow
	Set ExFso=new Ex_FsoCls
	Set ExImg=new Ex_ImgCls
	Set ExHtml=new Ex_FilterHtmlCls
End Sub
Private Sub class_terminate
	Set ExComm=Nothing 
	Set ExFso=Nothing 
	Set ExImg=Nothing
	Set ExHtml=Nothing 
End Sub 
Public Sub execute
dim action
action=request.QueryString("action")
select case action
case "addform"
	AddForm
case "add"
	Add
	RefreshTxtSkin
case "changeform"
	ChangeForm
case "change"
	Change
	RefreshTxtSkin
case "del"
	Del
	RefreshTxtSkin
Case "delmore"
	Delmore
	RefreshTxtSkin
Case "autosave"
	AutoSave
Case "restore"
	Restore
Case "delautosave"
	DelAutoSave
Case "checkautosave"
	CheckAutoSave
Case "checkfilename"
	CheckFileName
case else
call search()
end Select
End Sub
'检测自定义静态文件名是否重复
Sub CheckFileName()
	Dim Fn
	fn=request.Form("filename")
	Response.Clear
	If Conn.Execute("select count(*) from Ex_Log where file_name='"&fn&"'")(0)<>0 Then 
		Response.Write("false")
	Else 
		Response.Write("true")
	End If 
End Sub 
'自动保存
Sub AutoSave()
	Dim title,tags,abody,content,fname
	title=request.Form("title")
	tags=request.Form("tags")
	abody=request.Form("abody")
	content=request.Form("content")
	fname=Replace(now,":","#")
	fname=Replace(fname," ","_")
	ExFso.CreateFile "Temp\LogTemp\"&fname&".ExTemp",title&"$exblog#$!"&tags&"$exblog#$!"&abody&"$exblog#$!"&content
	Response.Clear
	Response.write(fname)
End Sub 
'恢复存搞
Sub Restore
	Dim Content,Fname
	Fname=Request.Form("fname")
	Response.Clear
	Content=ExFso.ReadFile("Temp\LogTemp\"&fname&".ExTemp")
	Response.Write(Content)
End Sub 
'清空存稿
Sub DelAutoSave
	ExFso.DelFolder "Temp\LogTemp"
	ExFso.CreateRoute "Temp\LogTemp"
End Sub 
'获取存搞文件名列表
Sub checkautosave()
	Dim Content
	Response.Clear
	Content=ExFso.GetSubFiles("Temp\LogTemp")
	If Trim(Content)<>"文件夹不存在" Then 
		Response.Write(Replace(Content,".ExTemp",""))
	Else
		Response.Write("")
	End If 
End Sub 
'从新生成模板
Function RefreshTxtSkin
	ExComm.ClearCaches(sn)
	Dim ExSkin
	Set ExSkin=new Ex_SkinCls
	ExSkin.RefreshSkinCache
	Set ExSkin=Nothing 
End Function 
'*************************************
'发布引用
'参数：引用地址 日志地址 日志标题 日志简要 博客名称
'*************************************
Private Function Trackback(trackback_url, url, title, excerpt, blog_name,tags) 
	Dim querystring, objXMLHTTP, objDOM
	title = ExComm.cutStr(Server.URLEncode(title),100)
	excerpt = ExComm.cutStr(Server.URLEncode(excerpt), 252)
	url = Server.URLEncode(url)
	blog_name = Server.URLEncode(blog_name)
	querystring = "title="&title&"&url="&url&"&blog_name="&blog_name&"&excerpt="&excerpt&"&tags="&tags
    Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
    'Set objXMLHTTP = Server.CreateObject("microsoft.XMLHTTP")
	Set objDom = Server.CreateObject("Microsoft.XMLDOM")
    objXMLHTTP.Open "POST", trackback_url, false
    'objXMLHTTP.Open "POST", trackback_url, false
	objXMLHTTP.setRequestHeader "Content-Type","application/x-www-Form-urlencoded"
	On Error Resume Next
	objXMLHTTP.send querystring
    If objXMLHTTP.readyState <> 4 Then
		objXMLHTTP.waitForResponse 15
	End If

	If Err.Number <> 0 Then
		Trackback	= "0$$TrackBack 错误：无法连接服务器"
	Else
		If (objXMLHTTP.readyState <> 4) Or (objXMLHTTP.Status <> 200) Then
			objXMLHTTP.Abort
			Trackback	= "0$$Trackback 超时"
		Else
			objDom.async=false
			objDom.loadXML(objXMLHTTP.responseText) 
			If objDom.parseError.errorCode <> 0 Then
				Trackback	= "0$$TrackBack 响应解析错误"
			Else
				If objDom.getElementsByTagName("error")(0).Text="0" Then
					Trackback	= "1$$Trackback 成功"
				Else
					Trackback	= "0$$Trackback 错误："&objDom.getElementsByTagName("message")(0).Text
				End If
			End If
		End If
	End If

	Set objXMLHTTP = Nothing
	Set objDom = Nothing
End Function
%>
<%sub addform()%>
<form action="?action=add" method="post" name="Dvform" onSubmit="JavaScript:return Checkpostdata('');">
<table width="98%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr>
    <th colspan="9" class="topbg">日志发表</th>
  </tr>
  <tr>
    <td class="tdbg" width="9%" ><div align="center">日志标题：<font color="red">*</font></div></td>
    <td class="tdbg" colspan="8"><input name="title" type="text" id="title">
      最多不应超过50字</td>
  </tr>
  <tr>
    <td class="tdbg"><div align="center">日志分类：<font color="red">*</font></div></td>
    <td class="tdbg" colspan="8"><label>
      <select name="classx" id="classx">
        <option value="">选择分类</option>
        <%=ExComm.GetClassSelectCache(0)%>
      </select>
      &nbsp;自定义静态文件名：&nbsp;
		<input name="file_name" type="text" id="file_name" size="20" maxlength="38" onchange="checkfilename(this.value)">.html 留空则为默认静态名
		<input type="hidden" id="filename" value="">
    </label></td>
  </tr>
  <tr>
    <td class="tdbg"><div align="center">日志标签：</div></td>
    <td class="tdbg" colspan="8"><input name="tags" type="text" id="tags" size="30" title="标签之间用空格分开" value="标签之间用空格分开" onClick="if(this.value=='标签之间用空格分开') this.value='';">
      &nbsp;&nbsp;
      <input name="btinsertTag" type="button" id="btinsertTag" style="border:solid 1px" onClick="window.open ('Admin_InsertTags.asp', 'newwindow', 'height=400, width=200, top=50,left=600, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no,status=no')" value="选择日志标签"/>
      &nbsp;&nbsp;
      <input name="btinsertTag" type="button" id="btinsertTag" style="border:solid 1px" onClick="KE.util.insertHtml('Body','$ex_cut$');" value="插入摘要标记" style="display:none"/>
      &nbsp;&nbsp;
      <input name="btinsertTag" type="button" id="btinsertTag" style="border:solid 1px" onClick=";if(this.value=='显示摘要框'){this.value='隐藏摘要框';abstract.style.display='';}else{this.value='显示摘要框';abstract.style.display='none';}" value="隐藏摘要框"/></td>
  </tr>
  <tr id="abstract">
    <td class="tdbg"><div align="center">日志摘要：</div></td>
    <td class="tdbg" colspan="8">
	<textarea id="aBody" name="aBody">
	</textarea>
	<!--#include file="htmedit_a.asp"-->
	</td>
  </tr>
  <tr>
    <td class="tdbg"><div align="center">日志正文：<font color="red">*</font></div></td>
    <td class="tdbg" colspan="8">
	<span style="float:left;">
	<textarea name="Body" id="Body"></textarea><!--编辑器初始值的设置-->
	<!--#include file="htmedit.asp"-->
	</span>
	<span id="autosavetitle" style="float:right;margin-top:0px;text-align:left;">以下为自动保存的草稿<br>每一分钟自动保存一次<br>点击时间连接可以恢复<br><a href="javascript:showautosavemsg();">显示时间</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:hideautosavemsg();">隐藏时间</a><div id="autosavemsg" style="display:none"></div></span><script>checkautosave()</script></td>
  </tr>
  <tr>
    <%Dim defaultRs,defaultSql
  defaultSql="select ishide,istop,iscmt,copyright from Ex_LogDefault"
  defaultRs=Conn.execute(defaultSql)%>
    <td class="tdbg" height="26"><div align="center">高级选项：</div></td>
    <td width="12%" class="tdbg">查看
      <select name="ishide" id="select2">
          <option value="游客" <%if trim(defaultRs(0))="游客" then response.Write("selected") end if%>>游客</option>
          <option value="会员" <%if trim(defaultRs(0))="会员" then response.Write("selected") end if%>>会员</option>
          <option value="隐藏" <%if trim(defaultRs(0))="隐藏" then response.Write("selected")end if%>>隐藏</option>
      </select></td>
    <td width="7%" class="tdbg">置顶
      <input name="istop" type="checkbox" id="istop" value="true" <%if defaultRs(1)=true then response.Write("checked")end if%>></td>
    <td width="14%" class="tdbg">允许回复
      <select name="iscmt" id="select3">
          <option value="游客" <%if trim(defaultRs(2))="隐藏" then response.Write("selected")end if%>>游客</option>
          <option value="会员" <%if trim(defaultRs(2))="会员" then response.Write("selected")end if%>>会员</option>
          <option value="禁止" <%if trim(defaultRs(2))="禁止" then response.Write("selected")end if%>>禁止</option>
      </select></td>
    <td width="10%" class="tdbg">原创声明
      <input name="copyright" type="checkbox" id="copyright" value="true" <%if defaultRs(3)=true then response.Write("checked")end if%>></td>
    <td width="14%" class="tdbg">日志密码
      <input name="logpass" type="text" id="logpass" size="5" value=""></td>
    <td width="11%" class="tdbg">存为草稿
      <label>
        <input name="savedraft" type="checkbox" id="savedraft" value="0">
      </label></td>
    <td width="15%" class="tdbg">推荐等级
      <input name="recommend" type="text" id="recommend" size="5" value="0" onBlur="if(!isNumber(this.value)){alert('必须为数字');this.focus();}"></td>
    <td width="8%" class="tdbg">存图
      <input name="saveimg" type="checkbox" id="saveimg" value="yes">    </td>
    </tr>
  <tr>
    <td class="tdbg"><div align="center">日志心情：</div></td>
    <td class="tdbg" colspan="8"><input name="emotion" type="radio" value="0">
      无
      <input name="emotion" type="radio" value="1" checked>
        <img src="images/emotion/em01.gif" width="19" height="19">
        <input type="radio" name="emotion" value="2" >
        <img src="images/emotion/em02.gif" width="19" height="19">
        <input type="radio" name="emotion" value="3">
        <img src="images/emotion/em03.gif" width="19" height="19">
        <input type="radio" name="emotion" value="4">
        <img src="images/emotion/em04.gif" width="19" height="19">
        <input type="radio" name="remotion" value="5">
        <img src="images/emotion/em05.gif" width="19" height="19">
        <input type="radio" name="emotion" value="6">
        <img src="images/emotion/em06.gif" width="19" height="19">
        <input type="radio" name="emotion" value="7">
        <img src="images/emotion/em07.gif" width="19" height="19">
        <input type="radio" name="emotion" value="8">
        <img src="images/emotion/em08.gif" width="19" height="19">
        <input type="radio" name="emotion" value="9">
        <img src="images/emotion/em09.gif" width="19" height="19"></td>
  </tr>
  <tr style="display:none;">
    <td class="tdbg"><div align="center">引用通告：</div></td>
    <td class="tdbg" colspan="8"><textarea name="textarea" cols="70" wrap="VIRTUAL" id="textarea"></textarea></td>
  </tr>
  <tr>
    <td class="tdbg"><div align="center">发布日期：</div></td>
    <td class="tdbg" colspan="8"><input type="hidden" name="submittime" id="submittime" value="<%=now()%>">
        <select name="selecty" id="selecty">
          <%
	  dim y
	  y=2005
	  while y<=2010
	  	if year(now())=y then
		  	response.Write "<option value="&y&" selected>"&y&"</option>"
		else
		  	response.Write "<option value="&y&">"&y&"</option>"
		end if
		y=y+1
	  wend
		%>
        </select>
      年
      <select name="selectm" id="selectm" >
        <%
	  dim m
	  m=1
	  while m<=12
	  	if month(now())=m then
		  	response.Write "<option value="&m&" selected>"&m&"</option>"
		else
		  	response.Write "<option value="&m&">"&m&"</option>"
		end if
		m=m+1
	  wend
		%>
      </select>
      月
      <select name="selectd" id="selectd" >
        <%
	  dim d,maxday
	  d=1
	  
	  while d<=31
	  	if day(now())=d then
		  	response.Write "<option value="&d&" selected>"&d&"</option>"
		else
		  	response.Write "<option value="&d&">"&d&"</option>"
		end if
		d=d+1
	  wend
		%>
      </select>
      日
      <!--增加时、分选择功能Begin，program by hotlion at 08-03-22-->
      <select name="selecth" id="selecth" >
        <%
	  dim h
	  h=0
	  
	  while h<=23
	  	if hour(now())=h then
		  	response.Write "<option value="&h&" selected>"&h&"</option>"
		else
		  	response.Write "<option value="&h&">"&h&"</option>"
		end if
		h=h+1
	  wend
		%>
      </select>
      时
      <select name="selectmin" id="selectmin" >
        <%
	  dim min
	  min=0
	  
	  while min<=59
	  	if minute(now())=min then
		  	response.Write "<option value="&min&" selected>"&min&"</option>"
		else
		  	response.Write "<option value="&min&">"&min&"</option>"
		end if
		min=min+1
	  wend
		%>
      </select>
      分
      <!--增加时、分选择功能End--></td>
  </tr>
  <tr>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg" colspan="8"><div align="center">
      <input type="submit" name="Submit3" value="提交">
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="reset" name="Submit22" value="清除">
    </div></td>
  </tr>
</table>
</form>
</body>
</html>
<%end Sub
'*****************************
'截取日志摘要文字
'参数:str 日志内容
'****************************
Function GetAbstractHtml(ByVal str)
	Dim Char,Temp,Arr,I,Content,Ln
	Ln=CInt(Application(sn&"logdefaultnum"))
	Content=ExComm.ClearHtml(Str)
	If Len(Content)>Ln Then 
		Char=Mid(Content,Ln,1)
		Arr=Split(Str,Char)
		For I=0 To UBound(Arr)
			Temp=Temp&Arr(I)&Char
			
			If Len(ExComm.ClearHtml(Temp))>=Ln Then 
				GetAbstractHtml=Temp
				Exit For 
			End If 
		Next 
		GetAbstractHtml=Temp
	Else 
		GetAbstractHtml=Str
	End If 
End Function 
'*****************************
'及时生成日志信息静态页
'参数:日志id
'****************************
Function CreateLOG(id)
	Dim ExRefresh,I
	ExComm.ClearCaches(sn)
	RefreshTxtSkin
	ExComm.GetConfigCache("*")
	Set ExRefresh=new Ex_RefreshCls
	If InStr(id,",")<>0 Then 
		Id=Split(id,",")
		For I=0 To UBound(id)
			ExRefresh.CreateView id(I)
		Next 
	Else
		ExRefresh.CreateView id
	End If 
End Function
'插入标签
Sub InsertTag(ByVal Tags,Classid)
	Dim I
	Tags=Split(Tags," ")
	For I=0 To UBound(Tags)
		Conn.Execute "insert into Ex_tags (tagname,classid,times) values('"&Tags(I)&"',"&classid&",0)"
	Next 
End Sub 
sub add()
 dim title,tags,classx,content,ishide,istop,iscmt,logpass,emotion,quote,submittime,Recommend,file_name '增加变量file_name用于接收日志静态文件名值 Modify by Hotlion at 2009-2-14
 Dim strsql,rs,log_postyear,log_postmonth,log_postday,log_posthour,log_postmin,copyright,textnum,logtype,abstract
 title=server.htmlencode(request.Form("title"))
 tags=Trim(server.htmlencode(request.Form("tags")))
 classx=request.Form("classx")
 content=request.Form("body")
 abstract=Request.Form("aBody")
 ishide=request.Form("ishide")
 istop=request.Form("istop")
 iscmt=request.Form("iscmt")
 logpass=request.Form("logpass")
 emotion=request.Form("emotion")
 quote=request.Form("quote")
 copyright=request.Form("copyright")
 submittime=request.Form("submittime")
 log_postyear=request.Form("selecty")
 log_postmonth=request.Form("selectm")
 log_postday=request.Form("selectd")
  log_posthour=request.Form("selecth") 
 log_postmin=request.Form("selectmin")
 textnum=request.Form("savedraft")
 logtype=request.Form("logtype")
 Recommend=Request.Form("recommend")
 file_name=Request.Form("file_name")
 If Tags="标签之间用空格分开" Then 
	Tags=""
 End If 
If Tags<>"" Then 
	InsertTag tags,classx
End If 
 If Year(submittime)<>log_postyear Or Month(submittime)<>log_postmonth Or Day(submittime)<>log_postday Then 
	Submittime=log_postyear&"-"&log_postmonth&"-"&log_postday&" "&log_posthour&":"&log_postmin&":"&Second(now)
 End If 
 If Trim(textnum)="" Then 
	textnum=1
 End If 
 strsql="select * from Ex_log"
 set rs=server.CreateObject("adodb.recordset")
 rs.open strsql,Conn,0,2
 rs.addnew
 rs("title")=title
 rs("classid")=cint(classx)
 If request("saveimg")="yes" Then 
	ExImg.imgPath="UpFile\"&Year(Now())&"\"&Month(Now())&""
	ExFso.CreateRoute ExImg.imgPath
	content=ExImg.ReplaceUrl(content)
 End If 
 rs("submittime")=submittime
 rs("log_postyear")=log_postyear
 rs("log_postmonth")=log_postmonth
 rs("log_postday")=log_postday
 if tags<>"" then
 rs("tags")=tags
 end if
 if ishide<>"" then
 rs("ishide")=ishide
 end if
 if  copyright="" then
 rs("copyright")=false
 end if
 if istop<>"" then
 rs("istop")=istop
 end if
 if iscmt<>"" then
 rs("iscmt")=iscmt
 end if
 if logpass<>"" then
  rs("logpass")=logpass
 end if
 if emotion<>"" then
 rs("emotion")=emotion
 end if
 if quote<>"" then
 rs("quote")=quote
 end If
 Abstract=Replace(Abstract,"<P>&nbsp;</P>","")
 If Trim(Abstract)="" And InStr(content,"$ex_cut$")<>0 Then 
	Abstract=ExHtml.GetHtml(Mid(content,1,InStr(content,"$ex_cut$")-1))
 ElseIf Trim(Abstract)="" And InStr(content,"$ex_cut$")=0 Then 
	Abstract=ExHtml.GetHtml(GetAbstractHtml(content))
 End If 
 Rs("abstract")=Abstract
 rs("content")=Replace(content,"$ex_cut$","")
 rs("textnum")=textnum
 rs("logtype")=logtype
 Rs("recommend")=Recommend
 Rs("file_name")=file_name '自定义文件名写入数据库 modify by Hotlion at 2009-2-14
 rs.update
 rs.close
 set rs=Nothing
 '引用开始
 IF Quote<>""  Then
	Dim TBlogID,TBlogTmp,tbCode,tbMessage
	TBlogID=Conn.Execute("SELECT TOP 1 ID FROM Ex_log ORDER BY id DESC")(0)

	If TBlogID>0 then
						TBlogTmp=Split(Trackback(Quote, Application(sn&"blogurl")&"/blogview.asp?ID="&tblogid,Title, ExComm.CutStr(content,252),Application(sn&"blogname"),tags),"$$")
						tbCode=TBlogTmp(0)
						tbMessage=TBlogTmp(1)
	End If
End If
Application.lock
 Application(sn&"logtotal")=Application(sn&"logtotal")+1
 Application.unlock
'静态生成
If ishide="游客" And textnum<>0 Then 
	Createlog Conn.execute("select max(id) from Ex_log")(0)
End If 
DelAutoSave
ExComm.ShowMsg "日志添加成功,"&tbmessage&"","Admin_log.asp?action=addform"
 end sub%>
  <%sub changeform()
  dim rss,sql,id
  id=request.querystring("id")
  sql="select * from Ex_log where id="&id
  set rss=Conn.execute(sql)
  %>
<form action="?action=change&id=<%=id%>" method="post" name="Dvform" onSubmit="JavaScript:return Checkpostdata('change');">
   <table width="98%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
    <tr>
      <th class="topbg" colspan="15">日志修改</th>
    </tr>
    <tr>
      <td class="tdbg" width="9%"><div align="center">日志标题：<font color="red">*</font></div></td>
      <td class="tdbg" colspan="14"><input name="title" type="text" id="title" value="<%=rss("title")%>"> 
        最多不应超过50字</td>
    </tr>
    <tr>
      <td class="tdbg"><div align="center">日志分类：<font color="red">*</font></div></td>
      <td class="tdbg" colspan="14">
	  <select name="classx" id="classx">
        <option value="">选择分类</option>
		<%=ExComm.GetClassSelectCache(rss("classid"))%>
		</select>
		&nbsp;自定义静态文件名：&nbsp;
		<input name="file_name" type="text" id="file_name" size="20" maxlength="38" value="<%=Rss("file_name")%>" onchange="checkfilename(this.value)">.html 留空则为默认静态名
		<input type="hidden" id="filename" value="">
		<input type="hidden" id="filenamed" value="<%=Rss("file_name")%>">
		</label>
		   </td>
    </tr>
    <tr>
      <td class="tdbg"><div align="center">日志标签：</div></td>
      <td class="tdbg" colspan="14"><input name="tags" type="text" id="tags" size="30" value="<%=rss("tags")%>" title="标签之间用空格分开">
		&nbsp;&nbsp;<input type="button" name="btinsertTag" value="选择日志标签" style="border:solid 1px" onClick="window.open ('Admin_InsertTags.asp', 'newwindow', 'height=400, width=200, top=50,left=600, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no,status=no')"/>&nbsp;&nbsp;<input type="button" name="btinsertTag" value="插入摘要标记" style="border:solid 1px" onClick="WBTB_Composition.focus();WBTB_Composition.document.execCommand('paste','','$ex_cut$');" style="display:none"/>&nbsp;&nbsp;<input type="button" name="btinsertTag" value="隐藏摘要框" style="border:solid 1px" onClick=";if(this.value=='显示摘要框'){this.value='隐藏摘要框';abstract.style.display='';}else{this.value='显示摘要框';abstract.style.display='none';}"/>
		</td>
    </tr>
    <tr id="abstract">
    <td class="tdbg"><div align="center">日志摘要：</div></td>
    <td class="tdbg" colspan="14">
	<textarea id="aBody" name="aBody">
	<%=server.htmlencode(rss("abstract"))%>
	</textarea>
	<!--#include file="htmedit_a.asp"-->
	</td>
  </tr>
    <tr>
      <td class="tdbg"><div align="center">日志正文：<font color="red">*</font></div></td>
     <td class="tdbg" colspan="14">
	 <span style="float:left">
	<textarea name="Body" id="Body">
	<%=server.htmlencode(rss("content"))%>
	</textarea><!--编辑器初始值的设置-->
	<!--#include file="htmedit.asp"-->
	</span>
	<span id="autosavetitle" style="float:right;margin-top:0px;text-align:left;">以下为自动保存的草稿<br>每一分钟自动保存一次<br>点击时间连接可以恢复<br><a href="javascript:showautosavemsg();">显示时间</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:hideautosavemsg();">隐藏时间</a><div id="autosavemsg" style="display:none"></div></span><script>checkautosave()</script>
	 </td>
    </tr>
    <tr>
	  <td class="tdbg" height="26"><div align="center">高级选项：</div></td>
    <td width="12%" class="tdbg">查看
      <select name="ishide" id="select2">
         <option value="游客" <%if instr(rss("ishide"),"游客")<>0 then response.Write("selected")%>>游客</option>
		<option value="会员" <%if instr(rss("ishide"),"会员")<>0 then response.Write("selected")%>>会员</option>
		 <option value="隐藏" <%if instr(rss("ishide"),"隐藏")<>0 then response.Write("selected")%>>隐藏</option>
      </select></td>
    <td width="7%" class="tdbg">置顶
      <input name="istop" type="checkbox" id="istop2" value="true" <%if rss("istop")=true then%>checked<%end if%>>
	</td>
    <td width="14%" class="tdbg">允许回复
      <select name="iscmt" id="select3">
          <option value="游客" <%if instr(rss("iscmt"),"游客")<>0 then response.Write("selected")%>>游客</option>
			<option value="会员" <%if instr(rss("iscmt"),"会员")<>0 then response.Write("selected")%>>会员</option>
			 <option value="禁止" <%if instr(rss("iscmt"),"禁止")<>0 then response.Write("selected")%>>禁止</option>
      </select></td>
    <td width="10%" class="tdbg">原创声明
      <input name="copyright" type="checkbox" id="copywright" value="true" <%if rss("copyright")=true then%>checked<%end if%>>
	</td>
    <td width="14%" class="tdbg">日志密码
      <input name="logpass" type="text" id="logpass" size="5" value="<%=rss("logpass")%>">
	</td>
    <td width="11%" class="tdbg">存为草稿
      <label>
        <input name="savedraft" type="checkbox" id="savedraft" value="0" <%If Rss("textnum")=0 Then Response.write "checked"%>/>
      </label></td>
    <td width="15%" class="tdbg">推荐等级
      <input name="recommend" type="text" id="recommend" size="5" value="<%=Rss("recommend")%>" onBlur="if(!isNumber(this.value)){alert('必须为数字');this.focus();}"></td>
    <td width="8%" class="tdbg">存图
      <input name="saveimg" type="checkbox" id="saveimg" value="yes">    </td>
    </tr>
    <tr>
      <td class="tdbg"><div align="center">日志心情：</div></td>
      <td class="tdbg" colspan="14">
	  <%dim i
	   if rss("emotion")=0 then%>
	   <input name="emotion" type="radio" value="0" checked> 无
       <%else%>
	    <input name="emotion" type="radio" value="0"> 无
		<%end if%>
	   <%for i=1 to 9
	    if rss("emotion")=i then%>
        <input type="radio" name="emotion" value="<%=i%>" checked>
		<img src="images/emotion/em0<%=i%>.gif" width="19" height="19">
		<%else%>
        <input type="radio" name="emotion" value="<%=i%>">
		<img src="images/emotion/em0<%=i%>.gif" width="19" height="19">
        <%end if
		 next%>        </td></tr>
    <tr style="display:none;">
      <td class="tdbg"><div align="center">引用通告：</div></td>
      <td class="tdbg" colspan="14"><textarea name="quote" cols="70" wrap="VIRTUAL" id="quote"><%=rss("quote")%></textarea></td>
    </tr>
    <tr>
      <td class="tdbg"><div align="center">发布日期：</div></td>
      <td class="tdbg" colspan="14">
	  <input type="hidden" name="submittime" id="submittime" value="<%=now()%>">
	   <select name="selecty" id="selecty">
	  <%
	  dim y
	  y=2005
	  while y<=2010
	  	if rss("log_postyear")=y then
		  	response.Write "<option value="&y&" selected>"&y&"</option>"
		else
		  	response.Write "<option value="&y&">"&y&"</option>"
		end if
		y=y+1
	  wend
		%>
       </select>
      年
      <select name="selectm" id="selectm" >
        <%
	  dim m
	  m=1
	  while m<=12
	  	if rss("log_postmonth")=m then
		  	response.Write "<option value="&m&" selected>"&m&"</option>"
		else
		  	response.Write "<option value="&m&">"&m&"</option>"
		end if
		m=m+1
	  wend
		%>
      </select>
      月
	  <select name="selectd" id="selectd" >
	  <%
	  dim d,maxday
	  d=1
	  
	  while d<=31
	  	if rss("log_postday")=d then
		  	response.Write "<option value="&d&" selected>"&d&"</option>"
		else
		  	response.Write "<option value="&d&">"&d&"</option>"
		end if
		d=d+1
	  wend
		%>
      </select>
      日	
	  <!--增加时、分修改功能Begin，program by hotlion at 08-03-22-->
	  <select name="selecth" id="selecth" >
	  <%
	  dim h,getTime,getHour
	  getTime= split(rss("Submittime"),":") 
	  getHour= Cint(trim(right(getTime(0),2)))
	  h=0
	  
	  while h<=23
	  	if getHour=h then
		  	response.Write "<option value="&h&" selected>"&h&"</option>"
		else
		  	response.Write "<option value="&h&">"&h&"</option>"
		end if
		h=h+1
	  wend
		%>
      </select>
	时
	  <select name="selectmin" id="selectmin" >
	  <%
	  dim min
	  min=0
	  
	  while min<=59
	  	if Cint(getTime(1))=min then
		  	response.Write "<option value="&min&" selected>"&min&"</option>"
		else
		  	response.Write "<option value="&min&">"&min&"</option>"
		end if
		min=min+1
	  wend
		%>
      </select>分<!--增加时、分修改功能End-->	
	  </td>
    </tr>
    <tr>
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg" colspan="14"><div align="center">
        <input type="submit" name="Submit" value="提交">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input type="reset" name="Submit2" value="清除">
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>
<%set rss=nothing
  end sub%>
<%sub change()
   dim title,tags,classx,content,ishide,istop,iscmt,logpass,emotion,quote,submittime,strsql,rs,Recommend,file_name '添加file_name变量用于接收用户自定义文件名值 modify by Hotlion at 2009-2-14
   Dim id,log_postyear,log_postmonth,log_postday,log_posthour,log_postmin,copyright,logtype,textnum,abstract
 id=ExComm.G(request.querystring("id"))
 title=server.htmlencode(request.Form("title"))
 tags=Trim(server.htmlencode(request.Form("tags")))
 classx=request.Form("classx")
 content=request.Form("body")
 abstract=request.Form("abody")
 copyright=request.Form("copyright")
 ishide=request.Form("ishide")
 istop=request.Form("istop")
 iscmt=request.Form("iscmt")
 logpass=request.Form("logpass")
 emotion=request.Form("emotion")
 quote=request.Form("quote")
 submittime=request.Form("submittime")
 log_postyear=request.Form("selecty")
 log_postmonth=request.Form("selectm")
 log_posthour=request.Form("selecth") 
 log_postmin=request.Form("selectmin")
 log_postday=request.Form("selectd")
 Recommend=Request.Form("recommend")
 file_name=Request.Form("file_name") '接收修改自定义文件名值 modify by Hotlion at 2009-2-14
 If Year(submittime)<>log_postyear Or Month(submittime)<>log_postmonth Or Day(submittime)<>log_postday Then 
	Submittime=log_postyear&"-"&log_postmonth&"-"&log_postday&" "&log_posthour&":"&log_postmin&":"&Second(now)
 End If 
 logtype=request.Form("logtype")
 textnum=request.Form("savedraft")
 If Trim(textnum)="" Then 
	textnum=1
 End If 
 strsql="select * from Ex_log where id="&id
 set rs=server.CreateObject("adodb.recordset")
 rs.open strsql,Conn,0,2
 rs("title")=title
 rs("classid")=classx
 If request("saveimg")="yes" Then 
	ExImg.imgPath="UpFile\"&Year(Now())&"\"&Month(Now())&""
	ExFso.CreateRoute ExImg.imgPath
	content=ExImg.ReplaceUrl(content)
 End If 
 rs("submittime")=submittime
 rs("log_postyear")=log_postyear
 rs("log_postmonth")=log_postmonth
 rs("log_postday")=log_postday
 Rs("Recommend")=Recommend
 if tags<>"" then
 rs("tags")=tags
 Else
 rs("tags")=""
 end if
 if ishide<>"" then
 rs("ishide")=ishide
 Else
 rs("ishide")=false
 end if
  if copyright<>"" then
 rs("copyright")=copyright
 Else
 rs("copyright")=false
 end if
 if istop<>"" then
 rs("istop")=istop
 Else
 rs("istop")=false
 end if
 if iscmt<>"" then
 rs("iscmt")=iscmt
 Else
 rs("iscmt")=false
 end if
 if logpass<>"" then
  rs("logpass")=logpass
  Else
  rs("logpass")=""
 end if
 if emotion<>"" then
 rs("emotion")=emotion
 Else
 rs("emotion")=""
 end if
 if quote<>"" then
 rs("quote")=quote
 Else
 rs("quote")=""
 end If
 Abstract=Replace(Abstract,"<P>&nbsp;</P>","")
 If Trim(Abstract)="" And InStr(content,"$ex_cut$")<>0 Then 
	Abstract=ExHtml.GetHtml(Mid(content,1,InStr(content,"$ex_cut$")-1))
 ElseIf Trim(Abstract)="" And InStr(content,"$ex_cut$")=0 Then 
	Abstract=ExHtml.GetHtml(GetAbstractHtml(content))
 End If 
 Rs("abstract")=Abstract
 rs("content")=Replace(content,"$ex_cut$","")
 rs("textnum")=textnum
 rs("logtype")=logtype
 rs("file_name")=file_name
 rs.update
 rs.close
 set Rs=Nothing
  Createlog id
 ExComm.ShowMsg "日志修改成功","?action=show"
  end sub%>
  <% sub search()%>
	<form name="form1" method="post" action="?action=search">
 <table width="98%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
    <tr>
      <td class="tdbg" colspan="6" align="center">日志管理</td>
    </tr>
    <tr>
      <td class="tdbg" width="10%">日志分类
      <div align="center"></div></td>
      <td class="tdbg" width="21%"><select name="classx" id="classx">
        <option value="0">选择分类</option>
		<%=ExComm.GetClassSelectCache(0)%>
		</select></td>
      <td class="tdbg" width="13%">标题内容</td>
      <td class="tdbg" width="24%"><select name="stype" size="1">
        <option value="title">日志标题</option>
        <option value="content">日志内容</option>
      </select></td>
      <td class="tdbg" width="24%"><input name="keyword" type="text" size="20"></td>
      <td class="tdbg" width="8%"><input type="submit" name="Submit" value="提交"></td>
    </tr><tr> <td class="tdbg" colspan="6">如果查找所有日志，请在关键字处留空</td></tr>
  </table>
</form>
<%
 dim stype,classx,keyword,rs,strsql
 stype=request("stype")
 classx=request("classx")
 keyword=request("keyword")
 Dim ExPages,page
 Set ExPages=new Ex_SplitPageCls
 Expages.letConn=Conn
 Expages.letColumns="select classid,title,bits,cmt,submittime,id,log_postyear,log_postmonth,log_postday,textnum,istop " '添加查询字段textnum,isTop Modify by Hotlion at 08-04-02
 ExPages.letDataFrom="from Ex_log"
 ExPages.letOrder=" order by istop,submitTime desc" '根据使用习惯将日志排列由按id改为按置顶及发表时间逆充排列 modify by Hotlion at 08-03-22
 If stype<>"" Then
	If classx<>"0" Then
		ExPages.letWhere="where classid="&cint(classx)&" and "&stype&" like '%"&keyword&"%'"
	Else
		ExPages.letWhere="where  "&stype&" like '%"&keyword&"%'"
	End if
 End if
 set rs=server.createobject("adodb.recordset")
	Expages.letPageSize="15"
 If ExComm.G(request("page"))="" Then
	page=1
 Else
	page=ExComm.G(request("page"))
 End if
 ExPages.letPage=CInt(page)
 ExPages.letStrPage="&action=show&stype="&stype&"&classx="&classx&"&keyword="&keyword
 ExPages.Execute()
  %>
  <script language="JavaScript">
  function CheckAll()
{
  for (var i=0;i<document.manger.elements.length;i++)
    {
    var e = document.manger.elements[i];
    if (e.Name != "allselect")
       e.checked = document.all.allselect.checked;
    }
}
	function check()
	{	
		var delmore=document.getElementsByName("delmore");
		for (var i=0;i<delmore.length ;i++ )
		{	
		  if (delmore[i].checked)
			{
				if (delmore[i].value=="delmore")
				{
					return confirm("确实要删除吗？\n与这篇日志相关的评论也将被删除");
				}
			}
		}
	}
  </script>
  <FORM METHOD=POST ACTION="?action=delmore" name="manger" id="manger" onSubmit="return check()">
  <table width="98%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr>
    <td class="tdbg" colspan="7"><div align="center">总共搜索到&nbsp;<%=ExPages.getRsCount%>&nbsp;条符合要求的记录</div></td>
  </tr>
  <tr>
    <td class="tdbg" width="6%">选中</td>
    <td class="tdbg" width="17%"><div align="center">分类</div></td>
    <td class="tdbg" width="31%"><div align="center">标题</div></td>
    <td class="tdbg" width="7%">点/评</td>
    <td class="tdbg" width="16%"><div align="center">时间</div></td>
    <td class="tdbg" colspan="2"><div align="center">操作</div></td>
  </tr>
  <%
  Set Rs=ExPages.getRs
  Dim markStatus '定义变量 program by Hotlion at 08-04-02
  If ExPages.getRsCount<>0 Then
  Do While Not rs.eof
'根据字段istop判断该日志是否为置顶 Program by Hotlion at 08-04-02
  If rs("istop") then
  	markStatus = "<font color=red>[置顶]</font>"
  Else
  	markStatus = ""
  End if
'根据字段textnum判断该日志是否为草稿 Program by Hotlion at 08-04-02
  If rs("textnum")=0 then
  	markStatus = markStatus&"<font color=blue>[草稿]</font>"
  End if
  %>
  <tr>
    <td class="tdbg">
      <div align="left">
        <input type="checkbox" name="checkbox" value="<%=rs("id")%>">
      </div></td>
    <td class="tdbg"><%=ExComm.GetClassName(rs("classid"))%></td>
    <td class="tdbg"><a href="blogview.asp?id=<%=rs("id")%>" target=_blank><%=rs("title")&"</a>"&markStatus%></td>
    <td class="tdbg"><%=rs("bits")%>/<%=rs("cmt")%></td>
    <td class="tdbg"><%=rs("log_postyear")&"-"&rs("log_postmonth")&"-"&rs("log_postday")%></td>
    <td class="tdbg" width="11%"><div align="center"><a href="?action=changeform&id=<%=rs("id")%>">修改</a></div></td>
    <td class="tdbg" width="12%"><div align="center"><a href="?action=del&id=<%=rs("id")%>" onClick="return confirm('是否删除?\n与这篇日志相关的评论也将被删除.')">删除</a></div></td>
  </tr>
  <%rs.movenext
  loop
  %>
 <tr>
    <td class="tdbg"><input type="checkbox" name="allselect" value="allselect" onClick="JavaScript:CheckAll()"></td>
    <td class="tdbg">全选</td>
    <td class="tdbg"><INPUT TYPE="radio" NAME="delmore" value="delmore">删除<INPUT TYPE="radio" NAME="delmore" value="moveto">移动到<SELECT NAME="classx">
	<%=ExComm.GetClassSelectCache(0)%>
	</SELECT>&nbsp;&nbsp;发布<INPUT TYPE="radio" NAME="delmore" value="posthtml">
	</td>
    <td class="tdbg"><INPUT TYPE="submit" value="操作"></td>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg" colspan="2">&nbsp;</td>
  </tr>
  <tr><td class="tdbg" colspan="7" align="center">
  <%
  response.write ExPages.Show()
  end if
  %></td></tr>
  
  <tr>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg">&nbsp;</td>
    <td class="tdbg" colspan="2">&nbsp;</td>
  </tr>
</table>
</FORM>
<%end sub%>
<%sub del()
 dim id,strsql
 id=ExComm.G(request.querystring("id"))
 strsql="delete  from Ex_log where id="&id
 Conn.execute(strsql)
 strsql="delete from Ex_comment where parentid="&id
 Application.lock
 Application(sn&"logtotal")=Application(sn&"logtotal")-1
 Application.unlock
 Conn.execute(strsql)
 If Application(sn&"runmode")="静态" Then 
	ExComm.ShowMsg "删除成功",request.servervariables("http_referer")
 Else
	ExComm.ShowMsg "删除成功",request.servervariables("http_referer")
 End if
 end Sub
 
 Sub delmore()
 dim action,ids,i,strsql
 ids=request.Form("checkbox")
 action=request.Form("delmore")
 select case action
	case "delmore"
		ids=Split(ids,",")
		for i=0 to ubound(ids)
			strsql="delete  from Ex_log where id="&CInt(Trim(ids(i)))
			Conn.execute(strsql)
			strsql="delete from Ex_comment where parentid="&CInt(Trim(IDS(i)))
			Conn.execute(strsql)
		Next
		Application.lock
		Application(sn&"logtotal")=Application(sn&"logtotal")-ubound(ids)-1
		Application.unlock
		If Application(sn&"runmode")="静态" Then 
			ExComm.ShowMsg "删除成功",request.servervariables("http_referer")
		Else
			ExComm.ShowMsg "删除成功",request.servervariables("http_referer")
		End if
	case "moveto"
		Dim classid
		classid=request.Form("classx")
		ids=request.Form("checkbox")
		ids=Split(IDS,",")
		For i=0 To UBound(IDS)
			strSql="update Ex_log set classid="&classid&" where id="&IDS(i)
			Conn.execute(strSql)
		Next
		If Application(sn&"runmode")="静态" Then 
			ExComm.ShowMsg "移动成功",request.servervariables("http_referer")
		Else
			ExComm.ShowMsg "移动成功",request.servervariables("http_referer")
		End if
	case "posthtml"
		createlog ids
		ExComm.ShowMsg "日志静态页发布成功",request.servervariables("http_referer")
 end select
 End Sub

 End Class 
 %>








