setup.asp

来自「使用asp+sql编写的的各种程序案例」· ASP 代码 · 共 23 行

<!--#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
%>