צפיות
תשובות
עזרה בקוד להצגת תמונה(ASP)
מה שאני רוצה לבנות זה מציג תמונת שמבוסס על ID כלומר אם ID=1 אז הוא יודע ללכת לכתובת מסוימת למשל:WWW.GOOGLE.COM/GOOGLE.JPG
כדי שהוא ידע לאיזה כתובת ללכת הכנתי DB עם טבלה אחת בשם PIC ובתוכה שתי עמודות:ID ו SRC
הבעיה היא שאני לא יודע איך להציג את התמונה בדף–מצורף קוד:
<%
dim conn
set conn=server.createobject("adodb.connection")
dim ConnString
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &_
Server.MapPath("pic.mdb") & ";"
conn.Open connString
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select src from pic where id=" & Request.QueryString("id")
rs.Open sql,conn
Response.Write "<img src="& sql & ">
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
מה שקורה פה זה שהוא לוקח תתמונה ופשוט מציג אותה בדף,אבל מה שאני רוצה לעשות זה שהוא יציג את התמונה בכל דף אחר למשל בדף הראשי איפה שאני אכתוב ש האיידיי שווה ל2 בתוך תגית איימג' אז שהוא יציג לי את התמונה
מצטער אם השאלה לא ממש ברורה-אם משהו לא ברור תגידו מה ואני אסביר את עצמי
תודה מראש.
3 תשובות
כמה תיקונים..
<%
dim conn
set conn=server.createobject("adodb.connection")
dim ConnString
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &_
Server.MapPath("pic.mdb") & ";"
conn.Open connString
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select src from pic where id=" & Request.QueryString("id")
rs.Open sql,conn,3,3
Response.Write ("<img src=""& sql & "">")
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
עכשיו זה יעבוד לך..
עשית לפי מה שראיתי הכל טוב רק שלא כתבת את הכל טוב…
רצית כאילו להוציאה את התמונה ע"י ID שיתקבל מאיפה שהוא?
אם כן אז כתבתי לך למעלה את הקוד המתוקן כי לך היו כמה שגיאות..
כמה שאלות+תיקון לשאלה המקורית:
1,מה זה הפסיקים שהוספת?
2.אם אני משתמש בדף הזה הוא פשוט יציג לי תתמונה לפי ה ID
מה שאני רוצה זה כשאני כותב בדף HTML כזה דבר:
<img src="somthing.asp?id=2">
אז הוא יציג לי תתמונה שהאיידיי שלה בדאטה בייס שווה ל 2
מה צריך לעושת ?
הקוד שאיתו אני מוסיף את התמונה לא
עובד,עזרה בבקשה:
<%
src=Request.Form("src")
If LEN(Author)=0 Then ="no image src"
sq="insert into pic(src)values(`"&src&"`)"
path = server.mappath("pic.mdb")
set c=server.createobject("ADODB.Connection")
c.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" &path
c.Execute sq
%>