logininfo.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 19 行

<%

FunCtion LoginInfo(UserName,LoinFetTle,LoinWrong)

	Set Rss=Server.CreateObject("Adodb.Recordset")
	Sqls="Select * From Login_Info"
	Rss.Open Sqls,Conn,1,3
	Rss.Addnew
	Rss("LoginName")=UserName
	Rss("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
	Rss("LoginTime")=Now
	Rss("LoginFetTle")=LoinFetTle
	Rss("LoginWrong")=LoinWrong
	Rss.UpDate
	Rss.Close

End FunCtion

%>