如何让网站上用户的留言内容存入数据库？

toooood 2011-06-19 07:44:42

ASP。。数据库是ACCESS。。就是一个在线预订商品的网站，点击够买以后，就进入留预订信息的页面，这些信息如何能存入数据库，并且在查看订单的时候显示出来

...全文

419 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

灬上海爽爷 2011-06-20

打赏
举报

-。-
http://www.w3school.com.cn/asp/index.asp
好好学习，天天向上

王晓彤 2011-06-19

打赏
举报

conn.execute是数据库连接对象的一个属性，insert into 表 (字段)values(值)是SQL语句。代码可以参考。



<%

server.ScriptTimeout = 9999

dim db, connstr, conn

db = "info.mdb"

connstr = "dbq="&server.MapPath(""&db&"")&";defaultdir=;driver={Microsoft Access Driver (*.mdb)};"

set conn = server.CreateObject("Adodb.Connection")

conn.Open connstr

dim rs

set rs = server.CreateObject("Adodb.Recordset")

exec = "select * from guest"

rs.Open exec,conn,1,1

%>

<html>

<head>

    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

    <title></title>

    <style type="text/css">

        #first{ font-size:12px; font-weight:bold; }

    </style>

</head>

<body>

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

        <table border="0" cellpadding="0" cellspacing="0" width="50%" align="center" id="first">

            <caption>订单</caption>

            <tbody>

                <tr>

                    <td><label for="name">名称：</label></td>

                    <td><input type="text" name="username" id="name" maxlength="10" /></td>

                </tr>

                <tr>

                    <td><label for="msg">内容：</label></td>

                    <td><textarea name="message" id="msg" cols="45" rows="10"></textarea></td>

                </tr>

                <tr>

                    <td colspan="2" align="center"><input type="submit" value="提交" /> <input type="reset" value="重置" /></td>

                </tr>

            </tbody>

        </table>

    </form>

    <table border="0" cellpadding="0" cellspacing="0" width="50%" align="center">

        <tbody>

            <tr>

                <th>名称</th>

                <th>内容</th>

                <th>时间</th>

            </tr>

            <%do while not rs.EOF %>

            <tr>

                <td><%=rs("username") %></td>

                <td><%=rs("message") %></td>

                <td><%=rs("time") %></td>

            </tr>

            <%

                rs.MoveNext

                loop

            %>

        </tbody>

    </table>

    <%

        rs.Close

        set rs = nothing

        conn.Close

        set conn = nothing

    %>

</body>

</html>



<%

server.ScriptTimeout = 9999

dim db, connstr, conn

db = "info.mdb"

connstr = "dbq="&server.MapPath(""&db&"")&";defaultdir=;driver={Microsoft Access Driver (*.mdb)};"

set conn = server.CreateObject("Adodb.Connection")

conn.Open connstr

dim rs, name, msg

name = request.Form("username")

msg = request.Form("message")

set rs = server.CreateObject("Adodb.Recordset")

exec = "select * from guest"

rs.Open exec,conn,1,3

rs.AddNew

rs("username") = name

rs("message") = msg

rs.Update

response.Write("<script type='text/javascript'>alert('添加成功')</script>")

response.Redirect("index.asp")

rs.Close

set rs = nothing

conn.Close

set conn = nothing

%>