发布新日志

  • 把网站设为灰色的方法

    2008-06-22 10:57:19

    根据国务院文件,5.19-5.21为全国哀悼日,在此期间,全国和各驻外机构下半旗志哀,停止公共娱乐活动,外交部和我国驻外使领馆设立吊唁簿。5月19日14时28分起,全国人民默哀3分钟,届时汽车、火车、舰船鸣笛,防空警报鸣响。 Admin5与很多草根网站都将整站换成素装。并建议中国所有站点更换为素装。 国务院决定5月19日至21日为全国哀悼日  http://www.admin5.com/article/20080518/85035.shtml  
    为方便站点哀悼,特提供css滤镜代码,以表哀悼。以下为全站CSS代码。 

    html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }  

    使用方法:这段代码可以变网页为黑白,将代码加到CSS最顶端就可以实现素装。建议全国站长动起来。为在地震中遇难的同胞哀悼。 

    如果网站没有使用CSS,可以在网页/模板的HTML代码  <head>和  </head> 之间插入: 

    <style> 
    html{filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1);} 
    </style>  

    有一些站长的网站可能使用这个css 不能生效,是因为网站没有使用最新的网页标准协议  

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
    <html xmlns="http://www.w3.org/1999/xhtml">  

    请将网页最头部的  <html>替换为以上代码。 

    有一些网站FLASH动画的颜色不能被CSS滤镜控制,可以在FLASH代码的  <object …>和  </object>之间插入: 

    <param value="false" name="menu"/> 
    <param value="opaque" name="wmode"/>  

    最简单的把页面变成灰色的代码是在head 之间加 
    <style type="text/css"> 

    html { 
        FILTER: gray 

    </style>  

    一般的discuz论坛在 你的控制css 文件下修改 
    /images/header/header.css 这个文件,点源码即可看到 参考 http://bbs.admin5.com  

    另在哀悼日或遇难的新闻,所有专题和主题 图片上不能使用红色标题。  

    文章来自: 站长网(www.admin5.com) 详文参考:http://www.admin5.com/article/20080519/85073.shtml
  • ASP数据库语法总结

    2007-06-09 08:44:31

    <一>。数据库的连接方法:

    1.Access数据库的DSN-less连接方法:

    set adocon=Server.Createobject("adodb.connection")
    wf^"hf7BK65703adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _51Testing软件测试网;ev6|3p#{]x
    Server.MapPath("数据库所在路径")

    2.Access OLE DB连接方法:

    set adocon=Server.Createobject("adodb.connection")51Testing软件测试网'V&M9z-X1e,q8^ Z
    adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
    ~7ZYXa65703"Data Source=" & Server.MapPath("数据库所在路径")

    3.SQL server连接方法:

    set adocon=server.createobject("adodb.recordset")
    hn$\8rwd"H:_^/y65703adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
    r0m(tgH#\q65703"database=数据库名;"

    4.SQL server OLE DB连接方法:

    set adocon=Server.Createobject("adodb.connection")
    o[caC*}65703adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _51Testing软件测试网9C"O1Z1d kUJg F6n$y
    "user ID=***;Password=***;"& _51Testing软件测试网2XIlF6m5h(M#w6R$F'N
    "inital Catalog=数据库名"

    5.Oracle 连接方法:

    set adocon=Server.Createobject("adodb.connection")
    .k,I-alLL#D2G65703adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

    6.Oracle OLE DB 连接方法:

    set adocon=Server.Createobject("adodb.connection")
    Qp/z}4L4u9o4m65703adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

    7.dBase 连接方法:

    set adocon=Server.Createobject("adodb.connection")
    K5B \7M&ex s9z6K65703adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

    8.mySQL 连接方法:

    set adocon=Server.Createobject("adodb.connection")51Testing软件测试网6q Qt S zR&r1F g'ix
    adocon.open"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"

    9.Visual Foxpro 连接方法:

    set adocon=Server.Createobject("adodb.connection")
    :fc$w1nDq[n65703adocon.open"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

    10.MS text 连接方法:

    set adocon=Server.Createobject("adodb.connection")
    .K[C9@6^|65703adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_
    @rv8E2y65703"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

    11.MS text OLE DB 连接方法:

    set adocon=Server.Createobject("adodb.connection")
    8x}1m5oF_ft2P3U|65703adocon.open"Provider=microsof.jet.oledb.4.0;data source=your_path;"&_
    Wzi;n'N/J1d7K/v65703"Extended Properties'text;FMT=Delimited'"

    <二>。常用的四种SQL命令:

    1.查询数据记录(Select)
    5bD%o$c2a65703语法:Select 字段串行 From table Where 字段=内容
    +t&g Fa4^4J65703例子:想从book表中找出作者为"cancer"的所有记录,SQL语句便如下:
    y+` DQ+vt65703select * from book where author=’cancer’
    $t6D4N3NC65703"*"是取出book表所有的字段,如查询的字段值为数字,则其后的"内容"便无须加上单引号,

    如是日期,则在Access中用(#)包括,而在SQL server中则用(’)包括,
    du|m7C5Y65703如:

    select * from book where id=1
    "Y'EkmRX5R6bIu E65703select * from book where pub_date=#2002-1-7# (Access)51Testing软件测试网:~V6T6hl0Z7\
    select * from book where pub_date=’2002-1-7’ (SQL Server)

    提示:51Testing软件测试网1w(t/f1G3V#d"t)Yp
    日期函数to_date不是标准sql文,不是所有的数据库适用,所以大家在使用的时候要参考数据库具体语法

    另外如果是查询传入的变量,则如下:

    strau=request.form("author")
    *~M*Vd1gycK0C,m65703strsql="select * from book where author=’"&strau&"’"

    如果查询的是数字,则:

    intID=request.form("id")51Testing软件测试网/?G/w{;H8LV3LA
    strsql="select * from book where id="&intID

    在很多数据库中,如:oracle,上面的语句是可以写成:
    y/o&G8Mt2S gFK.xt9|65703strsql="select * from book where id='"&intID&"'"的。51Testing软件测试网U,tV%{(uIk$Q2l8aw
    但是字符型一定不能按照数字格式写,需要注意。

    2.添加记录(Insert)
    !Rt'Q9a.D9r.UPp?pD65703语法:Insert into table(field1,field2,....) Values (value1,value2,....)51Testing软件测试网#W(F bk$C,fp
    例子:添加一作者是"cancer"的记录入book表:
    "L fj7PRX8P@M65703insert into book (bookno,author,bookname) values (’CF001’,’cancer’,’Cancer无组件上传程序’)51Testing软件测试网tp [(T/s3J m[
    同样,如果用到变量就如下:

    strno=request.form("bookno")
    ps7Pj2i/Wy4}3s65703strau=request.form("author")
    nx~N)m\Ha9V65703strname=request.form("bookname")
    W#mmpXSc65703strsql="insert into book (bookno,author,bookname) values (’"&strno&"’,’"&strau&"’,’"&strname&"’)"

    3.用Recordset对象的Addnew插入数据的方法:51Testing软件测试网1y(xv Y9lgf)c*A?
    语法:

    rs.addnew
    3yC)j#F NUFt65703rs("field1").value=value151Testing软件测试网U.?W ~-h8p4i1b
    rs("field2").value=value251Testing软件测试网2}nNY*CjY
    ...
    :}t:U"go)P,^u Q65703rs.update

    4.修改数据记录(Update)51Testing软件测试网(N]is j+l8A2U
    语法:update table set field1=value1,field2=value2,...where fieldx=valuex51Testing软件测试网|#Po+r"Xq"ADf+c%Q
    例子:update book set author=’babycrazy’ where bookno=’CF001’
    N i [UZz1ntM Q'S65703如果用到变量就如下:

    strno=request.form("bookno")51Testing软件测试网%G2\e Hb Q/G
    strau=request.form("author")51Testing软件测试网`0@g _ ^B ~d
    strsql="update book set author=’"&strau&"’ where bookno=’"&strno"’"

    5.Recordset对象的Update方法:51Testing软件测试网f+`M;Hc(K|f R-V nu
    语法:

    rs("field1").value=value1
    tP.mH zM|/l65703rs("field2").value=value2
    $`l3ma$E65703...
    -\*L}s#U#W+zPZ,w65703rs.update

    注意:使用语法3和语法5的时候,一定要注意字段的类型(尤其是日期型)一致,否则出错的几率非常的高。

    51Testing软件测试网k9r7u\1`#[ zHL
    例子:

    strno=request.form("bookno")
    c8Aez/c U65703strau=request.form("author")
    4jVi ?p hl65703set adocon=server.createobject("adodb.connection")
    +~p;B2B f3n65703adocon.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _51Testing软件测试网 w0FOb\5P}R
    Server.Mappath=("/cancer/cancer.mdb")51Testing软件测试网;U b(wGb|GC(r
    strsql="select * from book where bookno=’"&strno&"’"51Testing软件测试网G CNp3~
    set rs=server.createobject("adodb.recordset")
    DpyqEx([j65703rs.open strsql,adconn,1,351Testing软件测试网N*?~5g/j[
    if not rs.eof then ’如果有此记录的话
    9h2~+v%]P/P65703rs("author").value=strau51Testing软件测试网.v9PQP@4W/z)K v
    rs.update
    *B1g4L'z)V65703end if
    2]7X x&IF%Ykbj65703rs.close51Testing软件测试网o Eq| DbX*|&s*T
    set rs=nothing51Testing软件测试网$Rb/kO[ g
    adocon.close51Testing软件测试网6MQS"A0RK
    set adocon=nothing

    6.删除一条记录(Delete)
    ,Bg-QMP65703语法:Delete table where field=value
    j Q7{U2O1wY65703例子:删除book表中作者是cancer的记录

    delete book where author=’cancer’

    (注意:如果book表中author字段的值为cancer的记录有多条,将会删除所有author为cancer的记录)

     

  • 在asp中调用存储过程的几种方法

    2007-06-09 08:41:18

    2007-05-26 10:03:50 / 个人分类:ASP

    1 这也是最简单的方法,两个输入参数,无返回值:51Testing软件测试网$P(hF G+RWUC^
    set connection = server.createobject("adodb.connection")51Testing软件测试网L&s8]$JST y
    connection.open someDSN 51Testing软件测试网c7oAN4\g]p
    Connection.Execute "procname varvalue1, varvalue2"

    '将所有对象清为nothing,释放资源51Testing软件测试网"U"NJntq Fw
    connection.close51Testing软件测试网~dHAt*oa9g&X
    set connection = nothing

    51Testing软件测试网 _R)H$p ^Z i
    2 如果要返回 Recordset 集:51Testing软件测试网-R-vB7s!k#vf
    set connection = server.createobject("adodb.connection")51Testing软件测试网 MG bk;`:^
    connection.open someDSN
    aWIl;G#ll65703set rs = server.createobject("adodb.recordset")
    '{+z-ul4U,k*[/C6U65703rs.Open "Exec procname varvalue1, varvalue2",connection

    '将所有对象清为nothing,释放资源51Testing软件测试网1y$C;L3~7syI z`-h$k Y
    rs.close51Testing软件测试网#E3R@C1n+W;]-U
    connection.close51Testing软件测试网\](`#M W4|MwJ-J
    set rs = nothing
    MV@d9kz65703set connection = nothing

    51Testing软件测试网 SG$|aBC:T5Ru,r
    3 以上两种方法都不能有返回值,(Recordset除外),如果要得到返回值,需要用Command的方法。51Testing软件测试网#fy^,J+i
    首先说明,返回值有两种。一种是在存储过程中直接return一个值,就象C和VB的函数返回值那样;另一种是可以返回多个值,存储这些值的变量名称需要在调用参数中先行指定。
    F(b/rwz8kWuG)r65703这个例子要处理多种参数,输入参数,输出参数,返回记录集以及一个直接返回值(够全了吧?)51Testing软件测试网4Zn9u{6K.X eB
    存储过程如下:

    use pubs51Testing软件测试网7ASJJw}
    GO

    -- 建立存储过程
    dS}%IL4BHTf65703create procedure sp_PubsTest

    -- 定义三个参数变量,注意第三个,特别标记是用于输出
    ^C"b6d#I4V~P65703@au_lname varchar (20), 51Testing软件测试网8{o_t-zB&Z
    @intID int,
    ,Z |ox(B"f0Qo'w7I3|65703@intIDOut int OUTPUT

    AS

    SELECT @intIDOut = @intID + 1

    SELECT * 51Testing软件测试网/Go @$Qr7~
    FROM authors 51Testing软件测试网V\Kb-\JP[J-WU
    WHERE au_lname LIKE @au_lname + '%'

    --直接返回一个值51Testing软件测试网8Gw8O:|ST];b:Q T
    RETURN @intID + 2

    51Testing软件测试网8W0E:eR^D8qhB^
    调用该存储过程的asp程序如下:

    <%@ Language=VBscrīpt %>
    %ml8y@^%[c!U J65703<%51Testing软件测试网,{!`3bz+oh
    Dim CmdSP
    s Y:H~5E7`+o65703Dim adoRS51Testing软件测试网5Z vpRJZ6rP
    Dim adCmdSPStoredProc51Testing软件测试网k| Ql2Ugq.K8vE#k
    Dim adParamReturnValue51Testing软件测试网:I SY8M?({+c7A
    Dim adParaminput51Testing软件测试网]!T/B+u#} x'b)CD A~
    Dim adParamOutput
    0b)agr Ok j,F65703Dim adInteger51Testing软件测试网w(]$^b$U
    Dim iVal
    fl$zj!u%v3|X65703Dim oVal
    0Y0V0?8F7J/U$aU65703Dim adoField
    3Q~7qr E(~ T l65703Dim adVarChar

    ‘这些值在 VB 中是预定义常量,可以直接调用,但在 VBscrīpt 中没有预定义
    ~"c!x4DN"}G%H(p65703adCmdSPStoredProc = 451Testing软件测试网,X9\n g:m7pJ+O6G b5W3L
    adParamReturnValue = 451Testing软件测试网 C!ihHCp
    adParaminput = 151Testing软件测试网8U;t/lZ6~N1w)hjw
    adParamOutput = 251Testing软件测试网9mecq[!F
    adInteger = 351Testing软件测试网hw}uZ"\X9}fk
    adVarChar = 200

    iVal = 551Testing软件测试网-L,h(bIp:eJi
    oVal = 3

    '建一个command对象51Testing软件测试网5c$CS&BE,j ` rd
    set CmdSP = Server.CreateObject("ADODB.Command")

    '建立连结51Testing软件测试网8|:z:u lKQ ?
    CmdSP.ActiveConnection = "Driver={SQL Server};server=(local);Uid=sa;Pwd=;Database=Pubs"

    '定义command 对象调用名称 51Testing软件测试网 va B+z2V J VG7D0{
    CmdSP.CommandText = "sp_PubsTest"

    '设置command调用类型是存储过程 (adCmdSPStoredProc = 4)51Testing软件测试网 Qxkn+o,[iO
    CmdSP.CommandType = adCmdSPStoredProc

    '往command 对象中加参数
    $c#`o'O,u3Yw65703'定义存储过程有直接返回值,并且是个整数,省缺值是4
    bjo;EOo&W65703CmdSP.Parameters.Append CmdSP.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 4)
    0D{0h!V~0f!LR65703'定义一个字符型输入参数51Testing软件测试网-b AZN]:|u4J
    CmdSP.Parameters.Append CmdSP.CreateParameter("@au_lname", adVarChar, adParaminput, 20, "M")
    [5vWB:Y#@&]%S"E.j|65703'定义一个整型输入参数51Testing软件测试网/ctuz:q[RN$i)y{0[/m
    CmdSP.Parameters.Append CmdSP.CreateParameter("@intID", adInteger, adParamInput, , iVal)
    +U7`crP+Eb65703'定义一个整型输出参数51Testing软件测试网"P$j0Pg \!\*hc
    CmdSP.Parameters.Append CmdSP.CreateParameter("@intIDOut", adInteger, adParamOutput, oVal)

    '运行存储过程,并得到返回记录集51Testing软件测试网bKw x~ ?:YU
    Set adoRS = CmdSP.Execute

    51Testing软件测试网$py,\-u&Q
    '把每个记录打印出来,其中的字段是虚拟的,可以不用管51Testing软件测试网[5CXKT,xaD
    While Not adoRS.EOF

    for each adoField in adoRS.Fields51Testing软件测试网v%g Yd FRJ)a gJE
    Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF51Testing软件测试网 @w!Zv.NCTr}
    Next51Testing软件测试网 Ky;y'?'O
    Response.Write "<br>"51Testing软件测试网)b/y{v"I A)|`
    adoRS.MoveNext51Testing软件测试网6os0m]-z7M P$gz
    Wend

    '打印两个输出值:51Testing软件测试网S'ruN+A Y
    Response.Write "<p>@intIDOut = “ & CmdSP.Parameters("@intIDOut").Value & "</p>"51Testing软件测试网{w@@s4D9|L ~
    Response.Write "<p>Return value = " & CmdSP.Parameters("RETURN_VALUE").Value & "</p>"


    %GI$gQ4t65703'大扫除51Testing软件测试网H0|6c uPIve
    Set adoRS = nothing
    "j-yKYv`{Cd.]f65703Set CmdSP.ActiveConnection = nothing
    lFLdR*Y7H65703Set CmdSP = nothing51Testing软件测试网 l'ou C2tz0WU!_
    %>

  • 什么是javascript

    2007-06-09 08:35:44

    Javascrīpt是一种基于对象(Object)和事件驱动(Event Driven)并具有安全性能的脚本语言。使用它的目的是与HTML超文本标记语言、Java 脚本语言(Java小程序)一起实现在一个Web页面中连接多个对象,与Web客户交互作用。从而可以开发客户端的应用程序 等。它是通过嵌入或调入到标准的HTML语言中实现的。它的出现弥补了HTML语言的缺陷,它是Java与HTML折衷的选择,具有以下几个基本特点:

    1、是一种脚本编写语言
    Javascrīpt是一种脚本语言,它采用小程序段的方式实现编程。像其它脚本语言一样,Javascrīpt同样已是一种解释性语言,它提供了一个易的开发过程。它的基本结构形式与C、C++、VB、Delphi十分类似。但它不像这些语言一样,需要先编译,而是在程序运行过程中被逐行地解释。它与HTML标识结合在一起,从而方便用户的使用操作。
    2、基于对象的语言。
    Javascrīpt是一种基于对象的语言,同时以可以看作一种面向对象的。这意味着它能运用自己已经创建的对象。因此,许多功能可以来自于脚本环境中对象的方法与脚本的相互作用。
    3、简单性
    Javascrīpt的简单性主要体现在:首先它是一种基于Java基本语句和控制流之上的简单而紧凑的设计, 从而对于学习Java是一种非常好的过渡。其次它的变量类型是采用弱类型,并未使用严格的数据类型。
    4、安全性
    Javascrīpt是一种安全性语言,它不允许访问本地的硬盘,并不能将数据存入到服务器上,不允许对网络文档进行修改和删除,只能通过浏览器实现信息浏览或动态交互。从而有效地防止数据的丢失。
    5、动态性的
    Javascrīpt是动态的,它可以直接对用户或客户输入做出响应,无须经过Web服务程序。它对用户的反映响应,是采用以事件驱动的方式进行的。所谓事件驱动,就是指在主页(Home Page)中执行了某种操作所产生的动作,就称为“事件”(Event)。比如按下鼠标、移动窗口、选择菜单等都可以视为事件。当事件发生后,可能会引起相应的事件响应。
    6、跨平台性
    Javascrīpt是依赖于浏览器本身,与操作环境无关,只要能运行浏览器的计算机,并支持Javascrīpt的浏览器就可正确执行。从而实现了“编写一次,走遍天下”的梦想。实际上Javascrīpt最杰出之处在于可以用很小的程序做大量的事。无须有高性能的电脑,软件仅需一个字处理软件及一浏览器,无须WEB服务器通道,通过自己的电脑即可完成所有的事情。

    综合所述Javascrīpt是一种新的描述语言,它可以被嵌入到HTML的文件之中。Javascrīpt语言可以做到回应使用者的需求事件(如:form的输入),而不用任何的网路来回传输资料,所以当一位使用者输入一项资料时,它不用经过传给伺服端(server)处理,再传回来的过程,而直接可以被客户端 (client) 的应用程式所处理。


  • 网页常用小技巧

    2007-06-09 08:34:06

    2007-06-01 14:34:46 / 个人分类:javascrīpt

    1.oncontextmenu="window.event.returnValue=false"将彻底屏蔽鼠标右键51Testing软件测试网{ u JDA7MQ
      <table border ōncontextmenu=return(false)><td>no</table>可用于Table

    2.<body ōnselectstart="return false">取消选取、防止复制

    3.onpaste="return false"不准粘贴

    4.oncopy="return false;" ōncut="return false;"防止复制

    5.<link rel="Shortcut Icon" href="favicion.ico">IE地址栏前换成自己的图标

    6.<link rel="Bookmark" href="favicion.ico">可以在收藏夹中显示出你的图标

    7.<input style="ime-mode:disabled">关闭输入法

    8.永远都会带着框架
    .C"rO&j ]EB65703<scrīpt language="Javascrīpt">51Testing软件测试网)})g#h$T'Y \ S A4]z
    <!--51Testing软件测试网u`!q7s Vu&[f
    if(window==top)top.location.href="frams.htm";//frames.htm为框架网页51Testing软件测试网 L g;ek^Rv`M
    //--></scrīpt>

    9.防止被人frame
    %VQR.y5eDx7v"U#s65703<scrīpt language=javascrīpt>51Testing软件测试网r0wb,t2o.n9m$m
    <!--
    YT[ C _b5s.p!E;_65703if(top.location!=self.location)top.location=self.location;
    #N+h sg P CGU65703-->
    pW"hZ?f k"R65703</scrīpt>

    10.网页将不能被另存为51Testing软件测试网(}2bs `~ F
    <noscrīpt><iframe src=*.html><iframe></noscrīpt>

    11.<input type=button value=查看网页源代码 ōnclick="window.location="view-source:"+http://www.51.js.com/">

    12.删除时确认
    +O2B"dC,m4Rt9@65703<a href="javascrīpt:if(confirm("确实要删除吗?"))location="boos.asp?&areyou=删除&page=1"">删除</a>

    13. 取得控件的绝对位置51Testing软件测试网&ur7YlHqt
    //Javascrīpt
    3C3E&H2^[x"V%t65703<scrīpt language="Javascrīpt">
    Xjx}0f1i65703function getIE(e){51Testing软件测试网+_ wis$x/Pf4s?!l
    var t=e.offsetTop;
    v(I2a+RKf;k'd@@65703var l=e.offsetLeft;51Testing软件测试网q(g2H"|-z*CGF \
    while(e=e.offsetParent){
    o u$E4f5O65703t+=e.offsetTop;51Testing软件测试网*Z!L)w#H ZAR
    l+=e.offsetLeft;
    /v/},k&e}F ~5k r65703}
    T+yq.x0H5@.C(i:W%q65703alert("top="+t+"/nleft="+l);
    f#U ~z }Syc65703}51Testing软件测试网xbuH+_#j,a/I?
    </scrīpt>

    //VBscrīpt51Testing软件测试网7bPt.q|
    <scrīpt language="VBscrīpt"><!--
    B7M\|b/g:[y2x65703function getIE()
    6l)_ pw9S65703dim t,l,a,b
    x%_6KBX)|65703set a=document.all.img1
    3B0s9G EP-V65703t=document.all.img1.offsetTop51Testing软件测试网5A+o ~];tu5S
    l=document.all.img1.offsetLeft51Testing软件测试网*usw U~km
    while a.tagName<>"BODY"
    l ``SQ3A8nB65703set a = a.offsetParent51Testing软件测试网L e/Li Dhsd
    t=t+a.offsetTop
    1p#g*br2T![1M$T+D65703l=l+a.offsetLeft
    q-cJb0X y+LZ65703wend
    y} wwHk0DK65703msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"51Testing软件测试网)S YkY w }'bu6g$j
    end function
    /I c_-T,fxmI65703--></scrīpt>

    14. 光标是停在文本框文字的最后
    Be-zi7S0w3`65703<scrīpt language="javascrīpt">
    r/Z1h$X~t7hc65703function cc()
    3T&Bw9B g3K D#`5W)X"m },t65703{51Testing软件测试网,fJ~:OF2}eH
    var e = event.srcElement;
    ykU9B0~(a&{Z5B65703var r =e.createTextRange();51Testing软件测试网3?!CEB3g Hd"P*Y(g
    r.moveStart("character",e.value.length);
    %Hxwg#r`|:?gL6K65703r.collapse(true);51Testing软件测试网a2h}5Y9p3?n
    r.select();
    @-gW8`o*Wl65703}51Testing软件测试网3MTx {4^,o;X*o S.|
    </scrīpt>51Testing软件测试网;}W8fvb!Q2N
    <input type=text name=text1 value="123" ōnfocus="cc()">

    15. 判断上一页的来源
    -bN Qn Wd+b65703javascrīpt:
    K[H$ZIf}E&a65703document.referrer

    16. 最小化、最大化、关闭窗口51Testing软件测试网'A2k ]u`u
    <object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
    \ N#u'W%Y7[ r?CX%F-|65703<param name="Command" value="Minimize"></object>
    7h$s)o6K Pp/i N:q)X65703<object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
    $\[yj E,T!D65703<param name="Command" value="Maximize"></object>51Testing软件测试网 o8i*l m*d
    <OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
    P/p%`y5V8L(b65703<PARAM NAME="Command" VALUE="Close"></OBJECT>

    <input type=button value=最小化 ōnclick=hh1.Click()>
    _[,X7k6f F/\65703<input type=button value=最大化 ōnclick=hh2.Click()>51Testing软件测试网F2j hovm!T7h{j
    <input type=button value=关闭 ōnclick=hh3.Click()>51Testing软件测试网"XW f4|5S:L#Pu
    本例适用于IE

    17.屏蔽功能键Shift,Alt,Ctrl51Testing软件测试网O$cC"@ ` O/e"e
    <scrīpt>51Testing软件测试网w*n(OYV%A"^
    function look(){ 51Testing软件测试网(bfi V3x*f
    if(event.shiftKey)
    gud l8W qM7U65703alert("禁止按Shift键!"); //可以换成ALT CTRL51Testing软件测试网H q$GL6C
    } 51Testing软件测试网:D2qb:H.~c6r
    document.onkeydown=look;
    Dz?c5cs(i65703</scrīpt>

    18. 网页不会被缓存51Testing软件测试网Z+aAX9o[-j7M"W&R-F
    <META HTTP-EQUIV="pragma" CONTENT="no-cache">
    i V;~ bbS'z#q65703<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
    EF1|xGF65703<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">51Testing软件测试网'Rw?1R!L"}zJL c%E"b
    或者<META HTTP-EQUIV="expires" CONTENT="0">

    19.怎样让表单没有凹凸感?51Testing软件测试网 W3u*kuDV$I
    <input type=text style="border:1 solid #000000"> 51Testing软件测试网!n/YST'e i,bt

    6GzBXY65703<input type=text style="border-left:none; border-right:none; border-top:none; border-bottom: 1 solid #000000"></textarea>

    20.<div><span>&<layer>的区别? 51Testing软件测试网P dB@,K8sL
    <div>(division)用来定义大段的页面元素,会产生转行
    @%jly-J5s!L65703<span>用来定义同一行内的元素,跟<div>的唯一区别是不产生转行 51Testing软件测试网 o lXgp [^ z7E
    <layer>是ns的标记,ie不支持,相当于<div>


    ,z6p-^8P1d$OW/^6570321.让弹出窗口总是在最上面:51Testing软件测试网bq lrht \,F9S
    <body ōnblur="this.focus();">

    22.不要滚动条?
    Xe6j#l(p ?65703让竖条没有: 51Testing软件测试网&w&p0^{Y&`Q4RW
    <body style="overflow:scroll;overflow-y:hidden"> 51Testing软件测试网2d0S6[7]| x,k
    </body>
    7a/xh4d2{ u65703让横条没有:
    J4zR3N+W(r;|65703<body style="overflow:scroll;overflow-x:hidden"> 51Testing软件测试网SR oK~$p
    </body> 51Testing软件测试网+Pt%iOA f-\
    两个都去掉?更简单了 51Testing软件测试网PR7Z4}.E1r @
    <body scroll="no"> 51Testing软件测试网1gshslO
    </body>

    23.怎样去掉图片链接点击后,图片周围的虚线?
    m%]Dv p!m+^65703<a href="#" ōnFocus="this.blur()"><img src="logo.jpg" border=0></a>

    24.电子邮件处理提交表单51Testing软件测试网 ile9GuBkOSW
    <form name="form1" method="post" action="mailto:****@***.com" enctype="text/plain"> 51Testing软件测试网0~/r)q^&@*eq
    <input type=submit>
    Dn9g/yt.F8{:Obf r65703</form>

    25.在打开的子窗口刷新父窗口的代码里如何写?51Testing软件测试网u)MO^{&`2Gx`
    window.opener.location.reload()

    26.如何设定打开页面的大小51Testing软件测试网E~#lR&E \9Jf
    <body ōnload="top.resizeTo(300,200);">51Testing软件测试网7\(XT!NdL(}\0W
    打开页面的位置<body ōnload="top.moveBy(300,200);">

    27.在页面中如何加入不是满铺的背景图片,拉动页面时背景图不动 51Testing软件测试网EF}:?O8_
    <STYLE>
    {`UY;l"SS65703body 51Testing软件测试网 \9a x*h1Q
    {background-image:url(logo.gif); background-repeat:no-repeat;

    background-position:center;background-attachment: fixed} 51Testing软件测试网[i a-\As
    </STYLE>

    28. 检查一段字符串是否全由数字组成
    X T9_:\0}65703<scrīpt language="Javascrīpt"><!--
    s,v:I5f ^j3g65703function checkNum(str){return str.match(//D/)==null}51Testing软件测试网'\`!wx9e2U-XGoT7Vy
    alert(checkNum("1232142141"))
    .`h _/[fA65703alert(checkNum("123214214a1"))
    ?/n.b*c j8\N _7c65703// --></scrīpt>

    29. 获得一个窗口的大小51Testing软件测试网1T7Zm5y1oW3OK
    document.body.clientWidth; document.body.clientHeight

    30. 怎么判断是否是字符51Testing软件测试网M,U4`['sv/qK/a
    if (/[^/x00-/xff]/g.test(s)) alert("含有汉字");51Testing软件测试网!i^!P i?:K&|n
    else alert("全是字符");

    31.TEXTAREA自适应文字行数的多少51Testing软件测试网!e5tr u"A_p9j1b.K
    <textarea rows=1 name=s1 cols=27 ōnpropertychange="this.style.posHeight=this.scrollHeight">
    (?5U?t7W,e:S65703</textarea>

    32. 日期减去天数等于第二个日期51Testing软件测试网;Uf*[MgT tlb W}
    <scrīpt language=Javascrīpt>
    4}7M/t~+ch(jA.qr65703function cc(dd,dadd)
    .T!m"yFO{h65703{
    7[9Dp~/R ?.i"L65703//可以加上错误处理51Testing软件测试网SC7FeB$~1s,\ u
    var a = new Date(dd)
    ]3K8oB}+P O65703a = a.valueOf()51Testing软件测试网Hh"AFD$| av QV4e
    a = a - dadd * 24 * 60 * 60 * 100051Testing软件测试网%~9Ew:L9?8A-k7S P
    a = new Date(a)51Testing软件测试网C w{$L etUnP
    alert(a.getFullYear() + "年" + (a.getMonth() + 1) + "月" + a.getDate() + "日")51Testing软件测试网RJ(EsrUe
    }
    o5ZXT1IX,b-LO65703cc("12/23/2002",2)
    S+s8_9l$If65703</scrīpt>

    33. 选择了哪一个Radio
    ]'vt[Ez_65703<HTML><scrīpt language="vbscrīpt">51Testing软件测试网}F:_;{#`
    function checkme()
    ]_P/Z\4g.C65703for each ob in radio1
    B? HSvQ-F7L65703if ob.checked then window.alert ob.value
    A0Joj Nh/~ ~65703next
    a2I"Qi9g65703end function51Testing软件测试网6`~0Y_0SSyt
    </scrīpt><BODY>51Testing软件测试网/Jqf j$Foy
    <INPUT name="radio1" type="radio" value="style" checked>Style
    +u Kv}7P d65703<INPUT name="radio1" type="radio" value="barcode">Barcode51Testing软件测试网 hnv)u2q?&k!j
    <INPUT type="button" value="check" ōnclick="checkme()">51Testing软件测试网0G{.l"[eq|o
    </BODY></HTML>

    34.脚本永不出错
    %V.Rb'l9|c [c#h7w0qc65703<scrīpt LANGUAGE="Javascrīpt"> 51Testing软件测试网G O'X2K C&`Ju;yI
    <!-- Hide
    ?A s8{/zrN65703function killErrors() {
    +\Zl XkW65703return true;
    :m6_9g0c z%}&f65703} 51Testing软件测试网2_X^\4?+V l
    window.onerror = killErrors; 51Testing软件测试网H6[5^Qp1lN
    // -->
    fD]xCOyo65703</scrīpt>

    35.ENTER键可以让光标移到下一个输入框
    m2J&kH_L65703<input ōnkeydown="if(event.keyCode==13)event.keyCode=9">

    36. 检测某个网站的链接速度:
    :SHu^_F/@65703把如下代码加入<body>区域中:51Testing软件测试网Pxm#t5h:CU8R
    <scrīpt language=Javascrīpt>51Testing软件测试网F"y-X0_2_:J}i
    tim=1
    $y#p$B~VF65703setInterval("tim++",100)
    ;xt[4Z Ps(ke(?65703b=1

    var autourl=new Array()
    :^!vq!v.JV1OX65703autourl[1]="www.njcatv.net"51Testing软件测试网,L6Z:i,e0y
    autourl[2]="javacool.3322.net"51Testing软件测试网+_QsRfV`
    autourl[3]="www.sina.com.cn"51Testing软件测试网7v$A7L+HX9J3M
    autourl[4]="www.nuaa.edu.cn"
    ej fMxPn65703autourl[5]="www.cctv.com"

    function butt(){
    u.ho"X%Rmx2j.w(s65703document.write("<form name=autof>")51Testing软件测试网;H8qP;fn
    for(var i=1;i<autourl.length;i++)
    7QS(B*c d3vjK65703document.write("<input type=text name=txt"+i+" size=10 value=测试中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO 51Testing软件测试网`#\gA |&}:~5M
    onclick=window.open(this.form.url"+i+".value)><br>")
    oh8GZ] s7t65703document.write("<input type=submit value=刷新></form>")
    "M.U7z1fA_4`-`65703}51Testing软件测试网+jB `:aNhG?(G
    butt()
    2g!@i$ZT9[$O4t65703function auto(url){
    +]$c3_Q4eZwb7f:`(_65703document.forms[0]["url"+b].value=url51Testing软件测试网C2r&M.Qkjn V
    if(tim>200)51Testing软件测试网Kf nv4Y'[.fAk5l3d
    {document.forms[0]["txt"+b].value="链接超时"}
    o%u"bf8W8Y|65703else
    wI L#R%EG3K6V65703{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}51Testing软件测试网`xV%q8m%P
    b++
    o ^(Jbr"_:r;UP65703}
    t1?J+^"Y A/p"f65703function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl+"/"+Math.random()+" width=1 height=1 ōnerror=auto("http://"+autourl+"")>")}
    zO(vg1I8Y|h7Vs]65703run()</scrīpt>

    37. 各种样式的光标
    B5?,x4O @+cS ^4D65703auto :标准光标51Testing软件测试网/Mmh6E9v2sm#[5\
    default :标准箭头
    ]$U2]Y*O"B65703hand :手形光标51Testing软件测试网S.\{#Qz$v`O1b#a
    wait :等待光标
    3rG0N+M AC7` M65703text :I形光标
    -Xs5_8R _]!p)I65703vertical-text :水平I形光标51Testing软件测试网 x.dkq~y
    no-drop :不可拖动光标
    G+L7PF@f6j!b65703not-allowed :无效光标51Testing软件测试网cA3U(J2ejQW'E,nF6i
    help :?帮助光标51Testing软件测试网g3G0P Gg
    all-scroll :三角方向标
    ES,P8k,PB65703move :移动标
    mx!U-H"I\#_2X65703crosshair :十字标51Testing软件测试网?1?(u1E3O
    e-resize
    pNuEoY"ej65703n-resize51Testing软件测试网5kH#e B*T {l
    nw-resize51Testing软件测试网y7S%As+[0B)Ti&r|
    w-resize
    {+Xs0`9dD65703s-resize51Testing软件测试网kiW/eADUl
    se-resize51Testing软件测试网IS;d%kBMB.n R3J
    sw-resize

    38.页面进入和退出的特效51Testing软件测试网*me%M"T4c_/J
    进入页面<meta http-equiv="Page-Enter" content="revealTrans(duration=x, transition=y)">
    s}H H"J e-X9n.b b8F65703推出页面<meta http-equiv="Page-Exit" content="revealTrans(duration=x, transition=y)"> 
    T*O$~C.zWBf65703这个是页面被载入和调出时的一些特效。duration表示特效的持续时间,以秒为单位。transition表示使用哪种特效,取值为1-23:51Testing软件测试网m6VRrK
      0 矩形缩小
    (o.Rxy3a QpA65703  1 矩形扩大 51Testing软件测试网Ca+BU*i j q5A
      2 圆形缩小51Testing软件测试网5G L4U(H!If [Ov
      3 圆形扩大 51Testing软件测试网4D\$b#Xs
      4 下到上刷新
    :Dr*Z v[/}]wX65703  5 上到下刷新
    "sJX?D6|h(E x Yy65703  6 左到右刷新
    FB:Qyu6|-Z65703  7 右到左刷新
    %FJr9h`"v0l:k EXoZ65703  8 竖百叶窗51Testing软件测试网&[%?E,[\
      9 横百叶窗
    #z7x-_4z$}7x([V65703  10 错位横百叶窗
    %J dp*VHZ$Cp65703  11 错位竖百叶窗51Testing软件测试网'P)t%l7x%T&G
      12 点扩散
    8mB~k]65703  13 左右到中间刷新 51Testing软件测试网ns oR/}8aSV T
      14 中间到左右刷新51Testing软件测试网 D/p"UB n8] wD
      15 中间到上下
    ]8zf8DS"c65703  16 上下到中间 51Testing软件测试网M)S;O_F-h$p G
      17 右下到左上51Testing软件测试网-bo1A/fr/zS9iY
      18 右上到左下 51Testing软件测试网#ri ~o?T7od-~
      19 左上到右下 51Testing软件测试网 ]sr n ^ @oV
      20 左下到右上51Testing软件测试网$J8]f:Y2bLD
      21 横条
    8H9t;nI r*K65703  22 竖条 51Testing软件测试网} A OH'|_9v
      23 以上22种随机选择一种

    39.在规定时间内跳转
    \3W"y"^ _65703<META http-equiv=V="REFRESH" content="5;URL=http://www.51js.com">

    40.网页是否被检索
    5z6t)G c2Y65703<meta name="ROBOTS" content="属性值">
    3D/mo9H]W4b:[#X+n65703  其中属性值有以下一些:51Testing软件测试网9CU9i&v~*] Qg
      属性值为"all": 文件将被检索,且页上链接可被查询;51Testing软件测试网e G-| Z)d
      属性值为"none": 文件不被检索,而且不查询页上的链接;
    qko k EG1YbP7S65703  属性值为"index": 文件将被检索;51Testing软件测试网EMVr$Xs(N~/q
      属性值为"follow": 查询页上的链接;51Testing软件测试网j){g9? D*w_
      属性值为"noindex": 文件不检索,但可被查询链接;51Testing软件测试网 ?i8m"D%W u'E*u^ td {
      属性值为"nofollow": 文件不被检索,但可查询页上的链接。

Open Toolbar