<!--#include virtual="/show/indexhead.asp"-->
<!--#include virtual="/show/mokuai/sms.asp"-->

<%

function settomail(url,cset) 
dim Http 
set Http=server.createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then exit function 
settomail=BytesToBstr(Http.responseBody,cset) 
set http=nothing 
if err.number<>0 then err.Clear  
end function 

if SafeRequest("act")="zhuijia" then
sum=SafeRequestform("sum")
zhuicon=SafeRequestform("zhuicon")
if trim(zhuicon)="" then call PopErr("请填写追加内容")
tyiju=SafeRequestform("tyiju")
touid=SafeRequestform("touid")
if tyiju="" or touid="" then call PopErr("参数不完整")

pic1=trim(SafeRequestform("pic1"&sum&""))
pic2=trim(SafeRequestform("pic2"&sum&""))
pic3=trim(SafeRequestform("pic3"&sum&""))
pic4=trim(SafeRequestform("pic4"&sum&""))
pic5=trim(SafeRequestform("pic5"&sum&""))

downf=""
if trim(pic1)<>"" then downf=downf&pic1&";"
if trim(pic2)<>"" then downf=downf&pic2&";"
if trim(pic3)<>"" then downf=downf&pic3&";"
if trim(pic4)<>"" then downf=downf&pic4&";"
if trim(pic5)<>"" then downf=downf&pic5&";"

if downf<>"" then downf=mid(downf,1,len(downf)-1)

sql="select * from ayjubao where ayjubaoid='"&touid&"'" 
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
ayjubaouid=rs("ayjubaouid")
ayjubaozt=rs("ayjubaozt")
rs("jubaoisnew")=1
rs("jubaolastdate")=now()
rs.update
end if
rs.close

sql="select * from ayname where aynameid='"&ayjubaouid&"'" 
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
smail=trim(rs("aymail"))
stel=trim(rs("aytel"))
rs.update
end if
rs.close


sql="select * from ayjubao" 
rs.open sql,conn,1,3
rs.addnew
rs("ayjubaosjid")=touid
rs("ayjuhuifu")=zhuicon
rs("aydate")=now()
rs("ayjuishui")=1
rs("ayjuishuisid")=1
if downf<>"" then rs("ayjudown")=downf
rs.update
rs.close

if cint(ayjubaozt)=1 then
title="来自"&webname&"-投诉有了新的进展"     
body="您收到投诉得到了新的回复，请登录后进行查看，请妥善处理投诉，谢谢您的理解与配合"
conn.Execute("Insert Into mailto(mto,mti,mcon) values('"&trim(smail)&"','"&trim(title)&"','"&trim(body)&"')")
call mokuai_sms("IK14","2",trim(stel),body,"","","","")
end if

call logadd("0",touid&"投诉追加成功",0,0)
call PopErr2("投诉追加成功！","/tousu?act=cx&yiju="&tyiju&"")
end if




if SafeRequest("act")="chexiao" then
id=SafeRequest("id")
pass=SafeRequest("pass")
if id="" or pass="" then call PopErr("缺少投诉ID或投诉依据！")

		rs.open "select * from ayjubao where ayjubaoid="&id&" and ayjupass='"&pass&"'" ,conn,1,3
		if not(rs.bof and rs.eof) then
		rs("ayjuzt")=1
		rs.update
		else
		call PopErr("未找到该投诉记录！")
		end if
		rs.close
		
		sql="select * from ayjubao" 
		rs.open sql,conn,1,3
		rs.addnew
		rs("ayjubaosjid")=id
		rs("ayjuhuifu")="[系统自动标注:买家撤销投诉]"
		rs("aydate")=now()
		rs("ayjuishui")=1
		rs("ayjuishuisid")=9
		rs.update
		rs.close
		
call PopErr2("投诉撤销成功！","/")

end if
%>





<div class="mian">
<div class="regbox conter">

<div class="nyclassbt01 conter">投诉平台</div>
<form action="/jubaoadmin?cact=tscx" method="post" name="formtc" id="formtc">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="280" height="50" class="regtext">投诉订单号：</td>
    <td width="303"><input name="ddh" id="ddh" type="text" class="reginput" maxlength="18"></td>
    <td width="452"><div id="pass1d" class="regts" >请输入订单号 <a style="color:#F60" href="<%=weburl%>chaxun" target="_blank">[查询订单]</a></div></td>
  </tr>
  <tr>
    <td height="69" class="regtext">&nbsp;</td>
    <td align="left"><input style="cursor:pointer" name="tijiao" type="submit" class="logindlreg" id="tijiao" value=" 我要投诉 "></td>
    <td>&nbsp;</td>
  </tr>
  </table>
</form>
<br>

</div>
</div>



<!--#include virtual="/show/indexfoot.asp"-->