常见的javascript

最新推荐文章于 2021-06-22 22:23:08 发布

thb28

最新推荐文章于 2021-06-22 22:23:08 发布

阅读量1.3k

点赞数

分类专栏： asp 文章标签： javascript button input hyperlink function html

本文链接：https://blog.csdn.net/thb28/article/details/80420

版权

asp 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

【1、最基本的弹出窗口代码】
其实代码非常简单：

因为这是一段javascripts代码，所以它们应该放在<SCRIPT LANGUAGE="javas
cript">标签和</script>之间。是对一些版本低的浏览器起作用，在
这些老浏览器中不会将标签中的代码作为文本显示出来。要养成这个好习惯啊。
　window.open ('page.html') 用于控制弹出新的窗口page.html，如果page.ht
ml不与主窗口在同一路径下，前面应写明路径，绝对路径(http://和相对路径(
../)均可。
　用单引号和双引号都可以，只是不要混用。
　这一段代码可以加入HTML的任意位置，<head>和</head>之间可以，<body>间<
/body>也可以，越前越早执行，尤其是页面代码长，又想使页面早点弹出就尽量
往前放。

　【2、经过设置后的弹出窗口】
　下面再说一说弹出窗口的设置。只要再往上面的代码中加一点东西就可以了。
我们来定制这个弹出的窗口的外观，尺寸大小，弹出的位置以适应该页面的具体
情况。

　参数解释：

<SCRIPT LANGUAGE="javascript"> js脚本开始；
window.open 弹出新窗口的命令；
'page.html' 弹出窗口的文件名；
'newwindow' 弹出窗口的名字（不是文件名），非必须，可用空''代替；
height=100 窗口高度；
width=400 窗口宽度；
top=0 窗口距离屏幕上方的象素值；
left=0 窗口距离屏幕左侧的象素值；
toolbar=no 是否显示工具栏，yes为显示；
menubar，scrollbars 表示菜单栏和滚动栏。
resizable=no 是否允许改变窗口大小，yes为允许；
location=no 是否显示地址栏，yes为允许；
status=no 是否显示状态栏内的信息（通常是文件已经打开），yes为允许；
</SCRIPT> js脚本结束

【3、用函数控制弹出窗口】
　下面是一个完整的代码。
<html>
<head>
<script LANGUAGE="JavaScript">

</script>
</head>
<body οnlοad="openwin()">
...任意的页面内容...
</body>
</html>

　这里定义了一个函数openwin(),函数内容就是打开一个窗口。在调用它之前没
有任何用途。
怎么调用呢？

　方法一：<body οnlοad="openwin()"> 浏览器读页面时弹出窗口；
　方法二：<body οnunlοad="openwin()"> 浏览器离开页面时弹出窗口；
　方法三：用一个连接调用：
<a href="#" οnclick="openwin()">打开一个窗口</a>
注意：使用的“#”是虚连接。
　方法四：用一个按钮调用：
<input type="button" οnclick="openwin()" value="打开窗口">

　【4、同时弹出2个窗口】

对源代码稍微改动一下：
<script LANGUAGE="JavaScript">

</script>

　为避免弹出的2个窗口覆盖，用top和left控制一下弹出的位置不要相互覆盖即
可。最后用上面说过的四种方法调用即可。
注意：2个窗口的name(newwindows和newwindow2)不要相同，或者干脆全部为空。
OK？

　【5、主窗口打开文件1.htm，同时弹出小窗口page.html】

　如下代码加入主窗口<head>区：

　【6、弹出的窗口之定时关闭控制】

　下面我们再对弹出的窗口进行一些控制，效果就更好了。如果我们再将一小段
代码加入弹出的页面(注意是加入到page.html的HTML中，可不是主页面中，否则
...)，让它10秒后自动关闭是不是更酷了？

　首先，将如下代码加入page.html文件的<head>区：
<script language="JavaScript">

function closeit() {

setTimeout("self.close()",10000) //毫秒

}

</script>
　然后，再用<body οnlοad="closeit()"> 这一句话代替page.html中原有的<BO
DY>这一句就可以了。(这一句话千万不要忘记写啊！这一句的作用是调用关闭窗
口的代码，10秒钟后就自行关闭该窗口。)

　【7、在弹出窗口中加上一个关闭按钮】
<FORM>
<INPUT TYPE='BUTTON' VALUE='关闭' onClick='window.close()'>
</FORM>
呵呵，现在更加完美了！

　【8、内包含的弹出窗口-一个页面两个窗口】

上面的例子都包含两个窗口，一个是主窗口，另一个是弹出的小窗口。
通过下面的例子，你可以在一个页面内完成上面的效果。

<html>
<head>
<SCRIPT LANGUAGE="JavaScript">
function openwin()
{
OpenWindow=window.open("", "newwin", "height=250, width=250,toolbar=no
,scrollbars="+scroll+",menubar=no");
//写成一行
OpenWindow.document.write("<TITLE>例子</TITLE>")
OpenWindow.document.write("<BODY BGCOLOR=#ffffff>")
OpenWindow.document.write("<h1>Hello!</h1>")
OpenWindow.document.write("New window opened!")
OpenWindow.document.write("</BODY>")
OpenWindow.document.write("</HTML>")
OpenWindow.document.close()
}
</SCRIPT>
</head>
<body>
<a href="#" οnclick="openwin()">打开一个窗口</a>
<input type="button" οnclick="openwin()" value="打开窗口">
</body>
</html>

　看看 OpenWindow.document.write()里面的代码不就是标准的HTML吗？只要按
照格式写更多的行即可。千万注意多一个标签或少一个标签就会出现错误。记得
用OpenWindow.document.close()结束啊。

　【9、终极应用--弹出的窗口之Cookie控制】

　回想一下，上面的弹出窗口虽然酷，但是有一点小毛病(沉浸在喜悦之中，一定
没有发现吧？)比如你将上面的脚本放在一个需要频繁经过的页面里(例如首页)，
那么每次刷新这个页面，窗口都会弹出一次，是不是非常烦人？:-(
　有解决的办法吗？Yes! ;-) Follow me.
　我们使用cookie来控制一下就可以了。
　首先，将如下代码加入主页面HTML的<HEAD>区：

function loadpopup(){
if (get_cookie('popped')==''){
openwin()
document.cookie="popped=yes"
}
}

</script>

　然后，用<body οnlοad="loadpopup()">（注意不是openwin而是loadpop啊！）
替换主页面中原有的<BODY>这一句即可。你可以试着刷新一下这个页面或重新进
入该页面，窗口再也不会弹出了。真正的Pop-Only-Once！

Access数据库
●     数据库名：tree
●     表名：tree
●     字段名的设计
ID   文本类型编码
Name  文本类型节点文字
HyperLink 文本类型相关信息
---------------------------------------------------
   ID        |   Name         |     HyperLink
---------------------------------------------------
1_1_1       | ASP            | http://www.csdn.net
---------------------------------------------------
1_1_1_1     | DHTML          | http://www.csdn.net
---------------------------------------------------
1_2_2       | JAVA           | http://www.csdn.net
---------------------------------------------------
1_1_2       | JavaScript     | http://www.csdn.net
---------------------------------------------------
1_2_1       | VB             | http://www.csdn.net
---------------------------------------------------
1_2_1_2     | VBA            | http://www.csdn.net
---------------------------------------------------
1_1         | WEB开发        | http://www.csdn.net
---------------------------------------------------
1           | WWW.CSDN.net   | http://www.csdn.net
---------------------------------------------------
1_2_1_1     | 基础类         | http://www.csdn.net
---------------------------------------------------
1_3_1       | 基础类         | http://www.csdn.net
---------------------------------------------------
1_2         | 开发语言       | http://www.csdn.net
---------------------------------------------------
1_1_1_2     | 内建对象       | http://www.csdn.net
---------------------------------------------------
1_3         | 数据库         | http://www.csdn.net
----------------------------------------------------
文件：nolimited.asp经简单测试好用！代码如下：
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp树的研究</title>
</head>
<style type="text/css">

</style>
<body bgcolor="DEE3F7">
<%
      dim cn,rs,SQL ,Para,NumChild
      set cn=server.CreateObject("ADODB.connection")
      set rs=server.createobject("ADODB.recordset")
      set rs1=server.createobject("ADODB.recordset")
      cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tree.mdb")
      SQL="Select * from tree order by ID"
      rs.open SQL,cn,3,2
do while not rs.EOF
SQL="Select ID from tree where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by ID"
Para=rs("ID") & "|"
NumChild=0
rs1.open SQL,cn, 3,2
NumChild=rs1.RecordCount
  do while not rs1.EOF
   Para =Para & rs1("ID") & "|"
  rs1.MoveNext
  loop
  Para=cstr(trim(left(Para,len(Para)-1)))
rs1.Close
%>
<table id="T<%=rs("ID")%>"
  border=1
  cellpadding=0
  cellspacing=0
  bordercolor="#DEE3F7"
  class="aa"
  abbr="<%=Para%>"
  summary=<%=checkid(rs("ID"))%>
  style="cursor:hand"
  onClick="vbs:subtree '<%=Para%>'" >

<tr>
  <td width="<%=17+checkid(rs("ID"))*20%>"
  height="20" align="right">
    <table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7">
        <tr>

          <td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td>
      </tr>
    </table>
    </td>

    <td  height="20"
   nowrap
   bordercolor="#FFFFFF"
   onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
   onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'"
   title="<%=rs("HyperLink")%>">
      <%=rs("Name")%></td>
</tr>
</table>

<%
rs.MoveNext
loop
rs.Close:set rs=nothing
cn.Close:set cn=nothing
function checkid(x)
dim Tempnum
Tempnum=0
for i=1 to len(x)
  if mid(x,i,1)="_" then
   Tempnum=Tempnum+1
  end if
next
checkid=Tempnum
end function

%>
<script language=VBS>
  sub subtree(Client_para)
  if instr(Client_para,"|")=0 then exit sub
  Myarray=split(Client_para,"|")
   Mytext=eval("R" & Myarray(0) & ".innertext")
   select case Mytext
   case "+"
    document.all.item("R" & Myarray(0)).innertext="-"
    for i=1 to ubound(Myarray)
     if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
      document.all.item("T" & Myarray(i)).style.display="block"
     end if
     if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
      document.all.item("T" & Myarray(i)).style.display="none"
     end if
    next
   case "-"
    document.all.item("R" & Myarray(0)).innertext="+"
    for i=1 to ubound(Myarray)
     if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
      document.all.item("T" & Myarray(i)).style.display="none"
      if eval("R" & Myarray(i) & ".innertext")="-" then
       document.all.item("R" & Myarray(i)).innertext="+"
      end if
     end if
    next
   end select
   set Myarray=nothing
  end sub

  Sub document_onselectstart
   document.selection.clear
  End Sub

  if isobject(eval("T1")) then
   subtree document.all("T1").abbr
   subtree document.all("T1").abbr
  end if
</script>