resource_process.asp

一个很好的asp cms管理系统

		    Rs("created")           = 0
    		Rs("pages_head")        = pages_head
		    Rs("pages_position")    = pages_position
		    Rs("pages_count")       = 0
	    	Rs("addtime")           = Now()
			Rs("shareidstr")        = ""
			Rs("shareid")           = id
			Rs("sharerale")         = 0
		    Rs.Update()
		    Rs.Close

	    	Sql = Db.SqlTran("SELECT * FROM resource_data WHERE 1=2")
	    	Rs.Open Sql, Db.Conn, 1, 3
		    Rs.AddNew()
    		Rs("res_id")            = RecordId
		    Rs("content")           = content
    		Rs("content_size")      = Len(content)
	    	Rs.Update()
		    Rs.Close

    		Sql = Db.SqlTran("SELECT * FROM resource_count WHERE 1=2")
	    	Rs.Open Sql, Db.Conn, 1, 3
	    	Rs.AddNew()
		    Rs("res_id")            = RecordId
    		Rs("total_hit")         = total_hit
		    Rs.Update()
		    Rs.Close()
		end if
	next
	if len(shareclassid_mod)>0 then
		sharerecordid_modstr = FLib.sharecidtosharerid(shareclassid_mod,id)
		sharerecordid_mod = split(sharerecordid_modstr,",")
		for mi = 0 to ubound(sharerecordid_mod)
		    Sql = Db.SqlTran("SELECT * FROM resource_list WHERE id=" & sharerecordid_mod(mi))
		    Rs.Open Sql, Db.Conn, 1, 3
	    	'Rs("class_id")          = class_id'
	        Rs("title")             = title
	        Rs("short_content")     = short_content
	        Rs("go_url")            = go_url
	        Rs("keyword")           = keyword
	        Rs("special")           = special
	        'Rs("author")            = author
	        Rs("resfrom")           = resfrom
	        Rs("relate_list")       = GetResourceRelateList(keyword, Cfg.Resource_RelateList_Max)
	        'Rs("creator")           = Admin.UserName
	        Rs("file_path")         = file_path
	        Rs("visit_url")         = ""
	        Rs("small_img")         = small_img
	        Rs("checked")           = 0
	        Rs("created")           = 0
	        Rs("pages_head")        = pages_head
	        Rs("pages_position")    = pages_position
	        Rs("pages_count")       = pages_count
	        Rs("uptime")            = Now()
	    	Rs("shareidstr")        = ""
	    	Rs("shareid")           = id
	    	Rs("sharerale")         = 0
	        Rs.Update()
	        Rs.Close()

	        Sql = Db.SqlTran("SELECT * FROM resource_data WHERE res_id=" & sharerecordid_mod(mi))
	        Rs.Open Sql, Db.Conn, 1, 3
	        Rs("content")           = content
	        Rs("content_size")      = Len(content)
	        Rs.Update()
	        Rs.Close()

	        Sql = Db.SqlTran("SELECT * FROM resource_count WHERE res_id=" & sharerecordid_mod(mi))
	        Rs.Open Sql, Db.Conn, 1, 3
	        Rs("total_hit")         = total_hit
	        Rs.Update()
	        Rs.Close()
		next
	end if
	if len(shareclassid_del)>0 then
		sharerecordid_del = FLib.sharecidtosharerid(shareclassid_del,id)
		if len(sharerecordid_del)>=1 then
	        Sql = "DELETE FROM resource_list WHERE id IN (" & sharerecordid_del & ")"
    	    Db.ExeCute(Sql)
	        Sql = "DELETE FROM resource_count WHERE res_id IN (" & sharerecordid_del & ")"
    	    Db.ExeCute(Sql)
	        Sql = "DELETE FROM resource_data WHERE res_id IN (" & sharerecordid_del & ")"
    	    Db.ExeCute(Sql)
		end if
	end if
	end if
	
    Set Rs = Nothing

    UpdatePageList id, pages_head, pages_position

    FLib.Alert "修改完毕", "BACK", 0
    Response.End

End Function

Function GetResourceRelateList(keyword, num)
    If keyword = "" Then
        GetResourceRelateList = ""
        Exit Function
    End If
    Dim I, arr_keyword, tmpSql
    arr_keyword = Split(keyword, ",", 5)
    tmpSql = "1<>2"
    For I=0 To Ubound(arr_keyword)
        tmpSql = tmpSql & " AND title+','+short_content+','+keyword LIKE '%" & arr_keyword(I) & "%'"
    Next
    Dim Rs, Sql
    Sql = "SELECT TOP " & num & " id FROM resource_list WHERE " & tmpSql
    Set Rs = Db.ExeCute(Sql)
    While Not Rs.Eof
        If GetResourceRelateList = "" Then
            GetResourceRelateList = Rs("id")
        Else
            GetResourceRelateList = GetResourceRelateList & "," & Rs("id")
        End If
        Rs.MoveNext()
    Wend

End Function

Function UpdatePageList(res_id, pages_head, pages_position)
    If pages_head = 0 Or pages_position = 0 Then
        Exit Function
    End If

    Dim Sql, Rs, Pages_Count
        Sql = "SELECT COUNT(*) FROM resource_list WHERE pages_head=" & pages_head
    Set Rs = Db.ExeCute(Sql)
    If Rs.Eof And Rs.Bof Then
        Rs.Close()
        Set Rs = Nothing
        Exit Function
    End If

    Pages_Count = Rs(0) + 1
    Rs.Close()

    Sql = "UPDATE resource_list SET pages_count=" & Pages_Count &" WHERE id=" & pages_head & " OR pages_head=" & pages_head
    Db.ExeCute(Sql)
End Function

'删除记录
'说明:
'   所有记录对应的生成文件将被删除
'   彻底删除已标记为"虚拟删除"的记录,其它的则标记为虚拟删除
Function DeleteReco()
    Dim IdList
        IdList = Replace(Request("IdList"), "'", "")
    If IdList = "" Then
        FLib.Alert "参数有误，操作失败","BACK",0
        Response.End
    End If

    Dim Fso, Fl
    Set Fso = Server.CreateObject(Cfg.FileSystemObject_Name)

    Dim Sql, Rs, IdList2, IdList3
    IdList2 = "-1"
    IdList3 = "-1"
    Sql = "SELECT id, class_id, file_path, deleted, shareidstr FROM resource_list WHERE id IN (" & IdList & ")"
    Set Rs = Db.ExeCute(Sql)
    While Not Rs.Eof

        If Not FLib.chkPope_AboutTheClass(Rs("class_id"), "delete") Then
            FLib.Alert "你无法在此频道进行删除操作", "BACK", 0
            Response.End
        End If
		
		if Rs("shareidstr")<>"" then
			dim shareid,Sql_share,Rs_share,IdList2_share,IdList3_share
		    IdList2_share = "-1"
		    IdList3_share = "-1"
			shareid = Rs("id")
			Sql_share = "SELECT id, class_id, file_path, deleted FROM resource_list WHERE sharerale = 0 AND shareid = " & shareid
		    Set Rs_share = Db.ExeCute(Sql_share)
			While Not Rs_share.Eof
		        IF Len(Rs_share("file_path"))>2 then
					If Fso.FileExists(server.mappath(Rs_share("file_path"))) Then
    	    		    Fso.DeleteFile(server.mappath(Rs_share("file_path")))
			        End If
				end if
		        If Rs_share("deleted") = 1 Then
        		    IdList2_share = IdList2_share & "," & Rs_share("id")
		        Else
        		    IdList3_share = IdList3_share & "," & Rs_share("id")
		        End If
        		Rs_share.MoveNext
			Wend
		    If IdList2_share <> "" Then
		        Sql_share = "DELETE FROM resource_list WHERE id IN (" & IdList2_share & ")"
        		Db.ExeCute(Sql_share)
		        Sql_share = "DELETE FROM resource_count WHERE res_id IN (" & IdList2_share & ")"
        		Db.ExeCute(Sql_share)
		        Sql_share = "DELETE FROM resource_data WHERE res_id IN (" & IdList2_share & ")"
        		Db.ExeCute(Sql_share)
		    End If

    	    If IdList3_share <> "" Then
        		Sql_share = "UPDATE resource_list SET deleted=1, created=0, file_path='', visit_url='' WHERE id IN (" & IdList3_share & ")"
		        Db.ExeCute(Sql_share)
		    End If
    		Rs_share.Close()
    		Set Rs_share = Nothing
		end if
		If Len(Rs("file_path"))>2 Then
		If Fso.FileExists(server.mappath(Rs("file_path"))) Then
            Fso.DeleteFile(server.mappath(Rs("file_path")))
        End If
		End If

        If Rs("deleted") = 1 Then
            IdList2 = IdList2 & "," & Rs("id")
        Else
            IdList3 = IdList3 & "," & Rs("id")
        End If
        Rs.MoveNext
    Wend

    '彻底删除已标记为"虚拟删除"的记录
    If IdList2 <> "" Then
        Sql = "DELETE FROM resource_list WHERE id IN (" & IdList2 & ")"
        Db.ExeCute(Sql)
        Sql = "DELETE FROM resource_count WHERE res_id IN (" & IdList2 & ")"
        Db.ExeCute(Sql)
        Sql = "DELETE FROM resource_data WHERE res_id IN (" & IdList2 & ")"
        Db.ExeCute(Sql)
    End If

    '虚拟删除
    If IdList3 <> "" Then
        Sql = "UPDATE resource_list SET deleted=1, created=0, file_path='', visit_url='' WHERE id IN (" & IdList3 & ")"
        Db.ExeCute(Sql)
    End If
    Rs.Close()
    Set Rs = Nothing

    FLib.Alert "删除完毕","BACK",0
    Response.End

End Function

'审核记录
Function CheckReco()
    Dim IdList
        IdList = Replace(Request("IdList"), "'", "")
    If IdList = "" Then
        FLib.Alert "参数有误，操作失败","BACK",0
        Response.End
    End If

    Dim Sql, Rs, IdList2, IdList3
    IdList2 = "-1"
    IdList3 = "-1"
    Sql = "SELECT id, class_id, checked FROM resource_list WHERE id IN (" & IdList & ")"
    Set Rs = Db.ExeCute(Sql)
    While Not Rs.Eof

        If Not FLib.chkPope_AboutTheClass(Rs("class_id"), "check") Then
            FLib.Alert "你无法在此频道进行审核操作", "BACK", 0
            Response.End
        End If

        If Rs("checked") = 1 Then
            IdList2 = IdList2 & "," & Rs("id")
        Else
            IdList3 = IdList3 & "," & Rs("id")
        End If
        Rs.MoveNext
    Wend
    Rs.Close()
    Set Rs = Nothing

    '取消审核
    If IdList2 <> "" Then
        Sql = "UPDATE resource_list SET checked=0 WHERE id IN (" & IdList2 & ")"
        Db.ExeCute(Sql)
    End If


    '审核通过
    If IdList3 <> "" Then
        Sql = "UPDATE resource_list SET author='"&Admin.UserName&"',checked=1 WHERE id IN (" & IdList3 & ")"
        Db.ExeCute(Sql)
    End If
	dim BACKURL
	FLib.Alert "审核完毕","BACK",0
    Response.End

End Function

Function CallBackReco()
    Dim IdList
        IdList = Replace(Request("IdList"), "'", "")
    If IdList = "" Then
        FLib.Alert "参数有误，操作失败","BACK",0
        Response.End
    End If

    Dim Sql, Rs
    Sql = "UPDATE resource_list SET deleted=0 WHERE id IN (" & IdList & ")"
    Db.ExeCute(Sql)

    FLib.Alert "回恢完毕","BACK",0
    Response.End

End Function
%>