<%
'
' Made by Goodspeed
'
'
Option Explicit
Response.Buffer = True
'sql資料庫連接參數：資料庫名、使用者密碼、使用者名稱、串連名（本地用local，外地用IP）
Const SqlUsername = "sa"
Const SqlPassword = "qwe"
Const SqlDatabaseName = "NorthWind"
Const SqlLocalName = "127.0.0.1"
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'開啟資料庫
Dim Conn
Set Conn=server.createobject("adodb.connection")
Conn.Open ConnStr
%>
<html>
<head>
<title>ASP Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table>
<%
Dim rs, rs1,strSQL, Field, strResponse,cmd,rs2
Set rs = Server.CreateObject("ADODB.Recordset") '建立記錄集對象
Set cmd = Server.CreateObject("ADODB.Command") '建立命令對象
set cmd.ActiveConnection=Conn
cmd.CommandText="aaa"
cmd.CommandType = 4 '命令類別為4,表示為預存程序
set rs =cmd.execute
Do Until rs is nothing
'輸出表頭
strResponse = "<tr>"
For Each Field In rs.Fields
strResponse = strResponse & "<td>" & Field.Name & "</td>"
Next
strResponse = strResponse & "</tr>"
'輸出表體
Do Until rs.EOF
strResponse = strResponse & "<tr>"
For Each Field In rs.Fields
strResponse = strResponse & "<td>" & rs(Field.Name) & "</td>"
Next
strResponse = strResponse & "</tr>"
rs.MoveNext
Loop
Set rs = rs.NextRecordset()
Loop
Set rs = nothing
Response.Write (strResponse)
%>
</table>
</body>
</html>
<%
Conn.Close()
Set Conn = nothing
%><script runat="server">
void Page_Load(object sender, EventArgs e)
{
System.Data.DataSet ds = SqlHelper.ExecuteDataSet("aaa");
GridView1.DataSource = ds.Tables[1];
GridView1.DataBind();
}
</script>
