下载系统的文件下载地址编码问题！-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3246 查看	9 回复

主题：[已答复]下载系统的文件下载地址编码问题！ [收藏主题]

转到：

一生有你当前离线

10439 主题	0 广播	18 粉丝

级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
创始人

一生有你发表于：2010/8/4 11:03:52 | 显示全部帖子查看该作者主题楼主

没有启用迅雷或快车下载，程序直接是

response.redirect 下载地址

所以程序本身是没有进行过任何编码的

If DownArr(0)="0" Then
' ShowInfoStr = "<a href=""" & DownArr(2) & """><font color=blue>立即下载 --- " & RSObj("Title") & "</font></a>"
Response.Redirect(DownArr(2))
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT AllDownHits,DayDownHits,HitsTime FROM KS_DownSer WHERE downid="& KS.ChkClng(KS.S("Sid"))
Rs.Open SQL,Conn,1,3
If Not(Rs.BOF And Rs.EOF) Then
hits = CLng(Rs("AllDownHits"))+1
Rs("AllDownHits").Value = hits
If DateDiff("D", Rs("HitsTime"), Now()) <= 0 Then
Rs("DayDownHits").Value = Rs("DayDownHits").Value + 1
Else
Rs("DayDownHits").Value = 1
Rs("HitsTime").Value = Now()
End If
Rs.Update
End If
  Rs.Close:Set Rs = Nothing

我爱世界杯,我爱KesionCMS.

反对(1)

底部