ASP和ASP.net中多结果集的返回

ASP连接SQL数据库示例
此博客展示了ASP连接SQL数据库的代码示例。包含数据库连接参数设置、打开数据库、建立记录集和命令对象、执行存储过程获取数据并输出到表格,最后关闭数据库连接,还涉及服务器端脚本绑定数据到GridView。
None.gif<%
None.gif
'
None.gif'
    Made by Goodspeed
None.gif'
None.gif'
    
None.gif
Option Explicit 
None.gifResponse.Buffer 
= True
None.gif
'sql数据库连接参数:数据库名、用户密码、用户名、连接名(本地用local,外地用IP)
None.gif
Const SqlUsername = "sa"
None.gif
Const SqlPassword = "qwe"
None.gif
Const SqlDatabaseName = "NorthWind"
None.gif
Const SqlLocalName = "127.0.0.1"
None.gif
Dim ConnStr
None.gif
None.gifConnStr 
= "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
None.gif

None.gif
'打开数据库
None.gif
Dim Conn
None.gif
Set Conn=server.createobject("adodb.connection")
None.gifConn.Open ConnStr
None.gif%
>
None.gif
<html>
None.gif
<head>
None.gif    
<title>ASP Test</title>
None.gif    
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
None.gif
</head>
None.gif
<body>
None.gif
<table>
None.gif
<%
None.gif
Dim rs, rs1,strSQL, Field, strResponse,cmd,rs2
None.gif
None.gif
Set rs = Server.CreateObject("ADODB.Recordset"'建立记录集对象 
None.gif
Set cmd = Server.CreateObject("ADODB.Command"'建立命令对象
None.gif
set cmd.ActiveConnection=Conn
None.gifcmd.CommandText
="aaa"
None.gif
cmd.CommandType = 4 '命令类别为4,表示为存储过程 
None.gif

None.gif
set rs =cmd.execute
None.gif
None.gif
Do Until rs is nothing
None.gif
None.gif    
'输出表头
None.gif
    strResponse = "<tr>"
None.gif
    For Each Field In rs.Fields
None.gif        strResponse 
= strResponse & "<td>" & Field.Name & "</td>"
None.gif
    Next
None.gif    strResponse 
= strResponse & "</tr>"
None.gif

None.gif
    '输出表体
None.gif
    Do Until rs.EOF
None.gif        strResponse 
= strResponse & "<tr>"
None.gif

None.gif
        For Each Field In rs.Fields
None.gif            strResponse 
= strResponse & "<td>" & rs(Field.Name)  & "</td>"
None.gif
        Next
None.gif        
None.gif        strResponse 
= strResponse & "</tr>"
None.gif
        rs.MoveNext
None.gif    
Loop
None.gif    
Set rs = rs.NextRecordset()
None.gif
Loop
None.gif
Set rs = nothing
None.gifResponse.Write (strResponse)
None.gif%
>
None.gif
</table>
None.gif
</body>
None.gif
</html>
None.gif
<%
None.gifConn.Close()
None.gif
Set Conn = nothing
None.gif%
>
None.gif<script runat="server">
None.gif
None.gif    
void Page_Load(object sender, EventArgs e)
ExpandedBlockStart.gifContractedBlock.gif    
dot.gif{
InBlock.gif        System.Data.DataSet ds 
= SqlHelper.ExecuteDataSet("aaa");
InBlock.gif
InBlock.gif        GridView1.DataSource 
= ds.Tables[1];
InBlock.gif        GridView1.DataBind();
ExpandedBlockEnd.gif    }

None.gif
</script>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值