admin_bbsftpinifile.asp

主要实现三大功能：记录统计功能、账号控制功能、文件上载自动校验功能

<!--#include file="inc/ftp.asp"-->
<%
Head()
	dim loginok
	loginok = CheckAdmin
	if not loginok then 
		response.end
	end if
	
%>
<br>
<H1 align='center'>插件配置管理</H1>
<br>
<%
dim bbsftpini
on error resume next
set bbsftpini = server.createobject("adodb.recordset")
bbsftpini.open "select * from FTPBBSFTPConfig",logconn,1,3
if bbsftpini.eof then
bbsftpini.addnew
'日志记录配置 8
bbsftpini("EnableLog") = true
bbsftpini("LogFileDown") = true
bbsftpini("LogFileUp") =  true
bbsftpini("LogUserLogin") = 1
bbsftpini("LogIPLogin") = 0
bbsftpini("LogFileUpMinSize") = 500
bbsftpini("LogFileDownMinSize") = 500
bbsftpini("MarkUpload") = true

'上载文件自动校验配置 5
bbsftpini("EnableCheck") = true
bbsftpini("CheckSFV") = true
bbsftpini("CheckZIP") = true
bbsftpini("CheckMD5") = true
bbsftpini("SiteName") = "紫雨轩"

'帐号控制功能配置 2
bbsftpini("DisableUserControl") = false
bbsftpini("PasswordType") = 1

bbsftpini("updateinterval") = 5
bbsftpini("topupload") = 5
bbsftpini("noview") = false
bbsftpini("EnableDiskTopUpload") = true
bbsftpini("ShowDirNFO") = true
bbsftpini.update

end if
if request("action")="update" then
call update
else
call edit
end if
set bbsftpini=nothing
If Err Then
response.write Err.Description
End If
BBSFTP_Footer()
sub update()
'检查正确性

'日志记录配置 8
bbsftpini("EnableLog") = (1=request("EnableLog"))
bbsftpini("LogFileDown") = (1=request("LogFileDown"))
bbsftpini("LogFileUp") =  (1=request("LogFileUp"))
bbsftpini("LogUserLogin") = request("LogUserLogin")
bbsftpini("LogIPLogin") = request("LogIPLogin")
bbsftpini("LogFileUpMinSize") = request("LogFileUpMinSize")
bbsftpini("LogFileDownMinSize") = request("LogFileDownMinSize")
bbsftpini("MarkUpload") = (1=request("MarkUpload"))

'上载文件自动校验配置 5
bbsftpini("EnableCheck") = (1=request("EnableCheck"))
bbsftpini("CheckSFV") = (1=request("CheckSFV"))
bbsftpini("CheckZIP") = (1=request("CheckZIP"))
bbsftpini("CheckMD5") = (1=request("CheckMD5"))
bbsftpini("SiteName") = request("SiteName")

'帐号控制功能配置 2
bbsftpini("DisableUserControl") = (1=request("DisableUserControl"))
bbsftpini("PasswordType") = request("PasswordType")

bbsftpini("updateinterval") = request("updateinterval")
bbsftpini("topupload") = request("topupload")
bbsftpini("NoView") = (1=request("NoView"))
bbsftpini("EnableDiskTopUpload") = (1=request("EnableDiskTopUpload"))
bbsftpini("ShowDirNFO") = (1=request("ShowDirNFO"))
bbsftpini.update
bbsftp_suc("配置已更新！")
end sub

sub edit()
dim loguser,logip,pwtype
loguser = bbsftpini("LogUserLogin")
logip = bbsftpini("LogIPLogin")
pwtype = bbsftpini("PasswordType")
%>
<table cellpadding="2" cellspacing="1" class="tableBorder" align=center style="table-layout:fixed;word-break:break-all">
<tr>
<th height=24 colspan=6 align='left'>BBSFTP.INI文件的参考设置如下：</th>
</tr>
<form method="POST" action="?action=update">
<tr>
<td colspan=6 height=130 class="forumRowHighlight"> 
<%
response.write "<font color=red>[RICKDLL]<br>"
	response.write ";UserDB数据库连接字符串[论坛FTP账号库]<br>"
	if 1 = UseDvbbs7Database then
		response.write "UserDB="& GetConnStringFromConn(bbsconn)
	else
		response.write "UserDB="& logdbconnstr
	end if
response.write "<br>;PlusDB数据库连接字符串[插件数据库]<br>"	
response.write "PlusDB="& logdbconnstr
response.write "</font><br><hr>上面是bbsftp.ini文件中的连接字符串设置。请参考修改。"
	
%>
</td>
</tr>
<tr><th colspan=6 align="center" height="24">日志记录配置</th></tr>
<tr>
      <td width="20%" class=forumRowHighlight>是否启用日志记录</td>
<%if bbsftpini("EnableLog") then%>      
      <td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" checked name="EnableLog">启用]                                     
        [<input type="radio" name="EnableLog" value="0">禁用]</td>
<%else%>
      <td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" name="EnableLog">启用]                                     
        [<input type="radio" name="EnableLog" checked value="0">禁用]</td>
<%end if%>        
</tr>

<tr bgcolor=#ededff><td colspan=6 width="100%"><font color="red">注释：</font></td> </tr>
<tr>
      <td width="20%" class=forumRowHighlight>是否记录文件下载</td>
<%if bbsftpini("LogFileDown") then%>      
      <td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" checked name="LogFileDown">记录]                                     
        [<input type="radio" name="LogFileDown" value="0">不记录]　</td>
<%else%>
<td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" name="LogFileDown">记录]                                     
        [<input type="radio" name="LogFileDown" checked value="0">不记录]　</td>
<%end if%>        
    </tr>
    <tr bgcolor=#ededff>
    <td colspan=6 width="100%"><font color="red">注释：</font><font size=2>记录下载时的 文件名,用户名,IP,时间,文件大小</font></td>                                  
    </tr>
    <tr>
      <td width="20%" class=forumRowHighlight>是否记录文件上传</td>
<%if bbsftpini("LogFileUp") then%>
      <td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" checked name="LogFileUp">记录]                                     
        [<input type="radio" name="LogFileUp" value="0">不记录]　</td>
<%else%>
<td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" name="LogFileUp">记录]                                     
        [<input type="radio" name="LogFileUp" checked value="0">不记录]　</td>
<%end if%>        
    </tr>
    <tr bgcolor=#ededff>
    <td colspan=6><font color="red">注释：</font><font size=2>记录上传时的 文件名,用户名,IP,时间,文件大小</font></td>                                  
    </tr>

	<tr>
      <td width="20%" class=forumRowHighlight>记录用户登录</td>
<%if loguser=1 then%>
      <td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" checked name="LogUserLogin">记录最后一次]                                     
        [<input type="radio" name="LogUserLogin" value="0">不记录]                         
        [<input type="radio" name="LogUserLogin" value="2">记录全部]
<%elseif loguser=0 then%>
<td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" name="LogUserLogin">记录最后一次]                                     
        [<input type="radio" name="LogUserLogin" checked value="0">不记录]                         
        [<input type="radio" name="LogUserLogin" value="2">记录全部]
<%else%>
<td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" name="LogUserLogin">记录最后一次]                                     
        [<input type="radio" name="LogUserLogin" value="0">不记录]                         
        [<input type="radio" name="LogUserLogin" checked value="2">记录全部]
<%end if%>
        </td>
    </tr>
    <tr bgcolor=#ededff>
    <td colspan=6><font color="red">注释：</font><font size=2>记录用户名 ,登录时的IP,时间</font></td>                                  
    </tr>
	
	<tr>
      <td width="20%" class=forumRowHighlight>记录IP登录</td>
<%if logip=1 then%>
      <td colspan=5 width="80%" class=forumrow>[<input type="radio" value="1" checked name="LogIPLogin">记录最后一次]                                     
        [<input type="radio" name="LogIPLogin" value="0">不记录]                         
        [<input type="radio" name="LogIPLogin" value="2">记录全部]
<%elseif logip=0 then%>