lockuserip.asp

有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大

<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/showpage.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassPage
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassPage = New ShowPage
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
ClassPage.CheckGsbookId Request.QueryString("Id")
ClassPage.ShowGsbookInfo ClassPage.Id
ClassCheck.LockUserIp ClassPage.ArrRs(10,0),ClassPage.ArrRs(2,0),ClassPage.Id
ClassSystem.Closedb()
ClassCheck.CallOk 1
%>