<!--#include file="xbqq_head.asp" -->
<%
    'option explicit
    response.buffer=true	
    Response.Buffer = True 
    Response.Expires = -1
    Response.ExpiresAbsolute = Now() - 1 
    Response.Expires = 0 
    Response.CacheControl = "no-cache" 
%>
<%
    dim SoftID,SoftUrlID,SoftComeUrl,SoftcUrl
    dim FoundErr,ErrMsg
    dim DownloadUrl
    SoftID=trim(request("SoftID"))
    SoftUrlID=trim(request("SoftUrlID"))
    if SoftID="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>請指定軟件ID</li>"
    else
	SoftID=Clng(SoftID)
    end if
    If IsNumeric(SoftID) = False Then
	GoError "軟件ID參數錯誤，請不要試圖破壞此系統。"
    End If
    if SoftUrlID="" then
	SoftUrlID=1
    else
	SoftUrlID=Clng(SoftUrlID)
    end if
    If IsNumeric(SoftUrlID) = False Then
	GoError "軟件下載地址ID參數錯誤，請不要試圖破壞此系統。"
    End If
    SoftComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
    SoftcUrl=lcase(trim("http://" & Request.ServerVariables("SERVER_NAME") & request.ServerVariables("SCRIPT_NAME")))
    call main()
    if FoundErr=True then
	response.write ErrMsg
    else
	response.redirect DownloadUrl
	response.write "window.close();</script>"
    end if
    sub main()
	if SoftComeUrl="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>本站軟件做了防盜鏈處理，請從本站的軟件下載頁面進入下載本軟件！而不要直接在瀏覽器的地址欄輸入下載地址。</li>"
	end if
	if FoundErr=True then
		exit sub
	end if
        set rs=server.createobject("adodb.recordset")
	Sql="select * from SoftData where S_ID=" & SoftID
	Rs.open Sql,Conn,1,3
	if Rs.bof and Rs.bof then
    FoundErr=True
    ErrMsg=ErrMsg & "<br><li>找不到指定的軟件！</li>"
    else
    select case SoftUrlID
    case 1
    DownloadUrl=Rs("S_SoftDown1")
    case 2
    DownloadUrl=Rs("S_SoftDown2")
    case 3
    DownloadUrl=Rs("S_SoftDown3")
    case 4
    DownloadUrl=Rs("S_SoftDown4")
    case 5
    DownloadUrl=Rs("S_SoftDown5")
    end select
    if DownloadUrl="" or DownloadUrl="http://" then
    Founderr=True
    ErrMsg=ErrMsg & "<br><li>找不到有效下載地址！</li>"
    end if
    if FoundErr=True then
			Rs.close
			set Rs=nothing
			exit sub
    end if
		
    if FoundErr=True then
			rsSoft.close
			set rsSoft=nothing
			exit sub
    end if
		Rs("S_SoftDownCount")=Rs("S_SoftDownCount")+1
		Rs.Update
	end if
	Rs.Close
    end sub
%>