Testar lite users online

BiasseMedlem sedan aug. 2003480 inlägg

28 aug. 2006 13:41#1

Testar enligt följande: http://www.gladh.nu/asphelp/svar7.html

Scriten ser ut enligt följande

index.asp

<html>
<head>
	<title>Untitled</title>
</head>

<body>
	<font face='verdana' size='1'>
	<% if len(session("user")) = 0 then %>
		<form action='log.asp' method='post'>
			Username:<br>
			<input type='text' name='username'><br>
			<input type='hidden' name='do' value='login'>
			<input type='submit' value='log in'>
		</form>
	<% else %>
		<form action='log.asp' method='post'>
			<input type='hidden' name='do' value='logout'>
			<input type='submit' value='log out'>
		</form>
	<% end if %>
	</font>
	
	<hr size='1'>
	<font face='verdana' size='1'>
		Vi finns på siten just nu:
		<%
			if application("users") > 0 then 
				application("oRsUser").movefirst
					do until application("oRsUser").eof
						response.write("<br><b>"& application("oRsUser").fields("user").value &"</b>")
						application("oRsUser").movenext
					loop
				application.unlock
			end if 
		%>
	</font>	
</body>
</html>

log.asp

<%
		'-- deklarera variabler	------
		Dim sUserName, sDo
		
		'-- ta emot data	------------
		sUserName = request.form("username")
		sDo 			= request.form("do")
		
		'-- kolla vad vi skall göra	--
		if sDo = "login" then
			session("user") = sUserName
			application.lock
			 	application("oRsUser").addnew
			 		application("oRsUser").fields("user") = session("user")
				application("oRsUser").update
				application("users") = application("users") + 1 
			application.unlock 
		elseif sDo = "logout" then
			application.lock
				application("oRsUser").filter = "user = '" & session("user") &"'"
				application("oRsUser").delete
				application("users") = application("users") -1 
				application("oRsUser").filter = 0
			application.unlock		
			session("user") = ""			
		end if
		response.redirect("index.asp")
%>>
</script>

global.asa

<script language="vbscript" Runat="server">
	sub application_onStart
		application("users") = 0
		set application("oRsUser") = Server.CreateObject("ADODB.RecordSet")
		application("oRsUser").cursorLocation = 3
		application("oRsUser").Fields.Append "user",201,255
		application("oRsUser").open
	end sub
	
	sub session_onStart
		session("user") = ""
	end sub
	
	sub session_onEnd
		application.lock
			application("oRsUser").filter = "user = '" & session("user") &"'"
			application("oRsUser").delete
			application("users") = application("users") -1 
			application("oRsUser").filter = 0
		application.unlock		
		session("user") = ""
	end sub
</script>

Får följande fel:

Vid inlogg
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'application(...)'
/test/log.asp, line 13

Vi utlogg
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'application(...)'
/test/log.asp, line 20

Lite mycket detta men hoppas det funkar ändå.