[转]用ASP编程的思想用.Net编写留言本


body{font-size:9pt}
set rs=server.createobject("adodb.recordset")

</asp:DataGrid>
  ml.DataBind()
      Font-Size="9pt"
7>
标题:<9 = rs("标题") 7><br>
  ml.DataSource=ds.Tables("Guest").DefaultView
  Dim DS As DataSet = New DataSet

  Dim myOleDbCommand As New OleDbCommand(myInsertQuery)
ID:<1 = id 6><BR>
  myOleDbCommand.Connection.Close()
Sub Page_Load(Source As Object, E As EventArgs)
  />
  myOleDbCommand.ExecuteNonQuery()
id=request("id")
      DataNavigateUrlField="id"
  Dim myOleDbCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter)
<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>
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>
    正文      备注。
  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          自动编号

<html><head>
<style>
标题:<input type=text name=title><br>
  myAdapter.SelectCommand = new OleDbCommand("select ID, 标题, 署名 from Guest order by id desc", myconn)
内容:<textarea name=body></textarea><br>
p{font-size:9pt}
      text="See!"
      CellPadding=3
      CellSpacing="0"
<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
<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>

  >
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>

本文章来自 :郑州建站  http://www.e3w.com.cn ee33ww 转载请保留出处。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值