saveordermod.asp

来自「人民医院眼科全站」· ASP 代码 · 共 38 行

<!-- #include file="../include/bkconn.asp "-->
<!--#include file="checkUser.asp"-->
<%
	   if Request("box1")= "on" then
			sql="update member set jifen=jifen + " & cInt(trim(request("jifen"))) & " where memberid='" & trim(request("memberid")) & "'"
			conn.Execute ( sql )
	   end if

       Set cmdTemp = Server.CreateObject("ADODB.Command")
       Set InsertCursor = Server.CreateObject("ADODB.Recordset")
       cmdTemp.CommandText = "SELECT * FROM orders WHERE id="&Request("id")
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn
       InsertCursor.Open cmdTemp, , 1, 3
       if Request("box2")= "on" then
	   InsertCursor("state") =1
	   InsertCursor("treatedDate") =now()
	   end if
	   if Request("box1")= "on" then
	   InsertCursor("gathering") =1
	   InsertCursor("gatheringData") =now()
	   end if
       InsertCursor("treatedRemark") =Request("treatedRemark")
       'InsertCursor.Update
       'InsertCursor.close
	   InsertCursor.Update
	   conn.close
       'set InsertCursor=nothing
       'set conn=nothing

%>
<script language=Javascript>
<!--
alert("处理成功！");
this.document.location="<%=session("adminOldUrl")%>";
-->
</script>