syscode_blog.asp

后台登陆admin.asp

				Else
					ablog_Intro=SplitLines(HTMLEncode(ablog_Content),4)  
				End If
				ablog_From=CheckStr(Request.Form("alog_From"))      
				ablog_FromURL=CheckStr(Request.Form("alog_FromURL")) 
				ablog_CateID2=Request.Form("alog_CateID")             
				ablog_Quote=CheckStr(Request.Form("alog_Quote"))      
				ablog_DisSM=Request.Form("alog_DisSM")      
				ablog_DisUBB=Request.Form("alog_DisUBB")   
				ablog_DisIMG=Request.Form("alog_DisIMG")   
				ablog_AutoURL=Request.Form("alog_AutoURL")  
				ablog_AutoKEY=Request.Form("alog_AutoKEY")  
				ablog_Weather=Request.Form("alog_Weather")  
				ablog_tags=Request.Form("alog_tags")        
				IF Request.Form("alog_IsTop")="1" Then   
					ablog_IsTop=True
 				Else
					ablog_IsTop=False
				End IF
				IF Request.Form("alog_IsBest")="1" Then   
					ablog_IsBest=True
 				Else
					ablog_IsBest=False
				End IF
				IF Request.Form("alog_IsShow")="0" Then   
					ablog_IsShow=True
				Else
					ablog_IsShow=False
				End IF
				If Request.Form("alog_DisComment")="1" Then  
					ablog_DisComment=True
				Else
					ablog_DisComment=False
				End IF
                                IF ablog_DisSM=Empty Then ablog_DisSM=0
				IF ablog_DisUBB=Empty Then ablog_DisUBB=0
				IF ablog_DisIMG=Empty Then ablog_DisIMG=0
				IF ablog_AutoURL=Empty Then ablog_AutoURL=0
				IF ablog_AutoKEY=Empty Then ablog_AutoKEY=0
				Conn.ExeCute("INSERT INTO b_Content(blog_CateID,blog_Title,blog_Author,blog_Intro,blog_Content,blog_From,blog_FromURL,blog_Quote,blog_DisSM,blog_DisUBB,blog_DisIMG,blog_AutoURL,blog_AutoKEY,blog_IsShow,blog_IsTop,blog_IsBest,blog_DisComment,blog_Weather) VALUES ("&ablog_CateID2&",'"&ablog_Title&"','"&Hx66_name&"','"&ablog_Intro&"','"&ablog_Content&"','"&ablog_From&"','"&ablog_FromURL&"','"&ablog_Quote&"',"&ablog_DisSM&","&ablog_DisUBB&","&ablog_DisIMG&","&ablog_AutoURL&","&ablog_AutoKEY&","&ablog_IsShow&","&ablog_IsTop&","&ablog_IsBest&","&ablog_DisComment&",'"&ablog_Weather&"')")

				Dim PostLogID  
				PostLogID=Conn.ExeCute("SELECT TOP 1 blog_ID FROM b_Content ORDER BY blog_ID DESC")(0)
				if trim(ablog_tags)<>empty then
				ablog_tags=Split(ablog_tags,"|")
				Dim tabs,ts
				For tabs=0 to Ubound(ablog_tags)
				    Sql="Select TagName from b_tags where TagName='"&ablog_tags(tabs)&"'"
					Set ts=Server.CreateObject("Adodb.Recordset")
					ts.open sql,conn,1,1
					If ts.eof and ts.bof then
					   conn.execute ("insert into b_tags(TagName) values('"&ablog_tags(tabs)&"')")
					Else
					   conn.execute ("update b_tags set TagBlogCount=TagBlogCount+1 where tagName='"&ablog_tags(tabs)&"'")
					End If
					conn.execute ("insert into b_tag(blogID,tagsName) values("&PostLogID&",'"&ablog_tags(tabs)&"')")
					ts.close
				    Set ts=Nothing
				Next
				End IF

                                IF ablog_Quote<>Empty And ablog_IsShow=True Then 
					Dim blog_QuoteEvery,blog_QuoteArr
					blog_QuoteArr=Split(ablog_Quote,"|")
					For Each blog_QuoteEvery In blog_QuoteArr
						Dim TBlogID,TBlogTmp,tbCode,tbMessage
						TBlogID=Conn.Execute("SELECT TOP 1 blog_ID FROM b_Content WHERE blog_Author='"&Hx66_name&"' AND blog_Quote='"&ablog_Quote&"' ORDER BY blog_PostTime DESC")(0)
						If TBlogID>0 then
							TBlogTmp=Split(Trackback(Trim(blog_QuoteEvery), weburl&"/showblog.asp?blog_id="&TBlogID, ablog_Title, CutStr(ablog_Intro,252), webName),"$$")
							tbCode=TBlogTmp(0)
							tbMessage=TBlogTmp(1)
							If tbCode="0" Then 
								tbMessage="<br><font color=""red"">"&tbMessage&"</font>" 
							Else 
								tbMessage="<br><font color=""blue"">"&tbMessage&"</font>"
							End If
						End if
					Next
				End IF		
            Response.Write "<Script Language=JavaScript>alert('日志发表成功！');this.top.location.href='blog.asp';</Script>"
       Response.End
End IF
end sub
sub blog_edit()
Dim eput_id
eput_id=Trim(Request.Form("eblog_ID"))
If IsInteger(eput_id)=False or request.Form("editBlog")<>"ok" Then
   Response.Write "<Script Language=JavaScript>alert('对不起，参数非法错误！');javascript :history.back();</Script>"
   Response.End
Else
   eput_id=clng(eput_id)
   Dim rs_eput
   Set rs_eput=Server.CreateObject("ADODB.Recordset")
   SQL="SELECT blog_ID,blog_Author FROM b_Content WHERE blog_ID="&eput_id
   rs_eput.Open SQL,Conn,1,1
   If rs_eput.EOF AND rs_eput.BOF Then   
      Response.Write "<Script Language=JavaScript>alert('对不起，修改的日志不存在！');javascript :history.back();</Script>"
      Response.End
   Else
      If Not((rs_eput("blog_Author")=Hx66_name And checkmember=true) OR SupAdmin=true) Then
         Response.Write "<Script Language=JavaScript>alert('对不起，没有权限修改日志！');javascript :history.back();</Script>"
         Response.End
      Else
         If Request.Form("message")=Empty OR Request.Form("elog_Title")=Empty Then
	    Response.Write "<Script Language=JavaScript>alert('对不起，日志标题和内容不能为空！');javascript :history.back();</Script>"
            Response.End
	 ElseIf Request.Form("blogdele")="1" Then
	    Conn.ExeCute("DELETE * FROM b_Content WHERE blog_ID="&eput_id)
	    Conn.ExeCute("DELETE * FROM b_review WHERE blog_ID="&eput_id)
	    Response.Write "<Script Language=JavaScript>alert('日志日志及相关评论删除成功！');this.top.location.href='blog.asp';</Script>"
            Response.End		
	 Else
	 dim eblog_Title,eblog_Content,eblog_From,eblog_FromURL,eblog_ID,eblog_Intro,eblog_DisSM,eblog_DisUBB,eblog_DisIMG,eblog_AutoURL,eblog_Modify,eblog_IsShow,eblog_AutoKEY,eblog_IsTop,eblog_DisComment,eblog_Weather,eblog_tags,eblog_isbest
				eblog_Title=CheckStr(Request.Form("elog_Title"))
                                eblog_CateID=Request.Form("elog_CateID")
				eblog_Content=CheckStr(Request.Form("message"))
				If InStr(eblog_Content,"[#seperator#]")>0 Then
					eblog_Intro=HTMLEncode(Left(eblog_Content,InStr(eblog_Content,"[#seperator#]")-1))
				Else
					eblog_Intro=SplitLines(HTMLEncode(eblog_Content),4)
				End If
				eblog_From=CheckStr(Request.Form("elog_From"))
				eblog_FromURL=Request.Form("elog_FromURL")
				eblog_ID=eput_id
				eblog_DisSM=Request.Form("elog_DisSM")
				eblog_DisUBB=Request.Form("elog_DisUBB")
				eblog_DisIMG=Request.Form("elog_DisIMG")
				eblog_AutoURL=Request.Form("elog_AutoURL")
				eblog_AutoKEY=Request.Form("elog_AutoKEY")
				eblog_Weather=Request.Form("elog_Weather")
				eblog_tags=Request.Form("elog_tags")
				IF Request.Form("elog_IsTop")="1" Then
					eblog_IsTop=True
				Else
					eblog_IsTop=False
				End IF
				If Request.Form("elog_isbest")="1" Then
					eblog_isbest=True
				Else
					eblog_isbest=False
				End IF
				IF Request.Form("elog_IsShow")="0" Then
					eblog_IsShow = True
				Else
					eblog_IsShow = False
				End IF
				If Request.Form("elog_DisComment")="1" Then
					eblog_DisComment=True
				Else
					eblog_DisComment=False
				End IF
                                IF eblog_DisSM=Empty Then eblog_DisSM=0
				IF eblog_DisUBB=Empty Then eblog_DisUBB=0
				IF eblog_DisIMG=Empty Then eblog_DisIMG=0
				IF eblog_AutoURL=Empty Then eblog_AutoURL=0
				IF eblog_AutoKEY=Empty Then eblog_AutoKEY=0
				eblog_Modify="[本日志由"&Hx66_name&"于"&Now()&"编辑]"
				Conn.ExeCute("UPDATE b_Content Set blog_Title='"&eblog_Title&"',blog_CateID="&eblog_CateID&",blog_Intro='"&eblog_Intro&"',blog_Content='"&eblog_Content&"',blog_From='"&eblog_From&"',blog_FromURL='"&eblog_FromURL&"',blog_DisSM="&eblog_DisSM&",blog_DisUBB="&eblog_DisUBB&",blog_DisIMG="&eblog_DisIMG&",blog_AutoURL="&eblog_AutoURL&",blog_AutoKEY="&eblog_AutoKEY&",blog_isbest="&eblog_isbest&",blog_Modify='"&eblog_Modify&"',blog_IsShow="&eblog_IsShow&",blog_DisComment="&eblog_DisComment&",blog_Weather='"&eblog_Weather&"',blog_IsTop="&eblog_IsTop&" WHERE blog_ID="&eblog_ID&"")
				Dim tabs,ts,deltag
				Call EditTags(eblog_ID)
                                if trim(eblog_tags)<>empty then
				eblog_tags=Split(eblog_tags,"|")
				For tabs=0 to Ubound(eblog_tags)
				    Sql="Select TagName from b_tags where TagName='"&eblog_tags(tabs)&"'"
					Set ts=Server.CreateObject("Adodb.Recordset")
					ts.Open sql,conn,1,1
					IF ts.Eof AND ts.Bof Then
					   conn.execute ("Insert Into b_tags(TagName) Values('"&eblog_tags(tabs)&"')")
					Else 
					   conn.Execute ("Update b_tags Set TagBlogCount=TagBlogCount+1 where tagName='"&eblog_tags(tabs)&"'")
					End If
                                        conn.Execute ("Insert Into b_tag(blogID,tagsName) Values("&eblog_ID&",'"&eblog_tags(tabs)&"')")
					ts.Close
				    Set ts=Nothing
				Next
				End IF
                                rs_eput.Close
                                Set rs_eput=Nothing
                  Response.Write "<Script Language=JavaScript>alert('修改日志成功！');this.top.location.href='showblog.asp?blog_id="&eblog_ID&"';</Script>"
                  Response.End
	 End If
      End If
   End If
End IF
end sub

sub blog_putedit()
Dim blog_ID
blog_ID=Trim(Request.QueryString("blogID"))
If IsInteger(blog_ID)=False Then
   Response.Write "<Script Language=JavaScript>alert('对不起，参数非法错误！');javascript :history.back();</Script>"
   Response.End
Else
  Dim blog_Edit
  Set blog_Edit=Server.CreateObject("ADODB.Recordset")
  SQL="SELECT H.*,C.cate_Name FROM b_Content AS H,b_cat AS C WHERE blog_ID="&blog_ID&" AND C.cate_ID=H.blog_cateID"
  blog_Edit.Open SQL,Conn,1,1
  If blog_Edit.EOF AND blog_Edit.BOF Then
     Response.Write "<Script Language=JavaScript>alert('对不起，你要修改的日志不存在！');javascript :history.back();</Script>"
     Response.End
  Else
     IF Not((blog_Edit("blog_Author")=Hx66_name AND checkmember=true) OR SupAdmin=true) Then
        Response.Write "<Script Language=JavaScript>alert('对不起，你没有编辑日志权限！');javascript :history.back();</Script>"
        Response.End
     Else
Dim e_blogWeather
e_blogWeather=blog_Edit("blog_Weather")
%>
<script language="JavaScript" src="inc/ubbcode.js"></script>
<table bgcolor="#ffffff" borderColor="#f0f0f0" Border="1" Cellspacing="0" Cellpadding="5" width="98%" align="Center" style="border-collapse: collapse">
<form name="FrontPage_Form1" method="post" action="blog.asp?action=editblog" id="bnews">
   <tr>
      <td width="12%" align="right">标题：</td>
      <td width="88%"><input name="elog_Title" type="text" id="elog_Title" size="50" class="input" value="<%=EditDeHTML(blog_Edit("blog_Title"))%>">&nbsp;
        <select name="elog_Weather" id="elog_Weather" onChange="document.images['show_Weather'].src='img/blog/'+options[selectedIndex].value.split('|')[0]+'.gif';" size="1" class="input">
          <option value="0|未知" <%If e_blogWeather="0|未知" Then Response.Write("selected")%>>天气</option>
          <option value="1|晴天" <%If e_blogWeather="1|晴天" Then Response.Write("selected")%>>晴天</option>
          <option value="2|多云" <%If e_blogWeather="2|多云" Then Response.Write("selected")%>>多云</option>
          <option value="3|雨天" <%If e_blogWeather="3|雨天" Then Response.Write("selected")%>>雨天</option>
          <option value="4|刮风" <%If e_blogWeather="4|刮风" Then Response.Write("selected")%>>刮风</option>
          <option value="5|雪天" <%If e_blogWeather="5|雪天" Then Response.Write("selected")%>>雪天</option>
          <option value="6|彩虹" <%If e_blogWeather="6|彩虹" Then Response.Write("selected")%>>彩虹</option>