一个经过完善设计的经典网上购物系统

				
								dim startime,conn,connstr,db,rs,rs_s,rs_s1
				startime=timer()
				db="data_shopxp/"&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
				%>