<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
ServiceOrdID = trim(request("ServiceOrdID"))
|
OAid = trim(request("OAid"))
|
AuthorizeNO = trim(request("AuthorizeNO"))
|
|
If ServiceOrdID="" Or OAid="" Or AuthorizeNO="" Then
|
Response.Write "0"
|
Response.End
|
End If
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select ServiceOrdID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo,OrdAuthorize,OrdAuthorize_Time from ServiceOrder where ServiceOrdID="&ServiceOrdID&" and OrdAuthorize='"&AuthorizeNO&"' and datediff(Mi,OrdAuthorize_Time,getdate())<=15"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdID = rs("ServiceOrdID")
|
ServiceOrdClass = rs("ServiceOrdClass")
|
ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
|
session("Power_"&ServiceOrdID)=1
|
sql="update ServiceOrder set OrdAuthorize='' where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
Call OA_Running("查看客户敏感信息:"&ServiceOrdNo&" ID:"&ServiceOrdID)
|
Response.Write "1"
|
Else
|
Response.Write "0"
|
Response.End
|
End If
|
rs.close()
|
%>
|
