<% dim cc_id,sex cc_id=Request("cc_id") Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "]*>" regEx.IgnoreCase = True regEx.Global = True ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"") ClsTempLoseStr = Replace(ClsTempLoseStr," ","") LoseHtml = Replace(ClsTempLoseStr," ","----") End function Call OpenConn() Dim Rs,Sql,i,picurl,savefile,HtmlFileDate,dl,sql1,rs1,ff_id,cc_compid,bf_id,cc_userid,cc_status dim IDStr sql = "update FCustComp set [cc_clicknu]=[cc_clicknu]+1 where cc_id="&cc_id&"" //点击数 conn.Execute(sql) if S_userid<>"" and S_Username<>"" then sql = "Select userid,username From userinfo where userid="&S_userid&" and username='"&S_Username&"'" set rs = Conn.Execute(Sql) if not (rs.EOF and rs.BOF) then sql1="Select fa_id,fa_userid,fa_ccid From FFavorites where fa_userid="&S_userid&" and fa_ccid="&cc_id set rs1 = Conn.Execute(Sql1) if not (rs1.EOF and rs1.BOF) then ff_id=rs1("fa_id") dl=2 else dl=1 end if else dl=0 end if end if %> 中国珠宝网 - 中国最大的珠宝网站!- 58gem.com - 优乐娱乐youle168_www.youle168.com_优乐国际官方网站

投诉反馈

<% Sql = "SELECT cc.*,us.userid,us.province,us.truename,us.usertype,us.sex,fa.an_id,fa.an_classname FROM FCustComp as cc,userinfo as us,FAnclass as fa where cc.cc_id="&cc_id&" and us.userid=cc.cc_userid and fa.an_id=cc.cc_anclassid ORDER BY cc.cc_indexrec " Set Rs = Conn.Execute(Sql) If rs.EOF And rs.bof Then Response.write "" else if (trim(rs("cc_userid"))=trim(S_userid) and dl<>0) then dl=3 end if if Rs("sex")=0 then sex="先生" else sex="小姐" end if cc_compid=Rs("cc_compid") cc_userid=Rs("cc_userid") %>
投诉<%=rs("cc_company")%>[<%=rs("cc_status")%>]浏览[<%=rs("cc_clicknu")%>]

<%=rs("cc_title")%>

<%=rs("cc_content")%>
投诉日期:<%=rs("cc_adtime")%>

商家回应

<% Sql = "SELECT top 1 * FROM FBusFeedback where bf_ccid="&cc_id&" ORDER BY bf_id desc " Set Rs = Conn.Execute(Sql) If not(rs.EOF And rs.bof) Then bf_id=Rs("bf_id") %>
    <%=rs("bf_content")%> [<%=rs("bf_adtime")%>]
    <% if cc_status="已解决" then %> 商家已妥善处理。 <% else if rs("bf_custfdb")<>"" then %> <%=rs("bf_custfdb")%> <%else%> 目前反馈提交者还没有对商家回复做出回应,敬请关注! <%end if%> <% end if %>
<%else%>
    <% if cc_status="已解决" then %> 商家已妥善处理。 <% else %> 商家目前没有回复,我们正在联系,敬请关注! <% end if %>
<%end if%> <%if S_userid<>"" then%> <%if trim(S_userid)=trim(cc_compid) then%>

商家回复

<%end if%> <%if bf_id<>"" then%> <%if trim(S_userid)=trim(cc_userid) then%>

对商家回复意见

<%end if%> <%end if%> <%end if%> <%end if%>

事件评论

youle168