日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

容易ASP論壇DIY

容易ASP論壇DIY

更新時間:2022-05-13 文章作者:未知 信息來源:網絡 閱讀次數:

阿泰的供稿

首先用Access新建一個數據庫,設取名為luntan,數據表的名稱為“information”,建立如下字段:“text”,“name”,“time”,并將“time”默認值設為Now()

  <%

  Set com = Server.CreateObject("ADODB.Connection")

  com.open"DRIVER={Microsoft Access Driver("luntan.mdb");

pwd=information;DBQ="&Server.MapPath("luntan.mdb")

  sql="select*from information order by time Desc"

  Set rs=Server.CreateObject("ADODB.Recordest")

  rs.open sql,com,3,2

  if rs.EOF or rs.BOF then

  response.write"沒有留言"

  else

    rs.MoveFirst

    while Not rs.EOF.

          response.write rs("name")&"發布于"&rs("time")&"<br>"

        response.write rs("text")&"<br><hr>"

       rs.MoveNext

  wend

AbsolutePosition=N,(N=1,2,3......)

  end if

  %>



接著是用戶書寫留言部分。設論壇頁為“information.asp”,則

  <form method=post action="information.asp">

  姓名:<input type=text size=12 name="name"><br>

  留言:<textarea cols=30 row=4 name="text"></textarea><br>

  <input type=submit value="提交">

  </form>



最后一部分是將用戶提交的表單數據記錄到數據庫中,則

  <%

  if request("text")<>empty and request ("name")<>empty then

  Set comb=Server.CreateObject("ADODB.Connection")

  comb.Open"DRIVER={Microsoft Access Driver(*.mdb)};pwd=information;

DBQ="&Server.MapPath("luntan.mdb")

  sql="select*from information"

  Set rsb=Server.CreateObject("ADODB.Recordset")

  rsb.open sql,comb,3,2

  rsb.AddNew

  rsb("text")=request("text")

  rsb("name")=request("name")

  rsb.update

  end if

  %>

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 99久9在线 | 免费 | 国产精自产拍久久久久久 | 中文字幕区 | 亚洲综合网国产福利精品一区 | 国内91视频| 久久国产亚洲观看 | 欧美久久亚洲精品 | 骚五月 | 日韩欧美一区二区三区不卡视频 | 在线观看免费国产成人软件 | 国产成人精品亚洲一区 | 污全彩肉肉无遮挡彩色 | 伊人精品视频在线观看 | 国产三级视频网站 | 色在线国产 | 996pao强力打造高清在线 | 日本一区二区三区在线 观看网站 | 日韩18视频在线观看 | 久久er国产精品免费观看1 | 欧美黑人3p | www.看片| 国产精品视频国产永久视频 | 日本不卡高清免费 | 伊人久久大香线蕉综合热线 | 色拍999| 一级一级特黄女人精品毛片视频 | 国产粉嫩00福利福利福利 | 欧美猛交lxxxxxxxxx | brazzers欧美最新极品 | 亚洲精品欧美精品 | 国产高清网站 | 欧美视频在线视频 | 99久久综合狠狠综合久久男同 | 怡红院成人影院 | 色琪琪久久se色 | 日日夜夜天天干 | 国产成人短视频在线观看免费 | 四虎日韩 | 亚洲一区二区观看 | 久久伊人精品 | 精品午夜寂寞影院在线观看 |