📄 messageadd.asp.txt

📁 ASP 网页数据库短训教程源码

💻 TXT

字号:

<%
    ' 该程序因为不在窗口内显示内容，只弹出一个对话框进行提示，所以不
    ' 用再加入<HTML></HTML>，<HEAD></HEAD>，<BODY></BODY>标记对
    ' 声明对象、变量
  Dim User, Email, ToWho, Content, AddTime
  Dim objConn, objRS
  Dim strSQL
    ' 获取由Index.asp页面传送过来的变量
  User = Request("User")
  Email = Request("Email")
  ToWho = Request("ToWho")
  Content = Request("Content")
    ' 获取服务器当前时间
  AddTime = Date()
    ' 使用Connection对象打开数据库文件
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("Message.mdb")
  objConn.Open
    ' 建立Recordset对象并以追加记录方式打开数据表Message
  Set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.Open "Message", objConn, 1, 2
    ' 采用数组形式将记录追加到数据库中
  objRS.AddNew Array("User", "Email", "ToWho", "AddTime", "Content"), _
    Array(User, Email, ToWho, AddTime, Content) 
  objRS.Update
    ' 释放变量占用的内存空间
  Set objRS = Nothing
  Set objConn = Nothing
    ' 在客户端显示弹出对话框后返回前一个页面Index.asp
   msg = "记录已添加！"
%>
  <SCRIPT language=VbScript>
    Msgbox "记录已添加！"
    history.back()
  </SCRIPT>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -