<%
Dim strText
Dim arrSplit
Dim i
strText = "a,b,c,d,e"
arrSplit = Split(strText,",")
For i = 0 To UBound(arrSplit)
%>
<a href="code.asp?b=<%=Server.URLEncode(arrSplit(i))%>"><%=arrSplit(i)%></a><br>
<%
Next
%>
Date :
21 ต.ค. 2551 09:10:51
By :
@W_IN
No. 2
Guest
ขอบคุณครับ
ผมลองเอาไปใช้ดูแล้ว ทำงานได้เลยครับ
<%
b1 = Recordset1.Fields.Item("keyword")
Dim MyString, MyArray
MyArray = Split(b1,",")
For i=0 to UBound(MyArray)
%>
<a href="code.asp?b=<%=myArray(i)%>"><%=myArray(i)%></a><br />
<%
Next
%>
Load balance : Server 04
