这个页面ks_cls/kesion.commoncls.asp里
Public Function ReturnChannelUpFilesDir(ChannelID)
If ChannelID = "" Or Not IsNumeric(ChannelID) Or ChannelID=0 Then
ReturnChannelUpFilesDir = Setting(3) & Setting(91)
Exit Function
End If
Dim Ce:Set Ce=new CtoeCls
Dim UserFolder:UserFolder=Ce.CTOE(R(C("AdminName")))
Set Ce=Nothing
If UserFolder<>"" Then UserFolder=UserFolder & "/"
If ChannelID=101 Then
ReturnChannelUpFilesDir = replace(Setting(3) & Setting(91) & "user/" & UserFolder,"//","/")
Else
ReturnChannelUpFilesDir = replace(Setting(3) & C_S(ChannelID,24) & UserFolder,"//","/")
End If
ReturnChannelUpFilesDir = Left(ReturnChannelUpFilesDir, Len(ReturnChannelUpFilesDir) - 1)
End Function
加粗的地方好像是路径的吧,不知道怎么改