怎么发图,可以回复就变?

需要一个asp空间，网上很多免费的,找不到的找我哦~~ 以下是程序代码,

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Function AllPath()
Dim Domain,GFilePath
Domain = Request.ServerVariables("SERVER_NAME")
GFilePath = Request.ServerVariables("PATH_INFO")
GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
AllPath = "http://xxx.com/myfile/angie/" //唯一需要修改的地方，你的图片目录如果是在http://xxxx/myfile/angie/pic，这里就写http://xxx.com/myfile/angie/
End Function

Function ShowFileList(folderspec)
Dim Path,objFSO,objFolder,count,objFile,nume,S
Path = Server.MapPath(folderspec)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<