脚本：删除按钮没反应？初学者···

脚本：删除按钮没反应？菜鸟求救···
脚本调用处理函数出问题了，菜菜求大虾指点


  <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 function

sub 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
%> 


[解决办法]

JScript code

var param = '<%=cstr(rs("newsid"))%>';onClick="deleteannounce("+ param +")";