【新猫影视源码】【开源源码建站】【器官发育指标源码】asp写入文字源码

2024-11-06 17:22:02 来源:个人码源码交易 分类:娱乐

1.asp 点击文字 弹出提示 求代码
2.请问有谁知道版主回复留言时的入文ASP源代码?

asp写入文字源码

asp 点击文字 弹出提示 求代码

       完全可以做到: demo.asp内容如下:

       <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

       <html xmlns="http://www.w3.org//xhtml">

       <head>

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

       <title>无标题文档</title>

       <script language="javascript">

       function check(abc,url)

       {

        if (abc<=0)

        alert("你没有权限访问!")

        else

        window.location.href=url;

       }

       </script>

       </head>

       <body>

       <%

        dim sx,字源新猫影视源码surl

        sabc = request("abc")

        surl = "aaa/bbb.Asp?P_UserId=" & request("P_UserId")

       %>

       <a href="#" onclick="check(<%=sabc%>,'<%=surl%>');">查看<%=rs_Pic.recordcount%>人</a>

       </body>

       </html>

请问有谁知道版主回复留言时的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

       %>

       答案还可以吗?

本文地址:http://5o.net.cn/news/01c82999169.html 欢迎转发