<%
set objconn=server.createobject("ADODB.connection")
provider="provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & Server.Mappath("c1.mdb")
objconn.open provider & dbpath
set rs=server.createobject("ADODB.recordset")
function addnew1()
dim sql,a
a="haha"
sql="delete * from c_1 where c_number='"&a&"'"
rs.open sql,objconn,1,3
end function
%>
<form name="text1" action="14.asp" method="post">
<input type="button" name="text2" value="点点" onclick="addnew1">
</form>

点了这个按纽一点反应都没有,我不知道这样做对不对~不是的话请告诉我下,怎么才调用addword1函数

<%
dim action
action = request("action")
If action = "save" Then '判断是否是表单的提动作
set objconn=server.createobject("ADODB.connection")
provider="provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & Server.Mappath("c1.mdb")
objconn.open provider & dbpath
set rs=server.createobject("ADODB.recordset")
dim sql,a
a="haha"
sql="delete * from c_1 where c_number='"& a &"'"
rs.open sql,objconn,1,3
End If
%>
<form name="text1" action="14.asp?action=save" method="post">
<input type="submit" name="text2" value="点点">
</form>

<%
set objconn=server.createobject("ADODB.connection")
provider="provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & Server.Mappath("c1.mdb")
objconn.open provider & dbpath
set rs=server.createobject("ADODB.recordset")
function addnew1()
dim sql,a
a="haha"
sql="delete * from c_1 where c_number='"&a&"'"
rs.open sql,objconn,1,3
end function
%>
<form name="text1" action="14.asp" method="post">
<input type="button" name="text2" value="点点" onclick="return addnew1()">
</form>





这样应该就可以吧.