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
%>
答案还可以吗?
2025-01-31 11:15444人浏览
2025-01-31 10:58281人浏览
2025-01-31 10:342515人浏览
2025-01-31 10:18603人浏览
2025-01-31 09:44978人浏览
2025-01-31 09:342954人浏览
1.??????qq????Դ??2.QQ音乐下载器吾爱破解版QQ音乐下载器吾爱破解版功能简介??????qq????Դ?? 劫持一下就好了 用函数查看器 查看一个qq音乐必须打开的dll然后复
1.个人BLOGå¦ä½å¼å2.Simple PHP Blog详情3.国内博客(Blog)程序都有哪一些4.谁可以给我一个网页 用dreamware写的 要源代码 谢谢啦 随便一个
1.springbootcloud组件2.关于论坛和虚拟主机！springbootcloud组件 .SpringBoot和SpringCloud的关系 很多人新手对于SpringBoot和Sp
