<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <%Response.Buffer = True Server.ScriptTimeOut=240000 'On Error Resume Next %> <% '-------------------------------------------------------------记录客户评价 ServiceOrdID = SafeRequest(trim(request("ServiceOrdID"))) DispatchOrdID = SafeRequest(trim(request("DispatchOrdID"))) if ServiceOrdID<>"" And DispatchOrdID<>"" Then sql="update ServiceOrder set Guest_Point=0,Guest_Reward=0,Guest_openid='',Guest_Evaluate='',Guest_Impression='' where ServiceOrdID="&ServiceOrdID objConn.Execute sql sql="update DispatchOrd_Entourage set Guest_Point_1=0,Guest_Point_2=0 where DispatchOrdIDDt="&DispatchOrdID objConn.Execute sql Response.Redirect "/OrdEvaluate.asp?DispatchOrdID="&DispatchOrdID Response.End() end If Response.Redirect "/OrdEvaluateError.asp" %>