📄 shown.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
dim drow as datarow
sub page_load(sender as object,e as eventargs)
dim newsid as string = request.params("id")
dim ds as dataset = new dataset()
dim sql as string="select * from notice where id=" & newsid
dim conn as oledbconnection = new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("notice.mdb") &";")
dim da as oledbdataadapter = new oledbdataadapter(sql,conn)
da.fill(ds,"notice")
drow = ds.tables("notice").rows(0)
end sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
</p>
<p>
<table width="760" align="center" bgcolor="background">
<tbody>
<tr>
<td>
<p align="center">
<font color="white" size="2"><strong><%=drow("title").tostring() %></strong>( <%=drow("data") %>) </font>
</p>
</td>
</tr>
</tbody>
</table>
</p>
</form>
<table style="HEIGHT: 46px" bordercolor="#e0e0e0" cellspacing="0" cellpadding="0" width="760" align="center" border="1">
<tbody>
<tr>
<td>
<pre><%=drow("content").tostring() %></pre>
</td>
</tr>
</tbody>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -