1、前言

asp大家应该都比较熟悉，就是一个动态服务器页面，有点类似于jsp。只是不同的是asp可以在IIS服务器上创建，并且如果配置了.net环境的话，那么就可以在asp里面<%%>写vbscript。vbscript是一种脚本语言，其实就是把Visual Basic做了一个轻量级化。要注意的是vbscript和Visual Basic之间的关系不等同于javascript和java之间的关系。vbscript是可以操作数据库，写业务层和持久层的，而且许多语法机制和Visual Basic是差不多的。而javascript就是一个纯前端的语言，主要负责一些前端的动态效果以及一些响应事件，和java完全没有关系。只是因为当时javascript的开发者为了推广这门语言，才给它名字中带了“java”，目的就是为了借助java的名气来让更多的人使用javascript。wsc是一种windows脚本文件类型“.wsc”，wsc全称是“Windows Script Component”，是一种在windows下跑的脚本文件，如果你要使用它的话，要先将其注册为windows脚本文件。asp，vbscript，IIS这些是微软开发的一套专门建立网站技术工具。asp和vbscript都是20多年前的语言了，IIS我查了一下貌似在windows98上面就已经有了。反正年纪应该都比我大。我目前所在公司的内网系统就是用了这套微软的技术。所以特地熟悉一下。

vbscript开发手册

链接：https://pan.baidu.com/s/1FPHefYjhQWWMx863p3lGLw
提取码：yyds

2、编写网站代码

操作系统windows10

2.1、asp内嵌vbscript编写网页

Step1、搭建IIS服务器

可参考：使用IIS服务器搭建一个网站_金斗潼关的博客-CSDN博客

Step2、编写一个asp页面

"<%%>"里的是vbscript脚本语言

<%
Response.write "HelloWorld"
dim sName,sSex
sName="张三"
sSex="男"
iAge=20
%>
<table border="1">
    <tr>
        <td>姓名：</td>
        <td><%=sName%></td>
    </tr>
    <tr>
        <td>性别：</td>
        <td><%=sSex%></td>
    </tr>
    <tr>
        <td>年龄：</td>
        <td><%=iAge%></td>
    </tr>
</table>

2.2、asp内嵌vbscript并调用wsc编写网页

wsc全称是“Windows Script Component”，“.wsc”是一种在windows下跑的脚本文件。可以在".wsc"文件里面写vbscript，在windows里面注册一下注册成windows组件，这样就可以用面向对象的方式，在asp里面通过CreateObject("XXX.wsc")创建该组件的对象，然后调用里面的那些vbscript函数。

Step1、创建编写一个.wsc

bzExample.wsc

<?xml version="1.0" encoding="gb2312" ?>
<component>
<registration
	description="bzExample"
	progid="bzExample.WSC"
	version="1.00"
>
</registration>
<public>
    <method name="ListPeople">
		<PARAMETER name="idPeople"/>
        <PARAMETER name="sName"/>
        <PARAMETER name="sSex"/>
        <PARAMETER name="iAge"/>
	</method>
</public>

<implements type="ASP" id="ASP"/>

<script language="VBScript">
<![CDATA[

Option Explicit

    Public Function ListPeople(idPeople,sName,sSex,iAge)
        Response.write "PeopleId："&idPeople&"<br/>"&"姓名："&sName&"<br/>"&"性别："&sSex&"<br/>"&"年龄："&iAge
    End Function

]]>
</script>
</component>

关于.wsc文件的结构可以看下这篇：◎简单WSC组件的基本结构_jinghaianlange的博客-CSDN博客_wsc是什么结构

.wsc文件差不多是这么的一种结构

Step2、把.wsc文件注册成windows组件

编写好的.wsc文件要想可以在asp里面使用，可以CreateObject("XXX.wsc")创建该组件的对象就必须先将其注册。

方法一、右键.wsc文件，点击"Register"

如果注册的时候碰到了这个问题，那就用cmd以管理员的身份打开命令提示符窗口。用代码注册。

//cmd注册代码
regsvr32 scrobj.dll /i:D:\MyWsc\bzExample.wsc

当然如果用命令行的方式也不成功的话，有可能就是windows系统中少了一些组件，建议更新一下windows或者把错误代码去网上查一下。

.wsc注册成功后就可以在asp里面调用了。

bzExample.wsc

<%
Response.write "HelloWorld"&"<br/>"
Set bzExample=CreateObject("bzExample.WSC")
Call bzExample.ListPeople("001","张三","男",20)
%>

当然如果某个.wsc文件不想用的话，可以将其Unregister。

注意直接鼠标右键Unregister可能不生效，所以建议用cmd命令直接移除注册的.wsc组件

scrobj.dll /u /i:D:\MyWsc\bzExample.wsc

这样的话，asp页面就无法调用.wsc了

3、使用vbscript连接mysql数据库

3.1、一个简单的asp内嵌vbscript访问mysql数据库Demo

首先要确保你电脑上有安装mysql驱动

如果不知道怎么装mysql驱动的话可以参考下这篇：MySQL的ODBC驱动下载、安装以及配置数据源_arlene032的博客-CSDN博客_mysql odbc数据源下载

HelloDB.asp

<%
Response.write "HelloDB"&"<br/>"

Set cn = CreateObject("ADODB.Connection")
cn.CursorLocation = 3 'adUseClient
connStr="driver={MySQL ODBC 8.0 Unicode Driver};server=127.0.0.1;port=3306;uid=root;pwd=123456;database=mydb"
cn.Open connStr
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
Set BuildCommand = cmd

sSQL = "SELECT * from t_student where sno=20160001;"
Set rs=cn.Execute(sSQL)
Response.write rs("sname")
%>

从数据库表中取出了“张三”

这种方式通常是用来做测试的，在实际开发中是不会用这种方式访问数据库的。

3.2、创建一个dbXXX.wsc作为持久层访问数据库

Step1、创建一个.wsc文件dbExample.wsc作为持久层用来访问数据库并将其注册到windows上

Step2、编写增删改查代码

dbExample.wsc

<?xml version="1.0" encoding="gb2312" ?>
<component>
<registration
	description="dbExample"
	progid="dbExample.WSC"
	version="1.00"
>
</registration>
<public>
    <method name="ListStudentByClass">
		<PARAMETER name="sClass"/>
	</method>

    <method name="AddStudent">
        <PARAMETER name="sNo"/>
        <PARAMETER name="sName"/>
        <PARAMETER name="iAge"/>
        <PARAMETER name="sSex"/>
        <PARAMETER name="sClass"/>
    </method>

    <method name="DeleteStudentBySno">
        <PARAMETER name="sNo"/>
    </method>

    <method name="UpdateStudentBySno">
        <PARAMETER name="sNo"/>
        <PARAMETER name="sName"/>
        <PARAMETER name="iAge"/>
        <PARAMETER name="sSex"/>
        <PARAMETER name="sClass"/>
    </method>
    
</public>


<implements type="ASP" id="ASP"/>

<script language="VBScript">
<![CDATA[

Option Explicit

dim CONNSTR
CONNSTR="driver={MySQL ODBC 8.0 Unicode Driver};server=127.0.0.1;port=3306;uid=root;pwd=123456;database=mydb"

    '查找
    Public Function ListStudentByClass(sClass)
        dim cn,cmd,sSQL,BuildCommand
        Set cn = CreateObject("ADODB.Connection")
        cn.CursorLocation = 3 'adUseClient
        cn.Open CONNSTR
        Set cmd = CreateObject("ADODB.Command")
        cmd.ActiveConnection = cn
        Set BuildCommand = cmd
        sSQL = "SELECT * from t_student where sclass="&"'"&sClass&"'"
        'response.write sSQL
        Set ListStudentByClass=cn.Execute(sSQL)
    End Function

    '添加
    Public Function AddStudent(sNo,sName,iAge,sSex,sClass)
        dim cn,cmd,sSQL,BuildCommand
        Set cn = CreateObject("ADODB.Connection")
        cn.CursorLocation = 3 'adUseClient
        cn.Open CONNSTR
        Set cmd = CreateObject("ADODB.Command")
        cmd.ActiveConnection = cn
        Set BuildCommand = cmd
        sSQL = "INSERT INTO t_student(sno, sname, age, sex, sclass) VALUES ("&sNo&","&"'"&sName&"'"&","&iAge&","&"'"&sSex&"'"&","&"'"&sClass&"'"&")"
        'response.write sSQL
        Set AddStudent=cn.Execute(sSQL)
    End Function

    '删除
    Public Function DeleteStudentBySno(sNo)
        dim cn,cmd,sSQL,BuildCommand
        Set cn = CreateObject("ADODB.Connection")
        cn.CursorLocation = 3 'adUseClient
        cn.Open CONNSTR
        Set cmd = CreateObject("ADODB.Command")
        cmd.ActiveConnection = cn
        Set BuildCommand = cmd
        sSQL = "Delete from t_student where sno="&sNo
        'response.write sSQL
        Set DeleteStudentBySno=cn.Execute(sSQL)
    End Function

    '修改
    Public Function UpdateStudentBySno(sNo,sName,iAge,sSex,sClass)
        dim cn,cmd,sSQL,BuildCommand
        Set cn = CreateObject("ADODB.Connection")
        cn.CursorLocation = 3 'adUseClient
        cn.Open CONNSTR
        Set cmd = CreateObject("ADODB.Command")
        cmd.ActiveConnection = cn
        Set BuildCommand = cmd
        sSQL = "Update t_student set sname="&"'"&sName&"'"&","&"age="&iAge&","&"sex="&"'"&sSex&"'"&","&"sclass="&"'"&sClass&"'"&" where sno="&sNo
        'response.write sSQL
        Set UpdateStudentBySno=cn.Execute(sSQL)
    End Function
]]>
</script>
</component>

HelloDBwsc.asp

<%
Set dbExample=CreateObject("dbExample.wsc")
'查询
Set rs=dbExample.ListStudentByClass("2016222")

do while not rs.eof
    Response.write rs("sno")&";"&rs("sname")&"<br/>"
rs.movenext
loop

'添加
'Call dbExample.AddStudent(20180002,"钱七",25,"男","2018223")

'删除
'Call dbExample.DeleteStudentBySno(20180001)

'修改
'Call dbExample.UpdateStudentBySno(20180002,"钱七",24,"男","2018223")
%>

我这里写的不太规范，通常asp是不好直接访问持久层(dbExample.wsc)的，要经过业务层，业务层里调用持久层的方法并做一些处理，然后asp再调用业务层的方法。

4、总结

因为最近得了新冠，刚刚好，还有些咳嗽，所以周末就待在家里，正好有时间就整理了一下。从我工作中接触下来，vbscript还是蛮方便的一门语言。作为一种轻量级解释型语言，vbscript不需要专门去下载安装特定的运行环境。因为.Net是微软开发的一个平台，我们所使用的windows操作系统里面就有集成.Net环境，比如.Net Framework。因此在windows环境下我们用记事本编写.Net代码然后保存为.vbs的文件，直接鼠标双击就可以运行了。因此早期的一些木马病毒都会用vbscript编写。不过我看网上很多人说微软要淘汰vbscript，据说IE11就要禁用vbscript，不知真假。我们公司因为是2000年才成立，所以公司的信息系统中很多网页业务都是用asp+vbscript写的，服务器就是IIS。在当时算是比较先进的技术了。当然嘛技术栈更新迭代很快的。目前虽然也有用微服务+react去重构一些内网的系统。但也是针对一些不太复杂的，或者一些门面网站。其他像销售、采购、库存、商务、财务等等这些因为代码经过近20年的不断迭代，业务层和持久层太过复杂了。所以还在用vbscript，一时半会儿只能维持现状，哪怕过几年也这样。不过因为是内网系统都是公司内部的人在用，用户数不多，所以其实IIS服务器也够用了。现在的主要重点难点在于数据处理和数仓建设上面。

vbscript其实还是蛮适合作为一门入门的语言的，我当年读高中的时候有一门信息科技的课，就教了Visual Basic。不过还要特地去下专门的编译软件才行。对于电脑小白来说还是蛮麻烦的，网上捆绑软件各种恶意程序太多了。如果当时教材能选用vbscript作为教学语言，就方便许多。

总而言之，vbscript+asp+IIS搭建一个小型网站还是蛮方便的，反正仁者见仁智者见智吧。