| <%
语句
……
%>
<2>定义变量dim语句
<%
dim a,b
a=10
b=”ok!”
%>
注意：定义的变量可以是数值型，也可以是字符或者其他类型的
<3>简单的控制流程语句
1. If 条件1 then
语句1
elseif 条件2 then
语句2
else
语句3
endif
2.while 条件
语句
wend
3.for count=1 to n step m
语句1
exit for
语句2
next
二.ASP数据库简单*作教程
<1>.数据库连接(用来单独编制连接文件conn.asp)
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\bbs\db1\user.mdb")
%>
(用来连接bbs\db1\目录下的user.mdb数据库)
<2>显示数据库记录
原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
如果是从头到尾：用循环并判断指针是否到末使用: not rs.eof
如果是从尾到头：用循环并判断指针是否到开始使用：not rs.bof
(包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
set rs=server.CreateObject("adodb.recordset")(建立recordset对象)
sqlstr="select * from message"---->(message为数据库中的一个数据表，即你
要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.movefirst---->(将指针移到第一条记录)
while not rs.eof---->(判断指针是否到末尾)
response.write(rs("name"))---->(显示数据表message中的name字段)
rs.movenext ---->(将指针移动到下一条记录)
wend---->(循环结束)
------------------------------------------------------
rs.close
conn.close这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
其中response对象是服务器向客户端浏览器发送的信息
<3>增加数据库记录
增加数据库记录用到rs.addnew,rs.update两个函数
(包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
set rs=server.CreateObject("adodb.recordset")(建立recordset对象)
sqlstr="select * from message"---->(message为数据库中的一个数据表，即你
要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.addnew新增加一条记录
rs("name")="xx"将xx的值传给name字段
rs.update刷新数据库
------------------------------------------------------
rs.close
conn.close这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
<4>删除一条记录
删除数据库记录主要用到rs.delete,rs.update
(包含conn.asp用来打开bbs\db1\目录下的user.mdb
数据库)
<%
dim name
name="xx"
set rs=server.CreateObject("adodb.recordset")(建立recordset对象)
sqlstr="select * from message"---->(message为数据库中的一个数据表，即你
要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
-------------------------------------------------------
while not rs.eof
if rs.("name")=name then
rs.delete
rs.update
查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，
else 否则继续查询,直到指针到末尾为止
rs.movenext
emd if
wend
------------------------------------------------------
------------------------------------------------------
rs.close
conn.close这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
<5>关于数据库的查询
(a) 查询字段为字符型
<%
dim user,pass,qq,mail,message
user=request.Form("user")
pass=request.Form("pass")
qq=request.Form("qq")
mail=request.Form("mail")
message=request.Form("message")
if trim(user)&"x"="x" or trim(pass)&"x"="x" then (检测user值和pass值是否
为空，可以检测到空格)
response.write("注册信息不能为空")
else
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from user where user=';"&user&"';"(查询user数据表中的user
字段其中user字段为字符型)
rs.open sqlstr,conn,1,3
ifrs.eof then
rs.addnew
rs("user")=user
rs("pass")=pass
rs("qq")=qq
rs("mail")=mail
rs("message")=message
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("注册成功")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("注册重名")
%>
(b)查询字段为数字型
<%
dim num
num=request.Form("num")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from message where id="&num (查询message数据表中id字段的
值是否与num相等，其中id为数字型)
rs.open sqlstr,conn,1,3
if not rs.eof then
rs.delete
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("删除成功")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("删除失败")
%>
<6>几个简单的asp对象的讲解
response对象:服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL，
或设置cookie值
request对象:客户端向服务器提出的请求
session对象:作为一个全局变量，在整个站点都生效
server对象：提供对服务器上方法和属性的访问
(a) response对象的一般使用方法
比如：
<%
resposne.write("hello, welcome to asp!")
%>
在客户端浏览器就会看到hello, welcome to asp! 这一段文字
<%
response.Redirect("www.sohu.com")
%>
如果执行这一段，则浏览器就会自动连接到 “搜狐” 的网址
关于response对象的用法还有很多，大家可以研究研究
request对象的一般使用方法
比如客户端向服务器提出的请求就是通过request对象来传递的
列如 ：你在申请邮箱的所填写的个人信息就是通过该对象来将
你所填写的信息传递给服务器的
比如：这是一段表单的代码，这是提供给客户填写信息的，填写完了按
“提交”传递给request.asp文件处理后再存入服务器数据库
那么request.asp该如何将其中的信息读入，在写入数据库，在这里就要用到
request对象了，下面我们就来分析request.asp的写法
<%
dim name,password(定义user和password两个变量)
name=request.form(“user”)(将表单中的user信息传给变量name)
password=request.form(“pass”) (将表单中的pass信息传给变量password)
%>
通过以上的几句代码我们就将表单中的数据读进来了，接下来我们要做的就是将
信息写入数据库了
剩下的就是一些VBSCRIPT参数需要学习一下就可以
asp函数速查
Abs （数值）绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0 例子：ABS(-2000)
结果：2000
Array （以逗点分隔的数组元素） Array 函数传回数组元素的值。例子：
A=Array(1,2,3)
B=A(2)
结果： 2
说明：变量Ｂ为Ａ数组的第二个元素的值。
Ａsc （字符串）将字符串的第一字母转换成 ANSI （美国国家标准符号）字码。例子：Ａsc（＂Internet＂）
结果：73
说明：显示第一字母 I 的 ANSI 字码。
CBool（表达式）转换成布尔逻辑值变量型态（Ｔrue 或Ｆalse ）例子：CBool（1+2）
结果：True
CDate （日期表达式）换成日期变量型态。可先使用 IsDate 函数判断是否可以转换成日 期。例子： CDate (now( )+2)
结果：2000/5/28 10:30:59
CDbl（表达式）转换成DOUBLE变量型态。
Chr （ ANSI 字码）将ASCII 字码转换成字符。例子： Chr （ 72 ）
结果： H
CInt （表达式）转换成整数变量型态。例子： CInt ("3.12")
结果： 3
FUNCTION: 将一个表达式转化为数字类型
SYNTAX: CInt(expression)
ARGUMENTS: 任何有效的字符均可
EXAMPLE: <%
f = "234"
response.write cINT(f) + 2
%>
CLng （表达式）转换成LONG 变量型态。
CSng （表达式）转换成SINGLE 变量型态。
CStr （表达式）转换成字符串变量型态。
Date （ ）top 传回系统的日期。例子： Date
结果： 2000/5/13
DateAdd （ I , N , D ）将一个日期加上一段期间后的日期。 I ：设定一个日期（ Date ）所加上的一段期间的单位。譬如 interval="d" 表示 N的单位为日。 I的设定值如下：
yyyy Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
n Minute 分
s Second 秒
N ：数值表达式，设定一个日期所加上的一段期间，可为正值或负值，正值表示加（结果为 >date 以后的日期），负值表示减（结果为 >date 以前的日期）。
D ：待加减的日期。例子： DateAdd （ "m" , 1 , "31-Jan-98")
结果： 28-Feb-98
说明：将日期 31-Jan-98 加上一个月，结果为 28-Feb-98 而非 31-Fe-98 。
例子： DateAdd （ "d" , 20 , "30-Jan-99")
结果： 1999/2/9
说明：将一个日期 30-Jan-99 加上 20 天后的日期。
DateDiff (I , D1 , D2[,FW[,FY]]) 计算两个日期之间的期间。
I ：设定两个日期之间的期间计算之单位。譬如 >I="m" 表示计算的单位为月。 >I 的设定值如：
yyyy > Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
m Minute 分
s Second 秒
D1 ,D2：计算期间的两个日期表达式，若 >date1 较早，则两个日期之间的期间结果为正值；若 >date2 较早， 则结果为负值。
FW ：设定每周第一天为星期几， 若未设定表示为星期天。 >FW 的设定值如下：
0 使用 >API 的设定值。
1 星期天
2 星期一
3 星期二
4 星期三
5 星期四
6 星期五
7 星期六
FY ：设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：
0 使用 >API 的设定值。
1 一月一日那一周为一年的第一周
2 至少包括四天的第一周为一年的第一周
3 包括七天的第一周为一年的第一周例子： DateDiff ("d","25-Mar-99 ","30-Jun-99 ")
结果： 97
说明：显示两个日期之间的期间为 97 天。
DatePart (I,D,[,FW[,FY]]) 传回一个日期的之部份。
>I ：设定传回那一部份。譬如 >I="d" 表示传回 部份为日。 >I 的设定值如下：
yyyy Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
m Minute 分
s Second 秒
D ：待计算的日期。
>FW ：设定每周第一天为星期几， 若未设定则表示为星期天。 >FW 的设定值如下：
0 使用 >API 的设定值。
1 星期天
2 星期一>3 星期二
4 星期三
5 星期四
6 星期五
7 星期六
FY ：设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：
0 使用 >API 的设定值。
1 一月一日那一周为一年的第一周
2 至少包括四天的第一周为一年的第一周
3 包括七天的第一周为一年的第一周例子： DatePart ("m","25-Mar-99 ")
结果： 3
说明：显示传回一个日期 的月部份。
Dateserial (year,month,day) 转换(year,month,day) 成日期变量型态。例子： DateSerial (99,10,1)
结果： 1999/10/1
DateValue ( 日期的字符串或表达式 ) 转换成日期变量型态，日期从 January 1,100 到 December 31,9999 。格式为 month,day,and year 或 month/day/year 。譬如： December 30,1999 、 Dec 30,1999 、 12/30/1999 、 12/30/99 例子： DateValue ("January 1,2002 ")
结果： 2002/1/1
Day( 日期的字符串或表达式 ) 传回日期的「日」部份。例子： Day(" 12/1/1999 ")
结果： 1
Fix( 表达式 )top 转换字符串成整数数字型态。与 Int 函数相同。若为 null 时传回 null 。
Int (number) 与 Fix(number) 的差别在负数。如 Int (-5.6)=-6 ， Fix(-5.6)=-5 。例子： Fix(5.6)
结果： 5
Hex( 表达式 )top 传回数值的十六进制值。若表达式为 null 时 Hex( 表达式 )=null ，若表达式 =Empty 时 Hex( 表达式 )=0 。 16 进位可以加「 &H 」表示，譬如 16 进位 &H10 表示十进制的 16 。例子： Hex(30)
结果： 1E
Hour( 时间的字符串或表达式 ) 传回时间的「小时」部份。例子： Hour("12:30:54 ")
结果： 12
InStr ([start,]string1,string2[,compare]) top 将一 个 字符串由左 而右与另一个比较，传回第一个相同的位置。
start 为从第几个字比较起，若省略 start 则从第一个字比较起， string1 为待寻找的字符串表达式， string2 为 待比较的字符串表达式， compare 为比较的方法， compare=0 表二进制比较法， compare=1 表文字比较法，若省略 compare 则为预设的二进制比较法。例子： InStr("abc123def123","12")
结果： 4
InstrRev ([start,]string1,string2[,compare]) 将一 个 字符串 由右而左与另一个比较，传回第一个相同的位置。
start 为从第几个字比较起，若省略 start 则从第一个字比较起， string1 为待寻找的字符串表达式， string2 为 待比较的字符串表达式， compare 为比较的方法， compare=0 表二进制比较法， compare=1 表文字比较法，若省略 compare 则为预设的二进制比较法。例子： InstrRev ("abc123def123","12")
结果： 10
Int ( 表达式 ) 传回一个数值的整数部份。与 Fix 函数相同。例子： Int (5.6)
结果： 5
IsArray ( 变数 ) 测试变量是 (True) 否 (False) 是一个数组。例子： IsArray (3)
结果： False
说明：不是一个数组。
IsDate ( 日期或字符串的表达式 ) 是否可以转换成日期。日期从 January 1,100 A.D. 到 December 31,9999 A.D 。例子： IsDate ("December 31,1999 ")
结果： True
说明：可以转换成日期。
IsEmpty ( 变数 ) 测试变量是 (True) 否 (False) 已经被初始化例子： IsEmpty (a)
结果： True
IsNull ( 变数 ) 测试变数是 (True) 否 (False) 不是有效的数据。例子： IsNull ("")
结果： False
说明：是有效的数据。 IsNumeric ( 表达式 ) 是 (True) 否 (False) 是数字。例子： IsNumeric ("abc123")
结果： False
说明：不是数字。
LCase ( 字符串表达式 ) top 转换字符串成小写。将大写字母的部份转换成小写。字符串其余的部份不变。例子： LCase ("ABC123")
结果： abc123
Left( 字符串表达式 ,length) 取字符串左边的几个字。 length 为取个字。 Len 函数可得知字符串的长度。例子： Left("ABC123",3)
结果： ABC
Len( 字符串表达式 变量 ) 取得字符串的长度。例子： Len("ABC123")
结果： 6
LTrim ( 字符串表达式 ) 除去字符串左边的空白字。 RTrim 除去字符串右边的空白字， Trim 函数除去字符串左右两边的空白字。例子： LTrim ("456+" abc ")
结果： 456abc123
Mid( 字符串表达式 ,start[,length]) top 取字符串中的几个字。 start 为从第几个 字取起， length 为取几个字， 若略 length 则从 start 取到最右底。由Len 函数可得知字符串的长度。例子： Mid("abc123",2,3)
结果： c12
Minute( 日期的字符串或表达式 ) 传回时间的「分钟」部份。例子： Minute("12:30:54")
结果：30
Month(日期的字符串或表达式) 传回日期的「月」部份。例子：Month("12/1/2001")
结果：12
MonthName(month[,abbreviate]) 传回月的名称。
month ：待传回月名称的数字 1~12 。譬如， 1 代表一月， 7 代表七月。
abbreviate: 是 (True) 否 (False) 为缩写，譬如 March ，缩写为 Mar 。默认值为 False 。中文的月名称无缩写。例子： MonthName (7)
结果：七月
Now() 传回系统的日期时间。例子： Now()
结果： 2001/12/30 10:35:59 AM
Oct() 传回数值的八进位值。八进位可以加「 &O 」表示，譬如八进位 &O10 表示十进制的 8 。例子： Oct(10)
结果： 12
Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]]) 将一个字符串取代 部份字。寻找待取代的原字符串 (find) ， 若找到则被取代为新字符串 (replacewith) 。
find ：待寻找取代的原字符串。
replacewith ：取代后的字。
start ：从第几个字开始寻找取代， 若未设定则由第一个字开始寻找。
count ：取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare ：寻找比较的方法， compare=0 表示二进制比较法， compare=1 表文字比较法， compare =2 表根据比较的 数据型态而定，若省略 compare 则为预设的二进制比较法。例子： Replace("ABCD123ABC","AB","ab")
结果： abCD123abC
Right( 字符串表达式 ,length) 取字符串右边的几个字， length 为取几个字。 Len 函数可得知字符串的长度。例子： Right("ABC123",3)
结果： 123
Rnd [(number)] 0~1 的 随机随机数值。 number 是任何有效的数值表达式。若 number 小于 0 表示每次得到相同的 随机随机数值。 number 大于 0 或未提供时表示依序得到下一个 随机随机数值。 >number=0 表示得到最近产生的 随机随机数值。为了避免得到相同的随机随机数顺序，可以于 Rnd 函数前加 Randomize 。例子： Rnd
结果： 0.498498
Round( 数值表达式 [,D]) 四舍五入。
D ：为四舍五入到第几位小数，若省略则四舍五入到整数。例子： Round(30635,1)
结果： 3.6
RTrim ( 字符串表达式 ) 除去字符串右边的空白字。 LTrim 除去字符串左边的空白字， Trim 函数除去字符串左右两边的空白字。例子： RTrim ("abc123 ")+"456"
结果： abc123456
Second( 时间的字符串或表达式 )top 传回时间的「秒」部份。例子：Second("12:30:54")
结果：54
Space( 重复次数 ) 得到重复相同的空白字符串。例子： A"+Space (5)+"B
结果： A B
说明： A 和 B 中间加入五个空白字。
String( 重复次数，待重复的字 ) 得到重复相同的字符串。例子： String(5,71)
结果： GGGGG
StrReverse (String(10,71)) 将一个字符串顺序颠倒。例子： StrReverse ("ABC")
结果： CBA
Time() 传回系统的时间。例子： Time
结果： 10:35:59 PM
TimeSerial (hour,minute,second) 转换指定的 ( hour,minute,second) 成时间 变量型态。例子： TimeSerial (10,31,59)
结果： 10:31:59
TimeValue ( 日期的字符串或表达式 ) 转换 成时间变量型态。日期的字符串或表达式从 0:00:00(12:00:00 A.M.) 到 23:59:59(11:59:59 P.M.) 。例子： TimeValue (" 11:59:59 ")
结果： 11:59:59
Trim( 字符串表达式 ) 除去字符串左右两边的空白字。例子： Trim(" abc123 ")
结果： abc123
UCase ()top 转换字符串成大写。将小写字母的部份转换成大写，字符串其余部份不变。例子： UCase ("abc123")
结果： ABC123
VarType ( 变数 ) 传回一个变量类型。与 TypeName 函数相同， VarType 传回变量类型的代码， TypeName 传回变量类型的名称。例子： VarType ( "I love you!")
结果： 8
Weekday( 日期表达式 ,[FW]) 传回星期几的数字。
FW ：设定一周的第一天是星期几。若 省略则表 1( 星期日 ) 。
Firstdayfweek 设定值为： 1( 星期日 ),2( 星期一 ),3( 星期二 ),4( 星期三 ),5( 星期四 ),6( 星期五 ),7( 星期六 ) 。例子： Weekday(" 1/1/2000")
结果： 7
WeekDayName (W,A,FW) 传回星期几的名称。
W ：是 (True) 否 (False) 为缩写。譬如 March ，缩写为 Mar 。预设为 False 。中文的星期几名称无缩写。
FW ：设定一周的第一天是星期几。 若省略表 1( 星期日 ) 。设定待传回星期几的名称，为一周中的第几天。
A ： 1( 星期日 ),2( 星期一 ),3( 星期二 ),4( 星期三 ),5( 星期四 ),6( 星期五 ),7( 星期六 ) 。例子： WeekDayName ("1/1/2000")
结果：星期六
Year() 传回日期的「年」部份。例子： Year(" 12/1/2000 ")
结果： 2000
FormatDateTime()
FUNCTION: 返回表达式，此表达式已被格式化为日期或时间
SYNTAX: FormatDateTime(Date, [, NamedFormat])
ARGUMENTS: NamedFormat 指示所使用的日期/时间格式的数值，如果省略，则使用
vbGeneralDate.
EXAMPLE: <%=FormatDateTime("08/4/99", vbLongDate)%>
RESULT: Wednesday, August 04, 1999
WeekDay()
FUNCTION: 返回在一周的第几天.
SYNTAX: WeekDay(date [, firstdayofweek])
ARGUMENTS: .
EXAMPLE: <%
d = #8/4/99#
response.write Weekday(d)
%>
RESULT: 4(星期三)
StrReverse()
FUNCTION: 反排一字符串
SYNTAX: StrReverse(string)
ARGUMENTS:
EXAMPLE: <%
strTest = "This is a test!!"
response.write StrReverse(strTest)
%>
RESULT: !!tset a si sihT
IsEmpty()
FUNCTION: 判断一对象是否初始化，返回布尔值.
SYNTAX: IsEmpty(expression)
ARGUMENTS:
EXAMPLE: <%
Dim i
response.write IsEmpty(i)
%>
RESULT: True
IsDate()
FUNCTION: 判断一对象是否为日期，返回布尔值
SYNTAX: IsDate(expression)
ARGUMENTS: expression is any valid expression.
EXAMPLE: <%
strTest = "8/4/99"
response.write IsDate(strTest)
%>
RESULT: True
函数Mod()功能:取余数.
例子:3 Mod 2
结果:1
再补充修正一些
ScriptEngine
返回使用的脚本语言的名称。
ScriptEngineBuildVersion
返回使用的脚本引擎版本。
ScriptEngineMaorVersion
返回使用的脚本引擎的大版本号。
Second(time)
根据参数time的值返回该分的第几秒。
Sgn(number)
返回数number的正负号。
Sin(number)
返回数number的正弦值。
Space(number)
用指定数量的空格创建字符串。
Split(expression[,delimiter[,count[,compare]]])
把一个字符串分割并转换成数组。关于compare的值请参看后面“比较常数”一节。
Sqr(number)
返回数number的平方根值。
StrComp(string1,string2[,compare])
字符串比较。关于compare的值请参看后面“比较常数”一节。
StrReverse(string1)
对字符串string1进行倒序。
String(number,character)
用number个字符character创建字符串。
Tan(number)
返回数number的正切。 :em12: |
