softdownopen.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

<!--#include file="Gaobei_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
%>