账号通
    

账号  

密码  

3754

查看

11

回复
主题:如何取消自动更名 [收藏主题] 转到:  
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2008/12/22 10:44:00   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统

上传文件时,好像有个开关啊

 

    自动更名

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2008/12/21 10:50:00   | 显示全部帖子 查看该作者主题 沙发 
科汛智能建站系统

0原文件名不变

1副件+文件名

2 随机数+扩展名

3随机数+文件名

4随机数

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2008/12/21 10:49:00   | 显示全部帖子 查看该作者主题 藤椅 

在文件admin/ks.upfileform.asp里.自己找下面代码吧

'上传下载文件
  Sub Down_UpFile()
   Dim Path, InstallDir, DateDir
    Path = KS.ReturnChannelUpFilesDir(ChannelID)
   DateDir = Year(Now()) & Right("0" & Month(Now()), 2) & "/"
   Path = Path & "/DownUrl/" & DateDir
   Response.Write "<div align=""center"">"
   Response.Write "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
   Response.Write "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
   Response.Write "      <tr>"
   Response.Write "        <td width=""100%""><input type=""file"" accept=""html"" size=""55"" name=""File1"" class='textbox'>"
   Response.Write "         <input type=""submit"" onclick=""LayerPrompt.style.visibility='visible';"" id=""BtnSubmit"" class='button' name=""Submit"" value=""开始上传 "">"
   Response.Write "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
   Response.Write "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"  
   Response.Write "                  <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
   Response.Write "                  <input name=""UpLoadFrom"" value=""32"" type=""hidden"" id=""UpLoadFrom"">"
   Response.Write "<input type=""checkbox"" name=""AutoReName"" value=""4""  checked>自动更名</td>"
   Response.Write "        </td>"
   Response.Write "      </tr>"
   Response.Write "    </form>"
   Response.Write "  </table>"
   Response.Write "</div>"
  End Sub

 

 

 把上面4改成0吧

 

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