<img border="0" src="g1.jpg" width="150" height="75" OnError="JavaScript:this.src='g2.jpg'">
<%
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">
اگه رو سرور خودمون نبود چي ؟؟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">
ارادتمند