Så här typ?
<%
Dim MyString, MyArray
MyString = rs("usernames")
MyArray = Split(MyString,"<>")
For i=0 to UBound(MyArray)
response.write "<a href="""&myArray(i)&""">"&myArray(i)&"</a>, "
Next
%>
5 svar · 425 visningar · startad av brorsan
Om jag har en databaspost där jag har lagrat en rad användar-id t.ex. och vill hämta och skriva ut alla dessa, hur gör jag det?
Så här kan de vara åtskilda t.ex. (vet inte om det finns nån standard på hur man skiljer de åt, med komma, eller <> eller annat)
<>1380<>173<>244<>
Och jag vill att detta ska skrivas ut:
<a href="1380">1380</a>, <a href="173">173</a>, <a href="244">244</a>.
Fram tills alla alla är utskrivna (kan vara allt från 0 och uppåt, oftast max 30).
Inte så viktigt om det blir punkt eller komma efter sista id, men bra om det kan bli punkt.
Vi kan låtas att hela posten är hemhämtad som t.ex. rs("usernames").
Så här typ?
<%
Dim MyString, MyArray
MyString = rs("usernames")
MyArray = Split(MyString,"<>")
For i=0 to UBound(MyArray)
response.write "<a href="""&myArray(i)&""">"&myArray(i)&"</a>, "
Next
%>
tack! ja, verkar troligt, jag ska testa!
For i=0 to UBound(MyArray)
response.write "<a href="""&myArray(i)&""">"&myArray(i)&"</a>, "
[b] IF i = UBound(MyArray) THEN response.write "."[/b] ' ## en ovanlig variant
Next
For i=0 to UBound(MyArray)
response.write "<a href="""&myArray(i)&""">"&myArray(i)&"</a>, "
[b] IF i < UBound(MyArray) THEN response.write "<BR>" & vbCRLF [/b] ' ## en vanlig variant
Next
Jag rättar mig själv:
Jag ser, du vill ju ha kommatecken och ett mellanslag mellan varje post, men inte efter den sista.
Då kan du lägga in det i Exempel 2 ovan.
Sedan ska man aldrig, aldrig, aldrig spara fler värden i samma post. Men det är ju en annan historia. :)