其中submit是一个按钮，现在想按一个的超链接，也想达到同类效果。应该怎么做？

liuwws在上个帖子中说

引用:

---

ok

---

没必要这么麻烦吧？？
ok
就这样不就可以了吗？

我试过了，这样做绝对不会出错，我想你应该是其它地方出了问题！
要不，把错误提示贴出来

ok
绝对可以了！！！！
:rolleyes: :rolleyes: :rolleyes:

你的浏览器不支持JSCRIPT.

submit

formname：表单名

我试过了，好用！

我无计可施了，这是我所有的代码，是完成一个删除功能的。ASP部分是好的。就是不想使用submit按钮来进行删除!不过可以肯定浏览器是支持的，我以前做的很复杂的javascritp都可以支持。

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Delete Record: declare variables

if (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_conn_STRING
MM_editTable = "human"
MM_editColumn = "id"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = ""

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql delete statement
MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the delete
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT id, name FROM human ORDER BY name ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -8
Dim HLooper1__index
HLooper1__index = 0
Recordset1_numRows = Recordset1_numRows + HLooper1__numRows
%>







<%
startrw = 0
endrw = HLooper1__index
numberColumns = 8
numrows = -1
while((numrows <> 0) AND (Not Recordset1.EOF))
    startrw = endrw + 1
    endrw = endrw + numberColumns
%>

<%
While ((startrw <= endrw) AND (Not Recordset1.EOF))
%>




<%
    startrw = startrw + 1
    Recordset1.MoveNext()
    Wend
    %>

<%
numrows=numrows-1
Wend
%>

<%=(Recordset1.Fields.Item("id").value)%>

<%=(Recordset1.Fields.Item("name").value)%> ">

 

<%
Recordset1.Close()
%>

我认为页子里的代码哪部分有问题 但我不知道是哪里

我以前写过onMouseOver="this.style.backgroundColor='#EBEBEB'; "
onMouseOut=this.style.backgroundColor='#ffffff';"
&
onMouseOver=this.bgColor='#EBEBEB'; onMouseOut=this.bgColor='#ffffff';
存成ASP 也是出错 而在别的页里 是好用的
真是奇怪