<!--#include file="../Inc/Config.asp" -->
<%
Dim GetErrInfo,iii,ClassValue
CblogObj.IsUserLogin()
Sub UserClassList(ClassName,Photo)
	Dim ClassArr
	IF Not Photo Then
		Response.Write "<select name=""ClassName""> <option value=""0000000默认分类"">默认分类</option>"
		Set Rs=Conn.execute("select id,Blog_Class from Tb_User_Class Where User_Id="& Session("UserID") &"And Photo=0 Order By id desc")
	Else
		Response.Write "<select name=""ClassName""> <option value=""1111111默认相册"">默认相册</option>"
		Set Rs=Conn.execute("select id,Blog_Class from Tb_User_Class Where User_Id="& Session("UserID") &" And Photo=1 Order By id desc")
	End IF
	SqlCount=SqlCount+1
	if not rs.eof then
	  ClassArr=Rs.GetRows
	  for iii=0 to UBound(ClassArr,2)
		  ClassValue="0000000"&ClassArr(0,iii)
		  ClassValue=Right(ClassValue,7)&Classarr(1,iii)
		  if ClassName=ClassValue then
			  Response.Write "<option value="& ClassValue &" selected=""selected"">"& Classarr(1,iii) &"</option>"
		  else
			  Response.Write "<option value="& ClassValue &">"& Classarr(1,iii) &"</option>"
		  end if
	  next
	end if
	rs.close:set rs=nothing
	Response.Write "</select>"
End Sub

Sub ArticledCaheAndXmlDel()
	CblogObj.WriteDateInc(Session("UserID"))
	CblogObj.SaveUserClassXml(Session("UserID"))
	CblogObj.SaveUserMonthXml(Session("UserID"))
	CblogObj.DelCahe ("Recommends_Photo|Recommends_Articles|New_Articles|strip|Hot_Articles|New_Photo|Article_ByClass"&Request.Form("BlogClass")&"|PostCountTop|BuLuoCountTop|TagTop")
End Sub

Sub Post()
		Article_Title=CblogObj.HtmlStr(CblogObj.FormRequest("log_Title"))
		Article_Message=CblogObj.FormRequest("message")
		IF Session("Title")=Article_Title Then
			GetErrInfo=" <div class=""err""> 【操作失败提示:对不起,请不要重复提交!】</div>"
			Actions=1
			Exit Sub
		End IF
		IF Article_Title=""  Or Article_Message="" Then
			GetErrInfo=" <div class=""err""> 【操作失败提示:对不起,日志的标题,内容不能为空!】</div>"
			Actions=1
			Exit Sub
		End IF
		Article_Zy=Left(CblogObj.FormRequest("zy"),3500)
		IF Len(Article_Zy)<5 Then
			Article_Zy=left(Article_Message,2000)
		End IF
		Article_Class=CblogObj.FormRequest("ClassName")
		Article_SysCode=CblogObj.FormRequest("BlogClass")
		Article_Time=now()
		Article_Whather=CblogObj.FormRequest("log_Weather")
		Article_Hid=CblogObj.FormRequest("log_IsShow")
		Article_Tag=CblogObj.HtmlStr(CblogObj.FormRequest("tag"))
		Articleform=CblogObj.HtmlStr(CblogObj.FormRequest("form"))
		ArticleBl=CblogObj.HtmlStr(CblogObj.FormRequest("BL"))
		QuoteUrl=CblogObj.FormRequest("QuoteUrl")
End Sub

Sub ArticlePost()
	IF CblogObj.FormRequest("PostBlog")="Post" then
		Actions=0
		Call Post()
		IF Actions=1 Then
			Exit Sub
		End IF
		Dim IP
		IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
		IF IP="" Then
			IP=Request.ServerVariables("REMOTE_ADDR")
		End IF
		Article_ByMonth=Year(date)&month(date)&"||"&Year(now())&"年"&MonthName(Month(Article_Time))&"份"
		SqlString="INSERT INTO [Article] (User_ID,User_Name,Article_Title,Article_Zy,Blog_Info,Whather,Article_ByMonth,Article_Hid,Article_Time,Article_ByClass,Article_Code,Article_Bl,Article_Form,Article_Tag,Blog_Quote,IP)"
		SqlString=SqlString & " VALUES("& Session("UserID") &",'"& Session("UserName") &"','"& Article_Title &"','"& Article_Zy &"','"& Article_Message &"','"& Article_Whather &"','"& Article_ByMonth &"',"& Article_Hid &",'"& Article_Time &"','"& Article_Class &"','"& Article_SysCode &"','"& ArticleBl &"','"& Articleform &"','"& Article_Tag &"','"& QuoteUrl &"','"& IP &"')"
		Conn.Execute (SqlString)
		ArticleID=CONN.EXECUTE("SELECT @@IDENTITY FROM [Article]")(0)
		SqlCount=SqlCount+2
		'数据库操作完毕
		IF Article_Hid<>1 Then
			Call ArticledCaheAndXmlDel()
			Dim Query_string,QUrl,QuoteArr,objXMLHTTP,j,TagArr,Tag
			TagArr=Split(Article_Tag,"|")
			For J=0 To Ubound(TagArr)
				Tag=Left(TagArr(j),12)
				IF Conn.Execute("Select Count(ID) From Tag Where Tag='"& Tag &"'")(0)>0 Then
				   Conn.Execute("Update Tag Set TagCount=TagCount+1 Where Tag='"& Tag &"'")
				   SqlCount=SqlCount+2
				Else
				   Conn.Execute("INSERT INTO [Tag] (Tag)  VALUES ('"& Tag &"')")
				   SqlCount=SqlCount+2
				End IF
				IF J>=5 Then Exit For
			Next
			Qurl=Server.URLEncode(Territory&CblogObj.GetDir(Session("UserID"))&"/show.asp?/_articleid/" & ArticleID & ".html")
			Query_string = "&title="&Server.URLEncode(Article_Title)&"&url="&Qurl&"&blog_name="&Server.URLEncode(SESSION("Blog_Name"))&"&excerpt="&Server.URLEncode(Left(Article_Zy,50))
			QuoteArr=Split(QuoteUrl,VBCRLF)
			For J=0 TO Ubound(QuoteArr)
				QuoteUrl=Lcase(trim(QuoteArr(J))) & Query_string
				Response.Write "<iframe border=""0"" frameBorder=""0"" frameSpacing=""0"" height=""0"" marginHeight=""0"" marginWidth=""0"" noResize scrolling=""no"" width=""0"" vspale=""0"" src="""& QuoteUrl &"""></iframe>"
			Next
		End IF
		Session("Title")=Article_Title
		GetErrInfo=" <div class=""doen""> 【操作成功提示:您已成功的加入了日志，请点<a href=""Article_Show.Asp?ArticleID="& ArticleID &""">这里</a>预览】</div>"
	End IF
End Sub

Sub AcceptsPost()
	IF CblogObj.FormRequest("PostBlog")="Post" then
		Actions=0
		Call Post()
		IF Actions=1 Then
			Exit Sub
		End IF
		Dim IP
		IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
		IF IP="" Then
			IP=Request.ServerVariables("REMOTE_ADDR")
		End IF
		
		Article_ByMonth=Year(date)&month(date)&"||"&Year(now())&"年"&MonthName(Month(Article_Time))&"份"
		SqlString="INSERT INTO [Article] (User_ID,User_Name,Article_Title,Article_Zy,Blog_Info,Whather,Article_ByMonth,Article_Hid,Article_Time,Article_ByClass,Article_Code,Article_Bl,Article_Form,Article_Tag,Blog_Quote,IP)"
		SqlString=SqlString & " VALUES("& Session("UserID") &",'"& Session("UserName") &"','"& Article_Title &"','"& Article_Zy &"','"& Article_Message &"','"& Article_Whather &"','"& Article_ByMonth &"',"& Article_Hid &",'"& Article_Time &"','"& Article_Class &"','"& Article_SysCode &"','"& ArticleBl &"','全文博摘摘录','"& Article_Tag &"','"& QuoteUrl &"','"& IP &"')"
		Conn.Execute (SqlString)
		
		ArticleID=CONN.EXECUTE("SELECT @@IDENTITY FROM [Article]")(0)
		SqlCount=SqlCount+2
		'数据库操作完毕
		IF Article_Hid<>1 Then
			Call ArticledCaheAndXmlDel()
		End IF
		Session("Title")=Article_Title
		GetErrInfo=" <div class=""doen""> 【操作成功提示:您已成功的加入了博摘，请点<a href=""Article_Show.Asp?ArticleID="& ArticleID &""">这里</a>预览】</div>"
	End IF
End Sub

Sub ArticleUpdate()
	IF CblogObj.FormRequest("PostBlog")="Post" then
		Actions=0
		Call Post()
		IF Actions=1 Then
			Exit Sub
		End IF
		Article_ID=CblogObj.FormRequest("ID")
		Dim Article_Update
		IF CblogObj.FormRequest("update")="true" Then
			Article_Update="此日志由 " & Session("UserName") & " 在 " & Now() & " 编缉过。" 
		Else
			Article_Update=""
		End IF
		Dim IP
		IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
		IF IP="" Then
			IP=Request.ServerVariables("REMOTE_ADDR")
		End IF
		
		SqlString="Update [Article] Set Article_Title='"& Article_Title &"',Article_Zy='"& Article_Zy &"',Blog_Info='"& Article_Message &"',Whather='"& Article_Whather &"',Article_Hid="& Article_Hid &",Article_ByClass='"& Article_Class &"',Article_Code='"& Article_SysCode &"',Article_Bl='"& ArticleBl &"',Article_Form='"& Articleform &"',Article_Tag='"& Article_Tag &"',Article_Update='"& Article_Update &"',IP='"& IP &"' Where User_ID="&Session("UserID")&" And Article_ID="& Article_ID &""
		Conn.Execute (SqlString)
		SqlCount=SqlCount+1
		'数据库操作完毕
		IF Article_Hid<>1 Then
			Dim TagArr,Tag,j
			TagArr=Split(Article_Tag,"|")
			For J=0 To Ubound(TagArr)
				Tag=Left(TagArr(j),12)
				IF Conn.Execute("Select Count(ID) From Tag Where Tag='"& Tag &"'")(0)>0 Then
				   Conn.Execute("Update Tag Set TagCount=TagCount+1 Where Tag='"& Tag &"'")
				   SqlCount=SqlCount+2
				Else
				   Conn.Execute("INSERT INTO [Tag] (Tag)  VALUES ('"& Tag &"')")
				   SqlCount=SqlCount+2
				End IF
				IF J>=5 Then Exit For
			Next
			Call ArticledCaheAndXmlDel()
		End IF
		CblogObj.GetHttpUrl("Article_List.Asp")
	End IF
End Sub

Sub BuoLuoClass()
	If CblogObj.GetRequest("ClassID")<>"" Then
		ClassName = CblogObj.GetRequest("ClassName")
		ClassCode = CblogObj.GetRequest("ClassCode")
		ClassID = CblogObj.GetRequest("ClassID")
		Values="修改"
	Else
		ClassCode = ""
		ClassName = ""
		ClassID = ""
		Values="创建"
	End If
	IF CblogObj.FormRequest("Submit")="创建" Then
		ClassName=Trim(LEFT(CblogObj.FormRequest("Blog_Class"),10))
		ClassCode=CblogObj.FormRequest("BlogClass")
		IF ClassName="" OR ClassCode="" Then
			GetErrInfo="<div class=""err""> 【操作失败提示：部落名不能为空!】</div>"
		Else
			IF Conn.Execute("Select count(id) From [Tb_BuoLuo] Where Userid="& Session("UserID") &" And Bid=0")(0)>=1 THEN
				SqlCount=SqlCount+1
				GetErrInfo="<div class=""err""> 【操作失败提示：每个用户最多只能创建一个部落!】</div>"
			ELSE
				Set Rs=Conn.Execute("Select ID,UserID From [Tb_BuoLuo] Where ClassName='"& ClassName &"'")
				SqlCount=SqlCount+1
				IF Not Rs.Eof Then
					GetErrInfo="<div class=""err""> 【操作失败提示：已有此部落存在，您不能创建!】</div>"
				Else
					Conn.Execute("INSERT INTO [Tb_BuoLuo](UserID,ClassName,ClassCode,UID) VALUES("& Session("UserID") &",'"& ClassName &"','"& ClassCode &"'," & Session("UserID") & ")")
					SqlCount=SqlCount+1
					GetErrInfo=" <div class=""doen"">【操作成功提示:创建部落成功! 】</div>"
				End IF
				Rs.Close:Set Rs=Nothing
			END IF
		End IF
	End If
	
	IF CblogObj.GetRequest("ActIon")="DelClass" Then
		ClassID=CblogObj.IsCInt(CblogObj.GetRequest("ClassID"))
		Conn.Execute "Update [Article] Set Article_Bl=Null Where Article_Bl = (Select ClassName FROM Tb_BuoLuo Where Userid="& Session("UserID") &" and ID ="& ClassID &")"
		SqlCount=SqlCount+1
		Set Rs=Conn.Execute("Select UserID From Tb_BuoLuo Where Bid>0 And Bid="& ClassID &"")
		DO WHILE Not Rs.Eof
			Conn.Execute("INSERT INTO [Message](UserID,UserName,Message,Messdate) VALUES("& Rs(0) &",'系统消息','系统消息：您加入的部落"& CblogObj.GetRequest("ClassName") &",已被创建者删除！','"&Now&"')")
			SqlCount=SqlCount+1
			Rs.Movenext
		Loop
		Rs.Close:Set Rs=Nothing
		Conn.Execute "Delete From Tb_BuoLuo Where Userid="& Session("UserID") &" and ID ="& ClassID &" Or ClassName=(Select ClassName FROM Tb_BuoLuo Where Userid="& Session("UserID") &" and ID ="& ClassID &")"
		SqlCount=SqlCount+1
		GetErrInfo="<div class=""doen"">【 操作成功提示:您已成功删除您所选中的部落 】</div>"
	End IF

	IF CblogObj.GetRequest("ActIon")="kick" Then
		ClassID=CblogObj.IsCInt(CblogObj.GetRequest("ClassID"))
		Set Rs=Conn.Execute("Select UserID From Tb_BuoLuo Where Bid>0 And id="& ClassID &" And Uid="& Session("UserID") &"")
		DO WHILE Not Rs.Eof
			Conn.Execute("INSERT INTO [Message](UserID,UserName,Message,Messdate) VALUES("& Rs(0) &",'系统消息','系统消息：您加入的部落"& CblogObj.GetRequest("ClassName") &",已被创建者踢出！','"&Now&"')")
			SqlCount=SqlCount+1
			Rs.Movenext
		Loop
		Rs.Close:Set Rs=Nothing
		Conn.Execute "Delete From Tb_BuoLuo Where Uid="& Session("UserID") &" and ID ="& ClassID &""
		SqlCount=SqlCount+1
		CblogObj.DelCahe ("BuLuoCountTop")
		GetErrInfo="<div class=""doen"">【 操作成功提示:您已成功踢掉了部落成员 】</div>"
	End IF
	
	IF CblogObj.FormRequest("Submit")="修改" Then
		DIM ClassName2
		ClassName=LEFT(CblogObj.FormRequest("Blog_Class"),10)
		ClassName2=CblogObj.FormRequest("ClassName")
		ClassCode=CblogObj.FormRequest("BlogClass")
		ClassID=CblogObj.FormRequest("ClassID")
		IF ClassName="" Then
			GetErrInfo="<div class=""err""> 【操作失败提示：部落名不能为空!】</div>"
			Exit Sub
		End IF
		IF ClassName<>ClassName2 Then
			Set Rs=Conn.Execute("Select ID,UserID From [Tb_BuoLuo] Where ClassName='"& ClassName &"'")
			SqlCount=SqlCount+1
			IF Not RS.EOF Then
				Rs.Close:Set Rs=Nothing
				GetErrInfo="<div class=""err""> 【操作失败提示：已存在此部落名，不能再加入!】</div>"
				Exit Sub
			End IF
			Rs.Close:Set Rs=Nothing
		End IF
		IF ISNUMERIC(ClassID) THEN
			Conn.Execute("UpDate [Tb_BuoLuo] Set ClassName='"& ClassName &"',ClassCode='"& ClassCode &"' Where UserID="& Session("UserID") &" AND ID="& ClassID &" Or Bid=(Select ID From [Tb_BuoLuo] Where UserID="& Session("UserID") &" AND ID="& ClassID &")")
			Conn.Execute "Update [Article] Set Article_Bl='"& ClassName &"' Where User_id="& Session("UserID") &" And Article_Bl='"& ClassName2 &"'"
			SqlCount=SqlCount+2
			GetErrInfo="<div class=""doen"">【 操作成功提示:你已成功将分类 ("& ClassName2 &") 修改成 ("& ClassName & ") 】</div>"
		Else
			GetErrInfo="<div class=""err"">【 操作失败提示：您的ID号错误!】</div>"
		End IF
	End If
End Sub

Sub BuoluoList(ClassName)
  Response.Write "<select name=""bl"">"
  Response.Write "<option value="""">选择部落</option>"
  Dim BuoName
  Set Rs=Conn.Execute("Select ClassName,Bid From [Tb_BuoLuo] Where UserID="&Session("UserID")&"")
  Do While Not Rs.Eof
	  BuoName=Rs(0)
	  IF Rs(1)=0 Then
		  BuoName=BuoName & "【我创】"		
	  End IF
	  IF RS(0)=ClassName Then
		  Response.Write "<option value="""& Rs(0) &""" selected=""selected"">"& BuoName &"</option>"
	  Else
		  Response.Write "<option value="""& Rs(0) &""">"& BuoName &"</option>"
	  End IF
	  Rs.MoveNext
  Loop
  Rs.Close:Set Rs=Nothing
  Response.Write "</select>"
End Sub


Sub PhotoPost()
	IF CblogObj.FormRequest("PostBlog")="Post" then
		Session("pic_Name")=Empty
		Actions=0
		Call Post()
		IF Actions=1 Then
			Exit Sub
		End IF
		Article_ByMonth=Year(date)&month(date)&"||"&Year(now())&"年"&MonthName(Month(Article_Time))&"份"
		Dim Photo
		Photo=LCase(CblogObj.FormRequest("Photo"))
		IF Right(Photo,3)="jpg" Or Right(Photo,3)="gif" Or Right(Photo,4)="jpeg" OR Right(Photo,3)="png" Then
			Article_Zy="[img]" & Photo & "[/img]"
		Else
			GetErrInfo="<div class=""err""> 【操作失败提示：您输入代表图片路径有误!】</div>"
			Exit Sub
		End IF
		
		Dim IP
		IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
		IF IP="" Then
			IP=Request.ServerVariables("REMOTE_ADDR")
		End IF
		
		SqlString="INSERT INTO [Article] (User_ID,User_Name,Article_Title,Article_Zy,Blog_Info,Whather,Article_ByMonth,Article_Hid,Article_Time,Article_ByClass,Article_Code,Article_Form,Article_Tag,Photo,IsPhoto,IP)"
		SqlString=SqlString & " VALUES("& Session("UserID") &",'"& Session("UserName") &"','"& Article_Title &"','"& Article_Zy &"','"& Article_Message &"','"& Article_Whather &"','"& Article_ByMonth &"',"& Article_Hid &",'"& Article_Time &"','"& Article_Class &"','"& Article_SysCode &"','"& Articleform &"','"& Article_Tag &"','"& Photo &"',1,'"& IP &"')"
		
		Conn.Execute (SqlString)
		ArticleID=CONN.EXECUTE("SELECT @@IDENTITY FROM [Article]")(0)
		SqlCount=SqlCount+2
		'数据库操作完毕
		IF Article_Hid<>1 Then
			Dim TagArr,Tag,j
			TagArr=Split(Article_Tag,"|")
			For J=0 To Ubound(TagArr)
				Tag=Left(TagArr(j),12)
				IF Conn.Execute("Select Count(ID) From Tag Where Tag='"& Tag &"'")(0)>0 Then
				   Conn.Execute("Update Tag Set TagCount=TagCount+1 Where Tag='"& Tag &"'")
				   SqlCount=SqlCount+2
				Else
				   Conn.Execute("INSERT INTO [Tag] (Tag)  VALUES ('"& Tag &"')")
				   SqlCount=SqlCount+2
				End IF
				IF J>=5 Then Exit For
			Next
			Call ArticledCaheAndXmlDel()
		End IF
		Session("Title")=Article_Title
		GetErrInfo=" <div class=""doen""> 【操作成功提示:您已成功的加入了相册，请点<a href=""Photo_Show.Asp?ArticleID="& ArticleID &""">这里</a>预览】</div>"
	End IF
End Sub

Sub PhotoUpdate()
	IF CblogObj.FormRequest("PostBlog")="Post" then
		Session("pic_Name")=Empty
		Actions=0
		Call Post()
		IF Actions=1 Then
			Exit Sub
		End IF
		Article_ID=CblogObj.FormRequest("ID")
		Dim Photo
		Photo=LCase(CblogObj.FormRequest("Photo"))
		IF Right(Photo,3)="jpg" Or Right(Photo,3)="gif" Or Right(Photo,4)="jpeg" OR Right(Photo,3)="png" Then
			Article_Zy="[img]" & Photo & "[/img]"
		Else
			GetErrInfo="<div class=""err""> 【操作失败提示：您输入代表图片路径有误!】</div>"
			Exit Sub
		End IF
                Dim Article_Update
		IF CblogObj.FormRequest("update")="true" Then
			Article_Update="此相片由 " & Session("UserName") & " 在 " & Now() & " 编缉过。" 
		Else
			Article_Update=""
		End IF
		Dim IP
		IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
		IF IP="" Then
			IP=Request.ServerVariables("REMOTE_ADDR")
		End IF
		SqlString="Update [Article] Set Article_Title='"& Article_Title &"',Article_Zy='"& Article_Zy &"',Blog_Info='"& Article_Message &"',Article_Hid="& Article_Hid &",Article_ByClass='"& Article_Class &"',Article_Code='"& Article_SysCode &"',Article_Tag='"& Article_Tag &"',Photo='"& Photo &"',Article_Update='"& Article_Update &"',IP='"& IP &"' Where User_ID="&Session("UserID")&" And Article_ID="& Article_ID &""
		Conn.Execute (SqlString)
		SqlCount=SqlCount+1
		'数据库操作完毕
		IF Article_Hid<>1 Then
			Dim TagArr,Tag,j
			TagArr=Split(Article_Tag,"|")
			For J=0 To Ubound(TagArr)
				Tag=Left(TagArr(j),12)
				IF Conn.Execute("Select Count(ID) From Tag Where Tag='"& Tag &"'")(0)>0 Then
				   Conn.Execute("Update Tag Set TagCount=TagCount+1 Where Tag='"& Tag &"'")
				   SqlCount=SqlCount+2
				Else
				   Conn.Execute("INSERT INTO [Tag] (Tag)  VALUES ('"& Tag &"')")
				   SqlCount=SqlCount+2
				End IF
				IF J>=5 Then Exit For
			Next
			Call ArticledCaheAndXmlDel()
		End IF
		CblogObj.GetHttpUrl("Photo_List.Asp")
	End IF
End Sub

Function UrlList(UserID)
	Dim ObjXML,AllNodesNum,Root,iii
	Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
	objXML.Load (Server.MapPath(CblogObj.GetDir(UserID)&"/link.xml"))
	if objXML.parseError.ErrorCode=0 then
		Set Root = objXML.documentElement.selectSingleNode("index")
		AllNodesNum = Root.childNodes.length - 1
		For iii = 0 To AllNodesNum
			UrlList=UrlList & root.childNodes.Item(iii).childNodes.Item(0).Text
			IF AllNodesNum>0  And iii<AllNodesNum Then
				UrlList=UrlList & "||" & Chr(13)
			End IF
		Next
	end if
	set ObjXML=nothing:set Root=nothing
End Function

Sub RssAdd()
	Dim Url,Title,RssClass
	Url=LCase(CblogObj.FormRequest("RssUrl"))
	Title=LCase(CblogObj.FormRequest("RssName"))
	RssClass=LCase(CblogObj.FormRequest("BlogClass"))
	IF Url="" Or left(Url,7)<>"http://" or instr(Url,".")<2 Then
		GetErrInfo=" <div class=""err""> 【操作失败提示:对不起，您的RSS地址有误，不能加入!】</div>"
		Exit Sub
	Else
		If Url="" or Title="" or RssClass="" then
			GetErrInfo=" <div class=""err""> 【操作失败提示:对不起，频道名称，地址，分类都不能为空!】</div>"
			Exit Sub
		ELSE
			Conn.Execute("INSERT INTO tb_Rss([User_ID],[ClassCode],[RssName],[RssUrl]) VALUES("&Session("UserID")&",'"&RssClass&"','"&Title&"','"&Url&"')")
			GetErrInfo=" <div class=""doen""> 【操作成功提示:加入RSS频道成功！】</div>"
		END IF
	End if
End Sub
%>