📄 guest.aspx

📁 asp做的新闻系统

💻 ASPX

字号:

<%@ Import Namespace="System.Data" %> 
<%@ Import Namespace="System.Data.OleDb" %> 
<html>
<head> 
<style> 
<!-- 
body{font-size:9pt} 
p{font-size:9pt} 
td{font-size:9pt} 
//--> 
</style> 
<title>留言本</title>
</head> 
<body> 
<p align=right><font size=6>留言本</font></p>

<script language=vb 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("data.mdb")) 
Dim myAdapter As New OleDbDataAdapter 
Dim myOleDbCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter) 
Dim DS As DataSet = New DataSet 
myAdapter.SelectCommand = new OleDbCommand("select ID, 标题, 署名 from Guest order by id desc", myconn) 
myconn.open() 
myAdapter.Fill(ds, "Guest") 
ml.DataSource=ds.Tables("Guest").DefaultView 
ml.DataBind() 
end sub 
</script>

<ASP:DataGrid id="ml" runat="server" 
Width="100%" 
BorderColor="black" 
ShowFooter="false" 
CellPadding=3 
CellSpacing="0" 
Font-Name="宋体" 
Font-Size="9pt" 
HeaderStyle-BackColor="#ddaacc" 
EnableViewState="false" >
<Columns> 
<asp:HyperLinkColumn 
DataNavigateUrlField="id" 
DataNavigateUrlFormatString="see.asp?id={0}" 
text="See!" 
Target="_new" /> 
</Columns> 
</asp:DataGrid>

<br><br><font size=5>我要留言</font><br> 
<form method=post action=send.aspx> 
标题:<input type=text name=title><br> 
署名:<input type=text name=name><br> 
内容:<textarea name=body></textarea><br> 
<input type=submit> 
</form>

   </body>
   </html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -