javascript放大镜代码

大家看看这个效果是怎么做的http://www.sxr-gallery.com/art_pic_detail.asp?art_pic_id=1086，谁能提供源代码？
这个网页有两个特殊的地方：1.左侧的画在右侧放大；2左侧的画是一个大图，作者按比例缩小了它，在打开的时候能保持缩略图的形式打开。
我找个类似的效果，但是找不到一样的，望各位高手提供源码。谢谢！

同命相连，我也在找这个效果，失望啊！

发现有教程，可是运行不起来，看你会吗？

picclass.asp 图片处理类文件
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
'//////////// GPS：Get Picture Size //////////////
'//////////////利用ADODB.stream获取图片尺寸//////////////
'/////////Cited By Leon（心晴） 2005年8月11日//////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub

Private Sub Class_Terminate
set aso=nothing
End Sub

Private Function Bin2Str(Bin)
Dim I, Str
For I=1 to LenB(Bin)
clow=MidB(Bin,I,1)
if AscB(clow)<128 then
Str = Str & Chr(ASCB(clow))
Else
I=I+1
if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
end If
Next
Bin2Str = Str
End Function

Private Function Num2Str(num,base,lens)