INFOX开发经验总结(asp + vb)

本文链接：https://blog.csdn.net/dzpkhas/article/details/1640356

一．asp

1. 控件

① Checkbox

I. 是否被check。

onClick="myfu(checkbox.checked)"

2. response

① response.end 后面的asp代码不被执行

② response.write(“123”) 将信息显示出来

3. 结构化语句

① Select Case Request("reqDispCnt")

Case "10"

strSelected1 = VAL_SELECTED

End Select

② For intRecCnt = 1 To Ubound(arrDataSet, 2)

4. ASP函数

① Option Explicit：强制要求显式声明脚本中的所有变量

② Mid() 函数返回特定长度的字符串(从start开始,长度为length).

Eg：response.write mid(strtest, 17, 5)

③ 时间

④ IIf( 逻辑表达式 , 表达式 1 , 表达式 2 )

Eg. IIf(A=9,"Yes","No")

5. 杂项

① 0代表false,其他是true

② 判断request中项目(reqHKaiCd)是否存在：

For each item In Request.Form

If item = "reqHKaiCd" Then

strHKaiCd = Request("reqHKaiCd")

Exit For

Else

End If

二．Js

1. 输出message: alert(“123”);

2. confirm(“123”); 弹出确认框

3. 跳转页面：

document.forms[0].action = "Receipt_Print_Mng_Ins.asp";

document.forms[0].target = "_top";

document.forms[0].submit();

4. ASP中写javaScript

< script language = "javascript">

function selInfo1() {

alert("123");

}

< /script>

三．Html

1. 文字布局

① <BR>：换行； <p>: 插入空行

② 空格： 

2. <TD>中设置文字的字体

<TD width="790" CLASS="dataheader">追加入力目

<font class="guiditem1">　 ※2は追加入力目数内では必です。</font>

</TD>

四．VB6

1. 结构化语句

① Select Case arrprm(PRM_IDX_VALUE, 1)

Case ERR_NOTHING

Case Else

Exit Function

End Select

2. 函数

① Ubound()：返回参数的下标号

Eg.Dim a(2 to 4); Ubound(a)返回的值为 4

② StrComp(str1,str2)：返回字符串比较的结果，-1是小于

③ Left(string, length ) ：返回指定数目的从字符串的左边算起的字符

④ Format函数：返回根据格式 String 表达式中包含的指令设置格式的字符串

Eg. Format(5459.4 , "##,##0.00" )

3. 基础语言

① 字符串连接符：&

② 参数类型：ByVal; ByRef

③ ByRef参数的类型应为Variant

④ Option 用来说明参数是可选的， IsMissing 判断该参数是否传递了

Function ReturnTwice(Optional A)
If IsMissing(A) Then
' 如果参数丢失，则返回 Null 。
ReturnTwice = Null
Else
' 如果参数出现，则返回两倍的值。
ReturnTwice = A * 2
End If
　 End Funciton

⑤ Option Compare {Binary | Text | Database} ：

如果使用，则 Option Compare 语句必须写在模块的所有过程之前。

Option Compare 语句为模块指定字符串比较的方法（ Binary 、 Text 或 Database ）。如果模块中没有 Option Compare 语句，则缺省的文本比较方法是 Binary

Option Explicit语句决定编译器是否要求所有的变量被显式的声明，

语法如下： Option Explicit [ On | Off ]

4. 注册dll：Regsvr32 C:/Inetpub/wwwroot/infoxweb/DLL/WtRPrnMng.dll

5. 工程及语言特点：

① .bas文件无法直接调用.cls中的变量和函数（public也不行），反过来可以

② .bas 是基础模块， .cls 是类模块

模块所定义的变量，过程都是全局性的，使用的时候不需要创建对象，直接就可以使用。
类模块与模块的区别是：使用类模块中定义的过程是需要先创建对象的。

③ 对象之间的赋值需要使用set,普通的变量不需要:

Set MobjWtcCmnRsv = pWtcCmnRsv 正确

MobjWtcCmnRsv = pWtcCmnRsv 错误

④

VB6 VB.NET
假面向对象面向对象
不支持继承支持继承
不支持重载支持重载
不支持多态支持多态
不支持接口支持接口

无命名空间概念有命名空间概念

多语言互操作不方便多语言互操作方便

解释性语言解释性语言（机制不一样）
部分本地代码无本地代码
没有 JIT 能力通过 JIT 将中间代码即时翻译成本地代码
没有类库有类库（ .NET framework ）
速度慢速度慢（稍快）（其实我认为改进很大，怕被别人骂）
不支持多平台支持多平台（微软有一个将其移植到 Linux 的计划）
不支持多线程支持多线程
（至少是不稳定的）（至少类库十多线程安全的，并且有多线程同步语句）
支持回调，但不稳定支持回调，稳定
不支持委派支持委派

支持 COM+ （简化版）支持 .NET ( 同时也支持 .NET 简化版 )

还有一点区别
版本号为 6.xx.xxxx 版本号为 7.xx.xxxx

6. 连接数据库

Private con1 As New ADODB.Connection

con1.ConnectionString = "driver={sql server};server=SUPERHAWKS;

uid=inxwebmasters;pwd=inxwebmasters;database=DB_INFOX"

con1.Open

rs1.Open "select top 1 USERNAME, PASSWORD from T_LOGIN_TEST", con1, 1, 1

Do While Not rs1.EOF

Me.List1.AddItem rs1("USERNAME")

Me.List1.AddItem rs1("PASSWORD")

rs1.MoveNext

If rs1.EOF Then

Exit Do