• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    如何实现文件上传并自动归类功能?

    upload.asp
      form action=http://= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post>
      p>主题: input type=text name=subject>br>
         
    作者:input name=author type=text>br>
         
    发布时间: input name=date1 type=text>br>
         
    上载文件:input type=file name=filename>
         
    发往URL: input type=hidden name=TargetURL value=http://= Request.ServerVariables(SERVER_NAME)>/users/=Request.ServerVariables(LOGON_USER) > size=20>br>
      input type=submit value=确定> /p>
      /form>


    wdread.asp

    form enctype=multipart/formdata action=http://= Request.ServerVariables (SERVER_NAME) >/scripts/cpshost.dll?PUBLISH?wdwriter.asp method=post name=form1>
      上载文件:input type=file name=filename value==session(filename)>>
      input type=hidden name=TargetURL value=http://= Request.ServerVariables (SERVER_NAME) >/users/wdls >

      input type=button name=upload value=确定>
      /form>


      scripts language=VBScript>

    ' 在上载时应对表单域filename的值与upload.asp程序中的域值进行比较, 因为在upload.asp中输入的文件名在本程序中预置给表单域filename,一旦客户端重新输入新的文件名后提交确认,会使程序wdwriter.asp中写入数据库的文件名与实际上载的文件名不一样, 导致网页连接出错.此处进行判断,如果两者相等,则立即上载,否则取消操作.
      !--

    sub upload_onclick()

    set myform=window.document.form1

    tmp=myform.filename.value

        if strcomp(tmp,=session

     (filename)>)=0 then

    form1.submit

    else
         msgbox ,您输入的文件名有误,请重新输入!

    end if
     end sub
      -->
      /scripts>

    wdwriter.asp

    Set mydata = Server.CreateObject (ADODB.Connection) mydata.Open DSN=xczh;UID=sa;PWD=;

    ' 打开数据库.

    date1=session(date1)

     ' 取各表单域的值.取时间.
    subject=session(subject)

     ' 取文件主题.
    author=session(subject)

    ' 取作者.
    filename=session(filename)

    ' 取文件名.
      TargetURL= session(TargetURL)

    ' 取文件在服务器中存放的物理地址.

      sqlstr=insert into wdlsb values( sn , subject ', date1 ',filename ', TargetURL ', author ')

    ' 写数据库并保存.
      Mydata.Execute(sqlstr)
      %>

    [1]

    上一篇:如何上传一个单纯的HTML文件?
    下一篇:如何实现无组件上传二进制文件?
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    如何实现文件上传并自动归类功能? 如何,实现,文件,上传,并,