仓酷云

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

[学习教程] ASP网页设计保留远程图片函数修正正版

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

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

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

x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。函数趁明天有空,修改了一下这个函数,经测试,在当地服务器经由过程,在空间商服务器也可一般利用,没发明毛病。我的卡巴斯基不报毒了。^_^

只需修正一下,这个函数是放在哪一个网站都合用的。在此只与增加图片为例申明一下挪用办法,别的地位办法相似。

在我本机测试乐成,因为如今连不上空间的FTP,以是无办在空间上测试,发明成绩请到群中提出。

1、把上面函数放到Ft_admin_conn.asp的最初

==================================
=函数名:saveimgfile
=功能:保留远程图片
=参数申明:imgfileurl--远程图片地点
=修正日期:2006-4-1913:20
=程序凉风
=网站:http://www.4fnet.com.cn
==================================
functionsaveimgfile(imgfileurl)
dimimg_type,savepath,imgfiletype,flag,imgbody
savepath="../FUploadFile/"&year(now())&"-"&month(now())
flag=false
imgfiletype=right(imgfileurl,4)猎取远程图片的格局
img_type=".gif|.bmp|.jpg|.png"设置同意保留在当地的图片格局
typeArr=split(img_type,"|")
fori=0toubound(typeArr)-1
ifimgfiletype=typeArr(i)then
flag=true
exitfor
endif
next
ifflag=falsethen假如不是同意保留到当地的图片格局,则只毗连远程图片
saveimgfile=imgfileurl
else
setxml_http=server.createobject("microsoft.xmlhttp")
xml_http.open"get",imgfileurl,false
xml_http.send
imgbody=xml_http.responsebody
setxml_http=nothing
serverpath=server.mappath(savepath)
setfilefolder=server.createobject("scripting.filesystemobject")
iffilefolder.folderexists(serverpath)=falsethen
filefolder.createfolder(serverpath)
endif
randomize
savepath=savepath&"/"&year(now())&month(now())&day(now())&hour(now())&minute(now())&int(10*rnd)&imgfiletype
setadodbs=server.createobject("adodb.stream")
adodbs.open
adodbs.type=1
adodbs.writeimgbody
adodbs.savetofile(server.mappath(savepath))保留到当地
adodbs.seteos
setadodbs=nothing
iffilefolder.fileexists(server.mappath(savepath))=falsethen假如保留乐成,即前往远程地点,只作远程毗连,制止一些防盗连网站不克不及保留
saveimgfile=imgfileurl
else
savepath=replace(savepath,"../","")
saveimgfile=savepath
endif
setfilefolder=nothing
endif
endfunction

2、翻开admin/admin_pic.asp文件
1、找到:增加图片过程当中的 pic_pic=checksql("缩略图片地点",request.form("pic"),1,100) (也许在第368行)鄙人面拔出代码:

ifleft(pic_url,7)="http://"andrequest.form("save")="true"then
pic_url=saveimgfile(pic_url)
pic_pic=pic_url
endif
  再找到:<inputtype="submit"name="Submit"value="断定新增"> (也许在第481行)拔出以下代码:

   <inputtype="checkbox"name="save"value="true">同时保留远程图片

2、在编纂图片历程(editpic)中的不异中央增加响应的代码便可。

ok,竣工

但愿人人能举一前往,别的用到图片的中央也是一样的挪用办法。

接待到临本站:http://www.4fnet.com.cn因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。
活着的死人 该用户已被删除
沙发
发表于 2015-1-19 08:41:13 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
愤怒的大鸟 该用户已被删除
板凳
发表于 2015-1-28 05:48:45 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
飘飘悠悠 该用户已被删除
地板
发表于 2015-2-5 17:58:02 | 只看该作者
那么,ASP.Net有哪些改进呢?
因胸联盟 该用户已被删除
5#
发表于 2015-3-3 14:59:48 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
再见西城 该用户已被删除
6#
发表于 2015-3-11 11:52:33 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
谁可相欹 该用户已被删除
7#
发表于 2015-3-18 15:41:49 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
爱飞 该用户已被删除
8#
发表于 2015-3-26 11:38:50 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-24 00:24

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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