usgupdate.asp

来自「网上车辆管理系统」· ASP 代码 · 共 21 行

<!--#include file="..\pub\ChkDriver.asp"-->
<!--#include file="..\CONN.INC"-->

<%
set rs=conn.execute("select EventType from UsageInfo where EventID="&Request("ID"))
if not rs.eof then
	if rs("EventType")="2" then 
		sqlstring="update UsageInfo set EventType=4 where EventID="&Request("ID")
		conn.execute (Sqlstring)
	end if
	if rs("EventType")="4" then 
		sqlstring="update UsageInfo set EventType=5 where EventID="&Request("ID")
		conn.execute (Sqlstring)
	end if
end if
%>
<form name=reDirectURL action=<%=Request.ServerVariables("HTTP_REFERER")%> method=post></form>
<script language="javascript">
	 alert("任务状态已改变");
     document.reDirectURL.submit();
</script>