本版面设置了用户下载扣除积分 "&BoardUserLimited(11)&" 个，你积分不够，不能下载。&action=OtherErr"
End If
End If
End If
If Dvbbs.Forum_Setting(76)="" Or Dvbbs.Forum_Setting(76)="0" Then Dvbbs.Forum_Setting(76)="UploadFile/"
If right(Dvbbs.Forum_Setting(76),1)<>"/" Then Dvbbs.Forum_Setting(76)=Dvbbs.Forum_Setting(76)&"/"
Dim uploadpath,filename
uploadpath=Dvbbs.Forum_Setting(76)
Set Rs=Dvbbs.Execute("Select * From dv_upfile Where F_id="&downid)
If Rs.Eof And Rs.Bof Then
Dvbbs.AddErrCode(32)
ElseIf Dvbbs.BoardID <> Int(Rs("F_BoardID")) Then
Dvbbs.AddErrCode(32) Rem 判断版面来源
Else
If DownUserQStr <> "" Then
UserInfo.setAttribute "usermoney", (DownUserMoney - BoardUserLimited(9))
UserInfo.setAttribute "userwealth", (DownUserWealth - BoardUserLimited(10))
UserInfo.setAttribute "userep", (DownUserEp - BoardUserLimited(11))
Dvbbs.Execute("Update Dv_User Set "&Right(DownUserQStr,Len(DownUserQStr)-1)&" Where UserID="&Dvbbs.UserID)
End If
If DownUserQStr <> "" Then Dvbbs.Execute("Update Dv_User Set "&Right(UploadUserQStr,Len(UploadUserQStr)-1)&" Where UserID="&Rs("F_UserID")&"")
Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID)
If Dvbbs.Forum_Setting(75)="0" Then
If Rs("F_OldName") = "" Or IsNull(Rs("F_OldName")) Then
Response.Redirect uploadpath&rs("F_filename")
Else
downloadFile Server.MapPath(uploadpath&rs("F_filename")),Rs("F_OldName")
End If
Else
filename=Replace(rs("F_filename"),"..","")&""
If Request.ServerVariables("HTTP_REFERER")="" Or InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("SERVER_NAME"))=0 Or filename="" Then
Response.Redirect "index.asp"
Else
downloadFile Server.MapPath(Dvbbs.Forum_Setting(76)&filename),Rs("F_OldName")
End If
End If
End If
Rs.close
Set Rs=Nothing
Dvbbs.ShowErr()
Dvbbs.PageEnd()
Sub downloadFile(strFile,FileOldName)
On error resume next
Server.ScriptTimeOut=999999
Dim S,fso,f,intFilelength,strFilename,DownFileName
strFilename = strFile
Response.Clear
Set s = Dvbbs.iCreateObject("ADODB.Stream")
s.Open
s.Type = 1
Set fso = Dvbbs.iCreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(strFilename) Then
Response.Write("错误:
系统找不到指定文件")
Exit Sub
End If
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
If err Then
Response.Write("错误:
" & err.Description & "")
Response.End
End If
Set fso=Nothing
Dim Data
Data=s.Read
s.Close
Set s=Nothing
If FileOldName="" Or IsNull(FileOldName) Then DownFileName=f.name Else DownFileName=FileOldName
If Response.IsClientConnected Then
Response.AddHeader "Content-Disposition", "attachment; filename=" & DownFileName
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite Data
Response.Flush
End If
End Sub
%>