guest.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 60 行

ASPX
60 行
字号 
<%@ 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>

guest.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 guest.aspx 源码文件，采用 ASPX 编程语言编写，共 60 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?