📄 ftp.asp

📁 《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257   E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>

<%
' 判定用户权限
MM_authorizedUsers="5,1,6,7"
MM_authFailedURL="login.asp?error=3"
MM_grantAccess=false
If session("QYABC_userid") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="inc/md5.asp" -->
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<!--#include file="Connections/ftp.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>个人FTP作业空间进口-<%=WebName%></title>
<center><link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body>

<%
Dim ftp_user__MMColParam
ftp_user__MMColParam = "1"
If (session("QYABC_usernum") <> "") Then 
  ftp_user__MMColParam = session("QYABC_usernum")
End If
%>
<%
Dim ftp_user
Dim ftp_user_numRows

Set ftp_user = Server.CreateObject("ADODB.Recordset")
ftp_user.ActiveConnection = MM_ftp_STRING
ftp_user.Source = "SELECT User,Password FROM User_accounts WHERE User = '" + Replace(ftp_user__MMColParam, "'", "''") + "'"
ftp_user.CursorType = 0
ftp_user.CursorLocation = 2
ftp_user.LockType = 1
ftp_user.Open()

ftp_user_numRows = 0
%>

<% '提取用户信息
Dim sys_user
Dim sys_user_numRows

Set sys_user = Server.CreateObject("ADODB.Recordset")
sys_user.ActiveConnection = MM_master_STRING
sys_user.Source = "SELECT * FROM userinfo WHERE studentnum = '" + Replace(ftp_user__MMColParam, "'", "''") + "'"
sys_user.CursorType = 0
sys_user.CursorLocation = 2
sys_user.LockType = 1
sys_user.Open()

sys_user_numRows = 0
%>
<%
dim asanname,asanpassword,asanemail,asanregip,asanspecia,asanmasterClass
asannum=sys_user("studentnum")
asanname=sys_user("studentname")
asanpassword=sys_user("Paskk")

if sys_user("Email") ="" then
asanemail="没有填写电子邮箱"
else
asanemail=sys_user("Email")
end if

asanregip=Request.ServerVariables("Remote_Addr")
asanspecia=sys_user("Specia")
asanmasterClass=sys_user("MasterClass")
%>
<% 
dim asanHomeDir,asanQuotaMax,qinExpiration 
asanQuotaMax=1048576*QuotaMax
asanHomeDir=user_folder+asanspecia+"\"+asanmasterClass+"\"+asanname
asanAccess=user_folder+asanspecia+"\"+asanmasterClass+"\"+asanname+ServUAccess

if Expirationtime=true then
qinExpiration=date()+asanExpiration
else
qinExpiration=#1980-1-1#
end if
 %>
<% if ftp_user.eof then%>
<%
dim fso,asan_user_folder1,asan_user_folder2,asan_user_folder3
Set fso = CreateObject("Scripting.FileSystemObject")

asan_user_folder1=user_folder&"/"&asanspecia

if not fso.FolderExists(asan_user_folder1) then
fso.CreateFolder (asan_user_folder1)
else
end if

asan_user_folder2=user_folder&"/"&asanspecia&"/"&asanmasterClass

if not fso.FolderExists(asan_user_folder2) then
fso.CreateFolder (asan_user_folder2)
else
end if


asan_user_folder3=user_folder&"/"&asanspecia&"/"&asanmasterClass&"/"&asanname

if not fso.FolderExists(asan_user_folder3) then
fso.CreateFolder (asan_user_folder3)


set insert_user = Server.CreateObject("ADODB.Command")
insert_user.ActiveConnection = MM_ftp_STRING
insert_user.CommandText = "INSERT INTO User_accounts (User, Access, Password, HomeDir, QuotaEnable, QuotaMax, PassType, RegIp, Email,Expiration,Expirationtype)  VALUES ('"&asannum&"','"&asanAccess&"','"&asanpassword&"','"&asanHomeDir&"',"&asanQuotaEnable&","&asanQuotaMax&","&asanPassType&",'"&asanregip&"','"&asanemail&"','"&qinExpiration&"','"&asanExpirationtype&"') "
insert_user.CommandType = 1
insert_user.CommandTimeout = 0
insert_user.Prepared = true
insert_user.Execute()
 %>

  <table   width="534"   border="0"   align="center" cellpadding="5" cellspacing="3" bgcolor="#FFFFFF">
    <tr> 
      <td align="center"><p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p><b><font   color="#FF0000"><a href="ftp://<%=asannum%>@<%= (ServUIp)%>/" target="_blank"><img src="images/upexe.gif" alt="点击这里▲上传作业" width="340" height="74" border="0"></a></font></b></p>
        <hr></td>
    </tr>
    <tr> 
      <td>其它说明:</td>
    </tr>
    <tr> 
      <td   width="518">1、您的作业空间固定大小是<span class="style1"><%= (QuotaMax)%></span>M，请珍惜空间！</td>
    </tr>
    <tr> 
      <td   width="518">2、进入FTP,<span class="STYLE1">提交作业的密码与系统帐号密码相同.</span><a href="user_pwd_modi.asp" target="_blank"><font color="#0000FF">点击这里修改密码</font></a></td>
    </tr>
    <tr> 
      <td>3、如有任何疑问，<a href="sms_write.asp?SmsSubject=&userid=2" target="_blank">请点击这里发短信息至系统管理员处.</a></td>
    </tr>
    <tr> 
      <td   width="518" align="left"><b><font   color="#FF0000">注意:如出现错误信息,请稍等后,再尝试操作.</font></b></td>
    </tr>
  </table>
<P>&nbsp;</p>
</center>
<% else
Response.Write("<center><br><br><br><br><br><br>请注意：需要新建的用户目录已建立，可能已有相同名称的用户注册，请与管理员联系：<a href='mailto:"&webserveremail&"'>"&webserveremail&"</a>。</center>")
end if
%>

<%else%>   
<style type="text/css">
<!--
.style1 {	color: #FF0000;
	font-weight: bold;
}
-->
</style>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<center>
  <table   width="534"   border="0"   align="center" cellpadding="5" cellspacing="3" bgcolor="#FFFFFF">
    <tr> 
      <td align="center"><p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p><b><font   color="#FF0000"><a href="ftp://<%=asannum%>@<%= (ServUIp)%>/" target="_blank"><img src="images/upexe.gif" alt="点击这里▲上传作业" width="340" height="74" border="0"></a></font></b></p>
        <hr></td>
    </tr>
    <tr> 
      <td>其它说明:</td>
    </tr>
    <tr> 
      <td   width="518">1、您的作业空间固定大小是<span class="style1"><%= (QuotaMax)%></span>M，请珍惜空间！</td>
    </tr>
    <tr> 
      <td   width="518">2、进入FTP,<span class="STYLE6">提交作业的密码与系统帐号密码相同.</span><a href="user_pwd_modi.asp" target="_blank"><font color="#0000FF">点击这里修改密码</font></a></td>
    </tr>
    <tr> 
      <td>3、如有任何疑问，<a href="sms_write.asp?SmsSubject=&userid=2" target="_blank">请点击这里发短信息至系统管理员处.</a></td>
    </tr>
    <tr> 
      <td   width="518" align="left"><b><font   color="#FF0000">注意:如出现错误信息,请稍等后,再尝试操作.</font></b></td>
    </tr>
  </table>
</center>   
<%end   if%>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
ftp_user.Close()
Set ftp_user = Nothing
%>
<%
sys_user.Close()
Set sys_user = Nothing
%>
💿 文件大小 1605 K
👤 上传用户 fq335288450
📂 所属分类企业管理
🏷️ 相关标签

#Aceesss #ServU #ASP #机房
⌨️ 快捷键说明

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