基于asp.net+vbscript+wsc编写网站

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
%>

    

        
姓名：
        
<%=sName%>
    
    

        
性别：
        
<%=sSex%>
    
    

        
年龄：
        
<%=iAge%>
    

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

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

Step1、创建编写一个.wsc

bzExample.wsc

 关于.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里面调用了。

HelloWorld.asp

<%
Response.write "HelloWorld"&"
"
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"&"
"

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

HelloDBwsc.asp

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

do while not rs.eof
    Response.write rs("sno")&";"&rs("sname")&"
"
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，不知真假。

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

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

5、参考资料

◎简单WSC组件的基本结构_jinghaianlange的博客-CSDN博客_wsc是什么结构

C#调用WSC（Windows Script Component）_weixin_30598225的博客-CSDN博客

利用regsvr32注册和卸载wsc格式的com组件文件 - VBS求助&讨论 - 批处理之家 批处理_BAT脚本_PowerShell_VBS_CMD_DOS_Perl_Python - Powered by Discuz!

利用regsvr32注册和卸载wsc格式的com组件文件(页 1) - VBS求助&讨论 - 批处理之家 批处理_BAT脚本_PowerShell_VBS_CMD_DOS_Perl_Python - Powered by Discuz! Archiver

C#调用WSC（Windows Script Component）_weixin_30598225的博客-CSDN博客

MySQL的ODBC驱动下载、安装以及配置数据源_arlene032的博客-CSDN博客_mysql odbc数据源下载

VBScript连接各种数据库_脑袋凉凉的博客-CSDN博客

百度百科-验证

VBS（一）VBScript的简介、优缺点介绍、VBS的用法_Dyhamics的博客-CSDN博客_vbscript

VBScript 快速入门_哔哩哔哩_bilibili

VBScript是什么？有什么优缺点？ - 走看看 (zoukankan.com)

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

Regsvr32_百度百科 (baidu.com)

VBScript 用法 | 菜鸟教程 (runoob.com)

使用 VBA 脚本连接到 SQL 数据库 - Dynamics GP | Microsoft Learn