<script language=vbscript>
sub checkclick()
if username <> superior then
set rs = server.createobject("adodb.recordset")
sql = "select * from taskinfo where superior = '"&superior&"' and accepter = '"&accepter&"' and recdate = #"&myday&"# and click = 0 and force = 0"
rs.open sql,conn,1,1
if rs.recordcount > 0 then
sql = "update taskinfo set click = 1 where superior = '"&superior&"' and accepter = '"&accepter&"' and recdate = #"&myday&"# and click=0 and force = 0"
conn.execute(sql)
end if
end if
end sub
</script>
<a href=displaytask.asp onclick='checkclick()'>号</a>
为什么我点击后,不执行 sub 呢?