VBscript中的showModalDialog问题,急呀,在这里我再出50分求解
<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("database/board.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
conn.Open Provider&Path
%>
<title>公告板</title>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2">
<tr height="25">
<td valign="center" class="a1" align="middle" width="52%">公告主题</td>
</tr>
<%
sql="select * from board"
set rst=conn.execute(sql)
If Not rst.EOF Then rst.MoveFirst
While Not rst.EOF
%>
<tr>
<td colspan="7" height="2" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="47%" height="20" align="center" valign="middle" class="a4"><a href="#" onClick="openwin(<%=rst("Id")%>)"><%=rst("board_title")%></a></td>
</tr>
<%
rst.MoveNext
Wend
%>
</table>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub openwin(ID)
msgbox ID
window.showModalDialog("displayboard.asp",ID,"dialogHeight: 300px; dialogWidth: 500px; dialogTop: 150px; dialogLeft: 200px; edge: Raised; center: No; help: No; resizable: No; status: No;")
End Sub
-->
</SCRIPT>
<%
rst.Close
conn.Close
%>
-----------------------
下面是数据库结构:
字段名称 数据类型
Id 自动编号
board_title 文本
board_body 备注
bumen 文本
write_datetime 日期/时间
board_user 文本
---------------------------------------------------------
上面的程序:
<SCRIPT LANGUAGE="VBScript">
<!--
Sub openwin(ID)
'msgbox ID
window.showModalDialog("displayboard.asp",ID,"dialogHeight: 300px; dialogWidth: 500px; dialogTop: 150px; dialogLeft: 200px; edge: Raised; center: No; help: No; resizable: No; status: No;")
End Sub
-->
</SCRIPT>
错在哪里?如果将window.show.....屏蔽后,打开msgbox则没有这个程序没有一点问题,请问问题出在哪里,如何修正?