分享
 
 
 

ASP跨服务器上传文件完美解决

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

如果你有两个空间,一个大而慢,另外一个小而快,或者其中一个不支持FSO,那么跨服务器上传文件这个问题就摆在你面前了,下面就是我在解决ylog.net里面的跨服务器上传文件的日记,这个问题看似简单,里面的细节问题却是非常有趣

前提条件,空间都必须支持ASP,上传文件的服务器支持FSO,下面的叙述中,diygame.com为存上传文件的服务器,ylog.net为网站服务器,即显示用户界面的服务器...

实现功能,文件上传,上传后在网页的文本区域自动加上对于图片的UBB码,为了清楚,下面列出所有用到的文件

服务器 文件名 用途

diygame.com blog_upfile.asp 接收上传文件用

ylog.net blog_add.asp 添加BLOG,上传文件功能在此出现

ylog.net blog_upload.asp 上传文件表单,以iframe的形式嵌在blog_add.asp里

ylog.net blog_upresult.asp 显示上传结果,作善后工作

ylog.net blog_upcheck.asp 验证用户名与密码

在发布BLOG页面Blog_add.asp增加一个iFrame,调用blog_upload.asp进行上传操作

<iframe border="0" frameBorder="0" frameSpacing="0" height="25" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="blog_upload.asp"></iframe>

如果你玩过ASP,自然不费吹灰之力想到,文件要传到另外一个服务器上,只要把blog_upload.asp里的上传Form的action页面指向目标服务器就行了,

<form name="form" method="post" action="http://www.diygame.com/blog_UPFILE.ASP"

//中间略去

//提交时把发布BLOG的按纽disable先,以免没传完就时用户把BLOG发表了

<input type="submit" class=button name="Submit" value=" 上 传 " onclick="parent.document.frmAnnounce.Submit.disabled=true">

测试一下,文件上传成功,那自动加UBB代码呢...

http://www.diygame.com/blog_UPFILE.ASP 里加一句js脚本

<script>parent.frmAnnounce.Content.value+=''</script>传上去再测试,错误提示"blog_UPFILE.ASP 权限不够",既然diygame.com的文件权限不够,ylog.net总可以吧,当blog_upfile.asp操作完成时,再调用一个本服务器的ASP文件,于是blog_upresult.asp出现了,他负责善后

修改blog_upfile.asp,我用C++的习惯,注释用//符

servername="www.ylog.net" //标志服务器名

//检查来源,是否为自己指定的服务器,

if not instr(1,Request.ServerVariables("http_Referer"),servername,1)=8 then

response.write "非法来源~!"

response.end

end if

//检查文件大小,类型,等,这些代码略去,网上很多关于FSO组件的介绍

...

//上传代码,略去

....

//成功后转向的URL,就是执行上传操作的地址,把信息当作msg传过去

url="http://"&servername&"/blog_upresult.asp?msg="

if 上传成功 then//把脚本传过去,因为JS中的+号不能被传递.因此使用server.urlencode函数,此脚本在ylog.net上才有权限运行

url=url+ "<script>parent.frmAnnounce.Content.value"&server.urlencode("+")&"=''</script>"

//把文件名也传送过去,以便存数据库备查

response.redirect url+"上传成功&filename="&FileName

end if

下面就是blog_upresult.asp上的代码了,很简单

//传成功了,自然要把已经diable的提交BLOG按纽恢复

<script>

parent.frmAnnounce.Submit.disabled=false;

</script>

//还有就是把传过来的信息显示出来

response.write request("msg")

//如果request("filename")<>"" 写入数据库代码省略

response.write "[ <a href=# onclick=history.go(-1)>重新上传</a> ]"

看上去perfect了,但如人家得到了你的源码的话,轻而易举把你的上传服务器当成网络硬盘用....

只要把hosts文件里的中一句 127.0.0.1 www.ylog.net

然后相应写一个提交文件用的blog_upload.asp就行了,

头疼ing,代码是不能允许有半点安全漏洞的,验证的域名能被欺骗,

那就验证上传者的用户名与密码,diygame.com怎么去ylog.net的数据库上去查询用户名与密码是否正确呢

这就少不了xmlhttp

先在ylog.net上做一个blog_upcheck.asp,内容非常简单,对传的用户名与密码验证,成功则输出1,失败则输出0

<%

name=request("name")

psw=request("psw")

checkstr(name)//滤掉SQL字符

checkstr(psw))//滤掉SQL字符

if 从数据库检查用户名=成功 then

response.write 0

else

response.write 1

end if

%>

blog_upfile.asp接受上传之前先调用此文件验证.下面为代码,虽然也是使用域名www.ylog.net但此操作在diygame.com的服务器上执行,所以与使用者本地的hosts文件无关

<%

str=getHTTPPage("http://"&servername&"/blog_upcheck.asp?name="&name&"&psw="&password)

if str<>"1" then

response.write "非法用户~!"

response.end

end if

//两个操作函数。非常有用,可以用到别的地方

Function getHTTPPage(URL)

Set HTTPReq = Server.createobject("Microsoft.XMLHTTP")

HTTPReq.Open "GET", URL, False

HTTPReq.send

If HTTPReq.readyState <> 4 Then Exit Function

getHTTPPage = bytes2BSTR(HTTPReq.responseBody)

Set HTTPReq = Nothing

End Function

Function bytes2BSTR(vIn)

Dim strReturn

Dim I, ThisCharCode, NextCharCode

strReturn = ""

For I = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn, I, 1))

If ThisCharCode < &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn, I + 1, 1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

I = I + 1

End If

Next

bytes2BSTR = strReturn

End Function

%>

做到这个地方,终于可以松口气了,写的很乱,希望能勉强看懂。。。

如果你有更好的方法或者有什么看不懂的地方,欢迎来我的BLOG交流,网址在上面已经出现过很多遍

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有