chklink.asp

Flash电子相册 v1.2 Build 1108完整版本下载

<%
function Geturl(Fileurl)
dim ExtName1
ExtName1 = LCase(Fileurl)
ExtName1 = mid(ExtName1,instr(ExtName1,".")+1)
if instr(ExtName1,".")>0 then
 dim j,sFor1
 sFor1=split(ExtName1,".")
 for j=0 to uBound(sFor1)
  if j=uBound(sFor1) then 
    Geturl=sFor1(j)
  end if
 next
else
Geturl = ExtName1
end if
end function
function Getmap(Fileurl)
dim sdown
       select case Geturl(Fileurl)
       case "jpg"
       sdown= "<img src=upweb/IMAGES/6.gif > "
       case "jpeg"
       sdown= "<img src=upweb/IMAGES/6.gif > "
       case "gif"
       sdown= "<img src=upweb/IMAGES/6.gif > "
       case "bmp"
       sdown= "<img src=upweb/IMAGES/14.gif > "
       case "rar"
       sdown= "<img src=upweb/IMAGES/23.gif > "
       case "zip"
       sdown= "<img src=upweb/IMAGES/9.gif > "
       case "exe"
       sdown= "<img src=upweb/IMAGES/10.gif > "
       case "iso"
       sdown= "<img src=upweb/IMAGES/10.gif > "
       case "avi"
       sdown= "<img src=upweb/IMAGES/11.gif > "
       case "asf"
       sdown= "<img src=upweb/IMAGES/11.gif > "
       case "mpg"
       sdown= "<img src=upweb/IMAGES/22.gif > "
       case "mpeg"
       sdown= "<img src=upweb/IMAGES/22.gif > "
       case "htm"
       sdown= "<img src=upweb/IMAGES/8.gif > "
       case "html"
       sdown= "<img src=upweb/IMAGES/8.gif > "
       case "rm"
       sdown= "<img src=upweb/IMAGES/12.gif > "
       case "ram"
       sdown= "<img src=upweb/IMAGES/12.gif > "
       case "asp"
       sdown= "<img src=upweb/IMAGES/7.gif > "
       case "mp3"
       sdown= "<img src=upweb/IMAGES/21.gif > "
       case "mid"
       sdown= "<img src=upweb/IMAGES/20.gif > "
       case "txt"
       sdown= "<img src=upweb/IMAGES/1.gif > "
       case "wav"
       sdown= "<img src=upweb/IMAGES/13.gif > "
       case else
       sdown= "<img src=upweb/IMAGES/0.gif > "
       end select
Getmap=sdown
end function

function Getgo(Fileurl)
dim chkgo
       select case Geturl(Fileurl)
       case "jpg"
       chkgo=0
       case "jpeg"
       chkgo=0
       case "gif"
       chkgo=0
       case "bmp"
       chkgo=0
       case "rar"
       chkgo=1
       case "zip"
       chkgo=1
       case "exe"
       chkgo=1
       case "iso"
       chkgo=1
       case "avi"
       chkgo=1
       case "asf"
       chkgo=1
       case "mpg"
       chkgo=1
       case "mpeg"
       chkgo=1
       case "htm"
       chkgo=2
       case "html"
       chkgo=2
       case "rm"
       chkgo=1
       case "ram"
       chkgo=1
       case "asp"
       chkgo=2
       case "mp3"
       chkgo=1
       case "mid"
       chkgo=1
       case "txt"
       chkgo=2
       case "wav"
       chkgo=1
       case else
       chkgo=2
       end select
Getgo=chkgo
end function

function chkshow(Fileurl)
dim chknow
if instr(Flmap,Geturl(Fileurl))>0 then
chknow="<img src=upweb/IMAGES/mapon.jpg > "
elseif instr(Flsoft,Geturl(Fileurl))>0 then
chknow="<img src=upweb/IMAGES/dlon.jpg > "
elseif instr(Fltxt,Geturl(Fileurl))>0 then
chknow="<img src=upweb/IMAGES/txton.jpg > "
elseif instr(Flvedio,Geturl(Fileurl))>0 then
chknow="<img src=upweb/IMAGES/vdon.jpg > "
elseif instr(Flmidi,Geturl(Fileurl))>0 then
chknow="<img src=upweb/IMAGES/mdon.jpg > "
end if
chkshow=chknow
end function

%>