📄 admin_upload.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="UploadClass.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统-文件上传</title>
<link rel="stylesheet" type="text/css" href="../Default.css">
<body bgcolor="#FFFFFF" leftmargin="5" topmargin="20">
<%
Dim Admin_Flag,contents
Dim File_ext,UploadSize,Uploadpath
Dim Filepath,Filename,upOption1,upOption2,Randnum
Dim Fileext_a,Fileext,UpMode
contents=request.QueryString("contents")
UploadPath="uploadpic/"
UploadSize=1024
File_ext="jpg,gif,bmp"
UpMode=1  '1：无组件上传，2：lyfupload组件上传

Admin_Flag="31"
If (session("myrank")="普通用户"  or session("myrank")="")Then
    Select Case Request.QueryString("action")
	    Case "upload"
		    Call Main()
		    Call UpLoad()
		Case Else
		    Call Main()
	End Select
   ' response.write ("<Li>您没有管理本页面的权限。")
Else
    Select Case Request.QueryString("action")
	    Case "upload"
		    Call Main()
		    Call UpLoad()
		Case Else
		    Call Main()
	End Select
End If

Sub Main()
%>
<Form name="addform" method="post" action="?contents=<%=contents%>&action=upload&Mode=<%=Request.QueryString("Mode")%>" enctype="multipart/Form-data" >
  <table width="95%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="007cd0" class="border-all">
    <tr> 
      <th align="center" bgcolor="007CD0">文件上传</th>
    </tr>
    <tr> 
      <td height="30" align="center" ID="strMsg">允许上传的文件类型：jpg、gif、bmp </td>
    </tr>
    <tr> 
      <td align="center">文件上传大小限制：1024K </td>
    </tr>
    <tr> 
      <td align="center"> 请选择上传文件： 
        <input type="file" name="file1" size=20 class=editbox> <input type="hidden" name="filename"> 
      </td>
    </tr>
    <tr> 
      <td align="center"> <input type="submit" name="Submit" value="上传" onClick="filename.value=file1.value;" class=button> 
      </td>
    </tr>
  </table>
</Form>
</body>
</html>
<%
End Sub

Sub UpLoad()
    Select Case UpMode
        Case 1
             soft_upload()
        Case 2
             lyfupload()
    End Select 
End Sub

'无组件上传
Sub Soft_Upload()
    Dim upload,file,uploadsuc,splitFile
	Dim upName
	set upload=new upfile_class
	upload.GetData (-1)

    filePath=UploadPath
	upOption1=Cint(upload.Form("upOption1"))
    upOption2=CInt(upload.Form("upOption2"))

    '在目录后加(/)
    If right(filePath,1)<>"/" Then filePath=filePath&"/" 
    
	For Each upName In upload.file
        Set file=upload.file(upName)
        If file.filesize<1 Then
           Response.Write "<script language=javascript>strMsg.innerHTML='请先选择你要上传的文件'</script>"
           Response.end
        End If
		fileExt=LCase(file.FileExt)
        uploadsuc=False
        splitFile=Split(File_ext,",")
        For i=0 to UBound(splitFile)
            If fileEXT=Trim(LCase(splitFile(i))) Then
                uploadsuc=True
                Exit For
            Else
			    uploadsuc=False
            End If
        Next
        If uploadsuc=False Then
	        Response.Write "<script language=javascript>strMsg.innerHTML='文件格式不正确'</script>"
	        Response.end
        End If   
        If file.FileSize>UploadSize*1024 Then
	        Response.Write "<script language=javascript>strMsg.innerHTML='文件大小超过了限制'</script>"
	        Response.end
        End If
        Randomize
	    filename=filePath&"ea_"&year(Now)&month(Now)&day(Now)&hour(Now)&minute(Now)&second(Now)&randNum&"."&fileExt

        file.SaveToFile Server.mappath("../"&FileName)   ''保存文件
		Response.Write "<script>"
        Response.Write "opener.addform."&contents&".value+='<img src=../"&filename&">';"
		Response.Write "</script>"			  
	Next
    Set file=Nothing
    Set upload=Nothing
    Response.Write "<script language=javascript>strMsg.innerHTML='文件上传成功！"&_
    "<br>文件地址："&filename&"'</script>"
End Sub

'lyfupload组件上传
Sub Lyfupload()
End Sub
%>
⌨️ 快捷键说明

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