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,字源新猫影视源码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-28 17:011443人浏览
2024-11-28 16:57127人浏览
2024-11-28 16:411699人浏览
2024-11-28 16:042055人浏览
2024-11-28 15:401243人浏览
2024-11-28 14:471009人浏览
1.何处CentOS的Linux内核的源代码?2.centos下用命令yum list | grep kernel中,kernel.x86_64和kernel-devel.x86_64 区别是什么3.
1.人人商城V3、人人商城、人人商城源码、人人商城小程序源码、人人商城小程序2.人人å£çº¸å°ç¨åºå®å ¨å3.点点客人人店小程序上线,最大亮点拼团功能,快捷便利、营销
布林肯表示,美方將向烏克蘭額外提供20億美元,用於為烏克蘭生產和採購武器裝備。美聯社) 據央視新聞援引烏克蘭媒體15日報道,在基輔進行訪問的美國國務卿布林肯表示,美方將向烏克蘭額外提供20億美元,用