imagefile.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<% 
   function FIfile(imagefile)
     dim Ffile
     select case imagefile
	 '下面是影片图片目录
     case 1  :FIfile="filmpic/loveship/"
	 case 2  :FIfile="filmpic/funnyfilm/"
	 case 3  :FIfile="filmpic/actfilm/"
	 case 4  :FIfile="filmpic/horrorfilm/"
	 case 5  :FIfile="filmpic/sciencefilm/"
	 case 6  :FIfile="filmpic/cartoon/"
	 case 7  :FIfile="filmpic/webMTV/"
	 case 8  :FIfile="filmpic/sexualfilm/"
	 case 9  :FIfile="filmpic/Tvseries/"
	 case 10  :FIfile="filmpic/riskfilm/"
	 case 11  :FIfile="filmpic/otherfilm/"
	 '下面是新闻图片目录
	 case 33 :FIfile="newspic/"
	 '下面是影片预告图片目录
	 case 66 :FIfile="newfpic/"
     end select
   end function
%>