admin_bbsftpftpunion.asp

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

<!--#include file="inc/ftp.asp"-->
<%
Head()
	if CheckAdmin()= false then response.end
%>

<br>
<H1 align='center'>联盟Ftp管理</H1>
<br>

<%
if request("action")="add" then
call Add_Ftp
elseif request("action")="edit" then
call Edit_Ftp
elseif request("action")="update" then
call Update_Ftp
elseif request("action")="delete" then
call deleteftp()
else
call list_Ftp
end if

If Err Then
response.write Err.Description
End If

BBSFTP_Footer()


sub list_Ftp()
dim rsFTP,iid,clr
set rsFTP = dvbbs.execute("select * from dv_bbsftp")
%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center style="table-layout:fixed;word-break:break-all">
<tr>
<td colspan=2 height=25 class="forumRowHighlight"> 
<b>注意： 在这里添加联盟FTP后，请用插件管理器在联盟FTP中初始化相应的FTP配置，其中冲突的配置参数以这里的为准。</b>
</td>
</tr>
</table><BR>

<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center style="table-layout:fixed;word-break:break-all">
<FORM METHOD=POST ACTION="?action=toftp"> 
    <tr  align=center>
<th width="5%" height=25>选择</th>    
<th width="25%">FTP名称</th>
<th width="13%">角色名</th>
<th width="20%">地址端口</th>
<th width="9%">单价</th>
<th width="13%">前缀字符</th>
<th width="15%">操作</th>
            
</tr>
<%
if not (rsFtp.bof and rsFtp.eof) then
	rsFtp.Movefirst
	while not rsFtp.eof
	
%>
<tr><td align=center height=24 class=forumrow><input type="checkbox" name=userid value="<%=rsFtp("id")%>"></td>
    <td align=center height=24 class=forumrow><a href=?action=edit&ID=<%=rsFtp("id")%>><%=rsFtp("ftpname")%></a></td>
	<td align=center class=forumrow><%=rsFtp("linkname")%></td>
	<td align=center  class=forumrow><%=rsFtp("FTP")%></td>
	<td align=center  class=forumrow><%=rsFtp("unit_price")%></td>
	<td align=center  class=forumrow><%=rsFtp("prefixchar")%></td>
	<td align=center  class=forumrow>[<a href='?action=delete&ID=<%=rsFtp("ID")%>'>删除</a>]</td>	
	</tr>
<%	
		rsFtp.MoveNext
	wend
end if    
response.write "<tr><td colspan=7 align='center' height=24 class=forumRowHighlight><a href='?action=edit&ID=-1'><font color=red>添加新的Ftp配置</font></a></td></tr>"
response.write "</form></table>"

end sub

sub Edit_Ftp()
dim rsFTP,bNewFtp,sAction,s
dim FtpName,FtpIP,Value,SellTimes,LinkName,prefixchar,scorelimit,usernumber,webclick,state,breg
dim dbServer,addtime,seller
bNewFtp = 0
if request("ID")>0 then
	set rsFTP = dvbbs.execute("select * from dv_bbsftp where ID=" & request("ID"))	
	if not (rsFtp.bof and rsFtp.eof) then
		FtpName = rsFtp("FTPName")
		FtpIP = rsFtp("FTP")
		dbServer = rsftp("dbServer")		
		Value = rsFtp("unit_price")
		SellTimes = rsFtp("SelleGB")		
		LinkName = rsFtp("LinkName")
		prefixchar = rsFtp("prefixchar")
		scorelimit = rsFtp("scorelimit") 
		usernumber = rsFtp("usernumber")
		webclick = rsFtp("WebClick")
		state = rsFtp("State")
		breg = rsFtp("regenable")
		seller = rsFtp("Seller")
		addtime = rsFtp("AddTime")
	else
		bNewFtp = 1
	end if
else
	bNewFtp = 1
end if
if bNewFtp=1 then
	FtpName = ""
	FtpIp = "127.0.0.1:21"
	dbServer = ""	
	Value = 50
	SellTimes = 0
	prefixchar = "test_"	
	LinkName = ""
	scorelimit = 0
	usernumber = 0
	webclick = 0
	state = 0
	breg = true
	seller = "-"
	addtime = now
	sAction = "add"
	s = "添加新的Ftp"
else
	sAction = "update"
	s = "修改Ftp"
end if
%>

<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<form method="POST" name="editftp" action="?action=<%=sAction%>">
<tr><th colspan=6 height=23 align=center><%=s%></th></tr>
<input type="hidden" name="ID" value="<%=request("ID")%>">  
<tr>
<td width=20% class=forumrow>FTP名称</td>
<td width=80% class=forumrow colspan=5><input size=25 name="FtpName" type=text value="<%=FtpName%>"><%=MustStr%></td>
</tr>
<tr>
<td width=20% class=forumrow>FTP数据库连接字符串</td>
<td width=80% class=forumrow colspan=5><input size=80 name=dbServer type=text value="<%=dbServer%>"><%=MustStr%></td>
</tr>
<tr>
<td width=20% class=forumrow>地址端口(IP:Port)</td>
<td width=80% class=forumrow colspan=5><input size=25 name="FtpIP" type=text value="<%=FtpIP%>"><%=MustStr%></td>
</tr>
<tr>
<td width=20% class=forumrow>前缀字符</td>
<td width=80% class=forumrow colspan=5><input size=25 name=prefixchar type=text value="<%=prefixchar%>"> </td>
</tr>
<tr>
<td width=20% class=forumrow>角色名称</td>
<td width=80% class=forumrow colspan=5><input size=25 name="LinkName" type=text value="<%=LinkName%>"><%=MustStr%></td>
</tr>   
<tr>
<td width=20% class=forumrow>价格</td>
<td width=80% class=forumrow colspan=5><input size=25 name="Value" type=text value="<%=Value%>"><%=MustStr%>单位/<%=BuyUnit%></td>
</tr><tr>
<td width=20% class=forumrow>卖出数</td>
<td width=80% class=forumrow colspan=5><input size=25 name="SellTimes" type=text value="<%=SellTimes%>"></td>
</tr>  
<tr>
<td width=20% class=forumrow>威望限制</td>
<td width=80% class=forumrow colspan=5><input size=25 name="scorelimit" type=text value="<%=scorelimit%>"></td>
</tr>   
<tr>
<td width=20% class=forumrow>注册用户数</td>
<td width=80% class=forumrow colspan=5><input size=25 name="usernumber" type=text value="<%=usernumber%>"></td>
</tr> 
<tr>
<td width=20% class=forumrow>点击次数</td>
<td width=80% class=forumrow colspan=5><input size=25 name="webclick" type=text value="<%=webclick%>"></td>
</tr> 
<tr>
<td width=20% class=forumrow>状态</td>
<td width=80% class=forumrow colspan=5><input size=25 name="state" type=text value="<%=state%>">0 正常运行 1 停止运行 2 故障维修</td>
</tr>
<tr>
<td width=20% class=forumrow>是否允许注册</td>
<td width=80% class=forumrow colspan=5><input name="breg" type=checkbox value="yes" <%if breg then%>checked<%end if%>></td>
</tr>  
<tr>
<td width=20% class=forumrow>卖方</td>
<td width=80% class=forumrow colspan=5><input size=25 name="seller" type=text value="<%=seller%>"></td>
</tr>     

   
<tr>
<td colspan=6 align=center height=25 class="forumRowHighlight">
<input type=reset value="重置"><input type=submit value="提交修改">
</td></tr>  </form>  
  </table>
  


<%
end sub


sub Add_Ftp()
dim rsFTP,mrs,ftpurl
dim FtpName,FtpIP,Value,SellTimes,LinkName,prefixchar,scorelimit,usernumber,webclick,state,breg
dim dbServer,addtime,seller
FtpName = request("FtpName")
FtpIP = request("FtpIP")
Value = request("Value")
SellTimes = request("SellTimes")
dbServer = request("dbServer")
prefixchar = request("prefixchar")
LinkName = request("LinkName")
scorelimit = request("scorelimit")
usernumber = request("usernumber")
webclick = request("webclick")
state = request("state")
breg = request("breg")
seller = request("seller")
'检查数据的有效性。。。。
'
dvbbs.execute "select * from dv_bbsftp where 1=2"
set rsFTP = server.createobject("adodb.recordset")
rsFtp.Open "select * from dv_bbsftp", conn, 1, 3
rsFtp.AddNew
rsFTP("FTPName") = FtpName
rsFtp("dbServer") = dbServer
   rsFtp("FTP") = FtpIP
    rsFtp("unit_price") = Value
    rsFtp("SelleGB") = SellTimes
    rsFtp("prefixchar") = prefixchar    
    rsFtp("LinkName") = LinkName
    rsFtp("scorelimit") = scorelimit
    rsFtp("usernumber") = usernumber
    rsFtp("WebClick") = webclick
    rsFtp("state") = state
    rsFtp("regenable") = (breg = "yes")
    rsFtp("seller") = seller

rsFtp("AddTime") = Now
rsFtp.Update
rsFtp.Close
set rsFtp = nothing


bbsftp_suc("<p align='enter'>OK,添加成功！</p>")

end sub

sub Update_Ftp()
dim rsFTP
dim FtpName,FtpIP,Value,SellTimes,LinkName,prefixchar,scorelimit,usernumber,webclick,state,breg
dim dbServer,addtime,seller
FtpName = request("FtpName")
FtpIP = request("FtpIP")
Value = request("Value")
SellTimes = request("SellTimes")
dbServer = request("dbServer")
prefixchar = request("prefixchar")
LinkName = request("LinkName")
scorelimit = request("scorelimit")
usernumber = request("usernumber")
webclick = request("webclick")
state = request("state")
breg = request("breg")
seller = request("seller")

'检查数据的有效性。。。。
'

dvbbs.execute "select * from dv_bbsftp where 1=2"
set rsFTP = server.createobject("adodb.recordset")
rsFtp.Open "select * from dv_bbsftp where ID=" & request("ID"), conn, 1, 3

if rsFtp.bof and rsFtp.eof then
bbsftp_error("<p align='enter'><font color=red>更新失败！ID错误；</font></p>")

exit sub
end if

rsFtp.MoveFirst
rsFTP("FTPName") = FtpName
rsFtp("dbServer") = dbServer
   rsFtp("FTP") = FtpIP
    rsFtp("unit_price") = Value
    rsFtp("SelleGB") = SellTimes
    rsFtp("prefixchar") = prefixchar    
    rsFtp("LinkName") = LinkName
    rsFtp("scorelimit") = scorelimit
    rsFtp("usernumber") = usernumber
    rsFtp("WebClick") = webclick
    rsFtp("state") = state
    rsFtp("regenable") = (breg = "yes")
    rsFtp("seller") = seller
rsFtp.Update
rsFtp.Close
set rsFtp = nothing
bbsftp_suc("<p align='enter'>OK,更新成功！</p>")
end sub



sub deleteftp()
dvbbs.execute "delete from dv_bbsftp where ID=" & request("ID")
call list_Ftp
end sub
%>