Dim MoreStr:MoreStr="<table valign=""middle""><tr><td>人气("&RS("hits")&")</td><td><a href=""#"" onclick=javascript:if(confirm( ""'关注成功！'"")) href=""#""; else return;> <img  src=""../../images/up.jpg"" border=""0"" style=""width:72px; height:66px;"" ></a></td><td> 回复("& Conn.Execute("Select Count(ID) From KS_BlogComment Where LogID="  &id)(0) &")</td></tr></table>"

就是想点击UP 弹出对话窗口  然后刷新页面  但是 加到里面  只是个空链接 什么反应都没有 ！