信息港ASP源码设置会员回复需要管理验证才能显示

cg0374 · 发表于 2010-3-19 14:32:42

后台没功能设置，能不能在源码限制管理员验证才能看到回复？我现在设置了不能匿名发布，但会员需要验证才能显示代码怎么改呢？期待高手解答。下面是代码：

<script language="JavaScript">
function DrawImage(ImgD){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= 160/160){
if(image.width>160){
ImgD.width=160;
ImgD.height=(image.height*160)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
}
else{
if(image.height>160){
ImgD.height=160;
ImgD.width=(image.width*160)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
}
}
/*else{
ImgD.src="";
ImgD.alt=""
}*/
}
</script>
<script>
function loadThreadFollow(t_id,b_id){
var targetImg =eval("document.all.followImg" + t_id);
var targetDiv =eval("document.all.follow" + t_id);
if ("object"==typeof(targetImg)){
if (targetDiv.style.display!='block')
{
targetDiv.style.display="block";
}
else
{
targetDiv.style.display="none";
}}
}
</script>
<script LANGUAGE="JavaScript">
function checkMobile(){
var sMobile = document.mobileform.mobile.value
if(!(/^13[0-9]\d{4,8}$/.test(sMobile))){
alert("不是完整的11位手机号或者正确的手机号前七位");
document.mobileform.mobile.focus();
return false;}
window.open('', 'mobilewindow', 'height=197,width=350,status=yes,toolbar=no,menubar=no,location=no')
}</script>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from jle_xinxi where yz=1 and id="&cstr(cnmai)
rs.open sql,conn,1,3
if rs.eof or rs.BOF then
response.write "参数错误、记录已经删除或该信息没有通过管理员认证！<br>3秒内自动转入"&title&"首页"
response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
response.end
end if
rs("llcs")=rs("llcs")+1
rs.update
%>
<%
dim rsc,sqlc,id_1
set rsc=server.createobject("adodb.recordset")
sqlc = "select id,class1 from jle_class1 where id="&cstr(rs("class1"))
rsc.open sqlc,conn,1,1
id_1=rsc("id")
On Error Resume Next
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("biaoti")%>-信息内容-<%=title%></title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<%call t()%>
<table width="980" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D2D2D2">
<tr>
<td height="40" colspan="2" background="img/sorttitlebg.jpg" style="border-style:none"></td>
</tr>
<tr>
<td width="764" valign="top" bgcolor="#F2F2F2" style="border-style:none">
<table width="756" height="193" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D8D8D8">
<tr>
<td width="511" height="35" background="img/sortcontentbarbg.jpg" style="border-style:none"> <img src="img/dot1.gif" width="12" height="12"> 位置导航：<a href="../">首页</a>→<a href="info.asp?/=<%=id_1%>&cnmai=1"><%=rsc("class1")%></a>→<%
set rs1=server.createobject("adodb.recordset")
sql1 = "select id,class2 from jle_class2 where id="&cstr(rs("class2"))
rs1.open sql1,conn,1,1
On Error Resume Next
%><a href="info.asp?/=<%=id_1%>&//=<%=rs1("id")%>&/1=-<%=escape(rs1("class2"))%>&cnmai=2"><%=rs1("class2")%></a><%
%>→<span class=font2> <%=rs("biaoti")%></span></td>
<td width="239" background="img/sortcontentbarbg.jpg" style="border-style:none"></td>
</tr>
<tr>
<td height="156" colspan="2" bgcolor="#FFFFFF" style="border-style:none" valign="top">
<table width="750" border="0" cellspacing="1" bordercolor="#FFE9D2" style="border-collapse: collapse">
<tr>
<td height="72" colspan="3" align="center" style="padding-left: 0; padding-right: 0; padding-top: 1px; padding-bottom: 1px"><div class="sortbiaoti2">
<%Select Case rs("leixing")
Case "0"
response.write ""
Case "1"
response.write "<font color=""#800000"">[转让]</font>"
Case "2"
response.write "<font color=""#FF00FF"">[求购]</font>"
Case "3"
response.write "<font color=""#008000"">[出租]</font>"
Case "4"
response.write "<font color=""#FF6600"">[求租]</font>"
Case "5"
response.write "<font color=""#ff0000"">[求职]</font>"
Case "6"
response.write "<font color=""#000080"">[招聘]</font>"
Case "7"
response.write "<font color=""#0000FF"">[分享]</font>"
Case "8"
response.write "<font color=""#008080"">[交换]</font>"
Case Else
response.write "<font color=""#000000"">["&rs("leixing")&"]</font>"
End Select%>
<%if rs("tuijian")=1 then%>
<font color="#FF0000"><img border="0" src="image/jian.gif" alt="本站推荐"></font>
<%end if%>
<%if rs("a")="0" then%>
<%=rs("biaoti")%></b>
<%else%>
<font color="#<%=rs("a")%>"><b><%=rs("biaoti")%></b></font>
<%end if%>
</div></td>
</tr>
<tr>
<td height="32" colspan="3" background="img/linebg.jpg" style="border-bottom: 1px solid #C0C0C0; padding: 1px">
<p align="center"><b>更新时间：</b><%=rs("fbsj")%>
<%if rs("dqsj")<>"" then%>
<%dim sj
sj=DateDiff("d",now(),""&rs("dqsj")&"")
if sj>0 then %>
<font color="#FF0000"> 还有<b><%=sj%></b>天结束</font>
<%else%>
信息已经过期了
<%end if%>
</font>
<%else%>
<%end if%>
<b>浏览/回复:</b><%=rs("llcs")%>次/<%=rs("hfcs")%>次  [<a target="_blank" href="x_sc.asp?id=<%=rs("id")%>">收藏此信息</a>]</td>
</tr>
<tr>
<td></td>
<td >
<div style="margin-top:8px; margin-left:4px;margin-right:4px;
margin-bottom:8px;font-size:12px;color:#990000;line-height:130%;">     <%=HTMLEncode(rs("memo"))%><br>
所属地区：<%=rs("diqu")%><br>
<%if rs("jiage")<>"0" and rs("jiage")<>"" then %>
相关价格：<%=rs("jiage")%>
<%end if%>
</div>
</td>
<td align="center" valign="middle"><%if rs("tupian")="0" or rs("tupian")="" then%>
<a href="regchk.asp" target="_blank"><img src="img/popad.jpg" border=1 style="border: 1px solid #C0C0C0; "width="288" height="239"></a>
<%else%>
<a target=_blank href="<%=rs("tupian")%>">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="160" height="160">
<param name="movie" value="img/swfoto.swf?image=<%=rs("tupian")%>">
<embed src="img/swfoto.swf?image=<%=rs("tupian")%>" width="160" height="160" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>
</object>
</a>
<%end if%>
<br>
<script language="JavaScript">
<!--
color = "#fff000";
val = Math.random() + "000";
val1 = val.substring(2, 3 );
if( val1 % 2 == 0 )
document.write("<a href=http://www.cc058.com target=_blank><font size=2 id=eb668 color=#ffffff><b>欢迎进入<%=city%>信息网>>></b></font></a>" );
else
document.write("<a href=http://www.cc058.com target=_blank><font size=2 id=eb668 color=#ffffff><b>欢迎进入<%=city%>信息网>>></b></font></a>" );
setTimeout( dscchange, 3000);
function dscchange()
{
if( color == "#fff000" )
color = "#ff0000";
else
color = "#fff000";
document.all.eb668.color= color;
setTimeout( dscchange, 100);
}
//-->
</script>
</td>
</tr>
<tr>
<td colspan="3"></td>
</tr>
<tr>
<td height="25" colspan="3" bgcolor="#FBFBFB" style="border-left-width: 1px; border-right-width: 1px; border-top: 1px solid #CCCCCC; border-bottom-width: 1px"><p style="line-height: 100%; margin-left: 10px"><img src="img/301.gif" width="14" height="14"> 发布者：
<%if rs("com")<>"" and rs("username")<>"" then %>
<a target="_blank" href="x_m.asp?id=<%=rs("id")%>"><%=rs("name")%>←[发邮件信息]</a> <img border="0" alt="商家会员发布" src="image/shang.gif" width="15" height="15" ><a target="_blank" href="com.asp?m=<%=rs("username")%>"><%=rs("com")%>←<font color="#D56A00">[查看商家店铺</font></a><font color="#D56A00">]</font>
<%else if rs("username")<>"" and rs("com")="" then %>
<img border="0" alt="个人会员发布" src="image/ge.gif" ><a title="查看用户信息" target="_blank" href="per.asp?username=<%=rs("username")%>"><%=rs("name")%></a>←<font color="#D56A00">[</font><a title="给店家发信息" target="_blank" href="x_m.asp?id=<%=rs("id")%>"><font color="#D56A00">给发布者发短信</font></a><font color="#D56A00">]</font>
<%else%>
<%=rs("name")%>[游客快速发布]
<%end if%>
<%end if%>
</td>
</tr>
<tr>
<td height="25" colspan="3" bgcolor="#FBFBFB"><p style="line-height: 100%; margin-left: 10px"><img src="img/ph.gif" width="14" height="12"> 联系电话：<%=rs("dianhua")%></td>
</tr>
<%if rs("qq")<>"" then %>
<tr>
<td colspan="3" bgcolor="#FBFBFB"><p style="line-height: 100%; margin-left: 10px">Q Q或MSN：<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("qq")%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("qq")%>:9 alt="用QQ给他发信息"><%=rs("qq")%></a></td>
</tr>
<%else%>
<%end if%>
<tr>
<td colspan="3" bgcolor="#FBFBFB"><p style="line-height: 100%; margin-left: 10px"><img src="img/ico_wife.gif" width="13" height="12"> 联系地址：<%=rs("dizhi")%></td>
</tr>
<tr>
<td colspan="3" height="26"><div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table2">
<tr>
<td bgcolor="#FBFBFB"><FORM METHOD=POST ACTION="http://www.ip138.com/ips.asp" target="_blank" name="ipform" onSubmit="return checkIP();" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<span style="line-height: 100%; margin-left: 10px"> </span><img src="img/qq_02.gif" width="13" height="12"><span style="line-height: 100%; margin-left: 10px"> </span>发布者IP：
<input type="text" name="ip" size="15" value="<%=rs("ip")%>" style="border: 1px solid #FFFFFF; background-color: #FFFFFF">
<input name="submit" type="submit" style="background-color: #FFFFFF" title="通过查看发布人IP，可以判断信息的可信度" value=" 查看ip ">
<INPUT TYPE="hidden" name="action" value="2">
</FORM></td>
<td bgcolor="#FBFBFB"><form action="http://www.ip138.com:8080/search.asp" method="POST" onSubmit="return checkMobile();" target="mobilewindow" name="mobileform" style="margin-top: 0; margin-bottom: 0">
<input type="hidden" name="action" value="mobile">
<input class="TextBoxStyle" maxLength="11" name="mobile" size="15" value="<%=rs("dianhua")%>">
<input name="submit" type="submit" class="ButtonStyle" style="color: #FF0000; background-color:#FFFFFF" value="手机归属查询">
</form></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td colspan="3" height="26"><font color="#C0C0C0"> <span style="font-size: 11pt"></span><font size="2">  </font></font><font color="#999999"> 通过查看发布者IP和手机归属判断信息的真实性与合法性,请谨慎审核,理性抉择。</font></td>
</tr>
<tr>
<td align="right" colspan="3"><div align="center">
<table border="0" cellpadding="0" style="border-style:solid; border-width:1px; padding:1px; border-collapse: collapse" bordercolor="#CCCCCC" width="100%">
<form action="x_hf.asp?id=<%=rs("id")%>&xxusername=<%=rs("username")%>&cnmai=chk" method="POST">
<tr>
<td height="22" bgcolor="#E5E5E5"><p align="center"><b><a name="hf"></a>给本信息发表回复</b>(本站提示：请随时关注您发布的信息，会有买/卖家给您留言的)</td>
</tr>
<tr>
<td height="29"><p style="margin-left: 20px"><span id="followImg1" style="CURSOR: hand" onClick="loadThreadFollow(1,5)">
<input type="radio" name="r1" value="0" checked>
直接在此回复
<input type="radio" value="1" name="r1">
发到发布人的信箱</span></td>
</tr>
<tr>
<td height="29"><p style="line-height: 100%; margin-left: 20px">用户名：
<input type="text" name="username" size="16" maxlength="50" value="<%=request.cookies("cnmai")("username")%>">
 
<input type="checkbox" name="nm" value="on">
匿名发布 [<a target="_blank" href="reg.asp">注册</a>/<a target="_blank" href="login.asp">登陆</a>]</td>
</tr>
<tr style="display:none" id="follow1">
<td height="26"><p style="margin-left: 20px">邮件标题：
<input type="text" name="mbt" size="39" maxlength="50">
<br>
联系方式：
<input type="text" name="mdz" size="39" maxlength="40">
<input type="hidden" name="et" size="15" value="<%=rs("email")%>">
</td>
</tr>
<tr>
<td><p style="line-height: 100%; margin-left: 20px">回复内容：
<textarea rows="4" name="neirong" cols="50"></textarea>
</td>
</tr>
<tr>
<td height="22"><p align="center">
<input type="submit" value="提交回复" name="hf">
</td>
</tr>
<tr>
<td><table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<%
if rs("hfcs")>=1 then
rs.close
dim k
sql = "select * from hf where xxid='"&cnmai&"' order by hfsj desc"
rs.open sql,conn,1,1
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
k=0
%>
<%do while not rs.eof%>
<tr>
<td width="2%" height="25" class="tdhf"></td>
<td width="4%" height="25" class="tdhf"><b><%=(k+1)%></b>楼</td>
<td width="70%" height="25" class="tdhf"><b><font color="#CC0000">
<%if rs("username")<>"" then %>
<%=trim(rs("username"))%>
<%else%>
匿名用户
<%end if%>
</font></b></td>
<td width="25%" height="25" class="tdhf" align="right"><font color="#808080"><%=trim(rs("hfsj"))%> </font>  </td>
</tr>
<tr>
<td width="2%"></td>
<td width="4%"></td>
<td width="70%" class=><%=HTMLEncode(rs("neirong"))%></td>
<td width="25%"></td>
</tr>
<%
rs.movenext
k=k+1
if k>=Pagesize then exit do
loop
end if
%>
<tr>
<td width="100%" height="1" colspan="4"></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" height="25" bgcolor="#E0E0E0">共有 <font color="#CC5200"><%=Allrecord%></font> 条记录  共 <font color="#CC5200"><%=Allpage%></font> 页  现在是第 <font color="#CC5200"><%=ThisPage%></font> 页 <font color="#CCCCCC">┈┈┈┈┈┈┈┈┈┈┈┈</font>
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?cnmai="&cnmai&"&page=1>首页</a> "
response.write "<a href=?cnmai="&cnmai&"&page="&ThisPage-1&">上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?cnmai="&cnmai&"&page="&(ThisPage+1)&">下一页</a> "
response.write "<a href=?cnmai="&cnmai&"&page="&Allpage&">尾页</a> "
end if
%></td>
</tr>
</form>
</table>
</div></td>
</tr>
<tr>
<td width="72%" align="right" colspan="2"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="214" height="570" valign="top" background="img/rightbg.jpg" style="border-style:none"><table width="100%" border="0" cellpadding="0" cellspacing="0" id="table1">
<tr>
<td height="56"><p align="center"><a href="axx.asp"><img border="0" src="img/fbbut1.gif" width="158" height="46"></a></td>
</tr>
<tr>
<td><%call xxs()%></td>
</tr>
</table></td>
</tr>
</table>
<%
rs1.close
set rs1=nothing
call closedb()%>
</body></html>

复制代码

我修改行279 <input type="checkbox" name="nm" value="on">为
<input type="checkbox" name="nm" value="off">可以限制匿名回复。但会员登录还是直接发表回复。修改那段代码限制验证后才可以显示呢？

cg0374 · 发表于 2010-3-26 14:34:29

为了不扰乱会员对源码的测试，有问题咨询右侧客服不要直接回复，否则视为非法信息屏蔽会员ID！

没人知道吗？顶起来

		自动登录	找回密码
密码			会员注册