ftp.asp

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

<!-- #include file="../conn.asp" -->
<!-- #include file="const.asp" -->
<%
dim logdbconnstr,logconn,bbsconn,frs,fsql
dim pwUpTime,FtpUserTable
dim rs,sql

'****************************必须修改部分************************************
'在这里修改logdb的连接字符串；

'如果使用sqlserver
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用(local)，外地用IP） 
'注意本地的local 需要使用 圆括号 的形式 (local)
'logdbconnstr = GetSQLConnString("yourdbname","yourpassword","yourusername","yoursqlserver")
'如果使用sqlserver,把上一行前面的 ' 去掉 ,然后修改为你自己对应的参数.

'如果使用Access数据库  把下一行前面的  ' 去掉 然后 修改数据库路径为你的数据库路径
'logdbconnstr = GetAccessConnString("C:\pubsoft\Serv-U\bbsftplogdb.mdb")

response.write("请打开ftp.asp,修改 必须修改部分 的连接字符串.") '修改完这里的连接字符串后 把这行整行删掉
response.end  '修改完这里的连接字符串后 把这行整行删掉


'********************必须修改部分结束*************************

'***********下面是可选修改部分开始*****************************************************
'***
const UseDvbbs7Database = 0
const UseDvbbsUserNameAndPassword = 1
const FtpUserNamePrefix = "zYx_"

'const BuyUnit = " GB "
'const BuyUnitSize = 1073741824

const BuyUnit = " MB "
const BuyUnitSize = 1048576

if UseDvbbs7Database then
		FtpUserTable = "Ftp_Users"
else
		FtpUserTable = "FtpUserDown"
end if

'是否启用公共帐号密码购买功能 
const UseBuyPassword = 1
'是否启用联盟FTP功能 
const UseFTPUnion = 1

'*******Ftp公共账号的密码更新的间隔时间，单位是小时；
pwUpTime = 72

'***LinkName 是论坛用户登录ftp服务器 时对应的 用户角色 名称。
'在这里为不同的ftp指定不同的LinkName,缺省是使用该Ftp公共帐号所设置的LinkName(用户角色)
function GetLinkName(ftp)
'ftp 是IP:port 形式的如：202.112.138.10:21
if ftp="202.112.138.10:2121" then
	GetLinkName = "yourlinknamehere" '在这里对每个ftp指定不同的LinkName
elseif ftp="yourip:yourport" then
	GetLinkName = "yourlinknamehere2"
else

	GetLinkName = GetDefaultLinkName(ftp) '缺省是使用该Ftp公共帐号所设置的LinkName(用户角色)
end if
end function

'这个函数判断哪些论坛用户可以使用ftp
function ValidUseFtp(userid)
ValidUseFtp = true
exit function
'这里我们缺省允许所有用户使用

'*********
'**下面的代码演示只允许 贵宾 用户使用ftp
dim trs
set trs=Dvbbs.Execute("select userclass from dv_user where userid=" & userid)
ValidUseFtp = False
if trs.eof and trs.bof then
    ValidUseFtp = False
else
'在这里判断trs(0)
   if trs(0) = "贵宾" then 
		ValidUseFtp = True
	end if
end if
end function

'这个函数返回论坛用户的下载速度，单位kbs
'论坛用户最终下载速度是 [其相应角色的速度 + 这个函数的返回速度]
function GetUserSpeed(userid)
GetUserSpeed = 0
exit function
'这里我们简单的返回0，直接其相应角色的速度
'你可以根据用户积分来等来 设置用户速度
'下面演示根据论坛威望设置速度
dim trs
set trs=Dvbbs.Execute("select userpower from dv_user where userid=" & userid)
if trs.eof and trs.bof then
GetUserSpeed = 0
else
GetUserSpeed = clng(trs(0))* 9 + 0
end if
set trs = nothing
'*******************
'注意上面的trs(0)就是 用户的威望，*9 表示速度是威望的9被，可以自己改

end function

'***********修改部分结束*****************************************************

function CheckAdmin()
dim info
if not Dvbbs.master then

		CheckAdmin = false
		info = "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录(dvbbs7.0)</a>后进入。<br><li>您没有管理本页面的权限。"
		info = info & "<BR><li>本页面为管理员专用，请<a href=admin_login.asp target=_top>登录(dvbbs7.1)</a>后进入。<br><li>您没有管理本页面的权限。"
		call bbsftp_error(info)
else
	CheckAdmin = true
end if		
end function
%>
<!-- #include file="ftpconst.asp" -->

<%
if 1 = UseDvbbs7Database then
	if not isobject(conn) then ConnectionDatabase
	set bbsconn = conn
	'resonse.write "bbscon=conn<br>"
else
	set bbsconn = logconn
	'response.write "bbsconn=logconn<br>"
end if

function GetGold()
dim mrs
set mrs=Dvbbs.execute("select [userWealth] from [DV_user] where UserID =" & dvbbs.userid )
if mrs.eof and mrs.bof then
   GetGold = 1
else
	GetGold = mrs(0)
end if
mrs.close
set mrs=nothing
end function
%>