linkadd.asp

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

<%@ codepage ="936" %>
<%
if instr(session("flag"),"61")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%>
<!--#include file="../../conn/dbconn2.asp" -->
<!--#include FILE="upload_5xsoft.inc"-->
<%
dim upload,file,formName,formPath,iCount,rs,tsql,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&"/" 
picurl=upload.form("picurl")
type1=upload.form("type1")
web=upload.form("web")
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
if file.filesize>300000 then
HtmEnd "您上传的文件大于规定大小(300K),请改变文件大小后再进行上传。"
else
if trim(right(file.FileName,3))<>"jpg" and trim(right(file.FileName,3))<>"gif"and trim(right(file.FileName,3))<>"swf" then
HtmEnd "您上传的文件GIF或JPG图象文件，请将你上传的文件转换此格式后再进行上传。"
else
FileName=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&FileName)
picurl=FileName
iCount=iCount+1
end if
end if
end if
set file=nothing
next
set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from banner",conn,3,2
rst.addnew
rst("picurl")=picurl
rst("web")=web
rst("type1")=type1
rst("deseriptor")=deseriptor
rst("bz")=bz
rst.update
rst.close
set upload=nothing
response.redirect "default.asp"
sub HtmEnd(Msg)
set upload=nothing
response.write "<br>"&Msg&" [<a href=""javascript:history.back();"">返回</a>]</body></html>"
response.end
end sub
%>