本文链接：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")
......
index.asp文件 保存utf-8
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<form id="form1" name="form1" method="post">
<input name="ip" type="text" id="ip" style="width:170px" />
</form>
<mce:script type="text/javascript" src="ajaxrequest-min.js" mce_src="ajaxrequest-min.js"></mce:script>
<mce:script type="text/javascript"><!--
var ajax = new AJAXRequest(); // 创建AJAX对象
function get() {
ajax.get("lookip.asp?ip=" + form1.ip.value, ShowMsg) //post提交 中间参数为传送内容
loadingtxt(txt); //loading开始
}
function loadingtxt(txt) {
document.getElementById('txt').innerHTML = "Loading..."; //loading开始
}
function ShowMsg(xmlobj) {
document.getElementById('txt').innerHTML = xmlobj.responseText; //显示回调数据
}
// --></mce:script>
<div id="txt" style="float: left; background-color: #666666; color: #FFFFFF; font-size: 12px; width: 120px; height: 18px; text-align: center"></div& ......
index.asp文件 保存utf-8
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<form id="form1" name="form1" method="post">
<input name="ip" type="text" id="ip" style="width:170px" />
</form>
<mce:script type="text/javascript" src="ajaxrequest-min.js" mce_src="ajaxrequest-min.js"></mce:script>
<mce:script type="text/javascript"><!--
var ajax = new AJAXRequest(); // 创建AJAX对象
function get() {
ajax.get("lookip.asp?ip=" + form1.ip.value, ShowMsg) //post提交 中间参数为传送内容
loadingtxt(txt); //loading开始
}
function loadingtxt(txt) {
document.getElementById('txt').innerHTML = "Loading..."; //loading开始
}
function ShowMsg(xmlobj) {
document.getElementById('txt').innerHTML = xmlobj.responseText; //显示回调数据
}
// --></mce:script>
<div id="txt" style="float: left; background-color: #666666; color: #FFFFFF; font-size: 12px; width: 120px; height: 18px; text-align: center"></div& ......
<%
'1、创建EXCEL对像
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
'2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
'3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\excel\Report.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
'4、 另存Excel文件
SaveName = "交换机_"&year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())
objExcelBook.SaveAs strAddr & "\excel\"&SaveName&".xls"
' 5、 保存Excel文件
& ......
最新文章 : asp