setup.asp

ASP+SQL Server动态网站开发从基础到实践教程

<!--#include file="config.asp" -->

<%
varfunction = request("Function")
select case varFunction
	case "idle" DOIDLE
	case "kickout" DOKICKOUT
end select

FUNCTION DOIDLE
	varIdle = request("idletime")
	response.write varIdle
	call writeDB("UPDATE SETUP SET IdleTime = " & varIdle & " WHERE SetupID = 1;")
	response.redirect "home.asp?Action=idle"
END FUNCTION

FUNCTION DOKICKOUT
	varKickout = request("kickouttime")
	response.write varKickout
	call writeDB("UPDATE SETUP SET KickoutTime = " & varKickout & " WHERE SetupID = 1;")
	response.redirect "home.asp?Action=kickout"
END FUNCTION
%>