皮皮网

皮皮网

【在线会议源码】【库管系统源码】【opencv3.0 源码】秘密留言源码大全图片_秘密留言源码大全图片高清

时间:2024-12-29 11:41:17 分类:知识

1.怎么使用免费留言板源代码
2.请问有谁知道版主回复留言时的秘密秘密ASP源代码?

秘密留言源码大全图片_秘密留言源码大全图片高清

怎么使用免费留言板源代码

       你把你的留言板放在一个文件夹下,命名为gbook

       再通过ftp上传到你的留言留在线会议源码空间上去。

       通过你的源码源码库管系统源码域名去访问它就可以了。

        ASP交流群 有经验者欢迎加入

请问有谁知道版主回复留言时的大全大全opencv3.0 源码ASP源代码?

       很简单啊

       我是这样做的:

       在数据库(userLiuyan.mdb)里新建一个留言表:liuyan

       表中字段:ID,(留言编号,自动编号)

        userID(用户编号或用户名,文本型),

        times(留言时间,日期时间型),

        liuyan(留言内容,文本或备注型),

        huifu(斑竹回复,文本或备注型)

       用户留言的时候只添加前四个字段的值,斑竹管理留言的时候给某条留言回复就添加到相应的回复字段里再显示给你就可以了.比如:

       用户显示页面:show.asp

       <%

       set conn=server.createObject("ADODB.Connection")

        conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("userLiuyan.mdb")

       conn.Open

        sql="select * from liuyan"

       set rs=server.CreateObject("ADODB.RecordSet")

        rs.Open sql,conn,1,1

       Do While Not rs.Eof

        Response.Write rs("userID") &"<br/>"

        Response.Write rs("times") &"<br/>"

        Response.Write rs("liuyan") &"<br/>"

        If rs("huifu")<>"" Then

        Response.Write rs("huifu") &"<br/>"

        Else

        Response.Write "等待回复..."

        End If

       rs.MoveNext

       Loop

       %>

       斑竹管理留言回复页:huifu.asp

       <% '显示用户留言

       set conn=server.createObject("ADODB.Connection")

        conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("userLiuyan.mdb")

       conn.Open

        sql="select * from liuyan"

       set rs=server.CreateObject("ADODB.RecordSet")

        rs.Open sql,conn,1,1

       Do While Not rs.Eof

        Response.Write rs("userID") &"<br/>"

        Response.Write rs("times") &"<br/>"

        Response.Write rs("liuyan") &"<br/>"

        If rs("huifu")<>"" Then

        Response.Write rs("huifu") &"<br/>"

        Else

        Response.Write "<a href=""?method=huifu&ID="&rs("ID")&""">回复</a>"

        End If

       rs.MoveNext

       Loop

       '向数据库里添加回复

       If Request.QueryString("Method")="huifu" Then

        sql="update liuyan set huifu='谢谢你的留言' where="& Request.QueryString("ID")

        conn.Execute(sql)

        Response.Write"回复成功!"

       End If

       rs.close

       set rs=nothing

       conn.close

       set conn=nothing

       %>

       答案还可以吗?