[求助] 数据库中读取的图片如何实现鼠标接触后自动放大到原始的大小？ - 编程论坛

#2

madpbpl2008-03-19 01:00

onMouseOver 触发一个事件
或是lightbox,网上搜索一下,这个效果也不错.这个是点击后浮现一张图片

#3

zwz70752008-03-19 01:05

谢谢

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

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

#4

madpbpl2008-03-19 01:28

例如
<script language="javascript">
function newwindow(){
window.open('images/01.jpg');
}
</script>
<input type="image" src="../images/01.jpg" onMouseOver="return newwindow()">

#5

zwz70752008-03-19 08:59

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

'=================================================
'过程名：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> </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> </TD>"
   strTemp= strTemp &"</TR>"
   strTemp= strTemp &"<TR> "  '名称
   strTemp= strTemp &"<TD background='Img/bg_03.gif' width=10> </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> </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) %>

#6

zwz70752008-03-19 09:22

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

网址:http://www.

#7

madpbpl2008-03-19 11:05

查看源文件
这是它实现的js