ASP 弹出框问题

来源:百度知道 编辑:UC知道 时间:2024/06/17 10:06:31
要做一个鼠标点在关键字就弹出对应框出现问题:
缺少标识符
/jkjs/ceshi/checkkey1.asp, line 19, column 14
k1="<a href="../right.asp" onMouseOver="MM_openBrWindow(../right.asp,,)">"&keywords&"</a>"
-------------^
代码如下:
<!--#include file="../conn.asp" -->
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>

<%
dim ks,keywords,k_id,k1
function checkkey(text)
set ks=server.CreateObject("adodb.recordset")
sql="select * from classtree"
ks.open sql,conn,3,3
do while not ks.eof
keywords=trim(ks("keywords"))
k1="<a href="../right.asp" onMouseOver="MM_openBrWindow(../right.asp,,)">"&keywords&"</a>"
k_id=ks("id")
if

<%
dim ks,keywords,k_id,k1
function checkkey(text)
set ks=server.CreateObject("adodb.recordset")
sql="select * from classtree"
ks.open sql,conn,3,3
do while not ks.eof
keywords=trim(ks("keywords"))
k1="<a href=""#"" onclick=""MM_openBrWindow('../right.asp','','')"">"&keywords&"</a>"
k_id=ks("id")
if instr(text,keywords)>0 then
checkkey=replace(text,keywords,k1)
text=checkkey
else
checkkey=text
end if
ks.movenext
loop
ks.close
end function
%>