editlink.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<!--#include FILE="upload_5xsoft.inc"-->
<%
dim upload,file,formName,formPath,iCount,rs,sql,rst,web,bz,type1,deseriptor,picurl
set upload=new upload_5xSoft
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","") 
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
formPath=upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/" 
linkid=upload.form("linkid")
web=upload.form("web")
type1=upload.form("type1")
deseriptor=upload.form("deseriptor")
bz=upload.form("bz")
iCount=0
for each formName in upload.file
set file=upload.file(formName)
if file.FileSize>0 then
FileName=gsid&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&FileName)
picurl=FileName
iCount=iCount+1
end if
set file=nothing
next
set rs=server.createobject("adodb.recordset")
sql="select * from banner where linkid="&linkid
rs.open sql,conn,1,3
rs("web")=web
if picurl<>"" then
rs("picurl")=picurl
end if
rs("type1")=type1
rs("deseriptor")=deseriptor
rs("bz")=bz
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
set upload=nothing 
response.redirect "default.asp"%>