在ASP.net中调用存储过程的代码

调试通了在ｖｓ２００５下，

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script runat="server" language="vbscript">
     Sub On_click(ByVal sender As Object, ByVal e As EventArgs)
         Dim conn As New SqlConnection()
         Dim objReader As SqlDataReader
        
         Dim i As Integer
         'conn.ConnectionString = "data source=.;integrated security=sspi;Initial catalog=xscj;packet size=4096"错误
         'SQL Server数据库连接串
         conn.ConnectionString = "data source=.;initial catalog=data;integrated security=False;User Id=sa;Pwd=;packet size=4096"
         conn.Open()
         '创建SqlCommand对象
         Dim cmd As New SqlCommand()
         cmd.Connection = conn
         cmd.CommandType = CommandType.StoredProcedure '设置SqlCommand对象的命令类型为存储过程
         cmd.CommandText = "showscore" '指定执行的存储过程
         cmd.Parameters.Clear()
         '添加学号和课程名参数
         cmd.Parameters.Add(New SqlParameter("@no", SqlDbType.VarChar, 10))
         cmd.Parameters.Add(New SqlParameter("@course", SqlDbType.VarChar, 20))
         '为各参数赋值
         cmd.Parameters("@no").Value = Stu.Text
         cmd.Parameters("@course").Value = kc.Text
         '执行存储过程
         objReader = cmd.ExecuteReader()
         '读取并显示数据
         Response.Write("<h2 align=center> 执行存储过程showsocre的结果表</h2>")
         Response.Write("<table align=center border=2 ><tr align=center >")
         For i = 0 To objReader.FieldCount - 1 '显示表字段名
             Response.Write("<td>" & objReader.GetName(i) & "</td>")
            
         Next
         While objReader.Read()
             Response.Write("<tr>")
             For i = 0 To objReader.FieldCount - 1
                 Response.Write("<td>" & objReader.GetValue(i) & "</td>")
             Next
             Response.Write("<tr>")
         End While
         Response.Write("</table>")
         objReader.Close() '关闭DataReader对象
         conn.Close() '关闭数据连接
        
     End Sub
</script>