问题：如何读取thumbs.db里的缩略图?
请先到这里下载一个控件
ThumbDBLib
A C# library for reading thumbs.db file
http://www.petedavis.net/MySite/DynPageView.aspx?pageid=31
引用dll,这里提供了 VB和C#代码,一个Thumbs.aspx,添加一个ID为plcThumbs
的PlaceHolder
<!-- {cps..0}--> < form id ="form1" runat ="server" >
< div >
< asp:PlaceHolder id ="plcThumbs" runat ="server" EnableViewState ="False" ></ asp:PlaceHolder >
</ div >
</ form >
VB主要代码:
Dim ThumbDb As String = Server.MapPath( " . " ) & " /thumbs.db "
If System.IO.File.Exists(ThumbDb) Then
Dim ThumbLib As New ThumbDBLib.ThumbDB(ThumbDb)
If Not Request.QueryString( " thumb " ) Is Nothing Then
Dim Thumb As String = Request.QueryString( " thumb " )
Dim ThumbData As Byte () = ThumbLib.GetThumbData(Thumb)
Response.Clear()
Response.ContentType = " image/ " & System.IO.Path.GetExtension(Thumb).ToLower.Replace( " . " , "" )
Response.BinaryWrite(ThumbData)
Response.Flush()
Response.End()
Else
For Each thumb As String In ThumbLib.GetThumbfiles
If System.IO.File.Exists(Server.MapPath( " . " ) & " / " & thumb) Then
' Could use a Literal control here if you want more
' control over the html.
Dim ThumbImage As New System.Web.UI.WebControls.Image
ThumbImage.ImageUrl = " thumbs.aspx?thumb= " & Server.UrlEncode(thumb)
ThumbImage.ImageAlign = ImageAlign.Top
ThumbImage.AlternateText = thumb
ThumbImage.BorderStyle = BorderStyle.Outset
ThumbImage.BorderWidth = New Unit( 1 )
ThumbImage.Attributes.Add( " hspace " , " 4 " )
ThumbImage.Attributes.Add( " vspace " , " 4 " )
ThumbImage.Attributes.Add( " onclick " , " window.location.href=' " & thumb & " '; " )
ThumbImage.Style.Add( " cursor " , " hand " )
plcThumbs.Controls.Add(ThumbImage)
End If
Next
End If
ThumbLib = Nothing
Else
Response.Write( " Thumbs.db Not Found! " )
End If
<!-- {cps..1}-->
Dim
ThumbDb
As
String
=
Server.MapPath(
"
.
"
)
&
"
/thumbs.db
"
If
System.IO.File.Exists(ThumbDb)
Then
Dim
ThumbLib
As
New
ThumbDBLib.ThumbDB(ThumbDb)
If
Not
Request.QueryString(
"
thumb
"
)
Is
Nothing
Then
Dim
Thumb
As
String
=
Request.QueryString(
"
thumb
"
)
Dim
ThumbData
As
Byte
()
=
ThumbLib.GetThumbData(Thumb)
Response.Clear()
Response.ContentType
=
"
image/
"
&
System.IO.Path.GetExtension(Thumb).ToLower.Replace(
"
.
"
,
""
)
Response.BinaryWrite(ThumbData)
Response.Flush()
Response.End()
Else
For
Each
thumb
As
String
In
ThumbLib.GetThumbfiles
If
System.IO.File.Exists(Server.MapPath(
"
.
"
)
&
"
/
"
&
thumb)
Then
'
CoulduseaLiteralcontrolhereifyouwantmore
'
controloverthehtml.
Dim
ThumbImage
As
New
System.Web.UI.WebControls.Image
ThumbImage.ImageUrl
=
"
thumbs.aspx?thumb=
"
&
Server.UrlEncode(thumb)
ThumbImage.ImageAlign
=
ImageAlign.Top
ThumbImage.AlternateText
=
thumb
ThumbImage.BorderStyle
=
BorderStyle.Outset
ThumbImage.BorderWidth
=
New
Unit(
1
)
ThumbImage.Attributes.Add(
"
hspace
"
,
"
4
"
)
ThumbImage.Attributes.Add(
"
vspace
"
,
"
4
"
)
ThumbImage.Attributes.Add(
"
onclick
"
,
"
window.location.href='
"
&
thumb
&
"
';
"
)
ThumbImage.Style.Add(
"
cursor
"
,
"
hand
"
)
plcThumbs.Controls.Add(ThumbImage)
End
If
Next
End
If
ThumbLib
=
Nothing
Else
Response.Write(
"
Thumbs.dbNotFound!
"
)
End
If
C#主要代码：
string ThumbDb = Server.MapPath( " . " ) + " //thumbs.db " ;
if (System.IO.File.Exists(ThumbDb))
{
ThumbDBLib.ThumbDB ThumbLib = new ThumbDBLib.ThumbDB(ThumbDb);
if ((Request.QueryString[ " thumb " ] != null ))
{
string Thumb = Request.QueryString[ " thumb " ];
byte [] ThumbData = ThumbLib.GetThumbData(Thumb);
Response.Clear();
Response.ContentType = " image/ " + System.IO.Path.GetExtension(Thumb).ToLower().Replace( " . " , "" );
Response.BinaryWrite(ThumbData);
Response.Flush();
Response.End();
}
else
{
foreach ( string thumb in ThumbLib.GetThumbfiles())
{
if (System.IO.File.Exists(Server.MapPath( " . " ) + " // " + thumb))
{
// Could use a Literal control here if you want more
// control over the html.
System.Web.UI.WebControls.Image ThumbImage = new System.Web.UI.WebControls.Image();
ThumbImage.ImageUrl = " thumbs.aspx?thumb= " + Server.UrlEncode(thumb);
ThumbImage.ImageAlign = ImageAlign.Top;
ThumbImage.AlternateText = thumb;
ThumbImage.BorderStyle = BorderStyle.Outset;
ThumbImage.BorderWidth = new Unit( 1 );
ThumbImage.Attributes.Add( " hspace " , " 4 " );
ThumbImage.Attributes.Add( " vspace " , " 4 " );
ThumbImage.Attributes.Add( " onclick " , " window.location.href=' " + thumb + " '; " );
ThumbImage.Style.Add( " cursor " , " hand " );
plcThumbs.Controls.Add(ThumbImage);
}
}
}
ThumbLib = null ;
}
else
{
Response.Write( " Thumbs.db Not Found! " );
} xt 和 image 数据类型。
浏览效果如图：
完毕。
源码可以在这里
下载
