focusload.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 52 行

ASP
52
字号
<%
dim rs,ADsName,ADsWidth,ADsHeight
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 * from liangjing_Ads where ViewFlag"&Language&" order by id desc",conn,1,1
if rs.bof and rs.eof then response.end
ADsName=rs("ADsName"&Language)
ADsWidth=rs("ADsWidth")
ADsHeight=Rs("ADsHeight")
rs.close
set rs=nothing  
%> 
<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
<script> 
function OpenWin(){
  window.open("FocusView.asp","<%=ADsName%>","width=<%=ADsWidth%>,height=<%=ADsHeight%>")
} 
function getCookie(Name){
  var search = Name + "=" 
  var returnvalue= ""; 
  if (document.cookie.length > 0){ 
    offset = document.cookie.indexOf(search) 
    if (offset != -1) { 
      offset += search.length 
      end = document.cookie.indexOf(";", offset); 
      if (end == -1) {
        end = document.cookie.length; 
        returnvalue=unescape(document.cookie.substring(offset,end)) 
      } 
    } 
    return returnvalue; 
  } 
}
/*
function LoadPopup(){ 
  if (get_Cookie('popped')==''){ 
    OpenWin() 
    document.cookie="popped=yes" 
  } 
} 
*/
function LoadPopup(){ 
  OpenWin() 
} 
</script> 
</HEAD>
<BODY  onload="LoadPopup()">
</BODY>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?