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

 

一．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)

   Next

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

Next

 

二．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>: 插入空行

②   空格：&nbsp;

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

    End If

     Loop

7.       判断字符

    For cnt% = 1 To Len(pStr)

        chrCd% = Asc(Mid(pStr, cnt%, 1))

        '半角スペス

        If (chrCd% = 32) Then

        '号【 $ 】

        ElseIf (chrCd% = 36) Then

        '号【 ( ) * + , - . / 】＆半角数字

        ElseIf (chrCd% >= 40 And chrCd <= 57) Then

        '半角英字（大文字）

        ElseIf (chrCd% >= 65 And chrCd <= 90) Then

        '号【 / 】

        ElseIf (chrCd% = 92) Then

        '号【 】

        ElseIf (chrCd% = 162) Then

        '号【 】

        ElseIf (chrCd% = 163) Then

        '半角カナ【】

        ElseIf (chrCd% = 166) Then

        '半角カナ（大文字）

        ElseIf (chrCd% >= 177 And chrCd% <= 223) Then

        '上以外

        Else

            '***チェックエラの合

            MtdChkTel = ERR_CHK

            Exit Function

        End If

    Next cnt%

 

五．语言共通

1.       数组一定为矩阵形式，无法为某一行定义空间

 

六．存储过程与sql文

1.       用查询语句为变量赋值

declare @a char

set @a = (select a from table1 where b='2')

select @a

存储过程中变量赋值：select @a = '1' ,不可以直接赋值，

       @a = '1' 是错误的

多行赋值：select @err_cd = @@error , （@@error为エラ番号，int类型 ）

                 @count = @@rowcount（@@rowcount上一个sql文影响的行数，INT）

2.       SET NOCOUNT ON

当 SET NOCOUNT 为 ON 时，不返回计数（表示受 Transact-SQL 语句影响的行数）。当 SET NOCOUNT 为 OFF 时，返回计数

3.        SQL文中检索条件如果本身带“ ’ ”，就用两个“ ’ ”替换，来避免与关键字冲突

Eg. select a from table1 where a = '3'''

     检索出的结果就是 3 '