ASP数据列表

ASP数据列表

在ASP中查询数据填充列表，因为ASP后台代码采用VB脚本，因此，它的语法跟VB6.0是一样，早期做过VB项目的童鞋就很熟悉了

而它嵌入的方式跟ASP.NET是一样的<%%>嵌入脚本，<=%%>嵌入等式，字符串拼接符是&

解释执行方式，没有特定的开发环境，甚至用txt文档就可以编写，但这也是缺点，VB脚本没有智能提示

而且没有模板页，这就会产生很多冗余代码

asp一般来说只会在一些旧的站点上稍做维护

<%OPTION EXPLICIT%>

<%

 dim ProcName,rsResult

 

 ProcName="FD_List"

 Dim sqlCommand

 

 set sqlCommand = new clsSqlCommand

 

 sqlCommand.Connection = getSalesManagementConnection()

 '查询存储过程

 sqlCommand.CommandText = ProcName

'如果直接查询

' sqlCommand.CommandType = adCmdText

' sqlCommand.CommandText="select * from XX"

 

 Set rsResult = sqlCommand.Execute()

 If sqlCommand.value<>0 then

%>

 <script language="javascript">

  alert('<%=ConvertJS(sqlCommand.Message)%>')

 </script>

<%

  set sqlCommand = nothing

  Response.End

 end if

 

%>

<table>

    <%

     while not rsResult.Eof

    %>                  

     <TR onClick="TheTableControl.SelectARow(this.rowIndex);"<%If rsResult("Status") = 9 Then%> style="color:#555555;"<%End If%>>              

     <TD class=tbcolhead><%=rsResult("InvoiceDate")%></TD>

    </TR>

      <%

        rsResult.moveNext

       wend

      %>  

</table>

ASP数据列表

在ASP中查询数据填充列表，因为ASP后台代码采用VB脚本，因此，它的语法跟VB6.0是一样，早期做过VB项目的童鞋就很熟悉了

而它嵌入的方式跟ASP.NET是一样的<%%>嵌入脚本，<=%%>嵌入等式，字符串拼接符是&

解释执行方式，没有特定的开发环境，甚至用txt文档就可以编写，但这也是缺点，VB脚本没有智能提示

而且没有模板页，这就会产生很多冗余代码

asp一般来说只会在一些旧的站点上稍做维护

<%OPTION EXPLICIT%>

<%

 dim ProcName,rsResult

 

 ProcName="FD_List"

 Dim sqlCommand

 

 set sqlCommand = new clsSqlCommand

 

 sqlCommand.Connection = getSalesManagementConnection()

 '查询存储过程

 sqlCommand.CommandText = ProcName

'如果直接查询

' sqlCommand.CommandType = adCmdText

' sqlCommand.CommandText="select * from XX"

 

 Set rsResult = sqlCommand.Execute()

 If sqlCommand.value<>0 then

%>

 <script language="javascript">

  alert('<%=ConvertJS(sqlCommand.Message)%>')

 </script>

<%

  set sqlCommand = nothing

  Response.End

 end if

 

%>

<table>

    <%

     while not rsResult.Eof

    %>                  

     <TR onClick="TheTableControl.SelectARow(this.rowIndex);"<%If rsResult("Status") = 9 Then%> style="color:#555555;"<%End If%>>              

     <TD class=tbcolhead><%=rsResult("InvoiceDate")%></TD>

    </TR>

      <%

        rsResult.moveNext

       wend

      %>  

</table>