一、Sub与Function使用与调用
Sub 子程序名(参数1,参数2…)
……
End Sub
调用Sub时采用 Call 子程序名(参数1,参数2,….)
Function 函数名(参数1,参数2….)
……
End function
调用Function函数采用 函数名(参数1,参数2,…)
二、条件语句
If 条件 then
为真时执行内容
Else
为假时执行内容
End if
Select case 变量
Case 变量1
执行结果1
Case 变量2
执行结果2
Case else
执行结果3
End select
三、循环语句
1. For …Next
For I=1 To 100
Response.Write I
I=I+1
Next
2. Do … Loop
Do while I<100
Response.Write I
I=I+1
Loop
四、容错语句
On error Resume Next
如果碰到错误直接跳过执行下一句。
五、Response语句
Response.Write 向客户端送出信息
Response.End 终止处理，并返回当时的状况
Response.Redirect 引导客户端浏览器至新Web页面，也就是跳转。
六、Cookies应用
Response.Cookies(“变量名”)[(关键字)]=”值”
Response.Cookies(“变量名”).Expires=#2008-11-12# ‘设置结束时间
Request.Cookies(“变量名”)[(关键字)]
七、Session应用
Session(“username”)=”值”
Session.Timeout=30 ‘设置缓冲分钟
八、Sql语句
1. Select查语句
Select [Top (数值)] 字段列表 From 表名 [where 条件] [Order By 字段 Asc|Desc]
2. Insert插入语句
Insert Into 表（字段1，字段2，…）Values（值1，值2，…）
3.Delete 删除语句
Delete From 表 ［Where 条件］
4. Update 更新语句
Update 表名 Set 字段1=值1，字段2=值2，… ［Where 条件］
九、数据库操作实例
1.查询
sql="select * from 表 where ID=" & ID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.Write”找不到记录”
Response.End
end if
rs.close
set rs=nothing
2. 更新
sql="select * from 表 where ID=" & ID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("字段")=值
rs.update
rs.close
set rs=nothing
3. 插入
sql="select * from 表"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("字段")=值
rs.update
rs.close
set rs=nothing
4. 输出查询记录
sql="select * from 表 where ID<" & ID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.Write”找不到记录”
Response.End
Else
Do while Not Rs.Nof
Response.Write Rs(“字段”)
Rs.MoveNext ‘ 指针移到下一条记录
Loop
end if
rs.close
set rs=nothing
十、常用的分隔函数
Dim A
A=Split（Rs(某一字段)，"||"）
For I= 0 To Ubound(a)
Response.Write a(I)
Next