Operations on files--establishing a move delete folder
Source: Internet
Author: User
The following two files:
<!--#include virtual= "/intels/chunfeng/graphicdetect.asp"-->
<TITLE> Image Dimensions </TITLE>
<body bgcolor= "#FFFFFF" >
<%
Graphic= "Images/intels.gif"
HW = readimg (graphic)
Response.Write Graphic & "Dimensions:" & HW (0) & "x" & HW (1)
& "<br>"
Response.Write "Response.Write height= "" "& HW (0) &" ""
Response.Write width= "" "& HW (0) &" > "
%>
</body>
－－－－－－－－－－－－－－－－－－－－－－－－
Graphicdetect.asp
<%
Dim HW
Function Ascat (s, N)
Ascat = ASC (Mid (S, N, 1))
End Function
Function Hexat (s, N)
Hexat = Hex (Ascat (S, N))
End Function
Function isjpg (Fichero)
If inStr (UCase (Fichero), ". JPG ") <> 0 Then
Isjpg = True
Else
Isjpg = False
End If
End Function
Function Ispng (Fichero)
If inStr (UCase (Fichero), ". PNG ") <> 0 Then
Ispng = True
Else
Ispng = False
End If
End Function
Function Isgif (Fichero)
If inStr (UCase (Fichero), ". GIF ") <> 0 Then
Isgif = True
Else
Isgif = False
End If
End Function
Function isbmp (Fichero)
If inStr (UCase (Fichero), ". BMP ") <> 0 Then
Isbmp = True
Else
Isbmp = False
End If
End Function
Function iswmf (Fichero)
If inStr (UCase (Fichero), ". WMF ") <> 0 Then
Iswmf = True
Else
Iswmf = False
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.
