📄 see.aspx
字号:
<%@ Page Language="vb" Debug="true" %>
<%@ Register TagPrefix="CC" TagName="Header" Src="Header.ascx" %>
<%@ Register TagPrefix="FF" TagName="Footer" Src="Footer.ascx" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load(Source As Object, E As EventArgs)
Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("database\EmplDir.mdb"))
Dim myAdapter As New OleDbDataAdapter
Dim myOleDbCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter)
Dim DS As DataSet = New DataSet
Dim thisID As String = Request.QueryString("id")
myAdapter.SelectCommand = new OleDbCommand("select ID, 标题, 署名,正文, ip地址 from Guest where id=" & thisID, myconn)
myconn.open()
myAdapter.Fill(ds,"Guest")
DataList1.DataSource=ds.Tables("Guest").DefaultView
DataList1.DataBind()
end sub
</script>
<html>
<head>
<title>察看留言</title>
<link href="home.css" type="text/css" rel="stylesheet" />
</head>
<body>
<CC:Header id="Header" runat="server"/>
<table align="center" width="600">
<tr valign="top" align="center">
<td>
<table id="Paste_holder" runat="Server" border="0" cellspacing="1" cellpadding="0" width="100%" class="tableBorder1">
<tr>
<th background="images/bg1.gif" align=center height=25 style="font-weight:normal">
<asp:label id="EmpMonthForm_Title" runat="server">-= 察看留言 =-</asp:label></th>
</tr>
<tr><td bgcolor="#FFFFFF">
<asp:DataList id="DataList1" runat="server">
<ItemTemplate>
<p>
ID:<%# Container.DataItem("id") %>
</p>
<p>
标题： <%# Container.DataItem("标题") %>
</p>
<p>
署名： <%# Container.DataItem("署名") %>
</p>
<p>
来自： <%# Container.DataItem("ip地址") %>
</p>
<p>
正文： <%# Container.DataItem("正文") %>
</p>
</ItemTemplate>
</asp:DataList>
<br />
<a class=link1 href="guest.aspx">返回</a></td></tr></table>
</td></tr></table>
<center>
<FF:Footer id="Footer" runat="server"/></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -