ftpfuwu.asp

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

<!--#include FILE="inc/ftp.asp"-->
<%

Dvbbs.LoadTemplates("usermanager")
Dvbbs.Stats="FTP服务中心首页"
Dvbbs.Nav()
Dvbbs.Head_var 0,0,"FTP服务中心","ftpfuwu.asp"

Dim TopicCount
Dim Pcount,endpage,star,page_count
if request("star")="" or not isnumeric(request("star")) then
	star=1
else
	star=clng(request("star"))
end if

Dim TempStr
%>
<br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th width=14%  id=tabletitlelink><a href=ftpfuwu.asp>FTP服务中心</a></th>
<th width=14%  id=tabletitlelink><a href=ftpgo.asp>购买流量方式</a></th>
<%if UseBuyPassword then%><th width=14%  id=tabletitlelink><a href=ftpbuy.asp>购买密码方式</a></th><%end if%>
<%if UseFTPUnion then%><th width=14%  id=tabletitlelink><a href=ftpunion.asp>联盟FTP</a></th><%end if%>
<th width=14%  id=tabletitlelink><a href=ftpdown.asp>FTP下载必看</a></th>
</tr>
</table>
<br>

<%
If dvbbs.userid=0 Then
	Dvbbs.AddErrCode(6)	
Else
	Main()
End If


Dvbbs.Stats="plus"
Dvbbs.Showerr()
response.write "<br>"
BBSFTP_Footer


function filenum(s)
filenum=0
end function

sub main()
dim mrs
dim username,userid
dim pagesize,i

if request("action")="query" and cstr(request("id"))<>"" and isnumeric(request("id")) then
    'username = SafeSQLStr(cstr(request("id")))
    userid = request("id")
    
else
	userid = dvbbs.userid
end if

set mrs = bbsconn.execute("select UserName from "&FtpUserTable&" where UserID="&userid)
if mrs.eof then
   username = Dvbbs.MemberName   
else
   username = mrs(0)
end if
set mrs = nothing

response.write "<table cellpadding=0 cellspacing=6 width="&Dvbbs.mainsetting(0)&" align=center >"&_
               "<tr  align=center ><td  width=28% valign=top>"&_
               "<table align=center style=""width:100%"" height=100% cellspacing=1 cellpadding=6 class=tableborder1>"&_
               "<tr><th height=25>用户(<a href=dispuser.asp?id="&userid&" target=_blank><b>"&username&"</b></a>)FTP服务基本信息</th></tr>"

set rs=logconn.execute("select * from FTPConfig")               

if rs.bof and rs.eof then
	response.write "<tr align=center><td class=tabletitle2>你目前没有任何FTP服务相关信息.</td></tr>"
else      
'============================有ftp服务信息===================================      
response.write "<tr align=center><td class=tabletitle2>你当前的Ftp服务信息如下</td></tr>"               
while not rs.eof
response.write "<tr><th height=25>FTP服务器:"&rs("ftpname")&"</th></tr>"
response.write "<tr><td align=left class=tablebody1 valign=top>" 

sql = "select * from "&FtpUserTable&" where UserID = "&userid&" and ftp='"&rs("ftp")&"'"

set mrs=bbsconn.execute(sql)   

if mrs.bof and mrs.eof then
	if userid <> dvbbs.userid then
		response.write "没有该服务器的登录信息. <br><br><br>"
	else
		response.write "你还没有激活在该服务器的登录信息. "
		response.write "[<a href=ftpgo.asp?action=checkftp&ftpid="&rs("id")&">点此激活</a>].<br>"
	end if
else
response.write "地址：<a href="&rs("ftpurl")&">" & rs("ftpurl") & "</a><br>"
response.write "可用流量："&filesizestr(mrs("maxdownsize"))&" <br>"
response.write "下载速度："&cstr(mrs("maxdownspeed")+getlinkspeed(mrs("linkname")))&"KBS <br>"
response.write "允许登录IP："&mrs("allowip")&" <br>"
end if

set mrs=nothing
response.write "</td></tr>"
rs.movenext
wend
'============================有ftp服务信息===================================
end if
rs.close
set rs=nothing
response.write "</table><br>"


response.write "</td>"&_
              "<td valign=top>"
              
response.write  "<table cellpadding=3 cellspacing=1 style=""width:100%"" align=center class=tableborder1>"&_
              "<tr>"&_
              "<th colspan=5 height=25 align=left>-=> 最新上载的文件</th></tr>"&_
            "<tr>"
            
'                "<td align=center valign=middle width=30 class=tabletitle2><b>类型</b></td>"&_

 response.write"<td align=center valign=middle width=* class=tabletitle2><b>文件名</b></td>"&_
                "<td align=center valign=middle width=120  class=tabletitle2><b>上载日期</b></td>"&_
                "<td align=center valign=middle width=100 class=tabletitle2><b>大小</b></td>"
                
 response.write "<td align=center valign=middle width=100 class=tabletitle2><b>物理大小</b></td>"
 response.write"<td align=center valign=middle width=60 class=tabletitle2><b>状态</b></td>"&_
            "</tr>"

	set rs=server.createobject("adodb.recordset")
If LCase(logconn.Properties("DBMS Name")) = "mysql" Then	
	sql="select * from ftplog_uploadfiles where filesize>500000 and username='"&username&"'  order by time desc,flag limit 30"
else
	sql="select top 30 * from ftplog_uploadfiles where filesize>500000 and username='"&username&"'  order by time desc,flag"
end if
	rs.open sql,logconn,1,1
if rs.eof and rs.bof then

	response.write"<tr><td class=tablebody1 align=center valign=middle colspan=6>没有您的文件上传信息。</td></tr>"
else
		dim tablebody
		i = 0
do while (not rs.eof )
response.write "<tr>"

'类型
if rs("flag")=0 then
tablebody="tablebody2"
else
tablebody="tablebody1"
end if

response.write"<td align=center valign=middle class="&tablebody&">"
response.write""&GetFileTitle(rs("filename"))&"</td>"

response.write "<td align=center valign=middle class="&tablebody&">"
response.write ""&rs("time")&"</td>"

response.write "<td class="&tablebody&">"
response.write""&filesizestr(rs("filesize"))&"</td>"

response.write "<td class="&tablebody&">"
if(getfilesize(rs("filename"))>0) then
	response.write""&filesizestr(getfilesize(rs("filename")))&"</td>"
else
	if rs("flag")=1 then
		response.write"<font color=green>已整理</font></td>"
	else 
		response.write"<font color=red>已删除或"&typestring(rs("flag"))&"</font></td>"
	end if
end if

response.write"<td class="&tablebody&">"
if(rs("flag")=1) then
response.write"<font color=green>通过检查</font></td></tr>"
else
response.write"<font color=red>"&typestring(rs("flag"))&"</font></td></tr>"
end if

	rs.movenext
	i = i + 1
	loop
end if
	
	rs.close
	set rs=nothing
response.write"</td></tr></table><br>"

set rs=server.createobject("adodb.recordset")
If LCase(logconn.Properties("DBMS Name")) = "mysql" Then
	sql="select * from FtpLog_DownLoadFiles where UserName='"&username&"' order by time desc limit 15"
else
	sql="select top 15 * from FtpLog_DownLoadFiles where UserName='"&username&"' order by time desc"	
End If


response.write  "<table cellpadding=3 cellspacing=1 style=""width:100%"" align=center class=tableborder1>"&_
              "<tr>"&_
              "<th colspan=5 height=25 align=left>-=> 最新下载的文件</th></tr>"&_
            "<tr>"
            
response.write"<td align=center valign=middle width=* class=tabletitle2><b>文件名</b></td>"&_
                "<td align=center valign=middle width=120  class=tabletitle2><b>下载日期</b></td>"&_                
                "<td align=center valign=middle width=100 class=tabletitle2><b>大小</b></td>"&_
            "</tr>"

	
	rs.open sql,logconn,1,1
if rs.eof and rs.bof then

	response.write"<tr><td class=tablebody1 align=center valign=middle colspan=6>没有您的文件下载信息。</td></tr>"
else
	i = 0	
do while (not rs.eof)
response.write "<tr>"

'类型
'if rs("flag")=0 then
tablebody="tablebody2"
'else
tablebody="tablebody1"
'end if

response.write"<td align=center valign=middle class="&tablebody&">"
response.write""&GetFileTitle(rs("filename"))&"</td>"

response.write "<td align=center valign=middle class="&tablebody&">"
response.write ""&rs("time")&"</td>"

response.write "<td class="&tablebody&">"
response.write""&filesizestr(rs("filesize"))&"</td></tr>"

	rs.movenext
	i = i + 1
	loop
end if
	
	rs.close
	set rs=nothing
response.write"</td></tr></table><br>"

response.write"</td>"
end sub


%>