📄 ftpconst.asp

📁 主要实现三大功能：记录统计功能、账号控制功能、文件上载自动校验功能
💻 ASP
字号:
<%
dim founderr,errmsg
founderr = false
errmsg = ""
const MustStr = "<font color=red>*</font>"
'On Error Resume Next
Set logconn = Server.CreateObject("ADODB.Connection")
logconn.open logdbconnstr
If Err Then
	
	Set logconn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。" & err.description
	err.Clear
End If

function GetFileTitle(sName)
 dim str
 GetFileTitle = 0
 sName = replace(sName, "/", "\")
 if instrRev(sName,"\")=0 then exit function
 str=lcase(mid(sName,instrRev(sName,"\")+1))
 
 GetFileTitle = str
end function

function FileSizeStr(filesize)
on error resume next
if isnull(filesize) or filesize="" then filesize = 0
if filesize < -9000000000.0 then
	FileSizeStr = "<font color=blue>无限制</font>"
	exit function
end if
if filesize < 1024*1024 then
   FileSizeStr= FormatNumber(filesize/1024.0,2,true) & "KB"
else
	if filesize < 1024.0*1024.0*1024.0 then
		FileSizeStr= FormatNumber(filesize/(1024.0*1024.0),2,true) & "MB"
	else
		FileSizeStr= FormatNumber(filesize/(1024.0*1024.0*1024.0),2,true) & "GB"
	end if
end if

end function

function typestring(idx)
if idx=1 then
typestring="检查通过"
elseif idx=2 then
typestring="文件不完整"
elseif idx=3 then
typestring="文件无法播放"
elseif idx=4 then
typestring="缺相关文件"
elseif idx=5 then
typestring="已被删除"
else
typestring="等待检查"
end if
end function

function getfilesize(filename)
dim objFSO
dim objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
getfilesize=0
if objFSO.FileExists(filename) then
	set objFile=objFSO.GetFile(filename)
	getfilesize=objFile.Size
end if
set objFSO=nothing
set objFile=nothing
end function

'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
function GetSQLConnString(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName)
GetSQLConnString = "Provider=Sqloledb;User ID=" & SqlUsername & ";Password=" & SqlPassword & ";Initial Catalog=" & SqlDatabaseName & ";Data Source=" & SqlLocalName & ";"
end function

function GetAccessConnString(PathName)
GetAccessConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathName
end function

function GetMySQLConnString(mysqlDB,mysqlPassword,mysqlUsername,mysqlLocal)
GetMySQLConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="&mysqlLocal&";DATABASE="&mysqlDB&";UID="&mysqlUsername&";PWD="&mysqlPassword&"; OPTION=3"
end function

function GetConnStringFromConn(tmpconnvar)
if not isobject(tmpconnvar) then
	GetConnStringFromConn = "Not Object!"
	exit function
end if
dim s,s1
s = tmpconnvar.Provider 
s1 = lcase(left(s,8))
if "sqloledb" = s1 then
GetConnStringFromConn = GetSQLConnString(tmpconnvar.Properties("Initial Catalog"),tmpconnvar.Properties("Password"),tmpconnvar.Properties("User ID"),tmpconnvar.Properties("Data Source"))
exit function
end if
if len(s) > len("Microsoft.Jet.OLEDB") then s1 = left(s,len("Microsoft.Jet.OLEDB"))
if lcase("Microsoft.Jet.OLEDB") = lcase(s1) then
GetConnStringFromConn = "Provider=" & s & ";Data Source=" & tmpconnvar.Properties("Data Source")
exit function
end if
on error resume next

if err then
	GetConnStringFromConn = tmpconnvar.ConnectionString
	err.clear
end if
end function

function GetDefaultLinkName(ftp)
'ftp 是IP:port 形式的如：202.112.138.10:21
dim mrs
fsql="select LinkName from FTPConfig where FTP='" & ftp & "'"
GetDefaultLinkName = "default" 
set mrs = logconn.execute(fsql)
if not mrs.eof then GetDefaultLinkName = mrs(0)
set mrs = nothing
end function

function BBSFTP_Footer()
if err then
response.write "<br><font color=red>" & GetErrorMsg() & "</font><br>"
err.clear
end if
Response.Write "<br><table align='center' border=0>"
%>
<form method="get" action="http://www.google.com/custom" target="google_window">
<tr ><td nowrap="nowrap"  align="center">
<img src="http://www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle"></img>
<input type="text" name="q" size="40" maxlength="255" value=""></input>
<input type="submit" name="sa" value="搜索"></input>
<input type="hidden" name="client" value="pub-6661082532521022"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="ie" value="GB2312"></input>
<input type="hidden" name="oe" value="GB2312"></input>
<input type="hidden" name="cof" value="GALT:#663300;GL:1;DIV:#333333;VLC:663300;AH:center;BGC:FFEFEF;LBGC:333333;ALC:FF0000;LC:0000FF;T:333300;GFNT:000000;GIMP:000000;FORID:1;"></input><input type="hidden" name="hl" value="zh-CN"></input></td></tr></form>
<%
if Dvbbs.master then Response.Write "<tr><td align='center'><p align=center><b><a href='admin_bbsftp.asp?manage=1' target='_top'>[BBSFTP管理中心]</a></b></p></td></tr>"

Response.Write "<tr><td align='center'><a href='http://rick.crazyasp.com/bbs/list.asp?boardid=6'><font color=blue>FTP中心(bbsftp for dvbbs)[2005-04-05]</font> </a></td></tr>"
Response.Write "<tr><td align='center'>版权所有： <a href='http://redcheek.net/bbs'><font color=#990099>紫雨轩工作室</font></a>    程序设计： <a href='http://rick.crazyasp.com/default.asp'><font color=blue>rick</font></a>    插件(<a href='http://redcheek.net/bbsftp'><font color=red>bbsftp v1.64</font></a>)</td></tr></table><br></body></html>"
response.end
end function

function SafeSQLStr(s)
s = replace(s,"'","''")
s = replace(s,"`","")
SafeSQLStr = s
end function

function CheckLinkName(sname)
dim mrs
set mrs = logconn.execute("select id from ftpuserconfig where username='"&sname&"'")
if mrs.eof then
CheckLinkName = 0
else
CheckLinkName = mrs(0)
end if
set mrs=nothing
end function

function GetLinkSpeed(sname)
dim mrs
set mrs = logconn.execute("select MaxDownSpeed from ftpuserconfig where username='"&sname&"'")
if mrs.eof then
GetLinkSpeed = 0
else
GetLinkSpeed = mrs(0)
end if
set mrs=nothing
end function

Sub bbsftp_suc(info)
	Response.Write"<br>"
	Response.Write"<table cellpadding=0 cellspacing=0 align=center class=""tableBorder"" style=""width:75%"">"
	Response.Write"<tr align=center>"
	Response.Write"<th width=""100%"" height=25 colspan=2>成功信息"
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"<tr>"
	Response.Write"<td width=""100%"" class=""forumRowHighlight"" colspan=2 height=25>"
	Response.Write info
	Response.Write"</td></tr>"
	Response.Write"<tr>"
	Response.Write"<td class=""forumRowHighlight"" valign=middle colspan=2 align=center><a href="&Request.ServerVariables("HTTP_REFERER")&" ><<返回上一页</a></td></tr>"
	Response.Write"</table>"
End Sub

'页面错误提示信息
Sub bbsftp_error(info)
	Response.Write"<br>"
	Response.Write"<table cellpadding=3 cellspacing=1 align=center class=""tableBorder"" style=""width:75%"">"
	Response.Write"<tr align=center>"
	Response.Write"<th width=""100%"" height=25 colspan=2>错误信息"
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"<tr>"
	Response.Write"<td width=""100%"" class=""Forumrow"" colspan=2>"
	Response.Write info
	Response.Write"</td></tr>"
	Response.Write"<tr>"
	Response.Write"<td class=""Forumrow"" valign=middle colspan=2 align=center><a href=""javascript:history.go(-1)""><<返回上一页</a></td></tr>"
	Response.Write"</table>"
	BBSFTP_Footer()
	Response.End 
End Sub 
Sub Head()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">
<title>BBSFTP--管理页面</title>

<!--论坛管理后台CSS样式表--> 
<style type=text/css>
body { background:#CAD7F7; font-size: 12px; margin-top:0px;
SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1; 
SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; 
SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #AABFEC;
}
TD {
	FONT-SIZE: 12px
}
INPUT {
	BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px
}
TEXTAREA {
	BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px
}
SELECT {
	BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px
}
SPAN {
	FONT-SIZE: 12px; POSITION: static
}
A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
a:hover  { color:#428EFF;text-decoration:underline; }
A.highlight:link {
	COLOR: red; TEXT-DECORATION: none
}
A.highlight:visited {
	COLOR: red; TEXT-DECORATION: none
}
A.highlight:hover {
	COLOR: red
}
A.thisclass:link {
	FONT-WEIGHT: bold; TEXT-DECORATION: none
}
A.thisclass:visited {
	FONT-WEIGHT: bold; TEXT-DECORATION: none
}
A.thisclass:hover {
	FONT-WEIGHT: bold
}
A.navlink:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A.navlink:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A.navlink:hover {
	COLOR: #003399; TEXT-DECORATION: none
}
.twidth {
	WIDTH: 760px
}
.content {
	FONT-SIZE: 14px; MARGIN: 5px 20px; LINE-HEIGHT: 140%; FONT-FAMILY: Tahoma,宋体
}
.aTitle {
	FONT-WEIGHT: bold; FONT-SIZE: 15px
}
TD.forumHeaderBackgroundAlternate {
	BACKGROUND-IMAGE: url(images/manage/admin_top_bg.gif); COLOR: #000000; BACKGROUND-COLOR: #799ae1
}
#TableTitleLink A:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
	COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
	COLOR: #ffffff; TEXT-DECORATION: underline
}
TD.forumRow {
	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #F1F3F5; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
}
TH {
	FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(images/manage/admin_bg_1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.bodytitle {
	BACKGROUND-IMAGE: url(images/manage/admin_bg_2.gif)
}
TD.bodytitle1 {
	BACKGROUND-IMAGE: url(images/manage/admin_bg_3.gif)
}
TD.tablebody1 {
	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #bebbdb; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
}
TD.tablebody2 {
	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #E4E8EF; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
}

TD.forumRowHighlight {
	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #E4EDF9; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
}
.tableBorder {
	BORDER-RIGHT: #183789 1px solid; BORDER-TOP: #183789 1px solid; BORDER-LEFT: #183789 1px solid; WIDTH: 98%; BORDER-BOTTOM: #183789 1px solid; BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {WIDTH: 98%; }
.helplink {
	FONT: 10px verdana,arial,helvetica,sans-serif; CURSOR: help; TEXT-DECORATION: none
}
.copyright {
	PADDING-RIGHT: 1px; BORDER-TOP: #6595d6 1px dashed; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: 11px verdana,arial,helvetica,sans-serif; COLOR: #4455aa; PADDING-TOP: 1px; TEXT-DECORATION: none
}
</style>
</head>

<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
end sub

Function CreateMypass(LengthNum)
		Dim Ran,i
		
		CreateMypass=""
		For i=1 To LengthNum
			Randomize
			Ran = CInt(Rnd * 2)
			Randomize
			If Ran = 0 Then
				Ran = CInt(Rnd * 25) + 97
				CreateMypass =CreateMypass& UCase(Chr(Ran))
			ElseIf Ran = 1 Then
				Ran = CInt(Rnd * 9)
				CreateMypass = CreateMypass & Ran
			ElseIf Ran = 2 Then
				Ran = CInt(Rnd * 25) + 97
				CreateMypass =CreateMypass& Chr(Ran)
			End If
		Next
End Function

function MyMin(v1,v2)
if v1 > v2 then
MyMin = v2
else
MyMin = v1
end if
end function

function MyMax(v1,v2)
if v1 > v2 then
MyMax = v1
else
MyMax = v2
end if
end function

function GetErrorMsg()
dim i
GetErrorMsg = "错误 Number： " & Err.Number & "<BR>"
GetErrorMsg = GetErrorMsg & "错误信息：" & Err.Description & "<BR>"		
GetErrorMsg = GetErrorMsg & "出错源：" & Err.Source & "<BR>"
For i = 0 To logconn.Errors.Count - 1
    GetErrorMsg = GetErrorMsg & logconn.Errors(i).Description & "||" & logconn.Errors(i).NativeError & "||" & logconn.Errors(i).Source & "||" & logconn.Errors(i).SQLState & "||log<br>"    
Next
if 1 = UseDvbbs7Database then
For i = 0 To bbsconn.Errors.Count - 1
    GetErrorMsg = GetErrorMsg & bbsconn.Errors(i).Description & "||" & bbsconn.Errors(i).NativeError & "||" & bbsconn.Errors(i).Source & "||" & bbsconn.Errors(i).SQLState & "||bbs<br>"    
Next
end if
on error resume next
dim objASPError,blnErrorWritten,strServername,strServerIP,strRemoteIP
set objASPError = Server.GetLastError()

  GetErrorMsg = GetErrorMsg & objASPError.Category
  If objASPError.ASPCode > "" Then GetErrorMsg = GetErrorMsg & ", " & objASPError.ASPCode
  GetErrorMsg = GetErrorMsg & " (0x" & Hex(objASPError.Number) & ")" & "<br>"

  GetErrorMsg = GetErrorMsg & "<b>" & objASPError.Description & "</b><br>"

  If objASPError.ASPDescription > "" Then GetErrorMsg = GetErrorMsg & objASPError.ASPDescription & "<br>"

  blnErrorWritten = False

  ' Only show the Source if it is available and the request is from the same machine as IIS
  If objASPError.Source > "" Then
    strServername = LCase(Request.ServerVariables("SERVER_NAME"))
    strServerIP = Request.ServerVariables("LOCAL_ADDR")
    strRemoteIP =  Request.ServerVariables("REMOTE_ADDR")
    If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then
      GetErrorMsg = GetErrorMsg & objASPError.File 
      If objASPError.Line > 0 Then GetErrorMsg = GetErrorMsg & ", line " & objASPError.Line
      If objASPError.Column > 0 Then GetErrorMsg = GetErrorMsg & ", column " & objASPError.Column
      GetErrorMsg = GetErrorMsg & "<br>"
      GetErrorMsg = GetErrorMsg & "<font style=""COLOR:000000; FONT: 8pt/11pt courier new""><b>"
      GetErrorMsg = GetErrorMsg & Server.HTMLEncode(objASPError.Source) & "<br>"
      If objASPError.Column > 0 Then GetErrorMsg = GetErrorMsg & String((objASPError.Column - 1), "-") & "^<br>"
      GetErrorMsg = GetErrorMsg & "</b></font>"
      blnErrorWritten = True
    End If
  End If

  If Not blnErrorWritten And objASPError.File <> "?" Then
    GetErrorMsg = GetErrorMsg & "<b>" & objASPError.File
    If objASPError.Line > 0 Then GetErrorMsg = GetErrorMsg & ", line " & objASPError.Line
    If objASPError.Column > 0 Then GetErrorMsg = GetErrorMsg & ", column " & objASPError.Column
    GetErrorMsg = GetErrorMsg & "</b><br>"
  End If



end function

Function GetRecordCount(temprs)
if temprs.eof and temprs.bof then
	GetRecordCount = 0
	exit function
end if
if temprs.recordcount > 0 then
	GetRecordCount = temprs.recordcount
	exit function
end if
temprs.movefirst
GetRecordCount = 0
while not temprs.eof
	temprs.movenext
	GetRecordCount = GetRecordCount + 1
wend
temprs.movefirst
End Function
%>
💿 文件大小 327 K
👤 上传用户 happiness0416
📂 所属分类网络
🏷️ 相关标签

#记录 #控制功能 #自动校验
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -