سوال در مورد asp و نمايش عكس

nima_isp

Member
سلام من يه كد ميخوام توي asp كه اگه عكسي رو پيدا نكرد يه عكس خاص به جاي اون نشون بده :cry:
 

Ealireza

Member
فكر كنم بايد از طريق سرور انجام شه و با ASP كلاسيك امكان پذير نباشه !
فكر كنم تو net. بشه
 

hoom

Active Member
سلام

به هر زبوني ميتونين بنويسينش. اين يه مثال براي جاوا اسكريپت كه اگر g1.jpg رو پيدا نكنه بجاش g2.jpg رو نشون ميده

کد:
<img border="0" src="g1.jpg" width="150" height="75" OnError="JavaScript:this.src='g2.jpg'">

اينم يه مثال با ASP كلاسيك

کد:
<%
Function CheckImage(ImageURL) 
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  
اگر عكس رو با مسير كامل سرور ميديد اين قسمت رو فعال كنيد
  'Dim strServerURL
  'strServerURL = Request.ServerVariables("SERVER_NAME")
  'ImageURL = Replace(ImageURL, "http://" & strServerURL, "")
  
  If (fso.FileExists(Server.MapPath(ImageURL))) Then
    CheckImage = ImageURL
  Else
    CheckImage = "/NoImage.gif"
  End If

  Set fso = Nothing
End Function  
%>

<img border="0" src="<%=CheckImage("./g11.jpg")%>" width="150" height="75">

ارادتمند
 

Ealireza

Member
hoom گفت:
سلام

به هر زبوني ميتونين بنويسينش. اين يه مثال براي جاوا اسكريپت كه اگر g1.jpg رو پيدا نكنه بجاش g2.jpg رو نشون ميده

کد:
<img border="0" src="g1.jpg" width="150" height="75" OnError="JavaScript:this.src='g2.jpg'">

اينم يه مثال با ASP كلاسيك

کد:
<%
Function CheckImage(ImageURL) 
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  
اگر عكس رو با مسير كامل سرور ميديد اين قسمت رو فعال كنيد
  'Dim strServerURL
  'strServerURL = Request.ServerVariables("SERVER_NAME")
  'ImageURL = Replace(ImageURL, "http://" & strServerURL, "")
  
  If (fso.FileExists(Server.MapPath(ImageURL))) Then
    CheckImage = ImageURL
  Else
    CheckImage = "/NoImage.gif"
  End If

  Set fso = Nothing
End Function  
%>

<img border="0" src="<%=CheckImage("./g11.jpg")%>" width="150" height="75">

ارادتمند
اگه رو سرور خودمون نبود چي ؟؟
 

nima_isp

Member
اقا مرسي و فكر كنم كه اگه رو سرور خودمون هم نباشه مشكي پيش نياد
 

جدیدترین ارسال ها

بالا