'风讯生成文件名
'-------------------------------
Function GetFile_FC(ChannelID)
    Dim RSC
          Set RSC=Server.CreateObject("ADODB.RECORDSET")
    '生成目录ID 年+10位随机
    Do While True
    GetFile_FC = Year(Now()) & MakeRandom(10)
    Select Case ChannelID
    Case 1
      RSC.Open "Select FileName from FS_NS_News Where FileName='" & GetFile_FC  & "'", Conn, 1, 1
    Case 2
      RSC.Open "Select FileName from FS_DS_List Where FileName='" & GetFile_FC  & "'", Conn, 1, 1
    Case 3
      RSC.Open "Select FileName from FS_DS_List Where FileName='" & GetFile_FC  & "'", Conn, 1, 1
    End Select
      If RSC.EOF And RSC.BOF Then
      RSC.Close
      Set RSC = Nothing
      Exit Do
      Else
      RSC.Close
      End If
    Loop
  'RSC.Close
  Set RSC = Nothing
End Function