demo_database_vb.aspx
上传用户:lanchensha
上传日期:2022-02-27
资源大小:7530k
文件大小:4k
源码类别:

编辑器/阅读器

开发平台:

C#

  1. <%@Page Language="VB" ValidateRequest="false" ContentType="text/html"%>
  2. <%@Register TagPrefix="dntb" Namespace="DotNetTextBox" Assembly="DotNetTextBox"%>
  3. <script runat="server" language="VB">
  4. Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
  5.     If Not IsPostBack Then 
  6.         WebEditor1.Text = "<a href=http://www.aspxcn.com.cn><img src='system_dntb/skin/xp/img/logo.gif' alt='DotNet中华网版权所有' width=260 height=60 border=0></a>" 
  7.     End If 
  8. End Sub 
  9. Private Sub Button1_OnClick(ByVal sender As Object, ByVal e As System.EventArgs) 
  10.     '连接数据库 
  11.     Dim lj As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + HttpContext.Current.Server.MapPath("demo_database.mdb")) 
  12.     '特别注意,这里要用HtmlEncode编码后插入数据库 
  13.     Dim ml As New System.Data.OleDb.OleDbCommand("insert into temp(contents) values('" + Server.HtmlEncode(WebEditor1.Text.Replace("'", "''")).Replace("" & Chr(10) & "", "<br />") + "')", lj) 
  14.     lj.Open() 
  15.     '插入内容到数据库 
  16.     ml.ExecuteNonQuery() 
  17.     
  18.     '读取数据库 
  19.     Dim dr As New System.Data.OleDb.OleDbDataAdapter("select top 1 contents from temp order by id desc", lj) 
  20.     Dim ly As New System.Data.DataSet() 
  21.     dr.Fill(ly) 
  22.     
  23.         '特别注意,这里要用HtmlDecode解码还原后的二进制数据并显示
  24.         label1.Text = "<hr><b>以下是DotNetTextBox控件提交的内容</b>:<br>" + Server.HtmlDecode(Encoding.Unicode.GetString(ly.Tables(0).Rows(0)("contents")))
  25.     
  26.     lj.Close() 
  27.     
  28. End Sub 
  29. Private Sub Button2_OnClick(ByVal sender As Object, ByVal e As System.EventArgs) 
  30.     WebEditor1.Text = "" 
  31. End Sub 
  32. </script>
  33. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  34. <html xmlns="http://www.w3.org/1999/xhtml" >
  35. <head>
  36. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  37. <title>演示:提交内容到数据库的应用实例(C#)</title>
  38. <style type="text/css">
  39. <!--
  40. body {
  41. font-size: 9pt;
  42. }
  43. hr {
  44. border: dotted #AFAFAF;
  45. }
  46. input {
  47. font-size: 9pt;
  48. border: 1px ridge #999999;
  49. background-color: #FFFFFF;
  50. cursor:pointer;
  51. }
  52. TABLE {
  53. FONT: 9pt 宋体,Verdana,Arial
  54. }
  55. -->
  56. </style>
  57.     <link href="E:ASPXDotNetTextBox2WebSite/system_dntb/skin/xp/toolbar.css" rel="stylesheet"
  58.         type="text/css" />
  59.     <link href="E:ASPXDotNetTextBox2WebSite/system_dntb/skin/xp/toolbar.css" rel="stylesheet"
  60.         type="text/css" />
  61. </head>
  62. <body>
  63.     <table align=center width="555">
  64.         <tr>
  65.             <td valign="top">
  66.                 <fieldset>
  67.                     <legend>演示说明</legend>&nbsp; &nbsp; 本例子演示DotNetTextBox控件提交内容到数据库并读取显示的应用实例,需要注意的是,提交到数据库的内容必须使用Server.HtmlEncode()进行HTML编码,否则如果内容里有非法字符的时候会导致插入数据库失败,另外在读取数据库内容的时候,必须使用Server.HtmlDecode()解码显示(本例子使用的ACCESS数据库名为:demo_database.mdb)!</fieldset>
  68.             </td>
  69.         </tr>
  70.     </table>
  71.     <br />
  72. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  73.   <tr>
  74.     <td align="center"><form id="Form1" runat="server">
  75.         <div align="center">
  76.             <DNTB:WebEditor id="WebEditor1" Skin="skin/xp/" runat="server"></DNTB:WebEditor> </div>
  77.         <p align="center">
  78.           <asp:Button id="Button1"  OnClick="Button1_OnClick" runat="server" Text="提交内容"></asp:Button>
  79.           <asp:Button id="Button2"  OnClick="Button2_OnClick" runat="server" Text="清空内容"></asp:Button>
  80.         </p>
  81.       </form></td>
  82.   </tr>
  83. </table>
  84. <asp:label runat="server" ID="label1"></asp:label>
  85. </body>
  86. </html>