şu yukarıda düğme olaylarını yapıyorum. |url||/url| olayı kıllık çıkardı. http://www.tahribat.com bunun gibi olmuyo. sonuçta şunu yapıyorum diğerleri için. strTemp = Replace(strTemp, "|i|", "<i>", 1, -1, 1) strTemp = Replace(strTemp, "|/i|", "</i>", 1, -1, 1) ama url de hem href in içine hem <a></a> taglarının arasına koyması gerekiyo. bu nasıl yapılıyo.

editleyemiyorum neden bilmiyorum hata weriyo... kullanımı : For Counter = 0 To UBound 'if the closing tag is found in the string then... If (InStr(1, strArray , c1Tag, 1) > 0) Then 'split string at the closing tag... strArray2 = Split(strArray , c1Tag, -1, 1) 'if the closing url tag is found in the string and ' is not found in the string then... If InStr(1, strArray2(1), c2Tag, 1) And _ Not InStr(1, UCase(strArray2(1)), " ", 1) Then If UCase(Left(strArray2(0), 7)) = "HTTP://" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 1) & strArray2(1) ElseIf UCase(Left(strArray2(0), 8)) = "HTTPS://" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 2) & strArray2(1) ElseIf UCase(Left(strArray2(0), 4)) = "WWW." Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 3) & strArray2(1) ElseIf UCase(Left(strArray2(0), 7)) = "MAILTO:" Then 'ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4) & strArray2(1) ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1) ElseIf UCase(Left(strArray2(0), 6)) = "FTP://" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 5) & strArray2(1) ElseIf InStr(strArray2(0), "@") > 0 Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4) & strArray2(1) ElseIf UCase(Left(strArray2(0), 6)) = "FILE:///" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 7) & strArray2(1) Else ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1) End If end if next bunuda ekle <script language="<i><i>javascript</i></i>1.2" runat="server"> function edit_hrefs { sOutput = new String ; if (iType 1) else if (iType 2) else if (iType 3) else if (iType 4) else if (iType 5) else if (iType 6) return sOutput; } </script>

runat serveri biliyom da. vbscript kodu lazımdı bana.

sana bunun kodunu weriyorum... bekle bu bi runat server kullanmımını biliyosundur heralde bilmiyosan mesaj at... kullanımı : If UCase(Left(strArray2(0), 7)) = "HTTP://" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 1) & strArray2(1) ElseIf UCase(Left(strArray2(0), 8)) = "HTTPS://" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 2) & strArray2(1) ElseIf UCase(Left(strArray2(0), 4)) = "WWW." Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 3) & strArray2(1) ElseIf UCase(Left(strArray2(0), 7)) = "MAILTO:" Then 'ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4) & strArray2(1) ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1) ElseIf UCase(Left(strArray2(0), 6)) = "FTP://" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 5) & strArray2(1) ElseIf InStr(strArray2(0), "@") > 0 Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4) & strArray2(1) ElseIf UCase(Left(strArray2(0), 6)) = "FILE:///" Then ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 7) & strArray2(1) Else ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1) End If <script language="<i>javascript</i>1.2" runat="server"> function edit_hrefs { sOutput = new String ; if (iType 1) else if (iType 2) else if (iType 3) else if (iType 4) else if (iType 5) else if (iType 6) return sOutput; } </script>

ya bilen yok mu?