save.asp

来自「jsp数字点卡在线销售系统谁都可以下载」· ASP 代码 · 共 35 行

<!--#include file ="check.asp"-->
<!--#include file="incupload.asp"-->
<%
ntype=Onez.CheckStr(Trim(Request("ntype")))
If ntype="uppic" Then
    Call uppic2
Else
    Onez.SaveDate Onez.CheckStr(Trim(Request("ntype")))
End If
Function uppic2()
    dim upload,upfile
    Set upload=New upload_5xsoft
    filename=upload.form("filename")
    turl=upload.form("turl")
    dim ofso
    Set ofso=Server.CreateObject("scripting.filesystemobject")
    i=0
    For Each Formname In upload.objfile
        i=i+1
        Set file=upload.objfile(formname)
        upfilename=file.filename
        filetype=Right(upfilename,3)
        If filetype<>"gif" And filetype<>"jpg" And filetype<>"bmp" Then _
		Onez.ero"上传图片格式不正确",1
        If sdy="1" Then upfilename=cstrs(upfilename)
        file.saveas server.mappath("../images/pic/"&upfilename)
        Set file=Nothing
    Next
    Set ofso=Nothing
    Set upfile=Nothing
    Set upload=Nothing
    Onez.suc "上传成功",turl
End Function
Set Onez = Nothing
If err<>0 Then ckerr(err)%>