5 svar · 283 visningar · startad av Ricki
Tjena,
Vad är det för fel på detta?
Function ForumCode(input)
input = CStr(Replace(input,"<","<"))
input = CStr(Replace(input,">",">"))
input = CStr(Replace(input,":)","<img src=""grafik/smily1.gif"">"))
input = CStr(Replace(input,":(","<img src=""grafik/smily2.gif"">"))
Dim URL_Start
URL_Start = InStr(input, "[URL]") + 5
Dim URL_Stop
URL_Stop = InStr(input, "[/URL]")
Dim Langd
Langd = URL_Stop-URL_Start
Langd = Int(Langd)
'Response.Write Langd
Dim Flopp
Flopp = Mid(input, URL_Start, Langd)
input = CStr(Replace(input,"[URL]","<a href="""))
input = CStr(Replace(input,"[/URL]",""" target=""_blank"">" & Flopp & "</a>"))
input = CStr(Replace(input, vbCrLf, "<br>"))
ForumCode = input
End Function
%>
Jag får fel på Mid(...)
Snälla, hjälp mig!
Om texten inte finns så blir langd negativt. Du borde nog lägga in en check för det.
Dim URL_Start
URL_Start = InStr(input, "[URL]") + 5
if URL_Start > 5 then
Dim URL_Stop
URL_Stop = InStr(input, "[/URL]")
Dim Langd
Langd = URL_Stop-URL_Start
Langd = Int(Langd)
'Response.Write Langd
Dim Flopp
Flopp = Mid(input, URL_Start, Langd)
input = CStr(Replace(input,"[URL]","<a href="""))
input = CStr(Replace(input,"[/URL]",""" target=""_blank"">" & Flopp & "</a>"))
end if
Vad får du för fel?
Tckar, det var som du sade, men det löste sig tack var dej, tack! 
Tjenare,
Det har jag faktiskt inte tänkt på, får prova det nu!
Jag skulle rekommendera en regular expression i detta fallet... ett gyllene tillfälle...
Glömmer du nu så kommer sidan inte innehålla korrekt html...
