账号通
    

账号  

密码  

2034

查看

4

回复
主题:小问题大困扰:上传路径问题 [收藏主题] 转到:  
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/4/19 17:08:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线网校系统

可以在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

 

 

红色的删除吧

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.04688秒 powered by KesionCMS 9.0