confirm.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "orderconfirm","edit"
set objcheck=nothing

if request("orderid")<>"" then
dim conn
dim rs 
set conn=server.CreateObject("adodb.connection")
conn.Open connstring
sql="select * from [order] where orderid="&Request("orderid")
set rs=conn.Execute(sql)
if rs.eof then
	response.write "<SCRIPT language=javascript>window.resizeTo(300,200);window.focus()</SCRIPT>"
	response.write "<title>合同审核提醒!</title>"
	response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
	response.write "<br>"
	response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg>&nbsp;找不到该记录，可能已被删除！"&"</b></font><br>"
	response.write "<br>"
	response.write "<p align=center><input type=button value="&"关闭窗口"&" onclick="&"javascript:window.close();"&"></p>"
	response.end
else
sql="select * from V_Poapply where orderid="&Request("orderid")
set rsq=conn.Execute(sql)
	if not rsq.eof then 
	response.write "<SCRIPT language=javascript>window.resizeTo(300,200);window.focus()</SCRIPT>"
	response.write "<title>合同审核提醒!</title>"
	response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
	response.write "<br>"
	response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg>&nbsp;该合同已有预定，不能审核撤销！"&"</b></font><br>"
	response.write "<br>"
	response.write "<p align=center><input type=button value="&"关闭窗口"&" onclick="&"javascript:window.close();"&"></p>"
	Response.End 
	else
		if trim(rs("confirmed"))="已审核" then
			sql="update [order] set confirmed='未审核' where orderid="&Request("orderid")
			conn.Execute(sql)
	response.write "<SCRIPT language=javascript>window.resizeTo(300,200);window.focus()</SCRIPT>"
	response.write "<title>合同审核提醒!</title>"
	response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
	response.write "<br>"
	response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg>&nbsp;该合同审核已被撤销！"&"</b></font><br>"
	response.write "<br>"
	response.write "<p align=center><input type=button value="&"关闭窗口"&" onclick="&"javascript:closewin();"&"></p>"
		else
			sql="update [order] set confirmed='已审核' where orderid="&Request("orderid")
			conn.Execute(sql)
	response.write "<SCRIPT language=javascript>window.resizeTo(300,200);window.focus()</SCRIPT>"
	response.write "<title>合同审核提醒!</title>"
	response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
	response.write "<br>"
	response.write "<p align=center><font color=330000 size=2><b>"&"<img src=../images/smallprompt.jpg>&nbsp;该合同审核已通过！"&"</b></font><br>"
	response.write "<br>"
	response.write "<p align=center><input type=button value="&"关闭窗口"&" onclick="&"javascript:closewin();"&"></p>"
		end if
	end if
end if
%>
<script language=javascript>
function closewin(){
	window.opener.location.reload();
	window.close();
}
</script>
<%
end if
%>