activate.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module helps to activate a member 
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub activate()

	dim action,smumquery,rid
	
	if not Application("smumdebugmode") then on error resume next
	
	action = request("action")
	rid = (request("rid")*2)/224	
	
	smumFormOpenTable
	smumFormHeader "Account Activated"
	smumFormResponse "Your account has been activated."
	smumFormCloseTable
	
	smumquery = "update smum_memberstbl set members_active = "&smumtrue&" where members_id = "&rid
	smumexecutequery smumquery,action
	
End Sub%>