中航锂电对身体有害吗:能帮我解释一下这段ASP代码嘛?谢谢!

Sub PE_Execute(strDllName, strClassName, DllType)

字符 Sub 表示这是个子程序
子程序名: PE_Execute
输入参数: strDllName, strClassName, DllType

Dim PE_Admin, objName

字符 Dim 表示后面为定义的变量
一个变量为 PE_Admin, 另一个为 objName

objName = strDllName & "." & strClassName

符号 & 表示连接两边的字符串
这句就是将 strDllName与strClassName用 . 号连接后赋给变量 objName

Set PE_Admin = Server.CreateObject(objName)

Set 创建对象时使用的保留字
Server.CreateObject(name) 用来创建一个name对象
name可以是ADODB.Connection ADODB.Recordset...

PE_Admin.iConnStr = ConnStr

将对象 PE_Admin 的属性 iConnStr 值设为 ConnStr
这里的 . 号表示对象所属关系。

Select Case DllType

Select Case t是VBScript 中的选择语句

Case "CMS"

等同于 If DllType = "CMS" Then

PE_Admin.iCMS_Edition = CMS_Edition

对象PE_Admin 的属性 iCMS_Edition 的值设为 CMS_Edition

Case "eShop"

等同于 If DllType = "eShop" Then

PE_Admin.ieShop_Edition = eShop_Edition

对象PE_Admin 的属性 ieShop_Edition 的值设为 eShop_Edition

Case "CRM"

等同于 If DllType = "CRM" Then

PE_Admin.iCRM_Edition = CRM_Edition

对象PE_Admin 的属性 iCRM_Edition的值设为 CRM_Edition

Case Else

如果 DllType 不等于上面列出的值

End Select

退出选择结构 End Select 要于 Select Case 配对

PE_Admin.iSystemDatabaseType = SystemDatabaseType

对象PE_Admin 的属性iSystemDatabaseType的值设为 SystemDatabaseType

Call PE_Admin.Execute

调用对象 PE_Admin 的 Execute 方法

Set PE_Admin = Nothing

释放 PE_Admin 对象所占的资源

End Sub

子程序结束