自助购买VIP收藏本站将本站放到桌面
开启辅助访问 购买锦尚中国空间免费安装程序 请联系QQ278869155
源码论坛公告：本站是一个交流学习建站资源的社区论坛，旨在交流学习源码脚本等资源技术，欢迎大家投稿发言！ 【点击此处将锦尚放在桌面】

源码论坛,商业源码下载,尽在锦尚中国商业源码论坛

 找回密码
 会员注册

QQ登录

只需一步，快速开始

源码论坛,商业源码下载,尽在锦尚中国商业源码论坛»论坛 › 站长交流 › 站长求助 › 信息港ASP源码设置会员回复需要管理验证才能显示
返回列表 发新帖
查看: 2301|回复: 1
打印 上一主题 下一主题

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

[复制链接]
cg0374

6

主题

46

帖子

18

金币

初级会员

Rank: 1

积分
89
跳转到指定楼层
1#
发表于 2010-3-19 14:32:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
后台没功能设置，能不能在源码限制管理员验证才能看到回复？我现在设置了不能匿名发布，但会员需要验证才能显示代码怎么改呢？期待高手解答。下面是代码：
  1. <!--#include file="inc/conn.asp"-->
  2. <!--#include file="inc/inc.asp"-->
  3. <script language="JavaScript">
  4. function DrawImage(ImgD){
  5.    var image=new Image();
  6.    image.src=ImgD.src;
  7.    if(image.width>0 && image.height>0){
  8.     flag=true;
  9.     if(image.width/image.height>= 160/160){
  10.      if(image.width>160){  
  11.      ImgD.width=160;
  12.      ImgD.height=(image.height*160)/image.width;
  13.      }else{
  14.      ImgD.width=image.width;  
  15.      ImgD.height=image.height;
  16.      }

  18.      }
  19.     else{
  20.      if(image.height>160){  
  21.      ImgD.height=160;
  22.      ImgD.width=(image.width*160)/image.height;     
  23.      }else{
  24.      ImgD.width=image.width;  
  25.      ImgD.height=image.height;
  26.      }

  28.      }
  29.     }
  30.    /*else{
  31.     ImgD.src="";
  32.     ImgD.alt=""
  33.     }*/
  34.    }
  35. </script>
  36. <script>
  37. function loadThreadFollow(t_id,b_id){
  38.     var targetImg =eval("document.all.followImg" + t_id);
  39.     var targetDiv =eval("document.all.follow" + t_id);
  40.    
  41.     if ("object"==typeof(targetImg)){
  42.         if (targetDiv.style.display!='block')
  43.         {
  44.             targetDiv.style.display="block";   
  45.         }
  46.         else
  47.         {
  48.             targetDiv.style.display="none";
  49.         }}
  50. }
  51. </script>
  52. <script LANGUAGE="JavaScript">
  53. function checkMobile(){
  54.     var sMobile = document.mobileform.mobile.value
  55.     if(!(/^13[0-9]\d{4,8}$/.test(sMobile))){
  56.         alert("不是完整的11位手机号或者正确的手机号前七位");
  57.         document.mobileform.mobile.focus();
  58.         return false;}
  59.     window.open('', 'mobilewindow', 'height=197,width=350,status=yes,toolbar=no,menubar=no,location=no')
  60. }</script>
  61. <%
  62. set rs=server.createobject("adodb.recordset")
  63. sql = "select * from jle_xinxi where yz=1 and id="&cstr(cnmai)
  64. rs.open sql,conn,1,3
  65. if rs.eof or rs.BOF then
  66. response.write "参数错误、记录已经删除或该信息没有通过管理员认证！<br>3秒内自动转入"&title&"首页"
  67. response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
  68. response.end
  69. end if
  70. rs("llcs")=rs("llcs")+1
  71. rs.update
  72. %>
  73. <%
  74. dim rsc,sqlc,id_1
  75. set rsc=server.createobject("adodb.recordset")
  76. sqlc = "select id,class1 from jle_class1 where id="&cstr(rs("class1"))
  77. rsc.open sqlc,conn,1,1
  78. id_1=rsc("id")
  79. On Error Resume Next
  80. %>
  81. <html>
  82. <head>
  83. <meta http-equiv="Content-Language" content="zh-cn">
  84. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  85. <title><%=rs("biaoti")%>-信息内容-<%=title%></title>
  86. <link href="inc/style.css" rel="stylesheet" type="text/css">
  87. </head>
  88. <body topmargin="0" leftmargin="0">
  89. <%call t()%>






  96. <table width="980" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D2D2D2">
  97. <tr>
  98. <td height="40" colspan="2"  background="img/sorttitlebg.jpg" style="border-style:none"></td>
  99. </tr>
  100. <tr>
  101. <td width="764" valign="top" bgcolor="#F2F2F2" style="border-style:none">
  102. <table width="756" height="193" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D8D8D8">
  103. <tr>
  104. <td width="511" height="35" background="img/sortcontentbarbg.jpg" style="border-style:none">&nbsp;<img src="img/dot1.gif" width="12" height="12">&nbsp;位置导航：<a href="../">首页</a>→<a href="info.asp?/=<%=id_1%>&cnmai=1"><%=rsc("class1")%></a>→<%
  105. set rs1=server.createobject("adodb.recordset")
  106. sql1 = "select id,class2 from jle_class2 where id="&cstr(rs("class2"))
  107. rs1.open sql1,conn,1,1
  108. On Error Resume Next
  109. %><a href="info.asp?/=<%=id_1%>&//=<%=rs1("id")%>&/1=-<%=escape(rs1("class2"))%>&cnmai=2"><%=rs1("class2")%></a><%
  110. %>→<span class=font2> <%=rs("biaoti")%></span></td>
  111. <td width="239" background="img/sortcontentbarbg.jpg" style="border-style:none"></td>
  112. </tr>
  113. <tr>
  114. <td height="156" colspan="2" bgcolor="#FFFFFF" style="border-style:none"  valign="top">
  115. <table width="750" border="0" cellspacing="1" bordercolor="#FFE9D2" style="border-collapse: collapse">
  116. <tr>
  117. <td height="72" colspan="3" align="center" style="padding-left: 0; padding-right: 0; padding-top: 1px; padding-bottom: 1px"><div class="sortbiaoti2">
  118. <%Select Case rs("leixing")
  119. Case "0"
  120. response.write ""
  121. Case "1"
  122. response.write "<font color=""#800000"">[转让]</font>"
  123. Case "2"
  124. response.write "<font color=""#FF00FF"">[求购]</font>"
  125. Case "3"
  126. response.write "<font color=""#008000"">[出租]</font>"
  127. Case "4"
  128. response.write "<font color=""#FF6600"">[求租]</font>"
  129. Case "5"
  130. response.write "<font color=""#ff0000"">[求职]</font>"
  131. Case "6"
  132. response.write "<font color=""#000080"">[招聘]</font>"
  133. Case "7"
  134. response.write "<font color=""#0000FF"">[分享]</font>"
  135. Case "8"
  136. response.write "<font color=""#008080"">[交换]</font>"
  137. Case Else
  138. response.write "<font color=""#000000"">["&rs("leixing")&"]</font>"
  139. End Select%>
  140. <%if rs("tuijian")=1 then%>
  141. <font color="#FF0000"><img border="0" src="image/jian.gif" alt="本站推荐"></font>
  142. <%end if%>
  143. <%if rs("a")="0" then%>
  144. <%=rs("biaoti")%></b>
  145. <%else%>
  146. <font color="#<%=rs("a")%>"><b><%=rs("biaoti")%></b></font>
  147. <%end if%>
  148. </div></td>
  149. </tr>
  150. <tr>
  151. <td height="32" colspan="3" background="img/linebg.jpg" style="border-bottom: 1px solid #C0C0C0; padding: 1px">
  152. <p align="center"><b>更新时间：</b><%=rs("fbsj")%>
  153. <%if rs("dqsj")<>"" then%>
  154. <%dim sj
  155. sj=DateDiff("d",now(),""&rs("dqsj")&"")
  156. if sj>0 then %>
  157. <font color="#FF0000">  还有<b><%=sj%></b>天结束</font>
  158. <%else%>
  159. 信息已经过期了
  160. <%end if%>
  161. </font>
  162. <%else%>
  163. <%end if%>
  164. <b>浏览/回复:</b><%=rs("llcs")%>次/<%=rs("hfcs")%>次&nbsp; [<a target="_blank" href="x_sc.asp?id=<%=rs("id")%>">收藏此信息</a>]</td>
  165. </tr>
  166. <tr>
  167. <td></td>
  168. <td >
  169. <div style="margin-top:8px; margin-left:4px;margin-right:4px;
  170. margin-bottom:8px;font-size:12px;color:#990000;line-height:130%;"> &nbsp;&nbsp;&nbsp;&nbsp;<%=HTMLEncode(rs("memo"))%><br>
  171.               所属地区：<%=rs("diqu")%><br>
  172.               <%if rs("jiage")<>"0" and rs("jiage")<>"" then %>
  173.               相关价格：<%=rs("jiage")%>
  174. <%end if%>
  175. </div>
  176. </td>
  177. <td align="center" valign="middle"><%if rs("tupian")="0" or rs("tupian")="" then%>
  178. <a href="regchk.asp" target="_blank"><img src="img/popad.jpg" border=1 style="border: 1px solid #C0C0C0; "width="288" height="239"></a>
  179. <%else%>
  180. <a target=_blank href="<%=rs("tupian")%>">
  181. <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  
  182. codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="160" height="160">
  183. <param name="movie" value="img/swfoto.swf?image=<%=rs("tupian")%>">  
  184. <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>
  185. </object>
  186. </a>
  187. <%end if%>
  188. <br>
  189. <script language="JavaScript">
  190. <!--
  191. color = "#fff000";
  192. val = Math.random() + "000";
  193. val1 = val.substring(2, 3 );
  194. if( val1 % 2 == 0 )
  195. document.write("<a href=http://www.cc058.com target=_blank><font size=2 id=eb668 color=#ffffff><b>欢迎进入<%=city%>信息网>>></b></font></a>" );
  196. else
  197. document.write("<a href=http://www.cc058.com target=_blank><font size=2 id=eb668 color=#ffffff><b>欢迎进入<%=city%>信息网>>></b></font></a>" );
  198. setTimeout( dscchange, 3000);
  199. function dscchange()
  200.     {
  201.      if( color == "#fff000" )
  202.       color = "#ff0000";
  203.      else
  204.          color = "#fff000";
  205.         document.all.eb668.color= color;
  206.         setTimeout( dscchange, 100);
  207.     }
  208. //-->
  209. </script>
  210. </td>
  211. </tr>
  212. <tr>
  213. <td colspan="3"></td>
  214. </tr>
  215. <tr>
  216. <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"> 发 布 者：
  217.                   <%if rs("com")<>"" and rs("username")<>"" then %>
  218.               <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>
  219.               <%else if rs("username")<>"" and rs("com")="" then %>
  220.               <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>
  221.               <%else%>
  222.               <%=rs("name")%>[游客快速发布]
  223.               <%end if%>
  224.               <%end if%>
  225.             </td>
  226.           </tr>
  227.           <tr>
  228.             <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>
  229.           </tr>
  230.           <%if rs("qq")<>"" then %>
  231.           <tr>
  232.             <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>
  233.           </tr>
  234.           <%else%>
  235.           <%end if%>
  236.           <tr>
  237.             <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>
  238.           </tr>
  239.           <tr>
  240.             <td colspan="3" height="26"><div align="center">
  241.               <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table2">
  242.                   <tr>
  243.                     <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">
  244.                      <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：
  245.                     <input type="text" name="ip" size="15" value="<%=rs("ip")%>" style="border: 1px solid #FFFFFF; background-color: #FFFFFF">
  246.                       <input name="submit" type="submit" style="background-color: #FFFFFF" title="通过查看发布人IP，可以判断信息的可信度" value=" 查看ip ">
  247.                     <INPUT TYPE="hidden" name="action" value="2">
  248.                     </FORM></td>
  249.                     <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">
  250.                         <input type="hidden" name="action" value="mobile">
  251.                       <input class="TextBoxStyle" maxLength="11" name="mobile" size="15" value="<%=rs("dianhua")%>">
  252.                         <input name="submit" type="submit" class="ButtonStyle" style="color: #FF0000; background-color:#FFFFFF" value="手机归属查询">
  253.                     </form></td>
  254.                   </tr>
  255.                 </table>
  256.             </div></td>
  257.           </tr>
  258.           <tr>
  259.             <td colspan="3" height="26"><font color="#C0C0C0">&nbsp;<span style="font-size: 11pt"></span><font size="2">&nbsp; </font></font><font color="#999999"> 通过查看发布者IP和手机归属判断信息的真实性与合法性,请谨慎审核,理性抉择。</font></td>
  260.           </tr>
  261.           <tr>
  262.             <td align="right" colspan="3"><div align="center">
  263.               <table border="0" cellpadding="0" style="border-style:solid; border-width:1px; padding:1px; border-collapse: collapse" bordercolor="#CCCCCC" width="100%">
  264.                   <form action="x_hf.asp?id=<%=rs("id")%>&xxusername=<%=rs("username")%>&cnmai=chk" method="POST">
  265.                     <tr>
  266.                       <td height="22" bgcolor="#E5E5E5"><p align="center"><b><a name="hf"></a>给本信息发表回复</b>(本站提示：请随时关注您发布的信息，会有买/卖家给您留言的)</td>
  267.                     </tr>
  268.                     <tr>
  269.                       <td height="29"><p style="margin-left: 20px"><span id="followImg1" style="CURSOR: hand" onClick="loadThreadFollow(1,5)">
  270.                         <input type="radio" name="r1" value="0" checked>
  271.                         直接在此回复
  272.                         <input type="radio" value="1" name="r1">
  273.                         发到发布人的信箱</span></td>
  274.                     </tr>
  275.                     <tr>
  276.                       <td height="29"><p style="line-height: 100%; margin-left: 20px">用 户 名：
  277.                             <input type="text" name="username" size="16" maxlength="50" value="<%=request.cookies("cnmai")("username")%>">
  278.                         &nbsp;
  279.                               <input type="checkbox" name="nm" value="on">
  280.                         匿名发布&nbsp;[<a target="_blank" href="reg.asp">注册</a>/<a target="_blank" href="login.asp">登陆</a>]</td>
  281.                     </tr>
  282.                     <tr style="display:none" id="follow1">
  283.                       <td height="26"><p style="margin-left: 20px">邮件标题：
  284.                             <input type="text" name="mbt" size="39" maxlength="50">
  285.                         <br>
  286.                         联系方式：
  287.                         <input type="text" name="mdz" size="39" maxlength="40">
  288.                         <input type="hidden" name="et" size="15" value="<%=rs("email")%>">
  289.                       </td>
  290.                     </tr>
  291.                     <tr>
  292.                       <td><p style="line-height: 100%; margin-left: 20px">回复内容：
  293.                             <textarea rows="4" name="neirong" cols="50"></textarea>
  294.                       </td>
  295.                     </tr>
  296.                     <tr>
  297.                       <td height="22"><p align="center">
  298.                         <input type="submit" value="提交回复" name="hf">
  299.                       </td>
  300.                     </tr>
  301.                     <tr>
  302.                       <td><table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
  303.                           <%
  304. if rs("hfcs")>=1 then
  305. rs.close
  306. dim k
  307. sql = "select * from hf where xxid='"&cnmai&"' order by hfsj desc"
  308. rs.open sql,conn,1,1
  309. rs.Pagesize=10
  310. Pagesize=rs.Pagesize
  311. Allrecord=rs.Recordcount
  312. Allpage=rs.Pagecount
  313. if ThisPage<1 then                           
  314. ThisPage=1
  315. end if
  316. On Error Resume Next
  317. rs.move (ThisPage-1)*Pagesize
  318. k=0
  319. %>
  320.                           <%do while not rs.eof%>
  321.                           <tr>
  322.                             <td width="2%" height="25" class="tdhf"></td>
  323.                             <td width="4%" height="25" class="tdhf"><b><%=(k+1)%></b>楼</td>
  324.                             <td width="70%" height="25" class="tdhf"><b><font color="#CC0000">
  325.                               <%if rs("username")<>"" then %>
  326.                               <%=trim(rs("username"))%>
  327.                               <%else%>
  328.                               匿名用户
  329.                               <%end if%>
  330.                             </font></b></td>
  331.                             <td width="25%" height="25" class="tdhf" align="right"><font color="#808080"><%=trim(rs("hfsj"))%> </font> &nbsp;</td>
  332.                           </tr>
  333.                           <tr>
  334.                             <td width="2%"></td>
  335.                             <td width="4%"></td>
  336.                             <td width="70%" class=><%=HTMLEncode(rs("neirong"))%></td>
  337.                             <td width="25%"></td>
  338.                           </tr>
  339.                           <%
  340. rs.movenext
  341. k=k+1
  342. if k>=Pagesize then exit do
  343. loop
  344. end if
  345. %>
  346.                           <tr>
  347.                             <td width="100%" height="1" colspan="4"></td>
  348.                           </tr>
  349.                       </table></td>
  350.                     </tr>
  351.                     <tr>
  352.                       <td align="center" height="25" bgcolor="#E0E0E0">共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录&nbsp;  共 <font color="#CC5200"><%=Allpage%></font> 页&nbsp; 现在是第 <font color="#CC5200"><%=ThisPage%></font> 页 <font color="#CCCCCC">┈┈┈┈┈┈┈┈┈┈┈┈</font>
  353.                           <%
  354. if ThisPage<2 then     
  355. response.write "<font color=""#808080"">首页</font>&nbsp;"
  356. response.write "<font color=""#808080"">上一页</font>&nbsp;"     
  357. else     
  358. response.write "<a href=?cnmai="&cnmai&"&page=1>首页</a>&nbsp;"
  359. response.write "<a href=?cnmai="&cnmai&"&page="&ThisPage-1&">上一页</a>&nbsp;"     
  360. end if
  361. if Allpage-ThisPage<1 then     
  362. response.write "<font color=""#808080"">下一页</font>&nbsp;"
  363. response.write "<font color=""#808080"">尾页</font>&nbsp;"  
  364. else     
  365. response.write "<a href=?cnmai="&cnmai&"&page="&(ThisPage+1)&">下一页</a>&nbsp;"   
  366. response.write "<a href=?cnmai="&cnmai&"&page="&Allpage&">尾页</a>&nbsp;"     
  367. end if
  368. %></td>
  369.                     </tr>
  370.                   </form>
  371.               </table>
  372.             </div></td>
  373.           </tr>
  374.           <tr>
  375.             <td width="72%" align="right" colspan="2"></td>
  376.           </tr>
  377.         </table></td>
  378.       </tr>
  379.     </table></td>
  380.     <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">
  381.       <tr>
  382.         <td height="56"><p align="center"><a href="axx.asp"><img border="0" src="img/fbbut1.gif" width="158" height="46"></a></td>
  383.       </tr>
  384.       <tr>
  385.         <td><%call xxs()%></td>
  386.       </tr>
  387.     </table></td>
  388.   </tr>
  389. </table>

  391. <!--#include file="foot.asp"--><%
  392. rs1.close
  393. set rs1=nothing
  394. call closedb()%>
  395. </body></html>
复制代码
我修改行279 <input type="checkbox" name="nm" value="on">为
<input type="checkbox" name="nm" value="off">可以限制匿名回复。但会员登录还是直接发表回复。修改那段代码限制验证后才可以显示呢？
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享
回复

举报

cg0374

6

主题

46

帖子

18

金币

初级会员

Rank: 1

积分
89
2#
 楼主| 发表于 2010-3-26 14:34:29 | 只看该作者
为了不扰乱会员对源码的测试，有问题咨询右侧客服不要直接回复，否则视为非法信息屏蔽会员ID！
没人知道吗？ 顶起来
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

锦尚中国源码论坛

聚合标签|锦尚中国,为中国网站设计添动力 ( 鲁ICP备09033200号 ) |网站地图

GMT+8, 2024-11-27 17:35 , Processed in 0.140334 second(s), 25 queries .

带宽由 锦尚数据 提供 专业的数据中心

© 锦尚中国源码论坛 52jscn Inc. 非法入侵必将受到法律制裁 法律顾问：IT法律网 & 褚福省律师 锦尚爱心 版权申诉 版权与免责声明