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

金斗潼关

已于 2023-04-13 10:04:01 修改

阅读量998

点赞数

分类专栏：服务器后端前端文章标签： asp.net 服务器数据库 vbscript IIS

于 2023-01-08 16:03:17 首次发布

本文链接：https://blog.csdn.net/weixin_42032770/article/details/128596651

版权

后端同时被 3 个专栏收录

22 篇文章 0 订阅

订阅专栏

前端

12 篇文章 0 订阅

订阅专栏

服务器

3 篇文章 0 订阅

订阅专栏

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

HelloWorld.asp

<%
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，不知真假。

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博客

百度百科-验证

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

金斗潼关

关注

0
点赞
踩
3

收藏

觉得还不错? 一键收藏
打赏
0
评论
基于asp.net+vbscript+wsc编写网站

asp大家应该都比较熟悉，就是一个动态服务器页面，有点类似于jsp。只是不同的是asp可以在IIS服务器上创建，并且如果配置了.net环境的话，那么就可以在asp里面写vbscript。vbscript是一种脚本语言，其实就是把Visual Basic做了一个轻量级化。
复制链接

扫一扫