user_message.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

			else{
				document.getElementById("ToUserName").style.display = "none";
				document.getElementById("ToGroupID").style.display = "none";
			}
		}
		//-->
		</SCRIPT>
		<%
		end sub
		
		Sub del()
			if KSCMS.G("username")="" then
				Response.Write("<script>alert('请输入要批量删除的用户名!');history.back();</script>")
				Exit Sub
			end if
			sql="delete from KS_Message where sender='"&KSCMS.G("username")&"'"

			Conn.Execute(sql)
			
			Response.Write Response.Write("<script>alert('操作成功！请继续别的操作!');</script>")
		End Sub
		
		sub delall()
			dim selflag,sql
			if request("isread")="yes" then
			selflag=""
			else
			selflag=" and flag=1"
			end if
			if Application("DataBaseType")=1 then
				select case request("delDate")
				case "all"
				sql="delete from KS_Message where id>0 "&selflag
				case 7
				sql="delete from KS_Message where datediff(d,sendtime,GetDate())>7 "&selflag
				case 30
				sql="delete from KS_Message where datediff(d,sendtime,GetDate())>30 "&selflag
				case 60
				sql="delete from KS_Message where datediff(d,sendtime,GetDate())>60 "&selflag
				case 180
				sql="delete from KS_Message where datediff(d,sendtime,GetDate())>180 "&selflag
				end select
			else
				select case request("delDate")
				case "all"
				sql="delete from KS_Message where id>0 "&selflag
				case 7
				sql="delete from KS_Message where datediff('d',sendtime,Now())>7 "&selflag
				case 30
				sql="delete from KS_Message where datediff('d',sendtime,Now())>30 "&selflag
				case 60
				sql="delete from KS_Message where datediff('d',sendtime,Now())>60 "&selflag
				case 180
				sql="delete from KS_Message where datediff('d',sendtime,Now())>180 "&selflag
				end select
			end if
				Conn.Execute(sql)

			Call KSCMS.Alert("操作成功！请继续别的操作。","User_Message.asp")
		end Sub
		
		Sub delchk()
			if request.form("keyword")="" then
				KSCMS.ShowError("请输入关键字！")
				Exit sub
			end if
			if request.form("selaction")=1 then
					conn.Execute("delete from KS_Message where title like '%"&replace(request.form("keyword"),"'","")&"%'")
			elseif request.form("selaction")=2 then
				
					conn.Execute("delete from KS_Message where content like '%"&replace(request.form("keyword"),"'","")&"%'")
			else
				KSCMS.ShowError("未指定相关参数！")
			end if
			Call KSCMS.Alert("操作成功！请继续别的操作。","User_Message.asp")
		End Sub
		
		Sub SaveMsg()
			Server.ScriptTimeout=99999
			Dim UserType
			UserType = Trim(Request.Form("UserType"))
			Title	 = Trim(Request.Form("title"))
			Message  = KSCMS.ReplaceBadChar(Request.Form("message"))
			If Title="" or Message="" Then
				KSCMS.Showerror("请填写消息的标题和内容!")
				Exit Sub
			End If
			If Len(Message) > 50 Then
				KSCMS.Showerror("消息内容不能多于50字节")
				Exit Sub
			End If 
			Select Case UserType
			Case "0" : SaveMsg_0()	'按所有用户
			Case "1" : SaveMsg_1()	'按指定用户
			Case "2" : SaveMsg_2()	'按指定用户组
			Case Else
				KSCMS.Showerror("请输入收信的用户!") : Exit Sub
			End Select
			Call KSCMS.Alert("操作成功！本次发送"&Numc+1&"个用户。请继续别的操作。","User_Message.asp")
		End Sub
		'按所有用户发送
		Sub SaveMsg_0()
			Dim Rs,Sql,i
			Sql = "Select UserName From KS_User Order By UserID Desc"
			Set Rs = Conn.Execute(Sql)
			If Not Rs.eof Then
				SQL = Rs.GetRows(-1)
				Numc= Ubound(SQL,2)
				For i=0 To Numc
					Conn.Execute("insert into KS_Message (incept,sender,title,content,sendtime,flag,issend) values('"&SQL(0,i)&"','"&Request.Cookies(KSCMS.SiteSn)("AdminName")&"','"&Title&"','"&Message&"',"&Application("SqlNowString")&",0,1)")
				Next
			End If
			Rs.Close : Set Rs = Nothing
		End Sub
		'按指定用户
		Sub SaveMsg_1()
			Dim ToUserName,Rs,Sql,i
			ToUserName = Trim(Request.Form("UserName"))
			If ToUserName = "" Then
				KSCMS.Showerror("请填写目标用户名，注意区分大小写。")
				Exit Sub
			End If
			ToUserName = Replace(ToUserName,"'","")
			ToUserName = Split(ToUserName,",")
			Numc= Ubound(ToUserName)
			For i=0 To Numc
				SQL = "Select UserName From KS_User Where UserName = '"&ToUserName(i)&"'"
				Set Rs = Conn.Execute(SQL)
				If Not Rs.eof Then
				Conn.Execute("insert into KS_Message (incept,sender,title,content,sendtime,flag,issend) values('"&ToUserName(i)&"','"&Request.Cookies(KSCMS.SiteSn)("AdminName")&"','"&Title&"','"&Message&"',"&Application("SqlNowString")&",0,1)")
				End If
			Next
			Rs.Close : Set Rs = Nothing
		End Sub
		'按指定用户组及条件发送
		Sub SaveMsg_2()
			Dim GroupID,ErrMsg,i
			Dim SearchStr,TempValue,DayStr
			GroupID = Replace(Request.Form("GroupID"),chr(32),"")
			If GroupID<>"" and Not Isnumeric(Replace(GroupID,",","")) Then
				ErrMsg = "请正确选取相应的用户组。"
			Else
				GroupID = KSCMS.ReplaceBadChar(GroupID)
			End If
			DayStr = "'d'"
			If Instr(GroupID,",")>0 Then
				SearchStr = "GroupID in ("&GroupID&")"
			Else
				SearchStr = "GroupID = "&KSCMS.ReplaceBadChar(GroupID)
			End If
			'登陆次数
			TempValue = Request.Form("Logins")
			If TempValue<>"" and IsNumeric(TempValue) Then
				SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("LoginsType"),"LoginTimes")
			End If
			'发表文章
			TempValue = Request.Form("UserArticle")
			If TempValue<>"" and IsNumeric(TempValue) Then
				SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("UserArticleType"),"ArticleNum")
			End If
			'最后登陆时间
			TempValue = Request.Form("LoginTime")
			If TempValue<>"" and IsNumeric(TempValue) Then
				SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("LoginTimeType"),"Datediff("&DayStr&",LastLoginTime,"&Application("SqlNowString")&")")
			End If
			'注册时间
			TempValue = Request.Form("RegTime")
			If TempValue<>"" and IsNumeric(TempValue) Then
				SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("RegTimeType"),"Datediff("&DayStr&",JoinDate,"&Application("SqlNowString")&")")
			End If
			If SearchStr="" Then
				ErrMsg = "请填写发送的条件选项。"
			End If
			If ErrMsg<>"" Then KSCMS.Showerror(ErrMsg) : Exit Sub
			Dim Rs,Sql
			Sql = "Select UserName From KS_User Where "& SearchStr & " Order By UserID Desc"
			Set Rs = Conn.Execute(Sql)
			If Not Rs.eof Then
				SQL = Rs.GetRows(-1)
				Numc= Ubound(SQL,2)
				For i=0 To Numc
					Conn.Execute("insert into KS_Message (incept,sender,title,content,sendtime,flag,issend) values('"&SQL(0,i)&"','"&Request.Cookies(KSCMS.SiteSn)("AdminName")&"','"&Title&"','"&Message&"',"&Application("SqlNowString")&",0,1)")
				Next
			End If
			Rs.Close : Set Rs = Nothing
		End Sub
		
		Function GetSearchString(Get_Value,Get_SearchStr,UpType,UpColumn)
			Get_Value = Clng(Get_Value)
			If Get_SearchStr<>"" Then Get_SearchStr = Get_SearchStr & " and " 
			If UpType="1" Then
				Get_SearchStr = Get_SearchStr & UpColumn &" <= "&Get_Value
			Else
				Get_SearchStr = Get_SearchStr & UpColumn &" >= "&Get_Value
			End If
			GetSearchString = Get_SearchStr
		End Function
End Class
%>