getabcd.asp

关于设备管理的大型系统

<%
	Set Conn = Server.CreateObject("ADODB.Connection")
	On Error Resume Next
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("%29wodjvndjskkd.asp")
	If Err Then
		err.Clear
	  Set Conn = Nothing
	  Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
	Set Rs = Server.CreateObject( "ADODB.Recordset" )

Sub DBConnEnd()
	'On Error Resume Next
	Rs.Close
	Set Rs = Nothing
	Conn.Close
	Set Conn = Nothing
	'Response.Write "www"
End Sub
%>