网上购物,不错的购物系统,花了好长时间来改的

				
				
								dim startime,conn,connstr,db,rs,rs_s,rs_s1,rs_shjia
				startime=timer()
				db="database/"&dataname&"" '数据库
				on error resume next '尝试连数据库，一直到超时，但可以加强SQL注入过滤
				connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
				'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
				set conn=server.createobject("ADODB.CONNECTION")
				conn.open connstr
				
				%>