data/attach/1904/8k8cha1kb14wrl5lzmh6gqxl0jtrknvn.jpg   ================点击显示
显示位置上 id="pic1" style="display='none'" //none为不显示，''为显示 调用：onChange="showimg(this.value);" ----------------------读取IP
<%dim userip
 userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
%> ----------------------链接、按钮上直接打开新窗口
onClick="MM_openBrWindow('jsxxpic_tj_xg.asp?jsxx_id=<%=(jsxx.Fields.Item("jsxx_id").Value)%>&wjm=<%=(jsxx.Fields.Item("jsxx_wjm").Value)%>','','scrollbars=0,resizable=no,width=455,height=120,left=300,top=300')"
-----------------------链接、按钮询问打开新窗口

---------------------
<%
MM_connasp_xx_STRING="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../#data/asp_xx.mdb")&";" '设置数据库链接
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../#data/asp_xx.mdb")   
'session("strconn")=strConn
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
%>
<%
'dim conn,connstr,db,rs,rstemp,sql
db="../#data/asp_xx.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.createobject("adodb.recordset")
%>

----------------------
数据添加、修改
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM c_ylsy",dbc,1,3
%>
<%
rs.AddNew
 rs("ylsy_cl_id")=trim(Request("ylsy_cl_id"))'trim除去前面的空格
 rs.Update
  rs.Close %>
<%
set rsa=server.CreateObject("adodb.recordset")
rsa.Open "SELECT * FROM c_ylgy  WHERE clylgy_id="&Request("clylgy_id"),dbc,1,3
%>
<%
'rs.AddNew
 rsa("ylgy_sys")=rsa("ylgy_sys")+Request("ylsy_sl")
rsa.Update
  rsa.Close
  dbc.Close
  %>
---------------进入页面聚集文本框

onload="checkk_null()"
------------屏蔽F5、Ctrl+N、Alt+F4的源码

      
       < body MS_POSITIONING="GridLayout" onKeyDown="DisableKey()">
--------------------字号放大与缩小
【大 中 小】
        字号放大与缩小－表格行名称为id=zoom　调用common.js内容function doZoom(size){ document.getElementById('zoom').style.fontSize = size + 'px';}
-----------
走动的时钟


  
---------------------
javascript的容错脚本，有了它，你的页面就不会出现错误提示了。

     
-------------时间相减===只能本月相减

--------------调用比较时间大小函数（聚集时）<%=m%>为变量表单
Onselect="if(ks_sj.value!=''){javascript:return che_sj_null(this.value,document.form<%=m%>.ks_sj.value,<%=m%>);}"
--------------比较时间大小

--------------
datediff(dd,convert(datetime,'"&str1&"'),dbill_date)<=0 ，str:时间字符串
sql="select * from table1 where time bttween '#"&time1&"#' and '#"&time2&"#'"
时间比较
--------------
---------------
eval(string)函数是把其字符串参数当作是JavaScript脚本来运行
------------------通用翻页程序
<%if clxx.recordcount<>0 then
%>
<%'更改数据源名称clxx
data_count=clxx.recordcount'总信息条数
clxx.pagesize=1
data_a=clxx.pagesize'每页显示几条
 data_aa=clxx.pagecount '页数
page=Request("page")
if (page-data_aa) > 0 then
page=data_aa
elseif page = "" or page < 1 then
page = 1
end if
clxx.absolutepage=page'更改数据源名称clxx
'%>

<%end if %>
-===-
<%bb="clgl_xxgl.asp?xx=1&dh_h="&Request("dh_h")&"&txt="&txt_z%>//上下页的路径和变量
      <%'下拉列表中的隐含变量值
 sub listPages()
   %>
     
      ">
     
      <%
 end sub
%>
      <%call listpages_a()%>//调用隐含变量
------------
new Array(3);
-----------
2396657 佳慧经理
--------------------------
用数组显示数据库值<%=rs(0)%> -------------------------替换
Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]])
将一个字符串取代 部份字。寻找待取代的原字符串 (find) ， 若找到则被取代为新字符串 (replacewith) 。
find ：待寻找取代的原字符串。
replacewith ：取代后的字。
start ：从第几个字开始寻找取代， 若未设定则由第一个字开始寻找。
count ：取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare ：寻找比较的方法， compare=0 表示二进制比较法， compare=1 表文字比较法， compare =2 表根据比较的 数据型态而定，若省略 compare 则为预设的二进制比较法。
------------
<%=FormatDateTime("2000-9-12", vbLongDate)%>//显示为2000年9月12日
<%=FormatDateTime("2000,9,12", vbLongDate)%>//显示为2000年9月12日
<%=FormatDateTime("2000.9.12", vbLongDate)%>//错误显示
<%=IsDate("2005,12,23")%>//True是时间  是否可以转换成日期  是 (True) 否 (False)
<%=IsDate("05.12.23")%>//True是时间
<%=IsDate("2005.12.23")%>//false不是时间 <%=DateSerial (2000,9,12)%>//显示为2000-9-12
<%=DateSerial (03,9,12)%>//显示为2003-9-12
-----------------
相同值时取不同值
gb_xx.Source = "SELECT DISTINCT(gb_gjmc)  FROM gb_xx"
-----------------
 if rs("userpass")=trim(trpass(request("pw"))) then
trpass密码加密后读取
-----------------
图片位置：
right靠右
left靠左
--------------
flash动画透明设置：
设置parameters
parameter＝wmode　　value=transparent

------------------------
两个时间相减
 <%=Abs(DateDiff ("d",时间值,date())) %>
----------------
将ryxx.Fields.Item("ry_dw").Value字符串由左而右与dwxx_pp.Fields.Item("lw_dw").Value &"|"(分搳值)比较，传回第一个相同的位置.无时为0
InStr(ryxx.Fields.Item("ry_dw").Value,dwxx_pp.Fields.Item("lw_dw").Value &"|")
-------------
上传文件格式判断－可上传文件格式

 

 
---
不可上传文件格式
file.value.indexOf(".gif")!=-1||file.value.indexOf(".JPG")!=-1
--------
预览照片时调用的函数

---------------
parseFloat()//取小数，parseInt()//取整数。都是将值转换为数值的函数
将parseInt(jr<%=did%>.value)值转换为数字进行和的计算
hj_je<%=did%>.value=parseInt(jr<%=did%>.value)+parseInt(wx_jr<%=did%>.value)
--------------
如果不是数字符时[if (isNaN(value)]其值等于某值[value="/<%=(ffxg.Fields.Item("je").Value)%>']
onBlur="if (value ==''){value="/<%=(ffxg.Fields.Item("je").Value)%>"};if (isNaN(value)){value="/<%=(ffxg.Fields.Item("je").Value)%>'}"  title="只能填写数字且不能为空"
----
如果不是数字符时[if (isNaN(value)]弹出提示窗口
onBlur="if (value ==''){value="/<%=(ffxg.Fields.Item("je").Value)%>"};if (isNaN(value)){alert('只能填写数字')}"  title="只能填写数字且不能为空"
-----------
限制输入数字和小数、小数点
onKeyPress="if (event.keyCode ==47 || (event.keyCode < 46 || event.keyCode > 57)) event.returnValue = false;"
限制输入整数字
onKeyPress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue = false;"
限制输入数字、小数、小数点、和，/
onKeyPress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"
----------------
只能输入汉字
onkeyup="value="/value.replace(/[" -~]/g,'')" onkeydown="if(event.keyCode==13)event.keyCode=9"title="姓名只能输入汉字"
--------------------
不能输入汉字
 
------------------------ ENTER键可以让光标移到下一个输入框

只能是中文
屏蔽输入法
只能输入英文和数字
只能是数字
只能显示，不能修改
--------------------------
点击调用判断
onBlur="if (this.value ==''){this.value="/<%=(ksgz.Fields.Item("zc").Value)%>"};if (isNaN(this.value)){return checkk_kk();}"
------------
HMTL中的四个特殊字符(<,>,&,")是不能直接写在文件中的,必须用后面的语句来替换, <=< >=> &=& "="(英文字母一定要小写)
要输出"%>"时，用"%/>"转义字符代替.
------------
readonly 文本框禁止输入
-----------
分搳
V= Split(Request("cpflh"),",")
For i=0 To UBound(V)'少循环一次但不理解
next -----
分搳
onChange="javascript:return che_null(this.value);"传递值this.value
分搳后可赋值给QQ，也可显示alert("对不起！"+qm[0])

－－－－－继上



<%=dw_bhxx%>为多个包含｜的值
--------------
//document.form1.cl_sydw_id.value=qm[2]赋值给下面。显示值会跟随着变化！　好

车辆使用单位
<%
While (NOT dwxx.EOF)
%>
" ><%=(dwxx.Fields.Item("dwmc").Value)%>
<%
  dwxx.MoveNext()
Wend
If (dwxx.CursorType > 0) Then
  dwxx.MoveFirst
Else
  dwxx.Requery
End If
%>
               
---------------
(InStr(字符串,包含的值)＝包含值所有在的位置数
当判断包含值存在不时可用<>0或=0
-----------
数据集总记录数
数据集名.recordcount
修改数据集的“数据集名.CursorType＝0 ”为“数据集名.CursorType=1”
排序：ORDER BY xm_xx.xm_id desc
Session("MM_Username")储存登陆客户的登陆用户名信息
Response.Redirect "跳转到网址变量或字符串"
Response.Write 显示发送到浏览器的内容
------------------
------------
循环月份
 
    <%=month(date())%>
    <%for r=1 to 12%>
    <%=r%>
    <%next %>

循环日　

　　　　　　　　　　　<%=day(date())%>
 <%if month(date())=1 or month(date())=3 or month(date())=5 or month(date())=7 or month(date())=8 or month(date())=10  or month(date())=12 then
    te_z=31
    elseif month(date())=4 or month(date())=6 or month(date())=9 or month(date())=11  then
    te_z=30
    elseif month(date())=2 then
    te_z=28
    end if
    for te=-1 to te_z%>
                  <%=te%>
      <%next %>
                ----------------
title="提示内容"
换行方法：
         1、title="第一行提示内容<%response.write chr(13)%>第二行提示内容"
         2、title="第一行提示内容 第二行提示内容 第三行提示内容"
         3、title="提示内容<%=chr(13)%>提示内容"　
------------
随机生成一个多位数的号(六位数)
<% dim Str,length,i,passStr,pos
passStr=""
Str="qq0w1e2r3t4y5u6i7o8p9a0s1d2f3g4h5j6k7z8x9c0v1b2n3m4Z5X6C7V8B9N0M1A2S3D4F5G6H7J8K9L0Q1W2E3R4T5Y6U7I8O9P0"
length=len(Str)
Randomize
for i=0 to 5
 pos=Int((length)*rnd+1)
 passStr=passStr+Mid(Str,pos,1)
next
response.write passStr
%>
---------
日期时间：
now()　日期时间
date()　日期
time 时间
year(now)年
month(now)月
day(now)日
hour(now)时
minute(now)分
second(now)秒
weekDay(date)星期
weekdayname将数字星期转化为汉字星期　　　<%=weekdayname(weekday(date))%>
<%=year(date)&"年"&month(date)&"月"&day(date)&"日"%><%=weekdayname(weekday(date))%>
---------
1、今天是第<%=datediff("ww","2004-1-1",date(),2)%>周
2、今天是<%=weekdayname(weekday(date()))%>
3、本周的星期一是<%=dateAdd("d",1-weekday(date),2),date)%>
4、本周的星期日是<%=dateAdd("d",7-weekday(date),2),date)%>
5  <%=datediff("ww","1/1/"&year(date),date())+1%>计算本年度的周次
1、3、4的星期都是以星期一为一个星期的第一天，具体可以参看日期时间函数
1、今天是第<%=datediff("ww","2004-1-1",date())%>周
2、今天是<%=weekdayname(weekday(date()))%>
3、本周的星期一是<%=dateAdd("d",2-weekday(date),date())%>
4、本周的星期日是<%=dateAdd("d",8-weekday(date),date())%>
-------------
cint(取四舍五入数)
formatNumber(yyh_x,2)//取2位小数
-------------
计算1月1日到今天的天数
<%=datediff("d","1/1/"&year(date),date())%>
-------------
点击鼠标后传递变量值。用onClick="return chkfm1(变量1，变量2)"｜是接收变量值chkfm(del_p,g)
'+del_p+'&mm='+g+'是传递来的变量的写法

-----------------

－－－－－－－－－－－
删除文件
<%  if Request("wjm")<>"无" then
 Dim FileObject                             
 Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
 Dim SourceFile,SourceFile1,DestiFile ,wj          
  wj=Request("wjm")
 SourceFile1=Server.MapPath(wj)
   IF  FileObject.FileExists(SourceFile1) Then
 FileObject.DeleteFile SourceFile1 
 End If
 End If
 %>
---------------------
点击打开新窗口
经管系教学管理制度
---------------
发送前判断且有弹出窗口时不执行页面
value="发送" onclick="if(mm.value==1 && yh.value=='' ){alert('请选择阅读用户');yh.focus();return false}"
--------------
多次选择给某一域赋值、判断选择值已经存在时弹出窗口提示
 onChange="if(this.value!='' && yh.value.indexOf(this.value+'|')!=-1){alert('该用户已经选择')};if(this.value!='' && yh.value.indexOf(this.value+'|')==-1){yh.value="/yh.value+this.value+"'|'};if (this.value=='' ){alert('请选择阅读用户')}; "
--------------
弹出消息窗口：

-----------------
判断函数：


onSubmit="javascript:return checkk_null();"//在表单上调用
===============循环表单中的判断//form_z为表单的名称变量  2006-5-15
===============
注意聚焦语句focus();（下拉列表用）和select();（文本框用）的用法。
删除判断语句（弹出确认框）
onClick="return chkfm1()"//在按钮上调用
--------
自动关闭窗口

--------------------
判断条件是否成立＋确定　取消

----------------
打开新窗口时判断
&xm_mc=<%=(cgxx.Fields.Item("xm_mc").Value)%>&xm_ygz=<%=cgxx("xm_ygz")%>','','scrollbars=1,resizable=no,width=200,height=50,left=10,top=100')};"  title="【<%=month(date)%>月份】无新派人时上报信息">上报
---------------------
判断lj_xx==1时执行1　否则执行2

----------------------
 
mm为传递来的变量值
----------------
＊对于所有表单元素的value参数值，它们都是字符形式，要参于计算，必须先用parseInt()函数把它转换成数值形式
----------------
文本框内容点击消失语句：
  1、  ')this.value="''"title="输入公文标题或内容关键字检索" size="19" value="<%=txt_k%>"> 　2、　value="请输入查询条件"onFocus="if (value =='请输入查询条件'){value =''}" onBlur="if (value ==''){value='请输入查询条件'}"
3、　文本域内容点击消失语句
请填写文件的内容或填写对附件的说明
-----------
4、　value="0" onMouseOver="this.focus()" onBlur="if (value ==''){value='0'}" onFocus="this.select()" onClick="if(this.value="/='0')this.value=''"
-------------
Session("MM_Username")储存登陆客户的登陆用户名信息
Response.Redirect" "跳转到网址变量或字符串"
Response.Write 显示发送到浏览器的内容
------------------
<% session.timeout=300%>///session执行时间
Server.ScriptTimeOut=999999///服务器执行时间
----------------
弹出对话框分行/r/n

---------

---------
在文字上选择选择框的方法

                实施
------------
后退并刷新
重新选择单位
-------------
关闭新窗口并刷新父窗口

刷新父窗口
------------
关闭窗口不提示
----------

-------------
清空文本域中的值


/value=/w/g,''-----在循环上传文件中可取消这句
-------------
 禁止鼠标右键：放在body中 oncontextmenu=return(false)
 禁止复制：放在body中onselectstart="return false"
onUnload="leave()" //关闭窗口时调用。放在body中
-----------
打印确认

---------------
打开新窗口时传递表单值的写法

-----------
实时走动的时间（从零开始计时）

     
------------------
各种按钮
----------------
循环删除提示  <%=del_p%>放在循环前　值＝1

                             
---------------
判断后跳转
onClick="if (confirm('确定删除吗？/r/n删除后无法恢复')) {location.href="/zcyhcx.asp"}"
-------------
   1、按钮跳转

2、返回按钮
 
3、自制按钮
 
4、文字返回
返回
5、文字关闭
关闭
按钮关闭

6、刷新调用子程序按钮
'调用子程序语句ReloadButton()

7、刷新按钮

 onClick=javascript:window.opener.location.reload()//子窗口中刷新父窗口
8、弹出警告窗口

 

7、状态栏信息

 

8、背景 {MOD}变换

 

9、打开新窗口

 

---------
点击调用MM_openBrWindow打开新窗口
onClick="MM_openBrWindow('ld_xx_xgxx.asp?ld_id=<%=(yqpic.Fields.Item("ld_id").Value)%>&wjm=<%=(yqpic.Fields.Item("wjm").Value)%>','','scrollbars=0,resizable=no,width=400,height=100,left=200,top=300')"
--------
自动打开新窗口

10、执行表单
执行表单
---------
submit()语句为执行表单
---------
11、自动跳转打开到指定窗口：

新窗口名
mainFrame
topFrame
leftFrame
12、自动关闭窗口

13、文字关闭
关闭窗口
14、最小化、最大化、关闭窗口不提示

 最小化窗口

关闭窗口不提示

最大化窗口 14、关闭按钮

15、登陆三次判断
<%
dim cs_ok
cs_ok=1
session("a")=cs_ok
session("b")=session("a")+session("b")
%>
<%if session("b")=3 then %>

<% end if %>
16、鼠标行为
   1  onMouseOut　 鼠标移出
   2  onClick　　　鼠标单击
   3  onMouseOver　鼠标移过
   4  onMouseDown　鼠标按下
   5  ondblclick  双击鼠标
   6  onBlur      失去聚集时
   7　onChange    改变了页面上的值时
   8  onSelect   选择文本域中的文本时//选择时的响应事件
　　9　onChange  改变文本域中的文本时//选择后的事件响应
    Onselect:当文字加亮后，产生该文件
　　点击执行表单传递：onClick="form.submit()"
    点击下拉列表传递表单：onChange="form.submit()"
当窗体第一次调用时使用的文件句柄:onload()
当窗体关闭时调用的文件句柄:onunload()
17、时期时间计算
   1、今天是第<%=datediff("ww","2004-1-1",date())%>周

   2、今天是<%=weekdayname(weekday(date()))%>

   3、本周的星期一是<%=dateAdd("d",2-weekday(date),date())%>

   4、本周的星期日是<%=dateAdd("d",8-weekday(date),date())%>

   5、<%=datediff("d","1/1/"&year(date),date())%>计算1月1日到当前日期的天数
    cint(取四舍五入取整数数)
   <%=cint(9.435626)%>
18、弹出警告框
  onClick='alert('鼠标单击')'
----------
数据备份与还原代码
<%
 dim fileobject
 set fileobject=server.createobject("scripting.filesystemobject")
 dim sourcefile,destifile
 wjm=cstr(year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now))被拷贝文件重新命名
sourcefile=Server.MapPath("../date/webdate.mdb")'目标文件路径及文件名
destifile=Server.MapPath("../bf/"&wjm&"webdate.mdb")'拷贝到路径及文件名
IF  FileObject.FileExists(sourcefile) Then'判断目标文件如果存在就执行下列语句
 fileobject.copyfile sourcefile,destifile
 End If
%>
删除
<%
 Dim FileObject                              '定义一个FileSystemObject对象实例
 Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
 Dim SourceFile,SourceFile1,DestiFile ,wj,lj              '定义源文件和目标文件变量
  wj=(filexx.Fields.Item("wjm").Value)'读取文件名
 SourceFile1=Server.MapPath("../temp/"&wj&"")'删除的文件路径及文件名
   IF  FileObject.FileExists(SourceFile1) Then'判断目标文件如果存在就执行下列语句
 FileObject.DeleteFile SourceFile1 
 End If
 %>
-----------
单选框值判定
<%dim kk,kk1,kk2
select case (glyxg.Fields.Item("qx").Value)'数据集值
case "0"
kk="checked"
kk1=""
kk2=""
case "1"
kk1="checked"
kk=""
kk2=""
case "2"
kk2="checked"
kk1=""
kk=""
end select
%>
>'单选框表单元素
超级用户
>'单选框表单元素
一般用户
>'单选框表单元素
禁用
-----------
选择框文字
 
              左侧显示
             
              顶部显示
----------------
跳转菜单(打开新窗口)
将onChange="MM_jumpMenu('parent',this,0)"替换为onChange=javascript:window.open(this.options[this.selectedIndex].value)
----------
鼠标移动到｛信息浏览｝上打开窗口。称出关闭窗口
  信息浏览
---------------
在表格内插入下面的语句：

             

               
                  http://www.edu.com" selected>教育部
                  http://www.js.edu.cn">江苏省教育厅
               
             

           

在head中插入下面的语句：

-------------
空格、回车符的替换
<%
Dim oldMsg, newMsg,newMsg1
oldMsg =Server.HTMLEncode(tz.Fields.Item("nr").Value)
newMsg = Replace(oldMsg, vbCrLf, "
")
newMsg1 = Replace(newMsg, " ", " ")
%>
<%=newMsg1%>
------------
静态文件的调用方法
            src="/lyp.htm" frameborder=0 width=145 scrolling=no                
            height=150>

----------
asp内置函数:
Response:发送给浏览器的信息
  Response.Write 显示发送到浏览器的内容
  Response.Write 变量  等价于  <%=变量%>
  Response.Write "常量"  等价于  <%="常量"%>
  Response.Redirect "跳转到网址变量或字符串"
<% Response.Buffer=True %>????
Request:获取客户端信息
  Request.Form("变量")         (获取URL中?以后以post表单方式传递较大量的信息)
  Request.QueryString("变量")  (获取URL中?以后以get表单方式传递信息。&为变量分隔符)
  Request("变量")(自动获取传递信息)
  Request.ServerVariables("环境变量名称") 
      Request.ServerVariables("REMOTE_ADDR")客户端IP地址
      Request.ServerVariables("REMOTE_HOST")客户端主机名
Server:
  Server.MapPath("虚拟路径")  将虚拟路径转换为绝对路径
  Server.ScriptTimeout=设置asp脚本文件执行的最长时间(秒)
Application:  记录所有用户的共享信息
  Session:
  Session("MM_Username")储存登陆客户的登陆用户名信息<%=Session("MM_Username") %>
  记录特定客户信息(注册用户登陆后的信息、储存的变量)
  Session("变量")=值
  如：<% Session("mm")="张三" %>
    <% =Session("mm")%>
     显示结果：张三
    Session.Abandon  强行消除所有Session内储存的信息
----------------
记录的表示
记录集名.eof  记录集的末尾
记录集名.bof  记录集的顶部
<% If Not 记录集名.EOF Or Not 记录集名.BOF Then %>'不是末尾或不是开始
<% If Not 记录集名.EOF and Not 记录集名.BOF Then %>'不是末尾并且不是开始
记录集.MoveFirst  记录指针移到最前
记录集.MoveLast  记录指针移到最后
记录集.MoveNext 记录指针下移一位
记录集.MovePrevious 记录指针上移一位 循环
<%for i=1 to 变量或值%>//强制型循环 <%
if 条件为真时 then
执行语句
Exit for '强行跳出循环
end if
%>
如果是数据集时：<%记录集.MoveNext()'记录指针下移一位%>
<%next %>
---------
<%do  While 条件为真(True)时%>//条件型循环
执行语句
<% Exit do '强行跳出循环%>
<%记录集.MoveNext()'记录指针下移一位%>
<%loop%> <%do  Until 条件为真(True)时%>//条件型循环,使用Until关键字重复执行语句直到条件为真。
====================
 流动内容

控制鼠标onmouseover=stop(); onmouseout=start();
向上流动 direction=up　向左direction=left 向右direction=right
向下流动 direction=待写
====================
<%loop%>
---------
条件语句
<%if 条件语句 then
执行语句1
elseif
执行语句2
else
执行语句3
end if%>
----------
<%
Select Case 表达式(赋值)
Case 结果1
执行语句1
Case 结果2
执行语句2
......
Case 结果n
执行语句n
Case Else
执行语句n+1
End Select
%>
----------
变量声明 
<% dim 变量名
变量名="变更值"
%>
强制变量声明
<%Option Explicit%>//在服务器端执行时放在每一个Script语句的首行。在浏览器端执行时放在程序的首行。(不推荐用)
--------
VBScript代码的执行标识
<% VBScript 代码%>
< Script Language="VBScript" Runat="Server">'在服务器端执行
  VBScript 代码
< Script Language="VBScript">'在浏览器端执行
  VBScript 代码

-------
注释行
HTML
asp  REM 注释内容
或 '注释内容
------
脚本语言
<%@Language=VBScript%>'脚本语言VBScript
<%@Language=JavaScript%>'脚本语言为JavaScript
<%=RND()%> 0.7055643 典型情况下，你更感兴趣的是用这个函数来返回处在一定范围内的整数。要返回一个大于等于0而小于某个特定整数的数字，你可以使用如下的语句： <%=INT((upperbound+1)*RND)%> 用你想产生的最大随机数代替表达式upperbound。例如，下面的脚本返回一个0和5之间的数，包括0和5： <%=INT(5+1)*RND)%> 如果你想产生一个处在某个范围内的随机数，该范围有一个大于0的下界，可以使用如下的脚本： <%=INT((upperbound – lowerbound + 1)*RND+lowerbound)%>”Welcome!” 例如，下面的脚本产生一个50到75之间的随机数（包括50和75）： <%=INT((75-50+1)*RND+50)%>