---
title: "Fuc'ked up.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10184-fuc-ked-up"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "RDL"
published: "2001-06-20T21:47:00.000Z"
updated: "2001-06-21T20:24:00.000Z"
replies: 9
views: 218
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10184-fuc-ked-up"
---

# Fuc'ked up..

## #1 — RDL, 2001-06-20T21:47Z

Ursäkta rubriken.. men kom inte på någon bättre eftersom det är verkligen rätt fucked up.. 

Jaja.. hursomhelst..
\<%
Dim Personer
Personer	= "\<a href=" & Application("adiosas") & ".asp\>" & Application("adiosas") & "\</a\>\<br\>"
Response.Write	Personer
%\>

Blir

\<a href=\*ono\*doe.asp\>\*ono\*doe\</a\>

hm.. ett vill ha bort dessa: \*
Sen vill jag bara ha ett namn i adiosas i taget så att det blir
\<a href=ono.asp\>ono\</a\>
\<a href=doe.asp\>doe\</a\>

Någon som har lust att hjälpa??

Permalänk: https://www.webforum.nu/p/10184

## #2 — Vide, 2001-06-20T22:00Z

Varför finns det så ifrån början om du inte vill ha det så :q

Permalänk: https://www.webforum.nu/p/275581

## #3 — RDL, 2001-06-20T22:01Z

Var finns vad?? \*förvirrad\*

Permalänk: https://www.webforum.nu/p/275582

## #4 — RDL, 2001-06-20T22:03Z

hm.. vill inte ha så!!  vill inte!! ändra!! ::)  :)  :)

Permalänk: https://www.webforum.nu/p/275583

## #5 — Vide, 2001-06-20T22:06Z

Ja, varför har du värdet "\*ono\*doe" i Application("adiosas") om du inte vill ha det så?

Permalänk: https://www.webforum.nu/p/275584

## #6 — RDL, 2001-06-20T22:09Z

gah.. får grudeleiosera mig.. 

Har två sessioner den ena heter ono den andra doe.. Vill att de ska dela upp sig.. sen fattar jag inte att varför det blir \* or  framför?? 

Försökte med Replace.. fast lyckades inge vidare..

Permalänk: https://www.webforum.nu/p/275585

## #7 — Vide, 2001-06-20T22:20Z

jo, det är ju bättre att inte skapa buggen i första hand än att försöka ta bort den i efterhand...

Hur ser koden ut som lägger in sessionerna i application?

Permalänk: https://www.webforum.nu/p/275586

## #8 — RDL, 2001-06-21T07:37Z

Lite variabler ändrade.. 

Global.asa
\<SCRIPT LANGUAGE="VBScript" RUNAT="Server"\>

Sub Application_OnStart
	Application("anv") = 0
End Sub

Sub Session_OnStart
	Session.Timeout = 20
	Session("Start") = Now

	Application.Lock
		Application("anv") = Application("anv") + 1
	Application.UnLock
	Session.TimeOut = 20

End Sub

Sub Session_OnEnd
	Application.Lock
		Application("anv") = Application("anv") - 1
		Application("users") = Replace(Application("users"), "\*" & Session("anv") & "\*", "\*")
		Application("writeUsr1") = Application("writeUsr2")
		Application("writeUsr2") = Application("writeUsr3")
		Application("writeUsr3") = Application("writeUsr4")
		Application("writeUsr4") = Application("writeUsr5")
		Application("writeUsr5") = Application("writeUsr6")
		Application("writeUsr6") = ""
	Application.UnLock

End Sub

\</SCRIPT\>

Flygin.asp

Session("inne") = 1
session("anv") = rsUser("username")

	Application.Lock
		Application("users") = Application("users") & "\*" & Session("anv")
		Application("writeUsr1") = Application("writeUsr2")
		Application("writeUsr2") = Application("writeUsr3")
		Application("writeUsr3") = Application("writeUsr4")
		Application("writeUsr4") = Application("writeUsr5")
		Application("writeUsr5") = Application("writeUsr6")
		Application("writeUsr6") = ""
	Application.UnLock

Test.asp
\<%
Option Explicit
if Session("inne") = 1 then
%\>
\<!-- #include file="ssi/huvudet.asp" --\>
\<center\>
\<font class="s"\>
\<b\>\<u\>Inloggade användare:\</u\>\</b\>\<br\>

\<%
Dim Personer
Personer	= "\<a href=" & Application("users") & ".asp\>" & Application("users") & "\</a\>\<br\>"
Response.Write	Personer
%\>
\<br\>
\<b\>\<% =Application("anv") %\>\</b\> inloggade nu
\</font\>
\</center\>
\</body\>
\</html\>
\<% end if %\>

Hjälper det?

Permalänk: https://www.webforum.nu/p/275587

## #9 — Vide, 2001-06-21T09:23Z

Något sånthär:

```
aA = Split(Application("adiosas"),"*")

For i = 0 To Ubound(aA)
Response.Write "<a href=" & aA(i) & ".asp>" & aA(i) & "</a><br>"
Next
```

Permalänk: https://www.webforum.nu/p/275588

## #10 — RDL, 2001-06-21T20:24Z

skyst vide!!

funkade perfa!!

Permalänk: https://www.webforum.nu/p/275589

---

Tråden på webben: https://www.webforum.nu/amne/asp/10184-fuc-ked-up