多个弹出的广告窗口如何做到分别弹出?
我想读出所有flag为1的窗口,有几个弹几个,可现在的情况是,都是在一个窗口弹出的
Public sub popboard()
sqlpop = "Select * from Board where flag=1 order by Addtime asc"
set rspop = conn.execute(sqlpop)
while not rspop.eof
response.write"<script language='javascript'>"&_
"window.open ('popboard.asp?id="&rspop(0)&"', 'newwindow', 'height=200, width=300, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')"&_
"</script>"
rspop.movenext
wend
rspop.close : set rspop = nothing
end sub
popboard.asp
<%
set Rs=conn.execute("Select title,Content,Addtime From [Board] where BoardID='"&request("id")&"'")
Response.write "<table width='100%' align='center' border='0' cellpadding='0' cellspacing='0'>"
IF Rs.eof then
response.write"<tr><td align='center' height='30'>暂无公告</td></tr>"
else
Response.write"<tr><td height='30' align='center'><a href='Update.asp?BoardID="&Rs(0)&"' target='blank'><font color='#1170D9'>"&Rs(0)&"</font></a></td></tr>"&_
"<tr><td valign='top'>"
response.write replace(replace(Left(Rs(1),150),chr(10),"<br>"),chr(13),"")&"<font color='#7B7B7B'>("&right(00&Datepart("yyyy",Rs(2)),2)&"-"&Right(00&Datepart("m",Rs(2)),2)&"-"&Right(00&Datepart("D",Rs(2)),2)&")</font>"
Response.write "</td></tr>"
end if
Rs.Close()
Set Rs=Nothing
%>
问题点数:10、回复次数:3Top
1 楼net_lover(【孟子E章】)回复于 2004-12-01 20:59:21 得分 6
response.write"<script language='javascript'>"&_
"window.open ('popboard.asp?id="&rspop(0)&"', 'newwindow"+ 生成不同的随机数 +"', 'height=200, width=300, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')"&_
"</script>"
Top
2 楼dongua(苍蝇皮)回复于 2004-12-01 21:00:24 得分 4
newwindow 用不同的名字就好了嘛。Top
3 楼yanboneck(小小菜)回复于 2004-12-01 21:06:06 得分 0
newwindow是什么意思啊?Top




