KingCMS管理界面

sub king_def()
 
	king.head "0",king.lang("manage/title")'manage/title是调用文件zh-cn.xml中manage标签下面的title标签
	dim rs,dp,i
 
	Il "<h2>"&king.lang("manage/title")&"</h2>"
 
	set rs=conn.execute("select systemver,dbver,systemname,instdate from kingsystem where systemname='KingCMS';")
		if not rs.eof and not rs.bof then
			Il "<table class=""k_table"" cellspacing=""0"">"
			Il "<tr><th class=""w0"">"&king.lang("parameters/system")&"</th><th>"&king.lang("parameters/server")&"</th></tr>"
			Il "<tr><td>"&king.lang("parameters/systemname")&" -&rsaquo; "&rs(2)&"</td><td>FSO -&rsaquo; "&king.isobj(king_fso)&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/systemver")&" -&rsaquo; "&king.systemver&"</td><td>ASPJPEG/1.5 -&rsaquo; "&king.isobj("Persits.Jpeg")&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/newversion")&" -&rsaquo; <span id=""newversion""></span></td><td>ADODB.STREAM -&rsaquo; "&king.isobj(king_stm)&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/dbver")&" -&rsaquo; "&rs(1)&"</td>"
				Il "<td>XMLHTTP -&rsaquo; "&king.isobj("Microsoft.XMLHTTP")&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/dbtype/title")&" -&rsaquo; "&king.lang("parameters/dbtype/type"&king_dbtype)&"</td>"
				Il "<td>IIS -&rsaquo; "&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/inst")&" -&rsaquo; "&king.inst&"</td><td>ScriptEngine -&rsaquo; "&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/instdate")&" -&rsaquo; "&rs(3)&"</td><td>ScriptTimeout -&rsaquo; "&Server.ScriptTimeout&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/osite")&" -&rsaquo; <a href=""http://www.kingcms.com"" target=""_blank"">www.KingCMS.com</a></td><td>ServerTime -&rsaquo; "&tnow&"</td></tr>"
			Il "<tr><td>"&king.lang("parameters/mailto")&" -&rsaquo; KingCMS@Gmail.com</td><td>IP -&rsaquo; "&king.ip&"</td></tr>"
			Il "</table>"
		else
			king.deletefile king_system&"system/fun.asp"
		end if
		rs.close
	set rs=nothing
 
	if king.level="admin" or king.instre(king.level,"log") then'判断当前管理员的level是否有管理访问日志的权利
		Il "<h2>"&king.lang("log/title")&"</h2>"
		set dp=new record
			dp.create"select logid,adminname,lognum,ip,logdate from kinglog order by logid desc;"'连接数据库
			dp.purl="manage.asp?action=log&pid=$&rn="&dp.rn'20 40 100 200 那里;dp.rn给页面的100 200赋值
			dp.action="manage.asp?action=logset"'下拉框那里
			dp.but=dp.sect("logdelete:"&encode(king.lang("log/delete")))&dp.prn & dp.plist'删除登录信息;dp.prn作用是显示中间的200那里 ;dp.plist显示后面的分页
			dp.js="cklist(K[0])+K[0]+') '+K[1]"'
			dp.js="K[2]"
			dp.js="K[3]"
			dp.js="K[4]"
 
			Il dp.open
 
			Il "<tr><th>"&king.lang("log/list/id")&") "&king.lang("log/list/name")&"</th>"
			Il "<th>"&king.lang("log/list/num")&"</th><th>"&king.lang("log/list/ip")&"</th><th>"&king.lang("log/list/date")&"</th></tr>"
			Il "<script>"
			for i=0 to dp.length'循环输出登录日志
 
				Il "ll("&dp.data(0,i)&",'"&htm2js(dp.data(1,i))&"','"&htm2js(king.lang("log/l"&dp.data(2,i)))&"','"&dp.data(3,i)&"','"&dp.data(4,i)&"');"
			next
			Il "gethtm('manage.asp?action=newversion','newversion',1);</script>"
			Il dp.close
		set dp=nothing
	end if
end sub