download.asp

blue space 蓝色空间下载系统精简版---大家分享

<!--#include file="../inc/HeadDH.asp" -->
<!--#include file="../inc/oConn.asp" -->
<!--#include file="Function.asp" -->
<%
Call PrintHead("蓝色空间 软件下载")

Dim ServerHost
ServerHost = "http://www.ddooo.com"

Dim objRs,SoftUrl,SoftUrlID,SoftID
Dim ErrDate,ErrType,ErrID,ErrRemark,ErrUrlPath,ErrUserIP,ErrArray
Response.Write ErrorFilePath
SoftUrlID = Request.QueryString("SoftUrlID")
If SoftUrlID = "" Or Not IsNumeric(SoftUrlID) Then
	Response.Write "参数错误！！"
	Response.End
End if
Set objRs = oConn.Execute("Select SoftDownUrl,SkySoftID From SoftDownUrl Where SoftDownID="&SoftUrlID&"")
If Not objRs.Eof Then
	SoftUrl = objRs(0)
	SoftID = objRs(1)
	
	Set objRs = Nothing
	Response.Redirect ServerHost&"/SoftDownx.asp?SoftID="&SoftID&"&url="&SoftUrl
Else
	Set objRs = Nothing
	ErrUrlPath	= "错误地址："&Get_ScriptNameUrl()
	ErrUserIP	= "你的IP  ："&GetIP()
	ErrDate		= "错误时间："&Now()
	ErrType		= "错误模块：软件下载"
	ErrID		= "相关ID  ："&SoftUrlID&""
	ErrRemark	= "错误说明：数据库没有可用的地址，请试用其他的下载地址！！"
	ErrArray = Array(ErrUrlPath,ErrUserIP,ErrDate,ErrType,ErrID,ErrRemark)
	Call PrintArrayBody(ErrArray)
End If
Set objRs = Nothing

Call PrintFoot2()

Sub PrintArrayBody(strArray)
	Dim i
	Response.Write "<table width='"&MaxTableWidth&"' align='center' style='border:1 solid #b8b8b8' cellpadding='4'><tr><td>系统在反应你的操作请求时发生如下错误：<hr>"
	For i = 0 to UBound(strArray)
		Response.Write strArray(i)&"<br>"&vbCrLf
	Next
    Response.Write "<hr>此条错误已经被记录，我们会尽快处理此错误，请你继续浏览其他内容！！"
	Response.Write "</td></tr></table>"
End Sub
%>