דוגמא זו מסבירה כיצד לבצע את האופציה המאפשרת למצוא מילה בטקסט של הודעה ולהפוך אותה לקישור לכתובת מסוימת. לרוב משתמשים באופציה זו בהודעות בפורומים כאשר רוצים לתת אפשרות לגולשים להפוך מילה או יותר בהודעה שלהם לקישור לכתובת משלהם.
הרעיון הכללי
יש לנו 3 נתונים: הטקסט, המילה והכתובת. אנו צריכים למצוא את המילה בטקסט ולהפוך אותה לקישור לכתובת. נעשה כאן שימוש בפונקצית Replace אשר יודעת לחפש תת מחרוזת מסוימת ולהחליפה בתת מחרוזת אחרת. ומה שנעשה בדוגמא זה יהיה למצוא את התת מחרוזת (המילה) במחרוזת (טקסט) ולהחליף אותה עם התת מחרוזת שתדע להוציא את המילה כשהיא קישור לכתובת. <![CDATA[<A Href=מילה<כתובת</A>]]>
בדוגמא 2 דפים: הראשון (word_2_link.asp) הוא טופס שמקבל את 3 הפרמטרים ולחיצה על כפתור "בצע", שולחת את הערכים לדף השני (convert.asp) שיודע לבצע את ההחלפה.
בד"כ הדף השני לא יציג את הטקסט עם הקישורים אלא ידע להכניס את הנתונים למסד נתונים לאחר השינויים.
הדף עם הטופס למילוי הפרטים (word_2_link.asp): <![CDATA[<%@ Language=VBScript %>
<%
' Convert Word 2 Link / Adam Liwski - 13/03/01
'-----------------------------------------------
%>
<HTML>
<HEAD>
<TITLE>קישור למילה בהודעה</TITLE>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1255">
<link rel="stylesheet" type="text/css" href="images/DESIGN.CSS">
<STYLE>
a:link {color:#ffcc33;text-decoration:none}
a {color:#ffcc33}
a:hover{color:Orange}
a:visited {text-decoration:none}
</STYLE>
</HEAD>
<BODY DIR=RTL bgcolor=SteelBlue>
<BASEFONT Face=Arial>
<CENTER><FONT Size=7>טופס</FONT></CENTER>
<Form Name="word" Action="convert.asp" Method="Post">
<Table Border=0 Width=80% Align=Center>
<TR>
<TD Align=Left VAlign=Top>טקסט חופשי:</TD>
<TD><TEXTAREA Name="Free_Text" Cols=69 Rows=10></TEXTAREA></TD>
</TR>
<TR>
<TD Align=Left VAlign=Top>מילה בהודעה:</TD>
<TD><Input Type="Text" Name="Word" Size=50></TD>
</TR>
<TR>
<TD Align=Left VAlign=Top>קישור:</TD>
<TD><Input Type="Text" Name="Link" Value="http://" Size=80 Dir=LTR></TD>
</TR>
<TR>
<TH Colspan=2>
<BR>
<INPUT type=Submit VALUE=' בצע '
style="BACKGROUND-COLOR: Gray; BORDER: Gray 3px outset; BORDER-WIDTH: 4px">
</TH>
</TR>
</Table>
</Form>
</body>
</html>]]>הדף שיודע לקבל את הערכים ולטפל בהם (convert.asp):
<![CDATA[<%@ Language=VBScript %>
<%
' Convert Word 2 Link / Adam Liwski - 13/03/01
'-----------------------------------------------
Free_Text = Request.Form("Free_Text")
Word = Request.Form("Word")
Link = Request.Form("Link")
Free_Text = Replace(Free_Text,Word,"<A Href=" & Link & ">" & Word & "</A>")
Free_Text = Replace(Free_Text,vbCrlf,"<BR>")
%>
<HTML>
<HEAD>
<TITLE>קישור למילה בהודעה</TITLE>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1255">
<link rel="stylesheet" type="text/css" href="images/DESIGN.CSS">
<STYLE>
a:link {color:#ffcc33;text-decoration:none}
a {color:#ffcc33}
a:hover{color:Orange}
a:visited {text-decoration:none}
</STYLE>
</HEAD>
<BODY DIR=RTL bgcolor=SteelBlue>
<BASEFONT Face=Arial>
<CENTER><FONT Size=7>התוצאה</FONT></CENTER>
<BR>
<%=Free_Text%>
<BR><BR><BR>
<CENTER>
<INPUT type=button onclick=javasctipt:history.back(-1) VALUE='חזרה'
style="BACKGROUND-COLOR: Gray; BORDER: Gray 3px outset; BORDER-WIDTH: 4px">
</CENTER>
</body>
</html>]]>
בהצלחה...
| 
.png)
