BVB Source Codes

NPOINT virtual host v1.7.0 formal version management system Show adminftp.asp Source code

Return Download NPOINT virtual host v1.7.0 formal version management system: download adminftp.asp Source code - Download NPOINT virtual host v1.7.0 formal version management system Source code - Type:.asp
  1. <!--#include file="images/checkss.asp" -->
  2. <!--#include file="images/char.asp" -->
  3. <!--#include file="inc/webconfig.asp" -->
  4. <!--#include file="inc/conn.asp" -->
  5. <%
  6. dim iishost,R
  7. rs.open "Select * from system_admin",conn,1,1
  8. ftpid=rs("ftpid")
  9. servuftpnum=rs("servuftpnum")
  10. servupath=rs("servupath")
  11. rs.close
  12. %>
  13. <%
  14.  if request.querystring("action")="money" then
  15.   rs.open "Select * from user_site where ftpuser='"&request.querystring("ftpuser")&"'",conn,1,3
  16.             ya=year(rs("edate"))
  17.                 ma=month(rs("edate"))
  18.                 da=Day(rs("edate"))
  19.                 nya=int(ya)+1
  20.                 newdate=""&nya&"-"&ma&"-"&da&""
  21.                 rs("edate")=newdate
  22.                 rs.update
  23.                 rs.close
  24.                 call SucBox("操作成功!","adminftp.asp")
  25.                 response.End()  
  26.   end if
  27.  %>
  28.  <%
  29.   if request.querystring("action")="sitedelete"then
  30.   set iishost=server.createobject(dllname)
  31.   rs.open "Select * from user_site where ftpuser='"&request.querystring("ftpuser")&"'",conn,1,1
  32.   sitepath=rs("sitepath")
  33.   rs.close
  34.   R = iishost.delftpspace(ftpid, ""&request.querystring("ftpuser")&"", sitepath,servuftpnum,""&servupath&"")
  35.   if R = 1 then
  36.   rs.open "Select * from user_site where ftpuser='"&request.querystring("ftpuser")&"'",conn,1,3
  37.   ftpuser=rs("ftpuser")
  38.   rs.delete
  39.   rs.close
  40.   rs.open "Select * from sitepath where sitepath='"&sitepath&"'",conn,1,3
  41.         if rs.bof and rs.eof then
  42.                 else
  43.                 rs("sitenum")=rs("sitenum")-1
  44.                 rs.update
  45.                 end if
  46.                 rs.close
  47.   set iishost=nothing
  48.   call SucBox("操作成功!","adminftp.asp")
  49.   else
  50.   set iishost=nothing
  51.   call SucBox("操作失败\n\n"&R&"","adminftp.asp")
  52.   response.End()
  53.   end if
  54.   end if
  55.  %>
  56. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  57. <link href="images/Lysys.css" rel="stylesheet" type="text/css" />
  58. <style type="text/css">
  59. <!--
  60. .STYLE12 {color: #F26522}
  61. .unnamed1 {font-size: 12px;
  62. }
  63. .STYLE15 {color: #FF0000}
  64. -->
  65. </style>
  66. <script type="text/JavaScript">
  67. <!--
  68. function MM_jumpMenu(targ,selObj,restore){ //v3.0
  69.   eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  70.   if (restore) selObj.selectedIndex=0;
  71. }
  72. //-->
  73. </script>
  74.  <table width="100%"
  75. border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
  76.   <tbody>
  77.     <tr>
  78.       <td align="left" valign="top"><img height="18" src="images/user/aa_rig1.gif" width="7" /></td>
  79.       <td width="773" height="31"><table height="31" cellspacing="0" cellpadding="0" width="100%" align="center"
  80.       border="0">
  81.         <tbody>
  82.           <tr>
  83.             <td width="1%" align="left" valign="top" background="images/user/i9_1.gif"><img height="31" src="images/user/i9_2.gif" width="14" /> </td>
  84.             <td width="100%" background="images/user/i9_1.gif">&nbsp;当前位置:<span class="style11">管 理 FTP 空 间</span></td>
  85.           </tr>
  86.         </tbody>
  87.       </table></td>
  88.       <td align="right" valign="top"><img height="18" src="images/user/aa_rig2.gif"
  89.   width="7" /></td>
  90.     </tr>
  91.     <tr>
  92.       <td width="7" height="347">&nbsp;</td>
  93.       <td align="center" valign="top" bgcolor="#ffffff"><% if request.QueryString("gallhost")="" then %><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="bgcor">
  94.           <form action="adminftp.asp?send=true" method="post">
  95.                <tr class="t_bgcor">
  96.               <td height="30" colspan="6" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  97.                 <tr>
  98.                   <td width="11%" height="20">&nbsp;查找FTP用户:</td>
  99.                   <td width="25%"><input name="ftpusername" type="text" class="buttomw_KK" id="ftpusername" size="30" /></td>
  100.                   <td width="64%"><input name="Submit" type="submit" class="buttomw" value="查找" /></td>
  101.                 </tr>
  102.               </table></td>
  103.             </tr>
  104.                 </form>
  105.             <tr class="t_bgcor">
  106.               <td width="16%" height="25" align="center"><strong>FTP用户</strong></td>
  107.               <td width="34%" align="center"><strong>已用空间/空间大小</strong></td>
  108.               <td width="26%" align="center"><strong>过期时间</strong></td>
  109.               <td width="11%" align="center"><strong>修改</strong></td>
  110.               <td width="7%" align="center"><strong>续费</strong></td>
  111.               <td width="6%" height="20" align="center"><strong>删除</strong></td>
  112.           </tr>
  113.                                                             <%
  114.                                                                         if request.QueryString("send")="true" then
  115.                                                                         rs.open "select * from user_site where ftpuser LIKE '%"+request.form("ftpusername")+"%' and dlftp=True",conn,1,1    
  116.                                                                         else
  117.                 rs.open "Select * from user_site where dlftp=True order by ID desc",conn,1,1
  118.                 end if
  119.                 rcount=rs.recordcount
  120. if pmcount="" or isempty(pmcount) or pmcount<1 then
  121. pmcount=12
  122. end if
  123. rs.pagesize=pmcount  
  124. mpage=rs.pagecount
  125. pageno=request("pageno")
  126. if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
  127. pageno=1
  128. end if
  129. if rs.bof and rs.eof then
  130.                                        
  131.                                         else
  132.                                         rs.absolutepage=pageno
  133. loopno=pmcount
  134. Set objFSO=CreateObject("Scripting.FileSystemObject")
  135. do while not rs.eof and loopno>0
  136.   sitepath=rs("sitepath")
  137.   SJ=""
  138.   Npoint_size=""
  139.   Set objFolder=objFSO.GetFolder(sitepath&"\"&rs("ftpuser"))
  140.   Npoint_size=Round((objFolder.Size/1024)/1024,2)
  141.   if Npoint_size< 1 then
  142.   SJ=Round(objFolder.Size/1024,2)&" K"  '空间文件夹大小
  143.   else
  144.   SJ=Round((objFolder.Size/1024)/1024,2)&" M"
  145.   end if
  146. %>
  147.             <tr class="L_bgcor">
  148.               <td height="30" align="center" valign="middle" class="td2"><%=rs("ftpuser")%></td>
  149.               <td align="center" valign="middle"><%= SJ %> / <%=rs("spacenum")%> M</td>
  150.               <td align="center" valign="middle"><% if DateDiff("d",now,rs("edate"))<0 then
  151.                           response.Write("已过期"&DateDiff("d",rs("edate"),now)&"天")
  152.                           else
  153.                           response.write(rs("edate"))&" / 还剩:"&DateDiff("d",now,rs("edate"))&"天"
  154.                           end if
  155.                           %></td>
  156.               <td align="center" valign="middle"><a href="adminftp.asp?gallhost=gallhost&ftpuser=<%=rs("ftpuser")%>"><img src="../images/edit2.gif" alt="管理站点" width="16" height="16" border="0" /></a></td>
  157.               <td align="center" valign="middle"><a href="adminftp.asp?action=money&ftpuser=<%=rs("ftpuser")%>" title="点击一次自动续费一年" onclick="{if(confirm('确定要给“<%= rs("ftpuser") %>”续费1年吗?')){return true;}return false;}">续费</a></td>
  158.               <td align="center" valign="middle" class="td2"><a href="adminftp.asp?action=sitedelete&ftpuser=<%=rs("ftpuser")%>" onclick="{if(confirm('确定要删除“<%= rs("ftpuser") %>”的空间吗?\n\n删除后不可恢复(包括空间所有文件)')){return true;}return false;}"><img src="../images/ico_del.gif" alt="删除<%= rs("ftpuser") %>FTP空间" width="16" height="16" border="0" /></a></td>
  159.             </tr>
  160. <%
  161.                                             loopno=loopno-1
  162.                                             rs.movenext
  163.                                             loop
  164.                                                 end if
  165.                                                 rs.close
  166.                                                 set rs=Nothing
  167.                         Set objFSO=nothing
  168.                                             %>
  169.             <tr class="L_bgcor">
  170.               <td height="30" colspan="6" align="right">共 <%=cstr(rcount)%> 条记录 当前第 <%=cstr(pageno)&"/"&cstr(mpage)%> 页 每页 <%=pmcount%> 条&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  171.                 <% if cint(Pageno)<>1 then%>
  172.                 <a href='?pageno=1' target="_self" class="STYLE12">首页</a> |
  173.                 <% else %>
  174. 首页 |
  175. <% end if
  176.                                                         if cint(pageno)>1 then%>
  177. <a href='?pageno=<%=pageno-1%>' target="_self" class="STYLE12">上一页</a> |
  178. <%
  179. else
  180. %>
  181. 上一页 |
  182. <%
  183.                                                         end if
  184.                                                         if cint(pageno)<cint(mpage) then
  185.                                                         %>
  186. <a href='?pageno=<%=pageno+1%>' target="_self" class="STYLE12">下一页</a>
  187. <%
  188. else
  189. %>
  190. 下一页
  191. <%
  192. end if
  193. %>
  194. <%
  195. if cint(Pageno)<>cint(mpage) then%>
  196. | <a href='?pageno=<%=mpage%>' target="_self" class="STYLE12">尾页</a>
  197. <% else %>
  198. | 尾页
  199. <% end if %>
  200. &nbsp;转到 第
  201. <select name="menu2" class="buttomw" onchange="MM_jumpMenu('self',this,0)">
  202.   <option selected="selected"><%=Pageno%></option>
  203.   <%
  204.   b=1
  205.   for i=1 to mpage
  206.      %>
  207.   <option value="?pageno=<%=b%>"><%=b%></option>
  208.   <%
  209.   b=b+1
  210.     next
  211.     %>
  212. </select>
  213. 页&nbsp;</td>
  214.             </tr>
  215.         </table>
  216.       <%
  217.                 else
  218.                  %>
  219.         <table width="100%" border="0" cellpadding="0" cellspacing="1" class="bgcor">
  220.                 <%
  221.                  rs.open "Select * from user_site where ftpuser='"&request.querystring("ftpuser")&"'",conn,1,3
  222.           if request.querystring("edsystem")="true" then
  223.                  
  224.                     if request.form("C1")="Truea" then
  225.                     set iishost=server.createobject(dllname)
  226.                     R=iishost.editftppass(request.querystring("ftpuser"), trim(request.form("ftppassword")),servuftpnum,""&servupath&"")
  227.                        if R=1 then
  228.                            set iishost=nothing
  229.                            rs("ftppassword")=trim(request.form("ftppassword"))
  230.                            rs.update
  231.                        else
  232.                            rs.close
  233.                            call SucBox("操作失败\n\n"&R&"","adminftp.asp")
  234.                        end if
  235.                          end if
  236.                          
  237.                          if request.form("C2")="Truea" then
  238.                          sitepath=rs("sitepath")
  239.                          set iishost=server.createobject(dllname)
  240.                          R=iishost.editftpspace(request.querystring("ftpuser"), sitepath, int(request.form("spacenum")),servuftpnum,""&servupath&"")
  241.                              if R=1 then
  242.                              set iishost=nothing
  243.                              rs("spacenum")=int(request.form("spacenum"))
  244.                              rs.update
  245.                          else
  246.                              rs.close
  247.                              call SucBox("操作失败\n\n"&R&"","adminftp.asp")
  248.                          end if
  249.                           end if
  250.                                  
  251.                           call SucBox("操作成功!","adminftp.asp")
  252.                   end if
  253.         %>
  254.           <form action="?edsystem=true&ftpuser=<%=request.QueryString("ftpuser")%>&gallhost=true" method="post" name="systemform" id="systemform" onsubmit="return checkform(this)">
  255.             <tr class="L_bgcor">
  256.               <td width="11%" height="28">&nbsp;FTP账号:</td>
  257.               <td width="89%" height="20">&nbsp;<%=rs("ftpuser")%></td>
  258.             </tr>
  259.             <tr class="L_bgcor">
  260.               <td height="28">&nbsp;FTP密码:</td>
  261.               <td><input name="C1" type="checkbox" class="buttomw" id="C1" value="Truea" onclick="ftppassword.readOnly=false" title="选择修改密码" /><input name="ftppassword" type="password" class="buttomw_KK" id="ftppass" value="<%=rs("ftppassword")%>" size="37" maxlength="16" readOnly="True" />
  262.                   <span class="STYLE15">密码必须为 6-16 位密码(可大小写组合)</span> </td>
  263.             </tr>
  264.             <tr class="L_bgcor">
  265.               <td height="28">&nbsp;空间大小:</td>
  266.               <td><input name="C2" type="checkbox" class="buttomw" id="C2" value="Truea" onclick="spacenum.readOnly=false" title="选择修改空间大小" /><input name="spacenum" type="text" class="buttomw_KK" id="spacenum" value="<%=rs("spacenum")%>" size="6" readOnly="True" />
  267.                 M ( <span class="STYLE15">必须为整数</span> )</td>
  268.             </tr>
  269.             <tr class="L_bgcor">
  270.               <td height="35" colspan="2" align="center"><input name="upbtn" type="submit" class="buttomw" value="确认修改" />
  271.               <input name="Submit2" type="button" class="buttomw" value="取消" onclick="location.href='adminftp.asp'" /></td>
  272.             </tr>
  273.           </form>
  274.       </table>
  275.       <%
  276.           end if %></td>
  277.       <td width="10" bgcolor="#ffffff">&nbsp;</td>
  278.     </tr>
  279.   </tbody>
  280. </table>
downloadadminftp.asp Source code - Download NPOINT virtual host v1.7.0 formal version management system Source code
Related Source Codes/Software:
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
Jie Yang v0.6.3 article system - System functions: 1, the system settings A confi... 2016-09-21
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
Age design website information management system SDCMS v1.1 SP1 - SDCMS is designed to build the information managem... 2016-09-21
Age design website information management system SDCMS v1.1 SP1 - SDCMS is designed to build the information managem... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top