急呀,谁能解决,将得全50分,在线等待
<!-- #include file="dbconn.asp" -->
<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
%>
--------------------------------------------------------------------------
上面的程序:
<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则没有这个程序没有一点问题,请问问题出在哪里,如何修正?