|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。上传|上传图片|无组件|源代码<!--#includefile="upload_5xsoft.inc"-->
<%
Setconn=Server.CreateObject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("db.mdb")
conn.openconnstr
----------------------------------------
functiongetextendname(filename)
extname=lcase(filename)
extname=right(extname,3)
extname=right(extname,3-instr(extname,"."))
getextendname=extname
endfunction
---------------------------------------------------
-------------------------------------------------------
functionfilename()
filename=now()
filename=replace(filename,"-","")
filename=replace(filename,":","")
filename=replace(filename,"","")
filename=filename
endfunction
----------------------------------------------------------
-------------------------------------------------------------------
setupload=newupload_5xsoft
setupfile=upload.file("files")
title=upload.form("t1")
info=upload.form("t2")
ifupfile.filesize>0andupfile.filename""then
ifinstr("jpg,bmp,gif",getextendname(upfile.filename))>0then
ifupfile.filesize<204800then
fname=filename&"."&getextendname(upfile.filename)
upfile.saveasserver.mappath("pic/"&fname)
sql="insertintoimg(title,info,imgpath)values("+title+","+info+","+fname+")"
conn.Executesql
conn.close
response.write"<script>alert(增加图片乐成!);top.location.href=index.asp;</script>"
else
response.write"<scriptlanguage=javascript>alert(文件上传失利,巨细凌驾了200K!);history.back();</script>"
endif
else
response.write"<scriptlanguage=javascript>alert(文件上传失利,其不为图片格局!);history.back();</script>"
endif
endif
--------------------------------------------------------
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|