'########################################################################################################################################################################################################################################################################################################## ################ Code createby guofeng ################# r r e p p = -10000 Server . Scripttimeout = 300Set theform = server.createObject ("abcupload4.xform") Theform.OverWrite = Truetheform.codepage = "936" theform.maxuploadsize = 8000000
DIM GGTYPE, URLGGTYPE = Theform ("GGTYPE") '' acquired advertising position URL = Theform ("URL") 'response.write ggTYPE'RESPONSE.END ()
Set thefield = Theform ("UPLOADFILE") (1) if thefield.fileexists the vfname = GGTYPE 'F = getExtendName (thefield.FileName) UpFilePath = ("./../ guanggao /")' Upload catalog
DIM AA, MSG MSG = Thefield.FileName AA = getExtendName (thefield.FileName) if AA = "gif" or aa = "=" & aa will = vfname "." & aa theform.absolutepath = true "Judging whether you need to use Server .Mappath to save the file path, need to use theform.save "PDF /" & FNAME Thefield.Save Server.mappath (UpfilePath & Fname) 'thefield.save the theft.FileName DIM SQL = "Insert.SFILENAME DIM SQL =" Insert.SAME into T_guanggao (ggtype, filetype, filename, pathname) values ( ' "& ggtype &"', ' "& aa &"', ' "& Msg &"', ' "& UpFilePath & fname &"') "else sql =" insert into T_guanggao (ggtype, filetype, Filename, Pathname, URL) Values ('"& ggTYPE &",' "& aa &", '"& updilepath & fname",' "& url &") "End if Conn.execute (SQL) Response.write "
