Question

asp网页导航修改-追加分数

以下代码，怎么改成导航的连接可在新窗口打开！

'顶部导航
function Head()
Response.Write"<table width='950' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write"<tr><td width='270'><img src='"&Lelogo&"' ></td>"
Response.Write"<td valign='bottom' align='right'><a style='cursor:hand' onclick='window.external.AddFavorite(location.href,document.title);' >收藏QVTX </a> </td>"
Response.Write"</tr></table>"
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_E_Navigation where ViewFlag=1 order by Sequence asc"
rs.open sql,conn,1,1
response.Write("<table width=950 border=0 align=center cellpadding=0 cellspacing=0 background="&SitePath&"Images/menu.gif>")
response.Write("<tr><td align='right'>")
response.Write("<table width='75%' height=30 border=0 cellpadding=0 cellspacing=0 >")
if rs.bof and rs.eof then
response.write "<tr><td height='28' align='center'><font color='white'>暂无导航链接</font></td></tr>"
else
response.write "<tr>"
do
response.write "<td height='28' align='center' ><a href='"&rs("NavUrl")&"'><FONT color="&rs("FontCor")&">"&rs("NavName")&"</font></a></td>"
rs.movenext
loop until rs.eof
response.write "</tr>"
end if
response.Write("</table>")
response.Write("</td></tr></table>")
rs.close
set rs=nothing
End function
改连接方式怎么改 我一改网页就全部不能用

Answer 1

呵呵，把所有a连接的打开方式，改成<a style='cursor:hand' onclick='window.external.AddFavorite(location.href,document.title); target='_blank'>就可以了嘛

Answer 2

新人不建议用response.write的方法输出大量的HTML代码，那样你以后改的时候都不好改了。

Answer 3

<td height='28' align='center' ><a target='_blank' href='"&rs("NavUrl")&"'><font color="&rs("FontCor")&">"&rs("NavName")&"</font></a></td>