fanchanconn1.asp

来自「飞天论坛FTBBS PHP版 v4.1.ASP源代码」· ASP 代码 · 共 20 行

<%

on error resume next

dim db
db="/fanchan/lh100com.mdb"
dsnstrfanchan1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set dsnstrfanchan=server.CreateObject("adodb.connection")
dsnstrfanchan.Open dsnstrfanchan1


If Err.Number <> 0 Then
		dsnstrfanchan.close
		set dsnstrfanchan=nothing
		On Error GoTo 0
        	Response.redirect "/err.asp"
		response.End()
end if
On Error GoTo 0
%>