📄 ping.asp
字号:
<!--#include file=conn.asp-->
<!--#include file="function.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<%
if not IsNumeric(request("id")) or request("id")="" then
Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
Response.end
end if
if request("id")<>"" then
id=CLNG(request("id"))
end if
rs.open"select * from reply where id="&id,conn,1,1
if rs.eof then
Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
Response.end
end if
wenid=rs("replyid")
rs.close
rs.open"select * from question where id="&wenid,conn,1,1
if rs.eof then
Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
Response.end
else
rs2.open"select * from person where name='"&rs("sender")&"'",conn,1,1
touxian=rs2("touxian")
rs2.close
rs2.open"select * from assort where topic='"&rs("topic")&"'",conn,1,1
shuxing=rs2("shuxing")
rs2.close
rs2.open"select * from class where id="&shuxing&"",conn,1,1
topic0=rs2("topic")
id0=rs2("id")
rs2.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("title")%>_<%=webname%></title>
<link href="iknow.css" rel="stylesheet" type="text/css">
</head>
<body class="bgbdy" topmargin="0">
<center>
<!--#include file=top.asp-->
<script>
var url = escape(location.href);
function ctlSubmit(event) {
if (event.ctrlKey && event.keyCode == 13) { fdf.submit() }
}
function checkco(f,des)
{ if(f.co.value=="") {alert("请输入您的"+des); return false;}}
function limitpl(f,des)
{ if(f.co.value=="") {alert("请输入您的"+des); return false;} return limitChars(f.co,des,200);}
function checkcoAndsn(f,des)
{ if(f.co.value=="") {alert("请输入您的"+des); return false;} return limitChars(f.sn,"参考资料",60);}
function cReply(flag)
{ if (flag=="yes") {
document.getElementById('replyTB').style.display=""; }
if(flag=="no"){document.getElementById('replyTB').style.display="none"; }
location.href="#here";
}
function fixReply(flag){ setTimeout("cReply('"+flag+"')",300);}
function limitChars(obj,obj_Str,limit_len)
{
var c = getLeftChars(obj,limit_len);
if(c<0)
{
echo_str = obj_Str + "限定在"+limit_len+"个字以内，请缩短字数";
alert(echo_str);
obj.focus();
return false;
}
return true;
}
function getLeftChars(varField,limit_len) {
var i = 0;
var cap = limit_len*2;
var j=0;
var runtime = (varField.value.length>cap)?(cap+1):varField.value.length;
for (i = 0; i< runtime; i++) {
if (varField.value.charCodeAt(i) > 127 || varField.value.charCodeAt(i) == 94) {
j=j+2;
}
else {
j=j+1
}
} //结束FOR循环
var leftchars = cap - j;
return (leftchars);
}
</script>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" nowrap><a href="wen"><%=webname%></a> > <a href="assort.asp?id=<%=id0%>&topic=<%=topic0%>"><%=topic0%></a> > <a href=assort1.asp?id=<%=rs("fenleiid")%>&topic=<%=rs("topic")%>><%=rs("topic")%></a></td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="zhtable">
<tr>
<td nowrap class="bgtle"> 评论</td>
</tr>
<tr><td class="bgcntLn"><%
rs1.open"select * from ping where replyid="&id&" order by pingtime desc",conn,1,1
if rs1.eof then%>暂无评论!
<%else
rs1.pagesize=25
maxnum=rs1.recordcount
maxpage=rs1.pagecount
if request("p")="" then
p=1
else
p=cint(request("p"))
end if
if p>maxpage then
p=maxpage
end if
if p=0 then
p=1
end if
if p<>1 then
rs.move (p-1)*rs.pagesize
end if
for i=1 to rs1.pagesize
rs3.open"select * from person where name='"&rs1("pingname")&"'",conn,1,1
touxianp=rs3("touxian")
rs3.close
%>
<a name="15555272"><div class="f14"><%=ubb(rs1("ping"))%></div>
<div align="right"><span class="f12gy">评论者：</span> </a> <a href=showperson.asp?name=<%=rs1("pingname")%> target=_blank><%=rs1("pingname")%></a> - <a href="help.asp#n5" target=_blank><%=touxianp%></a> </div>
<div style="padding-top:5px;padding-bottom:5px;"><hr size=1 color=#999999></div>
<%rs1.movenext
if rs1.eof then exit for
next%>
<div align=center class=f14>评论数:<font color=red><%=maxnum%></font> | 每页数:<font color=green><%=rs1.pagesize%></font> | 总页数:<font color=green><%=maxpage%></font> | 当前页:<font color=red><%=p%></font>
<a href=ping.asp?id=<%=id%>&p=1>首页</a>
<a href=ping.asp?id=<%=id%>&p=<%=p-1%>>上页</a>
<a href=ping.asp?id=<%=id%>&p=<%=p+1%>>下页</a>
<a href=ping.asp?id=<%=id%>&p=<%=maxpage%>>尾页</a></div>
</td></tr>
</table>
<%
rs1.close
end if%>
<br>
<%
if request("submitping")="提交评论" then
if session("person")="" then
response.redirect "login.asp"
end if
if session("person")=rs("jieuser") then
response.write"<script>alert('您不能对自己的答案进行评价!');history.back();</script>"
end if
if request("co")="" then
response.write"<script>alert('评论内容不能为空!');history.back();</script>"
else
ping=request("co")
rs3.open"select * from ping where replyid="&id&" and pingname='"&session("person")&"'",conn,1,1
if not rs3.eof then
response.write"<script>alert('您已经发表过对该最佳答案的评论!');history.back();</script>"
rs3.close
else
rs3.close
rs3.open"select * from ping",conn,1,3
rs3.addnew
rs3("pingname")=session("person")
rs3("ping")=ping
rs3("replyid")=id
rs3("pingtime")=now
rs3.update
rs3.close
rs3.open"select * from person where name='"&session("person")&"'",conn,1,3
rs3("replynum")=rs3("replynum")+pldf
rs3("jifen")=rs3("jifen")+pldf
if rs3("jifen")+pldf<fen1 then
rs3("touxian")=""&ji1&" 一级"
elseif rs3("jifen")+pldf>=fen1 and rs3("jifen")+pldf<fen2 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -