各位好，请教．

我从数据库中读取了一张图片，图片显示的长宽是固定的，我想实现在前台用鼠标接触图片后，自动浮现一张该图片原始大小的图片．

这是后台代码

strTemp= strTemp & "<td>"&"<div align=center>"
strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & " target=_blank>" 　　　　　　　　　　& "<img src=" & rsArticle("DefaultPicUrl") & "   width='150' height='150' border='0' >"
strTemp= strTemp  & "</div>"&""
strTemp= strTemp & "</a></td>"


谢谢各位！

我在里面加了这么一段代码，
alt='<img src=" & rsArticle("DefaultPicUrl") & ">'

鼠标放上去显示出图片的地址，我应该怎么将这个地址转为图片？

好象还是不行.
我将整个代码帖出来吧

'=================================================
'过程名：ShowArticle
'=================================================
sub ShowArticle_2(TitleLen)
    if TitleLen<0 or TitleLen>200 then
        TitleLen=50
    end if
    if currentpage<1 then
           currentpage=1
    end if
    if (currentpage-1)*MaxPerPage>totalput then
        if (totalPut mod MaxPerPage)=0 then
               currentpage= totalPut \ MaxPerPage
        else
               currentpage= totalPut \ MaxPerPage + 1
        end if
       end if
    if currentPage=1 then
        sqlArticle="select top " & MaxPerPage    
    else
        sqlArticle="select "
    end if

    sqlArticle=sqlArticle & " ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True and Elite=true"
    
    if BigClassName<>"" then
        sqlArticle=sqlArticle & " and BigClassName='" & BigClassName & "' "
        if SmallClassName<>"" then
            sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "' "
        end if
    else
        if SpecialName<>"" then
            sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "' "
        end if
    end if
    sqlArticle=sqlArticle & " order by articleid "
    Set rsArticle= Server.CreateObject("ADODB.Recordset")
    rsArticle.open sqlArticle,conn,1,1
    if rsArticle.bof and  rsArticle.eof then
        response.Write("<br><li>没有任何Vip产品</li>")
    else
        if currentPage=1 then
            call ArticleContent(TitleLen)
        else
            if (currentPage-1)*MaxPerPage<totalPut then
                    rsArticle.move  (currentPage-1)*MaxPerPage
                 dim bookmark
                   bookmark=rsArticle.bookmark
                call ArticleContent(TitleLen)
            else
                currentPage=1
                   call ArticleContent(TitleLen)
            end if
        end if
    end if
    rsArticle.close
    set rsArticle=nothing
end sub

sub ArticleContent(intTitleLen)
    dim i,strTemp
         i=1
        strTemp=""
        strtemp= strtemp & "<p>"
   response.write"<table width=100% border=0 cellspacing=4 cellpadding=0>"
   response.write "<tr>"
   do while not rsArticle.eof  
    strTemp= strTemp &"<td width='185'> <div align='center'> "
   strTemp= strTemp &"<TABLE border=0 cellPadding=0 cellSpacing=5>"
   strTemp= strTemp &"<TBODY>"
   strTemp= strTemp &"<TR>"
   strTemp= strTemp &"<TD align=middle width=135> <TABLE align=center border=0 cellPadding=0 cellSpacing=0>"      
   strTemp= strTemp &"<TR>"
   strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0ltop.gif' width=10></TD>"
   strTemp= strTemp &"<TD background='Img/bg_01.gif' height=10></TD>"
   strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0rtop.gif' width=10></TD>"
   strTemp= strTemp &"</TR>"
   strTemp= strTemp &"<TR> "  'fdgsdfgdsgsdfgsdfgdsfg
   strTemp= strTemp &"<TD background='Img/bg_03.gif' width=10>&nbsp;</TD>"
   strTemp= strTemp & "<td>"&"<div align=center>"
   strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & " target=_blank       >" & "<img src=" & rsArticle("DefaultPicUrl") & "              width='150' height='150' border='0' alt='<img src=" & rsArticle("DefaultPicUrl") & ">'>"
   strTemp= strTemp  & "</div>"&""
   strTemp= strTemp & "</a></td>"
   strTemp= strTemp &"<TD background='Img/bg_04.gif' width=10>&nbsp;</TD>"
   strTemp= strTemp &"</TR>"
   strTemp= strTemp &"<TR> "  '名称
   strTemp= strTemp &"<TD background='Img/bg_03.gif' width=10>&nbsp;</TD>"
   strTemp= strTemp & "<td>"&"<div align=center>"
   strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & " target=_blank>"
   strTemp= strTemp  & rsArticle("Title") & "</div>"&""
   strTemp= strTemp & "</a></td>"
   strTemp= strTemp &"<TD background='Img/bg_04.gif' width=10>&nbsp;</TD>"
   strTemp= strTemp &"</TR>"    '名称结束

   strTemp= strTemp &"<TR>"
   strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0lbottom.gif' width=10></TD>"
   strTemp= strTemp &"<TD background=Img/bg_02.gif height=10></TD>"
   strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0rbottom.gif' width=10></TD>"
   strTemp= strTemp &"</TR>"         
   strTemp= strTemp &"</TABLE></TD>"
   strTemp= strTemp &"</TR>"
   strTemp= strTemp &"</TBODY>"
   strTemp= strTemp &"</TABLE>"
   strTemp= strTemp &"</div></td>"               
        
          if i mod 3 =0 then
                strTemp= strTemp & "</tr>"
                strTemp= strTemp & "<tr>"                     
          end if          
        rsArticle.movenext
        i=i+1
        if i>MaxPerPage then exit do    
    loop
    strtemp= strtemp & "</tr></table>"
    response.write strTemp
end sub


页面调用:<% call ShowArticle(32) %>

哦,我要实现的效果和懒夫人网一样,

网址:http://www.