Question

asp 给文字加单击事件

response.write " "&rs_m("mess")&"删除<br>" 这句话中我想给"删除"加上一个单击事件,执行函数,请教各位!
mfkiqpl :你好,感谢你的回答,但是好象没什么用吗?
<%
function del_mess(m_id)
m_id=rs_m("m_id")
conn.execute "delete from mess where m_id='"&m_id&"'"
end function
dim rs_m
set rs_m=server.createObject("adodb.recordset")
rs_m.open "select * from mess",conn,1,3
do while not rs_m.eof
response.write rs_m("mess")&"<a href=""#"" onclick=""del_mess(m_id)"">删除</a><br>"
rs_m.movenext
loop
rs_m.close
set rs_m=nothing
%>
地址栏最后加了一个# 剩下什么都没发生

Answer 1

楼主你要知道HTM标签中的onclick时间只能激发客户端的脚本函数。而你调用的却是服务器中的del_mess当然就没有用啦我这段代码给你修正了：
<%
Dim DelId
DelId = Request.QueryString("id")
If DelId&<>"" Then del_mess(DelId)
function del_mess(m_id)
m_id=rs_m("m_id")
conn.execute "delete from mess where m_id='"&m_id&"'"
end function
dim rs_m
set rs_m=server.createObject("adodb.recordset")
rs_m.open "select * from mess",conn,1,3
do while not rs_m.eof
response.write rs_m("mess")&"<a href=""javascript:if(confirm('数据一旦删除将无法恢复，你确认要删除吗？'))location.href=('?id="&Rs_m("m_id")&"');"">删除</a><br>"
rs_m.movenext
loop
rs_m.close
set rs_m=nothing
%>
注意Rs_m("m_id")中的m_id字段是我猜的，因为我不知道你要传的是什么值，错了就把它换成你的字段。
有问题：165368576

Answer 2

response.write " "&rs_m("mess")&"<a href=""#"" onclick=""单击函数名"">删除</a><br>"
=============================================
你这样的代码是前后不分，要执行后台代码这样改
<%
if request.querystring("a")="mfkiqpl" then
m_id=rs_m("id")
conn.execute "delete from mess where m_id="&m_id
end if
dim rs_m
set rs_m=server.createObject("adodb.recordset")
rs_m.open "select * from mess",conn,1,3
do while not rs_m.eof
response.write rs_m("mess")&"<a href=""?a=mfkiqpl&id="&rs_m("m_id")&""">删除</a><br>"
rs_m.movenext
loop
rs_m.close
set rs_m=nothing
%>

Answer 3

你应该分框架
删除另分在一个框架里