表是这样。BetText有些是多个数字。
<%
dim conn
set conn=server.createobject("ADODB.connection")
connstr="driver={SQL Server};Server=数据库连接"
Set con = Server.CreateObject("ADODB.Connection")
con.open connstr
If Err Then
err.Clear
Set con = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
end if
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select sum(BetMoney) as '01' from Six_Bet where BetText like '%01%' and BetLx=1 and GameID=(select max(GameID) from Six_Bet)",con,1,1
For i=1 to rs.recordcount
Response.Write "01="
Response.Write ""&rs("01")&"元
"
rs.movenext
Next
rs.close
rs.open "select sum(BetMoney) as '02' from Six_Bet where BetText like '%02%' and BetLx=1 and GameID=(select max(GameID) from Six_Bet)",con,1,1
For i=1 to rs.recordcount
Response.Write "02="
Response.Write ""&rs("02")&"元
"
rs.movenext
Next
rs.close
set rs=nothing
con.close
set con=nothing
%>
能否一条sql语句查询通过rs的值
Response.Write "02="
Response.Write ""&rs("参数值")&"元
"
显示多个结果
asp写的。不太懂