本文链接：http://www.oversteper.com/wprogram/asp/826.html
ASP 定义常量的方法
常量：用一种名称代替数字和字符串，且其值保持一直不变。
在 VBscript 中，可以用 const 语句来定义常量。
常量分数字型和字符串型。
表示日期的常量写在两个 # 之间。
示例：
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> ASP 定义常量 </title>
</head>
<body>
<%
const a=123456789 //定义的常量为数字
const b="<hr width=120 align='left'/>定义常量<hr width=120 align='left'/>>" //定义的常量为字符串
const c=# 2010-01-16 # ......
本文链接：http://www.oversteper.com/wprogram/asp/827.html
条件语句之 if ... then ... else 语句
用来判断条件是 true 或 false ，并根据判断结果来执行指定的语句，通常条件是用比较运算符对值或变量进行比较来表达。
if ... then ... else 可以根据需要进行嵌套使用，可以写成 elseif 。
示例：
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> 条件语句之 if ... then ... else 语句 </title>
</head>
<body>
<%
dim a '声明一个变量
a=9 '给变量赋值
if a<8 then
response.write "循环语句" '条件语句
else ......
本文链接：http://www.oversteper.com/wprogram/asp/828.html
条件语句之 select case 语句
1、多条件分支的时候优先使用select case结构；
2、数字的大量列举时最好使用select case
3、必须使用 end select 来结束分支结构
示例：
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> 条件语句之 select case 语句 </title>
</head>
<body>
<%
dim a '声明一个变量
a=6 '给变量赋值
select case a
case 1,2,3,4
response.Write "循环语句"
case 5,6,7,8
response.Write "条件语句"
......
本文链接：http://www.oversteper.com/wprogram/asp/829.html
循环语句的概念
循环语句是指重复执行的语句，可分为三类：
1，当条件变为假之前重复执行语句；
2，当条件变为真之前重复执行语句；
3，按照指定的次数重复执行语句。
VBscript 的循环语句
<1> do ... loop 直到条件为真时执行循环；
<2> while ... wend 当条件为真时执行循环；
<3> for ... next 指定循环次数，使用计数器重复执行语句；
<4> foreach ... next 对于集合或数组中的每项，重复执行一组语句。
Do ... loop 语句格式
格式1：
以下为引用内容：
<%
do while 条件 //先判断 while 后面的条件是否为真，如果为真则执行以下代码。
需要执行的语句
loop
%>
格式2：
以下为引用内容：
<%
do //先至少执行一次循环体，然后再判断 while 后面的条件是� ......
本文链接：http://www.oversteper.com/wprogram/asp/830.html
do ... loop 语句两种格式的示例
do whil ... loop ：
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> VBscript 循环语句之 do ... loop 语句 </title>
</head>
<body>
<%
dim i '声明一个变量
i=1 '给变量赋值
do while i<10
response.Write "VBscript 循环语句之 do ... loop 语句 <br/>"
i=i+1
loop
%>
</body>
</html>
do ... loop while:
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ......
<%
'==================================================
'函数名：GetHttpPage
'作 用：获取网页源码
'参 数：HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
'==================================================
'函数名：BytesToBstr
'作 用：将获取的源码转换为中文
'参 数：Body ------要转换的变量
'参 数：Cset ------要转换的类型
'==================================================
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
......
最新文章 :