数据库编程

开发平台：

ASP/ASPX

PreviewImage.asp：源码内容

							<% Option Explicit %>
<%
Dim PreviewImagePath,FileExtName,FileIconDic,FileIcon,AvailableShowTypeStr,PicPara
PreviewImagePath = Request("FilePath")
AvailableShowTypeStr = "jpg,gif,bmp,pst,png,ico"
Set FileIconDic = CreateObject("Scripting.Dictionary")
FileIconDic.Add "txt","../Images/FileIcon/txt.gif"
FileIconDic.Add "gif","../Images/FileIcon/gif.gif"
FileIconDic.Add "exe","../Images/FileIcon/exe.gif"
FileIconDic.Add "asp","../Images/FileIcon/asp.gif"
FileIconDic.Add "html","../Images/FileIcon/html.gif"
FileIconDic.Add "htm","../Images/FileIcon/html.gif"
FileIconDic.Add "jpg","../Images/FileIcon/jpg.gif"
FileIconDic.Add "jpeg","../Images/FileIcon/jpg.gif"
FileIconDic.Add "pl","../Images/FileIcon/perl.gif"
FileIconDic.Add "perl","../Images/FileIcon/perl.gif"
FileIconDic.Add "zip","../Images/FileIcon/zip.gif"
FileIconDic.Add "rar","../Images/FileIcon/zip.gif"
FileIconDic.Add "gz","../Images/FileIcon/zip.gif"
FileIconDic.Add "doc","../Images/FileIcon/doc.gif"
FileIconDic.Add "xml","../Images/FileIcon/xml.gif"
FileIconDic.Add "xsl","../Images/FileIcon/xml.gif"
FileIconDic.Add "dtd","../Images/FileIcon/xml.gif"
FileIconDic.Add "vbs","../Images/FileIcon/vbs.gif"
FileIconDic.Add "js","../Images/FileIcon/vbs.gif"
FileIconDic.Add "wsh","../Images/FileIcon/vbs.gif"
FileIconDic.Add "sql","../Images/FileIcon/script.gif"
FileIconDic.Add "bat","../Images/FileIcon/script.gif"
FileIconDic.Add "tcl","../Images/FileIcon/script.gif"
FileIconDic.Add "eml","../Images/FileIcon/mail.gif"
FileIconDic.Add "swf","../Images/FileIcon/flash.gif"
if PreviewImagePath = "" then
	PreviewImagePath = "../../sys_Images/DefaultPreview.gif"
else
	FileExtName = Right(PreviewImagePath,Len(PreviewImagePath)-InStrRev(PreviewImagePath,"."))
	if InStr(AvailableShowTypeStr,FileExtName) = 0 then
		FileIcon = FileIconDic.Item(LCase(FileExtName))
		if FileIcon = "" then
			FileIcon = "../Images/FileIcon/unknown.gif"
		end if
		PreviewImagePath = FileIcon
		PicPara = " width=""30"" height=""30"" "
	else
		PicPara = ""
	end if
		'Response.Write(PreviewImagePath & "<br>" &FileExtName)
		'Response.End
end if
Set FileIconDic = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>图片预览</TITLE>
</HEAD>
<BODY topmargin="0" leftmargin="0">
<TABLE width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <TR>
    <TD align="center" valign="middle" width="100%" height="100%"><div align="center"><IMG <% = PicPara %> src="<% = PreviewImagePath %>"></div></TD>
  </TR>
</TABLE>
</BODY>
</HTML>

						