//中间略去

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

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

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

传上去再测试,错误提示"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+ ""

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

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

end if

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

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

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

response.write request("msg")

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

response.write "[ 重新上传 ]"

看上去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

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

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