心跳15源码_心跳源代码
2024-11-23 07:53
1.asp 点击文字 弹出提示 求代码
2.请问有谁知道版主回复留言时的入文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,字源hdfs复制队列源码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
%>
答案还可以吗?
2024-11-23 08:37
2024-11-23 08:22
2024-11-23 07:27
2024-11-23 07:26
2024-11-23 07:26
2024-11-23 06:32
2024-11-23 06:03
2024-11-23 06:00