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 + -
显示快捷键?