<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %> <%@ import namespace="system.data"%> <%@ import namespace="system.data.sqlclient"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <script language="vb" runat="server"> sub page_load(sender as object,e as eventargs) dim cnn as sqlconnection dim cmd as sqlcommand dim html as string dim datar as sqldatareader "建立连接对象 cnn=new sqlconnection("server=LYWS;uid=sa;pwd=sa;database=book") cmd=new sqlcommand("select * from bookinfo",cnn) cmd.connection.open() "将结果集赋给datareader对象 datar=cmd.executereader() response.Write("<center><h2>图书信息表<h2><center>") response.Write("<center><table border=1 style="width:18cm">") response.Write("<tr>") response.Write("<th>图书代码</th>") response.Write("<th>图书名称</th>") response.Write("<th>出版社</th>") response.Write("<th>定价</th>") response.Write("<th>版别</th>") response.Write("<th>作者</th>") response.Write("</tr>")
try "调用datareader对象的reader方法,通过while循环,遍利结果集 while (datar.read()) response.Write("<tr>") response.Write("<td align="center">" + datar("图书代码").tostring() + "</td>") response.Write("<td>" + datar("图书名称").tostring() + "</td>") response.Write("<td>" + datar("出版社").tostring() + "</td>") response.Write("<td align="right">" + datar("定价").tostring() + "</td>") response.Write("<td>" + datar("版别").tostring() + "</td>") response.Write("<td>" + datar("作者").tostring() + "</td>") response.Write("</tr>") end while response.Write("</table></center>") finally datar.close() cnn.close() end try end sub </script> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>datareader对象测试!</title> </head> <body bgcolor="#9999ff"> <br>
精品推荐