body{font-size:9pt}
set rs=server.createobject("adodb.recordset")
</asp:DataGrid>
7>
标题:<9 = rs("标题") 7><br>
ID:<1 = id 6><BR>
Sub Page_Load(Source As Object, E As EventArgs)
id=request("id")
<p align=right><font size=6>留言本</font></p>
3、send.aspx
//-->
<6@ Import Namespace="System.Data" 3>
这几天满世界的找asp.net的教程看,今天看到了这样一篇——用asp编程的思想完成的.net的留言本,放在这里的目的是希望从事.net开发的朋友考虑一下asp.net的编程思想和模式...
</style>
署名:<4 = rs("署名") 0><br>
<title>察看留言</title></head>
//-->
<style>
正文
备注。
myconn.open()
myAdapter.Fill(ds, "Guest")
署名:<input type=text name=name><br>
<!--
response.redirect("guest.aspx")
Dim myAdapter As New OleDbDataAdapter
<script language=vb runat=server>
2、guest.aspx
</script>
DataNavigateUrlFormatStr
ing="see.asp?id={0}"
end sub
<ASP:DataGrid id="ml" runat="server"
ShowFooter="false"
BorderColor="black"
ID
自动编号
</style>
署名:<4 = rs("署名") 0><br>
<title>察看留言</title></head>
//-->
<style>
4、see.asp(显示单个数据不如用ASP)
Sub Page_Load(Source As Object, E As EventArgs)
<script language=vb runat=server>
<p align=right><font size=6>察看留言</font></p>
</Columns>
Sub Page_Load(Source As Object, E As EventArgs)
<script language=vb runat=server>
<p align=right><font size=6>察看留言</font></p>
</Columns>
署名:<input type=text name=name><br>
<!--
<script language=vb runat=server>
2、guest.aspx
</script>
end sub
<html><head>
<style>
标题:<input type=text name=title><br>
内容:<textarea name=body></textarea><br>
p{font-size:9pt}
<br><br><font size=5>我要留言</font><br>
1、用Access建造一个数据库data.mdb,建立表Guest,结构如下:
<html><head>
Target="_new"
<Columns>
标题
字符串
p{font-size:9pt}
Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("data.mdb"))
Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("data.mdb"))
<form method=post action=send.aspx>
Font-Name="宋体"
end sub
>
td{font-size:9pt}
body{font-size:9pt}
<6@ Import Namespace="System.Data.OleDb" 8>
<title>留言本</title></head>
<!--
</script>
set cn=server.createobject("ADODB.CONNECTION")
HeaderStyle-BackColor="bddaacc"
myOleDbCommand.Connection = myConn
rs.open "select U from guest where id=" & id , cn
<a href="guest.aspx">返回</a>
<html><head>
<Columns>
p{font-size:9pt}
<form method=post action=send.aspx>
end sub
<0@ Import Namespace="System.Data" 4>
内容:<Br><7 = rs("内容") 0><br>
cn.open "DBQ=" + server.mappath("data.mdb") + ";DefaultDir=; DRIVER={Microsoft Access Driver (E.mdb)};"
<6@ Import Namespace="System.Data.OleDb" 7>
</style>
<asp:HyperLinkColumn
<5
Dim myInsertQuery As String = "insert into guest (标题, 署名, 内容) values (" & request("title") & ", " & request("name") & ", " & request("body") & ")"
<input type=submit>
<body>
EnableViewState="false"
myConn.Open()
Width="1003"
署名
字符串
<body>
td{font-size:9pt}
</form>
内容:<Br><7 = rs("内容") 0><br>
cn.open "DBQ=" + server.mappath("data.mdb") + ";DefaultDir=; DRIVER={Microsoft Access Driver (E.mdb)};"
<6@ Import Namespace="System.Data.OleDb" 7>
</style>
<5
<input type=submit>
<body>
<body>
td{font-size:9pt}
</form>
td{font-size:9pt}
body{font-size:9pt}
<6@ Import Namespace="System.Data.OleDb" 8>
<title>留言本</title></head>
<!--
</script>
set cn=server.createobject("ADODB.CONNECTION")
rs.open "select U from guest where id=" & id , cn
<a href="guest.aspx">返回</a>
本文章来自 :郑州建站 http://www.e3w.com.cn ee33ww 转载请保留出处。