在采集过程中，老是出现 数据库被打开 的错误
最后发现原因是
sk_cj/inc/function.asp 里 风讯生成文件名 函数有问题
修改如下：
'风讯生成文件名
'-------------------------------
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
经过这样修改后文件名重复后循环才能执行，要不然，出现重复文件名的时候就报错
这里还可以修改成你自己需要的文件名的方式。
希望给碰到此问题的朋友一个提示。