userbeginok.asp

来自「该系统可对信息系统尽行有效的分类管理」· ASP 代码 · 共 18 行

<!--#include file="conn.asp"-->
<%
	Id=request("Id")
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from Userinfo where Id="&Id&""
	rsUser.open sqltext,conn,3,3

		rsUser("txtClass")=Request("txtClass")
		rsUser("flag")=1

		rsUser.update
		rsUser.close
		conn.close
		
		response.write "<script language=JavaScript>{window.alert('账号成功开通！');window.location.href='manage.asp'}</script>"
	    response.end
%>