📄 particular.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("wwwlink.mdb")) '建立Connection对象
Dim strSql As String
strSql="Select * From link Where link_id=" & Request.QueryString("link_id") '建立查询语句
Dim cmd As New OleDbCommand(strSql, conn) '建立Command对象
conn.Open() '打开数据库连接
Dim dr As OleDbDataReader = cmd.ExecuteReader() '建立DataReader对象
MyRepeater.DataSource = dr '指定数据源
MyRepeater.DataBind() '执行绑定
conn.Close() '关闭数据库
End Sub
</script>
<html>
<body>
<h4 align="center">详细信息</h4>
<asp:Repeater id="MyRepeater" runat="server" >
<ItemTemplate>
<table border="1" width="80%" bordercolorlight="#8F8F8F" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="30%">网站编号：</td>
<td><%# Container.DataItem("link_id") %></td>
</tr><tr>
<td width="30%">网站名称：</td>
<td><b><%# Container.DataItem("sitename") %> </b></td>
</tr><tr>
<td>网站地址：</td>
<td><asp:HyperLink Text='<%# Container.DataItem("URL") %>' NavigateUrl='<%# "http://" & Container.DataItem("URL") %>' Target="_blank" runat="server"/></td>
</tr><tr>
<td>网站评分：</td>
<td><%# Container.DataItem("grade") %></td>
</tr><tr>
<td>网站简介：</td>
<td><%# Container.DataItem("intro") %></td>
</tr><tr>
<td>提交时间：</td>
<td><%# Container.DataItem("submit_date") %></td>
</tr>
</table>
</ItemTemplate>
</asp:Repeater>
<p align="center"><a href="javascript:close();">关闭窗口</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -