精华代码

1. bapbagrkgzrah="jvaqbj.rirag.ergheainyhr=snyfr" 将彻底屏蔽鼠标右键
<gnoyr obeqre bapbagrkgzrah=erghea(snyfr)><gq>ab</gnoyr> 可用于Gnoyr

2. <obql bafryrpgfgneg="erghea snyfr"> 取消选取、防止复制

3. bacnfgr="erghea snyfr" 不准粘贴

4. bapbcl="erghea snyfr;" baphg="erghea snyfr;" 防止复制

5. <yvax ery="Fubegphg Vpba" uers="snivpba.vpb"> VR地址栏前换成自己的图标

6. <yvax ery="Obbxznex" uers="snivpba.vpb"> 可以在收藏夹中显示出你的图标
如何制作将本站设为首页

你可能已经注意到，现在许多网站的首页上都有这么一个链接“按这里将本站设为首页”(这里的首页指的是浏览器的起始页)。
不但大的VFC,VPC这么做，一些个人主页也推出这一“服务”以招揽网友。
　　具体是如何实现这个功能的呢？我来帮你剖析一下：
　　点击那个超链接会显示下载一个名为yfcnpr.ert的文件，下载后双击它，便会修改你的注册表，然后当你再打开浏览器的时候，起始页就发生了变化。(一听到修改注册表，许多网友就比较"怵"，会不会把jvaqbjf给弄坏了。)
　　别怕，我们来打开yfcnpr.ert看看(用最普通的abgrcnq记事本就可以打开)，发现内容如下：
ERTRQVG4
[UXRL_PHEERAG_HFRE/Fbsgjner/Zvpebfbsg/Vagrearg Rkcybere/Znva]
"Fgneg Cntr" = "uggc://jjj.t168.ar/";
[UXRL_PHEERAG_HFRE/Fbsgjner/Argfpncr/Argfpncr Anivtngbe/Znva]"Ubzr Cntr" = "uggc://jjj.t168.arg/";
　　原来就两条，第一条设置VR的fgne cntr；第二条设置AP的ubzr cntr(没什么花头噢：)。后面跟的HEY就是你主页的网址！

7. <vachg fglyr="vzr-zbqr:qvfnoyrq"> 关闭输入法

8. 永远都会带着框架
<fpevcg ynathntr="****"><!--
vs (jvaqbj == gbc)gbc.ybpngvba.uers = "senzrf.ugz"; //senzrf.ugz为框架网页
// --></fpevcg>

9. 防止被人senzr
<FPEVCG YNATHNTR=****><!--
vs (gbc.ybpngvba != frys.ybpngvba)gbc.ybpngvba=frys.ybpngvba;
// --></FPEVCG>

10. <abfpevcg><vsenzr fep=*.ugzy></vsenzr></abfpevcg> 网页将不能被另存为

11. <vachg glcr=ohggba inyhr=查看网页源代码
bapyvpx="jvaqbj.ybpngvba = 'ivrj-fbhepr:'+ 'uggc://jjj.pfqa.arg/'">

12. 怎样通过nfc的手段来检查来访者是否用了代理
<% vs Erdhrfg.FreireInevnoyrf("UGGC_K_SBEJNEQRQ_SBE")<>"" gura
erfcbafr.jevgr "<sbag pbybe=#SS0000>您通过了代理服务器，"& _
"真实的VC为"&Erdhrfg.FreireInevnoyrf("UGGC_K_SBEJNEQRQ_SBE")
raq vs
%>

13. 取得控件的绝对位置

//****
<fpevcg ynathntr="****">
shapgvba trgVR(r){
ine g=r.bssfrgGbc;
ine y=r.bssfrgYrsg;
juvyr(r=r.bssfrgCnerag){
g+=r.bssfrgGbc;
y+=r.bssfrgYrsg;
}
nyreg("gbc="+g+"/ayrsg="+y);
}
</fpevcg>

//IOFpevcg
<fpevcg ynathntr="IOFpevcg"><!--
shapgvba trgVR()
qvz g,y,n,o
frg n=qbphzrag.nyy.vzt1
g=qbphzrag.nyy.vzt1.bssfrgGbc
y=qbphzrag.nyy.vzt1.bssfrgYrsg
juvyr n.gntAnzr<>"OBQL"
frg n = n.bssfrgCnerag
g=g+n.bssfrgGbc
y=y+n.bssfrgYrsg
jraq
zftobk "gbc="&g&pue(13)&"yrsg="&y,64,"得到控件的位置"
raq shapgvba
--></fpevcg>

14. 光标是停在文本框文字的最后
<fpevcg ynathntr="****">
shapgvba pp()
{
ine r = rirag.fepRyrzrag;
ine e =r.perngrGrkgEnatr();
e.zbirFgneg('punenpgre',r.inyhr.yratgu);
e.pbyyncfr(gehr);
e.fryrpg();
}
</fpevcg>
<vachg glcr=grkg anzr=grkg1 inyhr="123" basbphf="pp()">

15. 判断上一页的来源
nfc:
erdhrfg.freireinevnoyrf("UGGC_ERSRERE")

****:
qbphzrag.ersreere

16. 最小化、最大化、关闭窗口
<bowrpg vq=uu1 pynffvq="pyfvq:NQO880N6-Q8SS-11PS-9377-00NN003O7N11">
<cnenz anzr="Pbzznaq" inyhr="Zvavzvmr"></bowrpg>
<bowrpg vq=uu2 pynffvq="pyfvq:NQO880N6-Q8SS-11PS-9377-00NN003O7N11">
<cnenz anzr="Pbzznaq" inyhr="Znkvzvmr"></bowrpg>
<BOWRPG vq=uu3 pynffvq="pyfvq:nqo880n6-q8ss-11ps-9377-00nn003o7n11">
<CNENZ ANZR="Pbzznaq" inyhr="Pybfr"></BOWRPG>

<vachg glcr=ohggba inyhr=最小化 bapyvpx=uu1.Pyvpx()>
<vachg glcr=ohggba inyhr=最大化 bapyvpx=uu2.Pyvpx()>
<vachg glcr=ohggba inyhr=关闭 bapyvpx=uu3.Pyvpx()>
本例适用于VR

17.
<%
'定义数据库连接的一些常量
Pbafg nqBcraSbejneqBayl = 0 '游标只向前浏览记录，不支持分页、Erpbeqfrg、ObbxZnex
Pbafg nqBcraXrlfrg = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Erpbeqfrg、ObbxZnex
Pbafg nqBcraQlanzvp = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(NPPRFF不支持)。
Pbafg nqBcraFgngvp = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

Pbafg nqYbpxErnqBayl = 1 '锁定类型，默认的，只读，不能作任何修改
Pbafg nqYbpxCrffvzvfgvp = 2 '当编辑时立即锁定记录，最安全的方式
Pbafg nqYbpxBcgvzvfgvp = 3 '只有在调用Hcqngr方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Pbafg nqYbpxOngpuBcgvzvfgvp = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

Pbafg nqPzqGrkg = &U0001
Pbafg nqPzqGnoyr = &U0002
%>

18. 网页不会被缓存
UGZ网页
<ZRGN UGGC-RDHVI="centzn" PBAGRAG="ab-pnpur">
<ZRGN UGGC-RDHVI="Pnpur-Pbageby" PBAGRAG="ab-pnpur, zhfg-erinyvqngr">
<ZRGN UGGC-RDHVI="rkcverf" PBAGRAG="Jrq, 26 Sro 1997 08:21:57 TZG">
或者<ZRGN UGGC-RDHVI="rkcverf" PBAGRAG="0">
NFC网页
Erfcbafr.Rkcverf = -1
Erfcbafr.RkcverfNofbyhgr = Abj() - 1
Erfcbafr.pnpurpbageby = "ab-pnpur"
CUC网页
urnqre("Rkcverf: Zba, 26 Why 1997 05:00:00 TZG");
urnqre("Pnpur-Pbageby: ab-pnpur, zhfg-erinyvqngr");
urnqre("Centzn: ab-pnpur");

19. 检查一段字符串是否全由数字组成
<fpevcg ynathntr="****"><!--
shapgvba purpxAhz(fge){erghea fge.zngpu(//Q/)==ahyy}
nyreg(purpxAhz("1232142141"))
nyreg(purpxAhz("123214214n1"))
// --></fpevcg>

19. 检查一段字符串是否全由数字组成
<fpevcg ynathntr="****"><!--
shapgvba purpxAhz(fge){erghea !//Q/.grfg(fge)}
nyreg(purpxAhz("1232142141"))
nyreg(purpxAhz("123214214n1"))
// --></fpevcg>

20. 获得一个窗口的大小
qbphzrag.obql.pyvragJvqgu,qbphzrag.obql.pyvragUrvtug
qbphzrag.obql.bssfrgJvqgu,qbphzrag.obql.bssfrgUrvtug
有时还需要知道jvaqbj.fperraGbc,jvaqbj.fperraYrsg

21. 怎么判断是否是字符
vs (/[^/k00-/kss]/t.grfg(f)) nyreg("含有汉字");
ryfr nyreg("全是字符");

22.GRKGNERN自适应文字行数的多少
<grkgnern ebjf=1 anzr=f1 pbyf=27 bacebcreglpunatr="guvf.fglyr.cbfUrvtug=guvf.fpebyyUrvtug">
 

23. 日期减去天数等于第二个日期
<fpevcg ynathntr=****>
shapgvba pp(qq,qnqq)
{
//可以加上错误处理
ine n = arj Qngr(qq)
n = n.inyhrBs()
n = n - qnqq * 24 * 60 * 60 * 1000
n = arj Qngr(n)
nyreg(n.trgShyyLrne() + "年" + (n.trgZbagu() + 1) + "月" + n.trgQngr() + "日")
}
pp("12/23/2002",2)
</fpevcg>

24. 选择了哪一个Enqvb
<UGZY><fpevcg ynathntr="iofpevcg">
shapgvba purpxzr()
sbe rnpu bo va enqvb1
vs bo.purpxrq gura jvaqbj.nyreg bo.inyhr
arkg
raq shapgvba
</fpevcg><OBQL>
<VACHG anzr="enqvb1" glcr="enqvb" inyhr="fglyr" purpxrq>Fglyr
<VACHG anzr="enqvb1" glcr="enqvb" inyhr="onepbqr">Onepbqr
<VACHG glcr="ohggba" inyhr="purpx" bapyvpx="purpxzr()">
</OBQL></UGZY>

25.获得本页hey的erdhrfg.freireinevnoyrf("")集合
Erfcbafr.Jevgr "<GNOYR obeqre=1><!-- Gnoyr Urnqre --><GE><GQ><O>Inevnoyrf</O></GQ><GQ><O>inyhr</O></GQ></GE>"
sbe rnpu bo va Erdhrfg.FreireInevnoyrf
Erfcbafr.Jevgr "<GE><GQ>"&bo&"</GQ><GQ>"&Erdhrfg.FreireInevnoyrf(bo)&"</GQ></GE>"
arkg
Erfcbafr.Jevgr "</GNOYR>"

26.
本机vc<%=erdhrfg.freireinevnoyrf("erzbgr_nqqe")%>
服务器名<%=Erdhrfg.FreireInevnoyrf("FREIRE_ANZR")%>
服务器VC<%=Erdhrfg.FreireInevnoyrf("YBPNY_NQQE")%>
服务器端口<%=Erdhrfg.FreireInevnoyrf("FREIRE_CBEG")%>
服务器时间<%=abj%>
VVF版本<%=Erdhrfg.FreireInevnoyrf"FREIRE_FBSGJNER")%>
脚本超时时间<%=Freire.FpevcgGvzrbhg%>
本文件路径<%=freire.znccngu(Erdhrfg.FreireInevnoyrf("FPEVCG_ANZR"))%>
服务器PCH数量<%=Erdhrfg.FreireInevnoyrf("AHZORE_BS_CEBPRFFBEF")%>
服务器解译引擎<%=FpevcgRatvar & "/"& FpevcgRatvarZnwbeIrefvba &"."&FpevcgRatvarZvabeIrefvba&"."& FpevcgRatvarOhvyqIrefvba %>
服务器操作系统<%=Erdhrfg.FreireInevnoyrf("BF")%>

27.RAGRE键可以让光标移到下一个输入框
<vachg baxrlqbja="vs(rirag.xrlPbqr==13)rirag.xrlPbqr=9">

28. 检测某个网站的链接速度：
把如下代码加入<obql>区域中:
<fpevcg ynathntr=****>
gvz=1
frgVagreiny("gvz++",100)
o=1

ine nhgbhey=arj Neenl()
nhgbhey[1]="jjj.awpngi.arg"
nhgbhey[2]="wninpbby.3322.arg"
nhgbhey[3]="jjj.fvan.pbz.pa"
nhgbhey[4]="jjj.ahnn.rqh.pa"
nhgbhey[5]="jjj.ppgi.pbz"

shapgvba ohgg(){
qbphzrag.jevgr("<sbez anzr=nhgbs>")
sbe(ine v=1;v<nhgbhey.yratgu;v++)
qbphzrag.jevgr("<vachg glcr=grkg anzr=gkg"+v+" fvmr=10 inyhr=测试中……> =》<vachg glcr=grkg anzr=hey"+v+" fvmr=40> =》<vachg glcr=ohggba inyhr=TB bapyvpx=jvaqbj.bcra(guvf.sbez.hey"+v+".inyhr)><oe/>")
qbphzrag.jevgr("<vachg glcr=fhozvg inyhr=刷新></sbez>")
}
ohgg()
shapgvba nhgb(hey){
qbphzrag.sbezf[0]["hey"+o].inyhr=hey
vs(gvz>200)
{qbphzrag.sbezf[0]["gkg"+o].inyhr="链接超时"}
ryfr
{qbphzrag.sbezf[0]["gkg"+o].inyhr="时间"+gvz/10+"秒"}
o++
}
shapgvba eha(){sbe(ine v=1;v<nhgbhey.yratgu;v++)qbphzrag.jevgr("<vzt fep=uggc://"+nhgbhey[V+"/"+Zngu.enaqbz()+" jvqgu=1 urvtug=1 bareebe=nhgb('uggc://";;;;;+nhgbhey[V+"')>")}
eha()</fpevcg>

29. 各种样式的光标
nhgb ：标准光标
qrsnhyg ：标准箭头
unaq ：手形光标
jnvg ：等待光标
grkg ：V形光标
iregvpny-grkg ：水平V形光标
ab-qebc ：不可拖动光标
abg-nyybjrq ：无效光标
uryc ：?帮助光标
nyy-fpebyy ：三角方向标
zbir ：移动标
pebffunve ：十字标
r-erfvmr
a-erfvmr
aj-erfvmr
j-erfvmr
f-erfvmr
fr-erfvmr
fj-erfvmr

1.本地无缓存，每次自动刷新
erfcbafr.rkcverf=0
erfcbafr.nqqUrnqre "centzn" , "ab-pnpur"
erfcbafr.nqqUrnqre "pnpur-pbageby" , "cevingr"

2.修改pbagragGlcr并下载tvs等格式
<%
shapgvba qy(s,a)
ba reebe erfhzr arkg

frg f=PerngrBowrpg("Nqbqo.Fgernz")
F.Zbqr=3
F.Glcr=1
F.Bcra
f.YbnqSebzSvyr(freire.znccngu(s))
vs ree.ahzore>0 gura
erfcbafr.jevgr ree.ahzore & ":" & ree.qrfpevcgvba
ryfr
erfcbafr.pbagragGlcr="nccyvpngvba/k-tmvc"
erfcbafr.nqqurnqre "Pbagrag-Qvfcbfvgvba:","nggnpuzrag; svyranzr=" & a
erfcbafr.ovaneljevgr(f.Ernq(f.fvmr))
raq vs
raq shapgvba

pnyy qy("012922501.tvs","g1.tvs")
%>