ftp.asp

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

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True

dim logdbconnstr,logconn,bbsconn,frs,fsql
dim pwUpTime, inifilename
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 BuyUnit = " GB "
const BuyUnitSize = 1073741824
const FtpUserTable = "FtpUserDown"
const UseDvbbs7Database = 0
const UseDvbbsUserNameAndPassword = 0
const FtpUserNamePrefix = "zYx_"

'是否启用公共帐号密码购买功能 
const UseBuyPassword = 1
'*******Ftp公共账号的密码更新的间隔时间，单位是小时；
pwUpTime = 72

function CheckAdmin()
dim info
if session("admin_name")="" then

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

%>

<!-- #include file="ftpconst.asp" -->
<%

openlogconn
set bbsconn = logconn	
%>