change.asp

来自「基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用」· ASP 代码 · 共 30 行

<!-- #include file="../../Conn/conn.asp" -->
<% 
	id=request.form("id")
%>
<!-- #include file="../../Conn/conn.asp" -->
<% 
	sql="update tb_UserMeg set OverPass='通过' where ID="&id
	rs.open sql,conn
	set rs=nothing 
	conn.close
	set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
	sql="select * from tb_UserMeg where ID="&id&" and OverPass='通过'"
	rs.open sql,conn
	if rs.eof or rs.bof then 
%>
		<script language="javascript">
			alert("验证失败，请重新验证");
			history.back();
		</script>
<% else %>
		<script language="javascript">
			alert("用户验证成功");
			window.close();
			opener.location.reload();
		</script>
<% end if %>