不错的ASP整站源代码。在IIS环境下运行都没有问题

								
				'叛断Session变量是否超时
				if isempty(session("u_id")) or session("u_id")="" then
				   response.redirect "../timeout.asp"
				end if
				
				if session("u_id")=1 then response.redirect "../notreg.asp"
				
				'叛断此用户是否已经注册
				Set conn1 = Server.CreateObject("ADODB.Connection")
				DBPath1 = Server.MapPath("../isi/xlist.asp")
				conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
				Set rs_lar = Server.CreateObject("ADODB.Recordset")
				sql="select * from larchives where user_id =" & session("u_id")
				rs_lar.open sql,conn1,3,2
				
				if rs_lar.eof and rs_lar.bof then
					 response.redirect "../notregist.asp"
					 response.end
				end if
				%>