在VBScript中获取单击的HTML单元格值

我已经找了将近一个小时了，仍然没有找到答案。基本上-我想单击一个HTML单元格，获取该HTML单元格的当前值，并将该值分配给VBScript变量。老实说，如果有人能告诉我如何做第一点，我会很高兴。像这样，只有在VBScript-

这里唯一的问题是在脚本中提前生成完整的表，然后将其放入Span标记中

任何帮助都将受到极大的感谢

编辑：好的，这就是我现在运行的内容。一个多小时来一直在敲我的头：

    Sub Display_Click
Dim conn, str1
MainTitle.InnerHTML = "<h2>Main Call Queue</h2>"
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=Login"
Set rsData = conn.Execute("SELECT * FROM MainTable WHERE CallStat='Open' ORDER BY P_ID DESC;")
str1 = "<table border=1 cellpadding=5><tr><th>Call Id</th><th>Full Name</th><th>Postcode</th><th>Site Code</th><th>Problem Title</th><th>Category</th><th>SubCategory</th><th>Call Status</th></tr>"
Do Until rsData.EOF = True
str1 = str1 & "<tr onClick=" & chr(34) & "Cell ME" & chr(34) & "><td>" & rsData("P_Id") & "</td><td>" & rsData("FirstN") & "</td><td>" & rsData("PostCode") & "</td><td>" & rsData("SiteNumber") & "</td><td>" & rsData("PTitle") & "</td><td>" & rsData("PCat") & "</td><td>" & rsData("SCat") & "</td><td>" & rsData("CallStat") & "</td></tr>"
rsData.moveNext
Loop
str1 = str1 & "</table>"
MainDisplay.InnerHTML = str1
conn.Close
Call CheckState
End Sub

子显示\u单击
Dim conn，str1
maintTitle.InnerHTML=“主呼叫队列”
Set conn=CreateObject（“ADODB.Connection”）
连接打开“DSN=登录”
设置rsData=conn.Execute（“从主表中选择*，其中CallStat='Open'按P_ID DESC；排序”）
str1=“调用IdFull-NamePostCodes站点代码问题标题类别子类别调用状态”
直到rsData.EOF=True为止
str1=str1&&rsData（“P_Id”）&&rsData（“FirstN”）&&rsData（“邮政编码”）&&rsData（“站点号”）&&rsData（“PTitle”）&&rsData（“PCat”）&&rsData（“SCat”）&&rsData（“CallStat”）&&
rsData.moveNext
环
str1=str1&“
main display.InnerHTML=str1
关闭连接
呼叫检查状态
端接头

---

我很高兴错误就在这个街区的某个地方。表使用3行生成，我得到了3次错误。

您能影响生成的元素（以便它们使用附加属性生成）吗？如果是这样的话，下面这样的方法应该可以奏效

VBscript:

Sub Foo(obj)
  MsgBox obj.innerHtml
End Sub

<table id="tableID">
  <tr>
    <td onClick="Foo Me">row 1, cell 1</td>
    <td onClick="Foo Me">row 1, cell 2</td>
  </tr>
  <tr>
    <td onClick="Foo Me">row 2, cell 1</td>
    <td onClick="Foo Me">row 2, cell 2</td>
  </tr>
</table>

HTML:

Sub Foo(obj)
  MsgBox obj.innerHtml
End Sub

<table id="tableID">
  <tr>
    <td onClick="Foo Me">row 1, cell 1</td>
    <td onClick="Foo Me">row 1, cell 2</td>
  </tr>
  <tr>
    <td onClick="Foo Me">row 2, cell 1</td>
    <td onClick="Foo Me">row 2, cell 2</td>
  </tr>
</table>

第1行，第1单元
第1行第2单元
第2行第1单元
第2行，第2单元

属性

onClick=“…”

将用于处理单击事件的过程或函数添加到标记中

Foo（）

是一个接受一个参数（

obj

）的过程

Me

是对发生单击事件的对象的引用（请参阅）。调用

Foo Me

将对

元素的引用传递给过程

Foo

，以便过程有效地运行

MsgBox Me.innerHtml
删除
chr（34）
，并在
onClick
之后插入一个函数来存储值

"onClick = function()" not chr(34) & "Cell Me" & Chr(34) 

好的-对上面的更新，在我的表中，我向添加了一个'onclick='标记，这会有帮助吗？如果是的话，我应该在标签里放什么？谢谢。好吧，这对我来说没什么意义，但我也明白你的意思。“onclick=”如何工作以及它与子系统的关系如何？（obj）部分中的Sub？我猜这些都是变量？啊！！我现在明白了，我不相信“我”的部分是事件。好的，让我试试这个，然后再打给你。不应该太久。好吧，我想我快把它修好了。如何将其放入变量字符串中，我做了以下操作：但它并没有真正起作用：
str1=str1&&&rsData（“P\u Id”）
ect。我只是点击它，什么也没发生。。。有什么想法吗？还有-如果表格在标签中，这会起作用吗？我现在真的弄坏了它，我收到一条错误消息：
第1行，Char 10，expected”；“
怎么回事？我不在那条线附近，所以我想我已经完全打破了它。。。有什么想法吗？将表嵌套在
标记中应该不会造成问题。但是，现在无法帮助您生成表。也许我今晚回家后能想出点什么。