JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单JS菜单

				
								   set cRs=server.CreateObject("ADODB.Recordset")
				   Strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../tree.mdb")
				   oConn.Open Strconn
				%>
								Dim sid, cRs, cSql, TempCataStr ,Info
				sid=Request("id")
				Info="此栏目还没有链接地址哟～～"
				Set cRs = Server.CreateObject( "ADODB.Recordset" )
				cSql = "SELECT * FROM ClassTree WHERE id="&sid
				cRs.Open cSql, oConn, 1,1
				URL = cRs("URL")
				If URl"" then
				response.redirect URL
				Else
					Response.Write "alert('" & info & "\n\n系统将自动返回前一页面...');history.back();"
				End if
				cRs.Close
				Set cRs = Nothing
				%>