orderinfoupdate.asp

来自「网上订房」· ASP 代码 · 共 23 行

<%@ LANGUAGE="VBSCRIPT" %>
<%
if request.cookies("adminok")="" then
  response.redirect "login.htm"
end if
%>
<!--#include file="conn.asp"-->
<%
   dim SQL, Rs, contentID,CurrentPage
   contentID=request("ID")
   userID=request("userid")

   set rs=server.createobject("adodb.recordset")
   sqltext="update orderb set flag=1 where id="& contentID
   rs.open sqltext,conn,3,3
   set rs=nothing
   
   set rsuser=server.createobject("adodb.recordset")
   sqltext="update userb set point=point+500 where userid='"& userID&"'"
   rsuser.open sqltext,conn,3,3
   set rsuser=nothing
   response.write "<script language=JavaScript>{window.alert('此订单处理完毕!');window.location.href='orderInfo.asp';}</script>"
%>