一個取得圖片檔案長寬的類別
您是否曾想要用ASP程式去取得網頁中某一張圖片的長寬呢?您可以利用以下的類別來完成這個動作: 類別內容 Class ImgWHInfo Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject(”ADODB.Stream”) ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private Sub Class_Terminate Err.Clear Set ASO=Nothing End Sub Private Function Bin2Str(Bin) Dim I, Str For I=1 To LenB(Bin) clow=MidB(Bin,I,1) If ASCB(clow) Str = Str & Chr(ASCB(clow)) Else I=I+1 If I End If Next Bin2Str = Str End Function Private Function Num2Str(Num,Base,Lens) Dim Ret Ret = “” While(Num>=Base) Ret = (Num Mod Base) & Ret Num = (Num - Num Mod Base)/Base Wend Num2Str = Right(String(Lens,”0″) & Num & Ret,Lens) End Function Private Function Str2Num(Str,Base) Dim Ret,I ...