particular.aspx
来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 37 行
ASPX
37 行
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim conn As New SqlConnection("Server=localhost;Database=address;Uid=test;Pwd=123456")
'建立Command对象,使用了存储过程**********************************************************
Dim cmd As New SqlCommand("address_Select2",conn) '其中address_Select2为存储过程名称
cmd.CommandType=CommandType.StoredProcedure '表示使用存储过程
'下面建立传入参数对象,并给其赋值
cmd.Parameters.Add(New SqlParameter("@id",SqlDbType.NVarChar))
cmd.Parameters("@id").Value = Request.QueryString("id") '这里利用了传过来的id
'****************************************************************************************
'下面执行存储过程,读取数据
conn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader() '建立DataReader对象
'下面开始显示数据
dr.Read() 'dr.Read()就会读取当前记录
message.Text = "姓名:" & dr.Item("name")
message.Text &= "<br>电话:" & dr.Item("tel")
message.Text &= "<br>email:<a href='mailto:" & dr.Item("email") & "' target='_blank'>" & dr.Item("email") & "</a>"
message.Text &= "<br>简介:" & dr.Item("intro")
message.Text &= "<br>提交时间:" & dr.Item("submit_date")
conn.Close()
End Sub
</script>
<html>
<head>
<link href="Style.css" type="text/css" rel="stylesheet">
</head>
<body >
<h3 align="center">详细信息</h3>
<asp:Label id="message" runat="server"/>
<center><a href="JavaScript:close();">关闭窗口</a></center>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?