<!--#include file = "inc/conn.asp"-->
<!--#include file = "inc/emot.js"-->
<!--#include file="inc/function.asp"-->
<%
dim eID,ek,claa,clab
eID = replace(replace(replace(replace(replace(replace(request("id"),"'",""),"%",""),"&",""),"*",""),">",""),"<","")
jle=Ucase(request("jle"))

if jle="XXS" then
'claa=request("cla1")
'clab=request("cla2")  
eShowContent = ""
Set Rs = Conn.ExeCute("select top 12 * from jle_info where yz=1 and class1="&request("cla1")&" and class2="&request("cla2")&" order by id Desc")
do while not Rs.eof
eShowContent= eShowContent & "<li><A target=_blank href=/"&Rs("xurl")&" ><font style=font-size: 9pt>"&left(Rs("biaoti"),19)&"</font></a></li>"
Rs.movenext
loop
eShowContent= eShowContent & ""
Rs.close
else
'Call closedb()
  Set Rs = Conn.ExeCute("Select llcs,hfcs,dqsj From jle_info Where id = "&eID)
	If Not Rs.Eof Then
	  eHtc = Rs("llcs")
	  eRe = Rs("hfcs")
	  eDqsj =Rs("dqsj")
	End If
  Rs.Close
  Set Rs = Nothing

Select Case jle

Case "LLCS"
      Conn.Execute("Update jle_info Set llcs = llcs+1 Where id = "&eID)
	  eShowContent = eHtc+1
	  
Case "HFCS"
	  eShowContent = eRe
	  
Case "DQSJ"
       dim sj
       sj=DateDiff("d",now(),eDqsj)
        if sj>0 then 
        eShowContent = eShowContent & "剩余"&sj&"天"
          else
         eShowContent = eShowContent & "已经过期了"
          end if              
	  
Case "RE"
username=request.cookies("jle")("username")
      eShowContent = "<table align=center border=0 cellpadding=0 width='100%'class=td height=100>"
	  eShowContent = eShowContent & "<form action=../reply_check.asp method=POST>"
	  eShowContent = eShowContent & "<input name=Action type=hidden value=Re>"
	  eShowContent = eShowContent & "<input name=ID type=hidden value="&eID&">"
	  eShowContent = eShowContent & "<tr><td colspan=2 class=userbg height=28><a name=Re></a>&nbsp;<b>发表评论</b>(请自觉遵守互联网相关政策法规,评论内容请不要超过200字符，已输入 <font color=#CC0000><span id=messageCount>0</span></font> 个字!)</td></tr>"
	  eShowContent = eShowContent & "<tr><td height=16 align=right>用户名：</td><td><input type=text name=username size=10 maxlength=50 readonly value="&username&">&nbsp;&nbsp;"
	  eShowContent = eShowContent & "<input type=checkbox name=nm value=1>匿名发布 &nbsp; "
      If username = "" Then
	    eShowContent = eShowContent & "[<a href=/Login.asp>登录</a> <a href=/jle_reg_520.asp target=_blank>注册</a>]"
      End If
	  eShowContent = eShowContent & "</td></tr>"
	  eShowContent = eShowContent & "<tr><td  align=right>评论内容：</td>"
	  eShowContent = eShowContent & "<td><textarea class=ctextarea  rows=6 name=ReContent cols=44 onkeyUp='textLimitCheck(this, 200)'></textarea><br><a onclick='showmodal()' href='#RE'><b>添加耀眼眩酷表情</b>！</a><input type=submit value='发表评论' name=hf></td></tr>"
	  eShowContent = eShowContent & "</form></table>"

Case "RESHOW"
      eK=0
      xid=request("id")
      Set Rs = Conn.ExeCute("select top 10 * from reply where xxid='"&xid&"' order by id Desc")
      If Not Rs.Eof Then
	  eShowContent = "<table align=center border=0 cellpadding=0 class=td  width='100%'>"
	  eShowContent = eShowContent & "<tr><td height=22 colspan=2 class=userbg>&nbsp;<b>查看评论</b>(共有<b>"&eRe&"</b>条评论)</td></tr>"
      Do while not Rs.eof
      eK=eK+1
	    eShowContent = eShowContent & "<tr><td height=18 colspan=2"
        If eK mod 2 = 0 Then
	      eShowContent = eShowContent & " class=userbg "
	    End If
	    eShowContent = eShowContent & ">"
	    eShowContent = eShowContent & "<table width='100%' border=0 cellspacing=0 cellpadding=2><tr><td class=tmpstr>"
	    eShowContent = eShowContent & "【<b>"&eK&"</b>楼】　<font color=#999999>该评论由 <b><font color=#CC0000>"
        If Rs("username")<>"" then
	      eShowContent = eShowContent & Trim(Rs("username"))
        Else
	      eShowContent = eShowContent & "[匿名]"
        End If
	    eShowContent = eShowContent & "</font></b> 在<font color=#CC0000>"&Trim(Rs("hfsj"))&"</font>发布</font>"
	    eShowContent = eShowContent & "<br>"&Rs("neirong")&"</td></tr></table>"
	    eShowContent = eShowContent & "</td></tr>"
      Rs.movenext
      Loop
      if eRe>10 then
	  eShowContent = eShowContent & "<tr><td><b>(共有<b>"&eRe&"</b>条评论) <a href=/allreply.asp?id="&eID&" target=_blank>查看更多评论>>></a></b></td></tr>"
      end if
	  eShowContent = eShowContent & "</table>"
      End If
  End Select
Call closedb()
end if
%>
document.write("<%=Replace(eShowContent,"'","\'")%>");

