ASP条件语句之select case语句
本文链接：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 "条件语句"
end select
%>
</body>
</html>
运行结果：条件语句
相关文档：
主目录,配置下别忘了启用父目录
问题症状：
ADODB.Connection 错误 '800a0ea9' 未指定提供程序，也没有指派的默认提供程序。
问题分析：
Windows 64位的系统上，运行下列32bit(位)应用程序，不能够完全兼容，需要独立操作解决。程序列表如下：
Internet服务API扩展
ISAPI过滤器
ASP应用程序
ASP.NET应用程序
� ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存 ......
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & se ......
