small_pics.asp
________
<html dir="rtl">
<head>
<title>gallery</title>
<STYLE TYPE="TEXT/CSS">
BODY {
{
scrollbar-face-color: #3C5D8A;
scrollbar-shadow-color: #FAD2A4;
scrollbar-highlight-color: #FAD2A4;
scrollbar-3dlight-color: #000000;
scrollbar-darkshadow-color: #000000;
scrollbar-track-color: #6481AA;
scrollbar-arrow-color: #ffffff
}
}
</style>
</head>
<body bgcolor="#ffffff" background="backgrund1.gif">
<%
set rs = Server.CreateObject("ADODB.RecordSet")
TheDSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
TheDSN = TheDSN & "DBQ=" & Server.mappath("pics.mdb") 'פתיחת מסד הנתונים
SQL = "select id,pic_text From PICLIST"
rs.Open SQL,TheDSN,3,1 'שליפת מספרי התמונות ותיאורן לסט הרשומות
%>
<td colspan="2"><center><img src="../site/top/5.jpg"></center>
<br>
<center>
<h4>ברוך הבא לדף התמונות המצחיקות, כל שעליך לעשות בכדי לראות את אחד התמונות זה פשוט ללחוץ עליה</h4>
<h5>(אם אחת או יותר מהתמונות לא עולות ורואים במקום תמונה איקס יש ללחוץ על התגית "תמונות" בשנית)
</BR>
<p align="center">
<table cellspacing="0" cellpadding="6" border="0" borderCOLOR="BLACK">
<%
i = 1
PicsInRow = 5 ' מספר התאים בכל שורה בטבלה( קביעת מספר התמונות בשורה)
While NOT rs.EOF
if i mod PicsInRow = 1 Then Response.Write "<tr>" 'mod פתיחת שורה חדשה בטבלה לפי פונקצית
Response.Write "<td><center>"
Response.Write "<a href='pics.asp?id=" & rs("id") & "' target='base'>"
'קישור לפריים המרכזי לפי מספרה הסידורי של התמונה
Response.Write "<img src='images/pic-" & rs("id") & "-small.gif' border=0 width=80 height=80 "
Response.Write "</center></td>"
if i mod PicsInRow = 0 Then Response.Write "</tr>" 'mod סגירת שורה לפי פונקצית
i = i + 1
rs.MoveNext 'מעבר לרשומה הבאה
Wend
rs.Close 'סגירת סט הרשומות
set rs = nothing
%>
</table>
</center>
</body>
</html>
________
pics.asp(תמונות רגילות)
________
<%@Language = VBScript%>
<html dir="rtl">
<head>
<title>Photo Gallery</title>
</head>
<body bgcolor="#ffffff" background="backgrund1.gif">
<%
ID = Cint(Request.QueryString("id")) 'הפיכת מספרה הסידורי של התמונה הגדולה ממחרוזת למספר
set cn = server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
TheDSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
TheDSN = TheDSN & "DBQ=" & Server.mappath("pics.mdb")
cn.Open TheDSN 'פתיחת מסד הנתונים
SQL = "select max(id) as max from PICLIST"
rs.Open SQL,cn,3,1 'פתיחת הרשומה המכילה את התמונה האחרונה
max = rs("max") 'שליפת מספרה של התמונה האחרונה
rs.Close
SQL = "select * from PICLIST where id = " & ID 'פתיחת הרשומה של התמונה הנבחרת במסד הנתונים
rs.Open SQL,cn,3,1
TEXT = rs("pic_text") 'שליפת תיאורה של התמונה
PIC_WIDTH = rs("pic_width") 'שליפת רוחבה של התמונה
PIC_HEIGHT = rs("pic_height") 'שליפת גובהה של התמונה
%>
<center>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td colspan="2"><center><img src="../site/top/5.jpg"></center>
<br>
<center>
<font color=white face=arial>
<a href="http://LOCALHOST/TMONA/pics_small.asp" target="base">
<h3><font color=white style=font-size=10pt face=arial>לחץ כאן לחזרה לדף בחירת התמונות </font> </h3>
</a>
</font>
<h5>(לשם "זיפזופ" בין התמונות יש ללחוץ על החצים, תיאור התמונה נמצא בתחתית התמונה)</h5>
</br>
<table cellspacing="0" cellpadding="0" border="0">
<%
'כפתורי קישור לתמונה הבאה ולתמונה הקודמת
'בד"כ מספרי התמונות הם המספר הבא והמספר הקודם
if ID = "1" then 'אם התמונה הנוכחית היא הראשונה
prev_id = max 'אז התמונה הקודמת היא התמונה האחרונה
next_id = "2" 'התמונה הבאה הוא 2
else
prev_id = ID - 1 'ברירת המחדל - התמונה הקודמת
if ID = max then 'אם התמונה הנוכחית היא האחרונה
next_id = 1 'אז התמונה הבאה היא הראשונה
else
next_id = ID + 1 'ברירת המחדל - התמונה הבאה
end if
end if
%>
<tr>
<td><center><a href="pics.asp?id=<%= prev_id %>">
<img src="images/pic-next.gif" border="0" ALT="התמונה הקודמת">
</a><a href="pics.asp?id=<%= next_id %>">
<img src="images/pic-prev.gif" border="0" ALT="התמונה הבאה"></center>
</td>
</td>
</tr>
</td>
</tr>
<tr>
<td colspan="2" height="300">
<center>
<table Border="5" bordercolor="red" cellpadding="0" Cellspacing="0"
bordercolordark="SteelBlue" bordercolorlight="green">
<tr><td>
<img src="images/pic-<%=rs("id") %>.jpg" <% 'שם הקובץ של התמונה לפי מספרה
if PIC_WIDTH <> 0 Then Response.Write "width=" & PIC_WIDTH & " " 'שימוש בנתון על רוחב התמונה
if PIC_HEIGHT <> 0 Then Response.Write "height=" & PIC_HEIGHT & " "
%> ALT="<%=TEXT%>" align="absmiddle">
</td></tr></table>
<%if TEXT <> "" Then Response.Write "<h3>" & TEXT & "</h3>" 'תיאורה של התמונה %>
</center>
</td>
</tr>
</table>
<%
rs.Close 'סגירת מסד הנתונים
set rs = nothing
cn.Close
Set cn = Nothing
%>
</center>
</body>
</html>
_______
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
