webForumDet fria alternativet

Räknar problem...

15 svar · 351 visningar · startad av Bosse168

Bosse168Medlem sedan nov. 20031 018 inlägg
#1

Jag vill visa och räkna besöket genom att infoga räknar sidan så här:

<script language="JavaScript" src="http://www.minDomän.nu/counter.asp?id=1"></script>

givetvis är det annat domännamn

counter.asp

<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Expires=-1
Response.Buffer = True %>

<!-- #INCLUDE VIRTUAL="/include/koppling.asp" -->

<%

If Request.Cookies(Request.Querystring("id")) <> "TRUE" Then

Response.Cookies(Request.Querystring("id")) = "TRUE"
Response.Cookies(Request.Querystring("id")).Expires = DateAdd("h", 24, now)

Connect.Execute ("update geek_counter set viz_u = viz_u +1 WHERE ID='" & Request.QueryString("id") & "'")

End If

Connect.Execute ("update geek_counter set viz = viz +1 WHERE ID='" & Request.QueryString("id") & "'")

Set Rs = Connect.Execute("SELECT viz_u From geek_counter WHERE ID='" & Request.QueryString("id") & "' LIMIT 1")

Response.Write Rs("viz_u")

Rs.Close : Set Rs=nothing

Connect.Close : Set Connect=Nothing
%>

Någon som vet vad det är för fel?

Bosse168Medlem sedan nov. 20031 018 inlägg
#2

Löste det glömde bort att det var java... :i

document.write("<%=Rs("viz_u")%>")

Någon som har förslag på förbättring på kod?

Bosse168Medlem sedan nov. 20031 018 inlägg
#3

Jag vill göra om siffrorna till bilder och det blir helt blankt när jag skriver ut dom så här:

For i = 1 To Len(CStr(Rs2("viz_u")))
  Response.Write("document.write('<img src=../bilder/siffror/" & Mid(CStr(Rs2("viz_u")), i, 1) & "_8x8.gif>')")
Next
J.N.Medlem sedan apr. 20031 660 inlägg
#4

HEJ!

Vad blir det för adress till bilden under egenskaper?

Då ser du vad du har programmerat ihop.

Bosse168Medlem sedan nov. 20031 018 inlägg
#5

den visar ingen bild

J.N.Medlem sedan apr. 20031 660 inlägg
#6

HEJ!

Det är inte det jag undrar, VAD tycker webbläsaren att den (=du!) ska visa för bild. Det är stor skillnad!

Ser du ingen bild alls, dvs inget kryss, då har du allvarligare problem, då kommer den inte till loopen alls.

Bosse168Medlem sedan nov. 20031 018 inlägg
#7

Hittade felet men vet inte hur det ska lösas den skriver ju ut:
document.write('bilden')

Efter varje bild så när javascriptet skriver ut det blir det så här:

document.write('bilden')document.write('bilden')

@ndersMedlem sedan juni 200032 969 inlägg
#8
For i = 1 To Len(CStr(Rs2("viz_u")))
  Response.Write("document.write('<img src=../bilder/siffror/" & Mid(CStr(Rs2("viz_u")), i, 1) & "_8x8.gif>');" & vbCrLf)
Next
Bosse168Medlem sedan nov. 20031 018 inlägg
#9

Blir det inte en rad brytning efter varje bild då?

J.N.Medlem sedan apr. 20031 660 inlägg
#10

HEJ!

Jag reagerade inte på det, eftersom du skrev fel på det tidigare när du vara i javasciptet.

Men, borde det inte stå enbart Response.Write, utan något document.write? Eftersom loopen är skriven som den är antar jag du håller på med vb.

Lista ut vad du håller på med, så löser du det ;)

Bosse168Medlem sedan nov. 20031 018 inlägg
#11

jag håller på med båda.

@ndersMedlem sedan juni 200032 969 inlägg
#12

Bosse168 skrev:

Blir det inte en rad brytning efter varje bild då?

Jo, i källkoden, men inte till läsaren. Det är ju inte <br> vi pratar om.

J.N.Medlem sedan apr. 20031 660 inlägg
#13

HEJ!

Okej, nu får vi lösa detta!

Jag gissar det är såhär:

Response.Write("document.write('<img src=../bilder/siffror/" & Mid(CStr(Rs2("viz_u")), i, 1) & "_8x8.gif>');"

och att koden i sidan blir

<img src=../bilder/siffror/document.write('sexa')_8x8.gif>

det borde ju vara

<img src=../bilder/siffror/sexa_8x8.gif>

och det får du genom

Response.Write "<img src=../bilder/siffror/" & Mid(CStr(Rs2("viz_u")), i, 1) & "_8x8.gif>"

Eller?

Bosse168Medlem sedan nov. 20031 018 inlägg
#14

Löste det med att göra så här:

document.write("<%For i=1 to Len(CStr(Rs("viz_u")))%><img src='../bilder/siffror/<%= Mid(CStr(Rs("viz_u")), i, 1) %>_8x8.gif' border='0'><%Next%>")

Någon som har ett bättre förslag och förstår hur jag menar?

J.N.Medlem sedan apr. 20031 660 inlägg
#15

HEJ!

Ja, jag förstår vad du menar, fast inte varför du gör så? Saknar kod för vad du gör nu, antar du alltså faktiskt är i ett javascript?

Borde du inte kunna göra som jag skrev ovan, lite anpassat till det du skrev nyss:

<%For i=1 to Len(CStr(Rs("viz_u")))
 response.write "<img src='../bilder/siffror/" & Mid(CStr(Rs("viz_u")), i, 1) & "_8x8.gif' border='0'>"
Next%>

Men, som sagt ovan, du är i javascriptet?

Bosse168Medlem sedan nov. 20031 018 inlägg
#16

Ja jag är i javascriptet.

135 ms totalt · 3 externa anrop · v20260731065814-full.86db40fa
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)