代码

最新推荐文章于 2024-03-09 16:28:36 发布
原创 最新推荐文章于 2024-03-09 16:28:36 发布 · 316 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#input #border #class #upload #function #action

 
<html>
<head>
<title>发表Flash</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p>&nbsp;</p>
<table width="75%" border="1" cellpadding="3" cellspacing="0" bgcolor="#C5D5E4">
  <tr>
    <td width="12%">网页HEAD</td>
    <td width="88%"><TABLE class=tborder cellSpacing=1 cellPadding=6 width="98%" align=center
      border=0>
      <TBODY>
        <TR>
          <TD vAlign=top class=alt1><!-- login form -->
              <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr>
                  <td valign="top"><%
  ExtName = "jpg,gif,swf,psd"    '允许扩展名
  SavePath = "upload"          '保存路径
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
  CheckAndCreateFolder(SavePath)

  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
  If(UpLoadAll_a>0) Then
    Set UploadStream_c = Server.CreateObject("ADODB.Stream")
    UploadStream_c.Type = 1
    UploadStream_c.Open
    UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
    UploadStream_c.Position = 0

    FormDataAll_d = UploadStream_c.Read
    CrLf_e = chrB(13)&chrB(10)
    FormStart_f = InStrB(FormDataAll_d,CrLf_e)
    FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

    Set FormStream_h = Server.Createobject("ADODB.Stream")
    FormStream_h.Type = 1
    FormStream_h.Open
    UploadStream_c.Position = FormStart_f + 1
    UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
    FormStream_h.Position = 0
    FormStream_h.Type = 2
    FormStream_h.CharSet = "GB2312"
    FormStreamText_i = FormStream_h.Readtext
    FormStream_h.Close

    FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"/")+1,FormEnd_g)

    If(CheckFileExt(FileName_j,ExtName)) Then
      SaveFile = Server.MapPath(SavePath & FileName_j)

      If Err Then
        Response.Write "文件上传： <span style=""color:red;"">文件上传出错!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
        Err.Clear
      Else
        SaveFile = CheckFileExists(SaveFile)

        k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
        l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
        FormStream_h.Type=1
        FormStream_h.Open
        UploadStream_c.Position=k-1
        UploadStream_c.CopyTo FormStream_h,l
        FormStream_h.SaveToFile SaveFile,2
       
        SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"/")+1)
        Saver="upload/"&SaveFileName
        Response.write "文件上传： <span style=""color:red;"">" &Saver & " </span>文件上传成功!　<a href=""" & Request.ServerVariables("URL") &""">继续上传文件</a><br />"

   End If
  
    Else
      Response.write "文件上传： <span style=""color:red;"">文件格式不正确!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
    End If

  Else
%>
                      <script language="Javascript">
<!--
function ValidInput()
{
   
if(document.upform.upfile.value=="")
  {
    alert("请选择上传文件！")
    document.upform.upfile.focus()
    return false
  }
  return true
}
// -->
        </script>
                      <form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onSubmit="return ValidInput()"  enctype="multipart/form-data">
                        文件上传：
                        <input name='upfile1' type='file' id="upfile1" size="40">
                  <input name="submit2" type='submit' value="上传">
                      </form>
                    <p>
                        <%
  End if
  Set FormStream_h = Nothing

%>
                      <form name="form1" method="post" action="save.asp">
                        <table width="500" border="0">
                          <tr>
                            <td width="64"><div align="center">上传地址</div></td>
                            <td width="426"><input name="img" type="text" class="thead" id="img" value="<%=saver%>" />
                                <span class="style3">(*自动取值）</span></td>
                          </tr>
                          <tr>
                            <td>&nbsp;</td>
                            <td><input name="ask2" type="submit" id="ask2" value="提交">
                                <input type="reset" name="Submit2" value="重置">
                                <input name="lujin2" type="hidden" id="lujin2" value="../images/146.jpg"></td>
                          </tr>
                        </table>
                      </form></td>
                </tr>
            </table></TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
  <tr>
    <td>产品图片</td>
    <td><TABLE class=tborder cellSpacing=1 cellPadding=6 width="98%" align=center
      border=0>
      <TBODY>
        <TR>
          <TD vAlign=top class=alt1><!-- login form -->
              <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr>
                  <td valign="top"><%
  ExtName = "jpg,gif,swf,psd"    '允许扩展名
  SavePath = "upload1"          '保存路径
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
  CheckAndCreateFolder(SavePath)

  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
  If(UpLoadAll_a>0) Then
    Set UploadStream_c = Server.CreateObject("ADODB.Stream")
    UploadStream_c.Type = 1
    UploadStream_c.Open
    UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
    UploadStream_c.Position = 0

    FormDataAll_d = UploadStream_c.Read
    CrLf_e = chrB(13)&chrB(10)
    FormStart_f = InStrB(FormDataAll_d,CrLf_e)
    FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

    Set FormStream_h = Server.Createobject("ADODB.Stream")
    FormStream_h.Type = 1
    FormStream_h.Open
    UploadStream_c.Position = FormStart_f + 1
    UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
    FormStream_h.Position = 0
    FormStream_h.Type = 2
    FormStream_h.CharSet = "GB2312"
    FormStreamText_i = FormStream_h.Readtext
    FormStream_h.Close

    FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"/")+1,FormEnd_g)

    If(CheckFileExt(FileName_j,ExtName)) Then
      SaveFile = Server.MapPath(SavePath & FileName_j)

      If Err Then
        Response.Write "文件上传： <span style=""color:red;"">文件上传出错!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
        Err.Clear
      Else
        SaveFile = CheckFileExists(SaveFile)

        k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
        l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
        FormStream_h.Type=1
        FormStream_h.Open
        UploadStream_c.Position=k-1
        UploadStream_c.CopyTo FormStream_h,l
        FormStream_h.SaveToFile SaveFile,2
       
        SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"/")+1)
        Saver="upload1/"&SaveFileName
        Response.write "文件上传： <span style=""color:red;"">" &Saver & " </span>文件上传成功!　<a href=""" & Request.ServerVariables("URL") &""">继续上传文件</a><br />"

   End If
  
    Else
      Response.write "文件上传： <span style=""color:red;"">文件格式不正确!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
    End If

  Else
%>
                      <script language="Javascript">
<!--
function ValidInput()
{
   
if(document.upform.upfile.value=="")
  {
    alert("请选择上传文件！")
    document.upform.upfile.focus()
    return false
  }
  return true
}
// -->
        </script>
                      <form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onSubmit="return ValidInput()"  enctype="multipart/form-data">
                        文件上传：
                        <input name='upfile2' type='file' id="upfile2" size="40">
                  <input name="submit3" type='submit' value="上传">
                      </form>
                    <p>
                        <%
  End if
  Set FormStream_h = Nothing

%>
                      <form name="form1" method="post" action="save.asp">
                        <table width="500" border="0">
                          <tr>
                            <td width="64"><div align="center">上传地址</div></td>
                            <td width="426"><input name="img1" type="text" class="thead" id="img1" value="<%=saver1%>" />
                                <span class="style3">(*自动取值）</span></td>
                          </tr>
                          <tr>
                            <td>&nbsp;</td>
                            <td><input name="ask3" type="submit" id="ask3" value="提交">
                                <input type="reset" name="Submit3" value="重置">
                                <input name="lujin3" type="hidden" id="lujin3" value="../images/146.jpg"></td>
                          </tr>
                        </table>
                      </form></td>
                </tr>
            </table></TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
  <tr>
    <td>flash图片</td>
    <td><TABLE class=tborder cellSpacing=1 cellPadding=6 width="98%" align=center
      border=0>
      <TBODY>
        <TR>
          <TD vAlign=top class=alt1><!-- login form -->
              <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr>
                  <td valign="top"><%
  ExtName = "jpg,gif,swf,psd"    '允许扩展名
  SavePath = "upload2"          '保存路径
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
  CheckAndCreateFolder(SavePath)

  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
  If(UpLoadAll_a>0) Then
    Set UploadStream_c = Server.CreateObject("ADODB.Stream")
    UploadStream_c.Type = 1
    UploadStream_c.Open
    UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
    UploadStream_c.Position = 0

    FormDataAll_d = UploadStream_c.Read
    CrLf_e = chrB(13)&chrB(10)
    FormStart_f = InStrB(FormDataAll_d,CrLf_e)
    FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

    Set FormStream_h = Server.Createobject("ADODB.Stream")
    FormStream_h.Type = 1
    FormStream_h.Open
    UploadStream_c.Position = FormStart_f + 1
    UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
    FormStream_h.Position = 0
    FormStream_h.Type = 2
    FormStream_h.CharSet = "GB2312"
    FormStreamText_i = FormStream_h.Readtext
    FormStream_h.Close

    FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"/")+1,FormEnd_g)

    If(CheckFileExt(FileName_j,ExtName)) Then
      SaveFile = Server.MapPath(SavePath & FileName_j)

      If Err Then
        Response.Write "文件上传： <span style=""color:red;"">文件上传出错!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
        Err.Clear
      Else
        SaveFile = CheckFileExists(SaveFile)

        k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
        l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
        FormStream_h.Type=1
        FormStream_h.Open
        UploadStream_c.Position=k-1
        UploadStream_c.CopyTo FormStream_h,l
        FormStream_h.SaveToFile SaveFile,2
       
        SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"/")+1)
        Saver="upload2/"&SaveFileName
        Response.write "文件上传： <span style=""color:red;"">" &Saver & " </span>文件上传成功!　<a href=""" & Request.ServerVariables("URL") &""">继续上传文件</a><br />"

   End If
  
    Else
      Response.write "文件上传： <span style=""color:red;"">文件格式不正确!</span>　<a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
    End If

  Else
%>
                      <script language="Javascript">
<!--
function ValidInput()
{
   
if(document.upform.upfile.value=="")
  {
    alert("请选择上传文件！")
    document.upform.upfile.focus()
    return false
  }
  return true
}
// -->
        </script>
                      <form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onSubmit="return ValidInput()"  enctype="multipart/form-data">
                        文件上传：
                        <input name='upfile3' type='file' id="upfile3" size="40">
                  <input name="submit4" type='submit' value="上传">
                      </form>
                    <p>
                        <%
  End if
  Set FormStream_h = Nothing

%>
                      <form name="form1" method="post" action="save.asp">
                        <table width="500" border="0">
                          <tr>
                            <td width="64"><div align="center">上传地址</div></td>
                            <td width="426"><input name="img2" type="text" class="thead" id="img2" value="<%=saver%>" />
                                <span class="style3">(*自动取值）</span></td>
                          </tr>
                          <tr>
                            <td>&nbsp;</td>
                            <td><input name="ask4" type="submit" id="ask4" value="提交">
                                <input type="reset" name="Submit4" value="重置">
                                <input name="lujin4" type="hidden" id="lujin4" value="../images/146.jpg"></td>
                          </tr>
                        </table>
                      </form></td>
                </tr>
            </table></TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<%
  '判断文件类型是否合格
  Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
    FileType = ExtName
    FileType = Split(FileType,",")
    For i = 0 To Ubound(FileType)
      If LCase(Right(FileName,3)) = LCase(FileType(i)) then
      CheckFileExt = True
      Exit Function
      Else
      CheckFileExt = False
      End if
    Next
  End Function

  '检查上传文件夹是否存在，不存在则创建文件夹
  Function CheckAndCreateFolder(FolderName)
    fldr = Server.Mappath(FolderName)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(fldr) Then
      fso.CreateFolder(fldr)
    End If
    Set fso = Nothing
  End Function

'检查文件是否存在，重命名存在文件
Function CheckFileExists(FileName)
  Set fso=Server.CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(SaveFile) Then
    i=1
    msg=True
    Do While msg
      CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
      If not fso.FileExists(CheckFileExists) Then
        msg=False
      End If
      i=i+1
    Loop
  Else
    CheckFileExists = FileName
  End If
  Set fso=Nothing
End Function

%>

 

 

 

 

[MFC学习笔记]--lesson12 文件操作
dp_huang的博客
08-26 631
step1:新建一个单文档MFA App Wizard程序。   step2:在菜单项里添加“写入文件”和“读取文件”，在资源视图里，选着Menu然后双击就可添加，ID分别取为“IDM_FILE_WRITE”和"IDM_FILE_READ"， step3:在“写入文件”和“读取文件”上，右击鼠标，选着“Class Wizard”，然后就可以添加到CPropView类，然后，选着“
delphi 获取文件所在路径
lizhongren的专栏
02-17 1080
//delphi 获取文件所在路径 ExtractFileDrive ：返回完整文件名中的驱动器，如"C:" ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/" ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test" ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.d
ASP过滤SQL非法字符并格式化html代码
weixin_33853827的博客
10-25 163
<% function changechr(str) changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") changechr=replace(replace(...
Asp文件操作函数集
菜刀舞的快一点，武林高手也是难以近身的。
11-14 152
解决ASP上传漏洞
Chenlianjia的专栏
06-09 1984
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 文件上传on error resume nextdim upload,f_folder,file,formPath,iCount,filename,fileExt,filesizemin,filesizemax*******************************************************
检查文件名&路径是否合法的函数
ddd
06-11 1019
{=================================================== 功    能 ： 检查文件路径和文件名是否合法   参    数 ： Filename : string //文件名   返 回 值 :  True : 合法   |   False : 不合法   备    注 :  仅检查是否合法，不检测文件是否存在   作    者 :...
微信小程序点餐系统微信小程序开发期末大作业源代码+代码注释
最新发布
05-26
微信小程序点餐系统微信小程序开发期末大作业源代码+代码注释微信小程序点餐系统微信小程序开发期末大作业源代码+代码注释微信小程序点餐系统微信小程序开发期末大作业源代码+代码注释微信小程序点餐系统微信小程序...
淘淘商城源代码 淘淘商城源代码
05-30
淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘商城源代码淘淘...
Suno-AI项目源代码.zip
04-07
Suno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目源代码.zipSuno-AI项目...
QT代码统计器QT代码统计器
08-25
QT代码统计器是一款基于QT库开发的工具，用于分析和统计源代码的各个指标，如行数、注释量、空格与制表符等。QT（Qt）是跨平台的应用程序开发框架，广泛应用于桌面、移动和嵌入式设备。这款统计器能够帮助开发者更好...
软著源代码整理工具，生成软著格式代码文本
10-12
标题中的“软著源代码整理工具”是一款专为软件著作权（简称“软著”）申请设计的实用程序，它的主要功能是将源代码文件转换成符合软著申请所需的格式。在软件开发过程中，源代码是程序员编写的指令集合，通常包含...
asp无组件上传类的应用实例/化境HTTP上传程序
Sunny
01-28 3792
原版upload_5xsoft.inc 文件内容dim Data_5xsoftClass upload_5xsoft  dim objForm,objFile,VersionPublic function Form(strForm)       strForm=lcase(strForm)       if not objForm.exists(st
Pikachu靶场通关笔记--unsafe fileupload (不安全的文件上传)
weixin_45908624的博客
12-14 1582
文件上传漏洞
Day28：安全开发-JS应用&原生开发&JQuery库&Ajax技术&前端后端&安全验证处理
qq_61553520的博客
03-09 1425
小迪安全-Day28：安全开发-JS应用&原生开发&JQuery库&Ajax技术&前端后端&安全验证处理
php ZIP 类，可以对网站进行 整理压缩与解压缩的类
大任的网络专栏
03-19 1513
<?php /** * HILLS在线PHP压缩/解压程序(zip) Version-1.0.423 (RelyHills Online CDEC V1.0.423) * * 发布日期:2010.4.23 11:03 * * 作者主页:http://www.abzz.net * * 作者腾讯QQ:3303911 */ date_default_timezone_set('
安全
NF Studio17
07-26 802
过滤SQL非法字符并格式化html代码function Replace_Text(fString)if isnull(fString) thenReplace_Text=""exit functionelsefString=trim(fString)fString=replace(fString,"","")fString=replace(fString,";","；")fString
解决ASP（图像）上传漏洞的方法
[智能天空教程区 Smart-sky]
01-21 752
经常听说的ASP上传漏洞，即是将一些木马文件修改后缀名（修改为图像文件后缀），进行上传。针对此情况使用下列函数进行辨别： ******************************************************************CheckFileType 函数用来检查文件是否为图片文件参数filename
Asp图片上传
Sakila
09-28 235
&lt;% Response.Buffer = True Server.ScriptTimeOut=9999999 On Error Resume Next %&gt; &lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml...
ScanFiles脚本
weixin_30496751的博客
07-26 293
Function ScanFolder(TF,WORD) Dim Fso,TFCount TFCount=0 Set Fso = CreateObject("Scripting.FileSystemObject") Set FDS = Fso.GetFolder(TF) For Each FD in FDS.subFoldersCall ScanFolder(FD,WORD)...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值