|
没有启用迅雷或快车下载,程序直接是 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
|