高手请进asp过程中如何调用javascript
sub ProductContent(intTitleLen)dim i,strTemp,ViewList
i=1
ViewList=3
strTemp=""
strtemp= strtemp & "<p>"
strTemp= strTemp & "<TABLE align=center BORDER=0 CELLSPACING=1 CELLPADDING=0>"
strTemp= strTemp & "<tr>"
do while not rsProduct.eof
strTemp= strTemp & "<td width=160>"
strTemp= strTemp & "<table align=center width=160 border=0 cellspacing=2 cellpadding=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td colspan=2>"
strTemp= strTemp &"<TABLE border=0 cellPadding=0 cellSpacing=5>"
strTemp= strTemp &"<TR>"
strTemp= strTemp &"<TD align=middle > <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> "
strTemp= strTemp &"<TD background='Img/bg_03.gif' width=10> </TD>"
strTemp= strTemp & "<td width=130 height=100>"&"<div align=center>"
strTemp= strTemp & "<a href='" & rsProduct("DefaultPicUrl") & "' target=_blank>" & "<img src=" & rsProduct("DefaultPicUrl") & " width='130' height='100' border='0' onload='javascript:DrawImage(this);'>" & "</a><br></div>"
strTemp= strTemp & "</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 &"</TABLE>"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td align=right >"
' strTemp= strTemp & "名称:</td>"
strTemp= strTemp & "<td width=80% >"
strTemp= strTemp & "<a href='" & rsProduct("DefaultPicUrl") & "' target=_blank>" & rsProduct("Title") & ""
strTemp= strTemp & "</a></td>"
'strTemp= strTemp & "</tr><tr>"
'strTemp= strTemp & "<td align=right >"
' strTemp= strTemp & "编号:</td>"
' strTemp= strTemp & "<td>"
'strTemp= strTemp & rsProduct("Product_Id") & ""
' strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td colspan=2>"
strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "<div align=center></div></td>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=50% height=12>"
strTemp= strTemp & "<div align=center></div></td>"
'strTemp= strTemp & "<td width=50% height=12>"
'strTemp= strTemp & "<div align=center><input name='Product_Id' type='checkbox' id='Product_Id' value="&cstr(rsProduct("Product_Id"))&"> 选取"
' strTemp= strTemp & "</div></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
strTemp= strTemp & "</td>"
strTemp= strTemp & "</tr><tr>"
' strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
if i mod ViewList =0 then
strTemp= strTemp & "</td></tr>"
end if
rsProduct.MoveNext
i=i+1
if i>MaxPerPage then exit do
loop
strtemp= strtemp & "</tr></table>"
response.write strTemp
end sub
("DefaultPicUrl") & "' target=_blank>" & "<img src=" & rsProduct("DefaultPicUrl") & " width='130' height='100' border='0' onload='javascript:DrawImage(this);'>" & "</a><br></div>"
中
<a href='" & rsProduct("DefaultPicUrl") & "' target=_blank>是打开一个新的浏览器窗口，但只是一般的，如果改为嵌入javascript的window.open()函数的话，可以达到那种效果，但就是我加入这个函数的时候老出错或起不到作用
