count_result_zmgg.asp

来自「此源码的会员,代理,后台功能齐全,是真真正正包含数据库(在matali文件夹里)」· ASP 代码 · 共 58 行

<!--#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
ID=trim(request("ID"))
result=(trim(request("result")))

 Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
if trim(request("types"))<>"" then
select case trim(request("types"))
case "1"
l_type="中三"
case "2"
l_type="中二"
case "3"
l_type="中二"
case "4"
l_type="中特"
end select
Set Rs6=Conn.Execute("update m_chilp set l_type='"&l_type&"' ,banlance='1' Where ID='"&ID&"'")
end if
if trim(request("result1"))<>"" then
Set Rs6=Conn.Execute("update m_chilp set result=1,banlance='1' Where ID='"&ID&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0,banlance='1'  Where ID='"&ID&"'")
end if
if trim(request("rates"))<>"" then
'response.Write "update m_chilp set rate="&request("rates")&"  Where ID='"&ID&"'"
Set Rs6=Conn.Execute("update m_chilp set rate="&request("rates")&",banlance='1'  Where ID='"&ID&"'")
end if
if trim(request("amount"))<>"" then
Set Rs6=Conn.Execute("update m_chilp set amount='和局',banlance='1' Where ID='"&ID&"'")
else
Set Rs6=Conn.Execute("update m_chilp set amount='',banlance='1' Where ID='"&ID&"'")
end if
if trim(request("result"))<>"" then
   Set Rs6=Conn.Execute("update m_chilp set result="&result&",banlance='1' Where ID='"&ID&"'")
   end if
   Set Rs6=Nothing
   if request("gg")<>"" then
   response.redirect "result_join2.asp"
    Response.End 
   end if
  response.redirect "result_join.asp"
  Response.End 
%>