result_save.asp

来自「1。超强文件读写锁定」· ASP 代码 · 共 41 行

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
If Not Isnumeric(Request("ID")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
If Not Isnumeric(Request("result")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
If Request("rake")=""  or Request("sum_m")="" or Request("rate")=""   Then
  Response.Write ("<script language=javascript>alert('项目不能为空！');history.go(-1)</script>")
  Response.End
End If
ID=trim(request("ID"))
result=cint(request("result"))
 Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
if trim(request("result1"))<>"" then
Set Rs6=Conn.Execute("update m_chilp set result=1  Where ID='"&ID&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0  Where ID='"&ID&"'")
end if
if trim(request("amount"))<>"" then
Set Rs6=Conn.Execute("update m_chilp set amount='和局' Where ID='"&ID&"'")
else
Set Rs6=Conn.Execute("update m_chilp set amount='' Where ID='"&ID&"'")
end if
if trim(request("result"))<>"" then
   Set Rs6=Conn.Execute("update m_chilp set result="&result&" Where ID='"&ID&"'")
end if
   Set Rs6=Conn.Execute("update m_chilp set rake="&Request("rake")&",sum_m="&Request("sum_m")&",rate="&Request("rate")&",banlance=1 Where ID='"&ID&"'")
 Set Rs6=Nothing
  response.redirect "result_find.asp?order_num="&request("order_num")&""
  Response.End 
%>