<!--#Include File="../conn.asp"-->
<%
dim Action
Action = Trim(Request("action"))
MyDbPath = "../"
Call OpenConn
On Error Resume Next
dim Nsobj
Set Nsobj =Server.CreateObject("NS_Comment4.Ns_Manage")
If Err Then
	Err.Clear
	Response.Charset = "utf-8"
	Response.Write "对不起，服务器没有安装极速交友组件（NS_Comment4.dll），不能使用极速系统。请和你的空间商联系以安装极速组件。"
	response.end
End If
Nsobj.iConnStr=ConnStr
Nsobj.IsSqlData=IsSqlDataBase
Nsobj.Ma_Show()
Set Nsobj=Nothing
if action="editor" then
	dim FileName,sFileUrl
	sFileUrl=request("sFileUrl")
	FileName=request("FileName")
	SendResults 0, sFileUrl, FileName,""
end if
If Err Then
	Response.Write "错 误 号：" & Err.Number & "<BR>"
	Response.Write "错误描述：" & Err.Description & "<BR>"
	Response.Write "错误来源：" & Err.Source & "<BR>"
	Err.Clear
End If

Function SendResults(errorNumber, fileUrl, fileName, customMsg )
	Response.Charset = "UTF-8"
	Response.Write "<script type=""text/javascript"">"
	Response.Write "window.parent.OnUploadCompleted(" & errorNumber & ",""" & Replace( fileUrl, """", "\""" ) & """,""" & Replace( fileName, """", "\""" ) & """,""" & Replace( customMsg , """", "\""" ) & """) ;"
	Response.Write "</script>"
	Response.End
End Function
%>