<% Sub NiceError(text) conn.close set conn=nothing Response.Write "

" & text Response.End End Sub dim conn,connstr,database database=0 '设置使用的数据库类型,1=SQL SERVER,其他为ACCESS if database=1 then connstr="driver={SQL Server};server=(local);database=BVNews;uid=sa;pwd=1;" else connstr="DBQ="+server.mappath("./whdxsnews.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" end if set conn=server.CreateObject("adodb.connection") conn.open connstr %>