<!--#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
%>