conn.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<%
DatabaseUrl="../#DB/#Qinzd.mdb"	'access数据库地址：虚拟目录+路径名称
'on error resume next

set conn=server.CreateObject("adodb.connection") 
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(DatabaseUrl)
if Err.Number <> 0 then
		Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者/inc/config.asp文件!');</script>")  
        Response.End
end if
sub connclose	
   conn.close
   set conn=nothing   
end sub
Function alertstr(str,nexti)
	dim nextStr
	select case(nexti)
			case(0)
				response.Write("<script>alert("""&str&""");</script>")
				response.End()
			case(1)
				response.Write("<script>alert("""&str&""");history.back();</script>")
				response.End()
			case(2)
				response.Write("<script>alert("""&str&""");window.close();</script>")
				response.End()
	end select	
end Function
%>