?? 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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -