<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%Response.Buffer = True
|
Server.ScriptTimeOut=240000
|
'On Error Resume Next
|
%>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include virtual="/inc/function.asp"-->
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">
|
<title>记录中..</title>
|
</head>
|
<%
|
'-------------------------------------------------------------记录客户评价
|
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"
|
%>
|
