依蓝旅游网站管理系统Elan2008.SP2

								Option Explicit
				Response.Buffer = True
				Response.Expires = -1
				Response.ExpiresAbsolute = Now() - 1
				%>
				
				
				
				
				
								On Error Resume Next
				Dim EL_Shop
				Set EL_Shop = New ClassShop
				EL_Shop.ShowProduct()
				Set EL_Shop = Nothing
				Call EL_Common.ShowScriptError()
				Call ApplicationTerminate()
				%>