<!--#Include file="../conn.asp"-->
<%
MyDbPath = "../"
Call OpenConn
dim Nsobj
On Error Resume Next
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.Ns_Annou()
Set Nsobj=Nothing
If Err Then
	Response.Write "错 误 号：" & Err.Number & "<BR>"
	Response.Write "错误描述：" & Err.Description & "<BR>"
	Response.Write "错误来源：" & Err.Source & "<BR>"
	Err.Clear
End If
%>