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>