脚本：删除按钮没反应？菜鸟求救···

Question

 脚本调用处理函数出问题了，菜菜求大虾指点
  <TABLE width="98%" border="0" cellpadding="4" cellspacing="1" bgcolor="#336699"> 
    <tr height=25 > 
      <TD width="106" align="center" background="images/pics/tile_sub.gif"><font color="#FFFFFF"><b>ID号</b></font></TD> 
      <TD width="712" align="center" background="images/pics/tile_sub.gif"><font color="#FFFFFF"><b>信息标题</b></font></TD> 
      <TD width="127" align="center" background="images/pics/tile_sub.gif"><font color="#FFFFFF"> 
        <input name="submit" type='submit' onClick="deleteannounce(<%=cstr(rs("newsid"))%>)" value='删除'> 
        </font></TD> 
    </TR> 
    <%do while not rs.eof%> 
    <tr height="20"> 
      <td width="106" height="28" align="center" bgcolor="#ffffff"><font face="Arial"><b><%=rs("newsid")%></b></font></td> 
      <td width="712" bgcolor="#ffffff"><a href=webinfo_edit.asp?Newsid=<%=rs("Newsid")%>><%=rs("title")%></a></td> 
      <td width="127" align="center" bgcolor="#ffffff"> <input name='id' type='checkbox' id="id" value='<%=cstr(rs("newsid"))%>' <%if rs("Newsid")=67 then response.write "disabled" end if%>></td> 
    </tr> 
    <% i=i+1
   if i>=MaxPerPage then exit do
   rs.movenext
   loop
%> 
</table>
</from> 
</center> 
<%end sub
'  定义showpage函数，用于分页显示
function showpage(totalnumber,maxperpage,filename) 
    dim n 
    if totalnumber mod maxperpage=0 then 
       n= totalnumber \ maxperpage 
    else 
       n= totalnumber \ maxperpage+1 
    end if     
   if CurrentPage<2 then 
       response.write "<table border=0 width=100%  cellspacing=0 cellpadding=0 bgcolor=#e8f4ff>" 
       response.write "<tr height=30>"
       response.write "<td align=left>"
       response.write "共<font color=#ff6600><b>"&n&"</b></font>页&nbsp;第<font color=#ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=#ff6600><b>"&totalnumber&"</b></font>条相关信息</td>" 
       response.write "<td align=right>"
       response.write "【最前页】【上一页】" 
  else 
       response.write "<table border=0 width=600 cellspacing=0 cellpadding=0 bgcolor=#e8f4ff>"
       response.write "<tr height=30>"
       response.write "<td align=left>"
       response.write "共<font color=#ff6600><b>"&n&"</b></font>页&nbsp;第<font color=#ff6600><b>"&CurrentPage&"</b></font>页共检索到<font color=#ff6600><b>"&totalnumber&"</b></font>条相关信息</td>" 
       response.write "<td align=right>"
       response.write "【<a href="&filename&"?page=1&typeid="&typeid&"&txtitle="&request("txtitle")&">最前页</a>】" 
       response.write "【<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&txtitle="&request("txtitle")&">上一页</a>】&nbsp;" 
 end if 
  if n-currentpage<1 then 
       response.write "【下一页】【最后一页】" 
  else 
      response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&txtitle="&request("txtitle")&">" 
      response.write "下一页</a>】【<a href="&filename&"?page="&n&"&typeid="&typeid&"&txtitle="&request("txtitle")&">最后一页</a>】" 
  end if 
  response.write "</td>"
  response.write "</tr>"
  response.write "</table>"
  response.write "</form>"
end functionsub deleteannounce(id)
  dim rs,sql
  set rs=server.createobject("adodb.recordset")
  sql="SELECT * from webInfo where newsid="&cstr(id)
  rs.open sql,conn,1,3
  do while not rs.eof
   rs.delete
rs.update
  rs.movenext
  loop
   response.Write("<script>alert('你确定删除？');location.href='default.asp';</script>")
End sub
closeDB
%> 

Answer 1

错了一时脑袋短路了。。onClick="deleteannounce(<%=cstr(rs("newsid"))%>)" 调用方法有问题。

Answer 2

http://topic.csdn.net/u/20100424/13/2d674dbd-aa9b-465a-bca2-424f0369e9fe.html

Answer 3

其实很简单的啊。  用IE9的调试工具， 看看是否是JS的报的错误     如果没弹出JS错误就是jsp页面的输入语法错误咯

Answer 4

我知道这边有问题，可是不知道怎么办，以前都是传值调用case的⊙﹏⊙b·····最下面是函数，表示我脚本学的很烂，调用都出问题了····

Answer 5

你当然不能这么掉啊，特别是传参数的时候,应该这样：
var param = '<%=cstr(rs("newsid"))%>';
onClick="deleteannounce("+ param +")";