דוגמא זו מאפשרת רשימה של רשומות כאשר לכל רשומה מספר לחיצות משלה.
בכל רשומה תופיע המילה "תן בי" אשר תהיה קישור לאותו הדף אשר ידע להעלות את מספר הלחיצות ב-1
הטבלה עליה מבוססת דוגמא זו, נראית כך:
בדוגמא זו, ליחצה על הקישור "תן בי" ישלח את ה-ID של אותה רשומה אל הדף hit_me.asp עצמו, וזה ידע שכאשר הוא מקבל מתשנה אזי עליו להוסיף 1 לשדה hits בטבלה.
לעומת זאת, בד"כ מה שנרצה לעשות הוא שלחיצה על הקישור תשלח אותנו אל דף המתאים לרשומה וזאת ניתן לעשות בקלות ע"י שינוי של פרודת ה Response.Redirect תוך כדי התחשבות במשתנה ID בכדי להציג את הדף הרצוי.
הדף אשר מציג את הרשומות ומספר הלחיצות + אפשרות לחיצה (hit_me.asp):
<![CDATA[<%@ Language=VBScript %>
<!-- #include file="../../Samples_DSN.asp" -->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
ID = Request.QueryString("id")
If ID <> "" then
SQL = "SELECT hits From SAMPLE where id = " & ID
rs.Open SQL,Samples_DSN,2,2
rs("hits") = cint(rs("hits")) + 1
rs.Update
rs.Close
set rs = nothing
Response.Redirect "hit_me.asp"
else
%>
<HTML>
<HEAD><TITLE>תן בי</TITLE></HEAD>
<BODY Dir=RTL bgcolor=SkyBlue>
<BASEFONT Face=Arial>
<CENTER><FONT Size=6>לחיצות</FONT></CENTER>
<BR><BR>
<TABLE Align=Center Border=1 Width=60% Cellpadding=1 CellSpacing=1
STYLE="border: 5px outset MediumPurple;">
<%
SQL = "SELECT id,object,hits From SAMPLE order by hits DESC"
rs.Open SQL, Samples_DSN
If NOT rs.EOF Then
Response.Write "<TR BGColor=DodgerBlue><TH>אובייקט</TH><TH>מספר לחיצות</TH><TH> </TH></TR>"
While Not rs.EOF
Response.Write "<TR BGColor=MediumAquamarine>"
Response.Write "<TD Align=Center>" & rs("object") & "</TD>"
Response.Write "<TD Align=Center>" & rs("hits") & "</TD>"
Response.Write "<TD Align=Center>"
Response.Write "<A Href=hit_me.asp?id=" & rs("id") & ">תן בי</A></TD>"
Response.Write "</TR>"
rs.MoveNext
Wend
End if
End if
rs.Close
Set rs = Nothing
%>
</TABLE>
</BODY>
</HTML>]]>
בהצלחה.
|
.png)
