仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 455|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网站制作之ASP无组件上传图片的源代码

[复制链接]
若天明 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:13:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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应用方案。
简单生活 该用户已被删除
沙发
发表于 2015-1-18 23:18:47 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
冷月葬花魂 该用户已被删除
板凳
发表于 2015-1-27 16:14:15 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
老尸 该用户已被删除
地板
发表于 2015-2-5 12:08:36 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
乐观 该用户已被删除
5#
发表于 2015-2-11 18:10:02 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
admin 该用户已被删除
6#
发表于 2015-3-2 17:54:03 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
透明 该用户已被删除
7#
发表于 2015-3-11 05:01:15 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
金色的骷髅 该用户已被删除
8#
发表于 2015-3-17 21:08:32 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
愤怒的大鸟 该用户已被删除
9#
发表于 2015-3-25 02:57:34 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-9 04:57

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表