28,409
社区成员




types=RemoveHTML(trim(request.QueryString("type")))
id=RemoveHTML(trim(request.form("id")))
useredorder=RemoveHTML(trim(request.form("useredorder")))
ServiceQuantity=RemoveHTML(trim(request.form("ServiceQuantity")))
ordercode=RemoveHTML(trim(request.form("ordercode")))
if types="Service" and vsorder(ordercode,"OrderList",id)=ordercode then
ordercodes=ordercodes
set rs = server.createobject("adodb.recordset")
sql="select * from Service"
rs.open sql,conn,1,3
rs("ordercode")=vsorder(ordercode,"OrderList",id)
rs("ServiceQuantity")=ServiceQuantity
rs("ServiceAddtime")=now()
rs.update
rs.close
Set rs=Nothing
response.write " <script language=JavaScript> " & chr(13) & "alert( '操作成功! '); "& "window.location.href = 'orderlist.asp ' "& " </script> "
response.End
end if
'================================保修保存=====================================================
Function vsorder(vsdh,vstable,vsid)
dim rsa,sql
set rsa = server.createobject("adodb.recordset")
sql="select * from "&vstable&" where id="&vsid&" and ordercode='"&vsdh&"'"
'Response.Write sql
'Response.End()
rsa.open sql,conn,1,1
if not (rsa.eof or rsa.bof) then
if rsa("ordercode")=vsdh then
Response.Write rsa("ordercode")
else
Response.Write ""
end if
else
Response.Write ""
end if
rsa.close
Set rsa=Nothing
End Function
Function vsorder(vsdh,vstable,vsid)
dim rsa,sql
set rsa = server.createobject("adodb.recordset")
sql="select * from "&vstable&" where id="&vsid&" and ordercode='"&vsdh&"'"
'Response.Write sql
'Response.End()
rsa.open sql,conn,1,1
if not (rsa.eof or rsa.bof) then
if rsa("ordercode")=vsdh then
Response.Write rsa("ordercode")
else
Response.Write ""
end if
else
Response.Write ""
end if
rsa.close
Set rsa=Nothing
End Function
Function vsorder(vsdh,vstable,vsid)
dim rsa,sql
set rsa = server.createobject("adodb.recordset")
sql="select * from "&vstable&" where id="&vsid&" and ordercode='"&vsdh&"'"
'Response.Write sql
'Response.End()
rsa.open sql,conn,1,1
if not (rsa.eof or rsa.bof) then
if rsa("ordercode")=vsdh then
vsorder = rsa("ordercode")
else
vsorder = ""
end if
else
vsorder = ""
end if
rsa.close
Set rsa=Nothing
End Function