<SCRIPT> <!-- if (window != top) top.location.href = location.href; self.resizeTo(835,618); //--> </SCRIPT> 这是控制自身窗口的大小,那如何让它不显示地址栏和工具栏?
弹出的是什么啊怎么加呢\\ Unit_View.asp 就在着地方加什么代码呢 Function takeAnnounce(isMove,MoveDirect,MoveWidth,MoveHeight) IF Application("Cache_TakeAnnounce")<>"" and ZD_OpenCache="true" Then takeAnnounce = Application("Cache_TakeAnnounce") Exit Function End IF set rs = server.createObject("adodb.recordset") sql = "select * from ZD_Announce where isShow=true order by addtime desc" rs.open sql,conn,1,1 ZD_AccessTimes = ZD_AccessTimes + 1 IF rs.eof Then takeAnnounce= "暂时没有公告" Else IF isMove=true Then takeAnnounce="<marquee onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 width=" &MoveWidth& " height=" &MoveHeight& " scrollDelay=60 direction=""" &MoveDirect& """>" & vcCrlf i=1 do while not (rs.eof) takeAnnounce = takeAnnounce & "<img src=""images/dot2.gif""> " & "<a href=""Unit_View.asp?id="&rs("id")&""" target=""_Blank""><u>"& rs("title") & "</u></a><br><br>" rs.movenext i = i + 1 Loop takeAnnounce = takeAnnounce & "</marquee>" Else i=1 do while not (rs.eof) takeAnnounce = takeAnnounce & "<img src=""images/dot2.gif""> " & "<a href=""Unit_View.asp?id="&rs("id")&""" target=""_Blank""><u>"& rs("title") & "</u></a><br><br>" rs.movenext i = i + 1 Loop End IF End IF rs.close set rs = nothing Call updateCache("Cache_TakeAnnounce",takeAnnounce) End Function