Question

求助一段ASP代码修改,高手进/

'过程名：ReplaceRemoteUrl
'作 用：替换字符串中的远程文件为本地文件并保存远程文件
'参 数：Content ------ 要替换的字符串
'================================================== function ReplaceRemoteUrl(Content)
if IsObjInstalled("Microsoft.XMLHTTP")=False then
ReplaceRemoteUrl=Content
exit function
end if
dim re,RemoteFile,RemoteFileurl,SaveFilePath,SaveFileName,SaveFileType,arrSaveFileName,ranNum
SaveFilePath = "../UploadFiles/" '文件保存的本地路径
if right(SaveFilePath,1)<>"/" then SaveFilePath=""&SaveFilePath&"/"
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\){1}((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(\S*\/)((\S)+[.]{1}(gif|jpg|png|bmp)))"
Set RemoteFile = re.Execute(Content)
For Each RemoteFileurl in RemoteFile
arrSaveFileName = split(RemoteFileurl,".")
SaveFileType=arrSaveFileName(ubound(arrSaveFileName))
ranNum=int(900*rnd)+100
SaveFileName = ""&SaveFilePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&SaveFileType
call SaveRemoteFile(SaveFileName,RemoteFileurl)
Content=Replace(Content,RemoteFileurl,"/../UploadFiles/"&SaveFileName)
if UploadFiles="" then
UploadFiles=SaveFileName
else
UploadFiles=UploadFiles & "|" & SaveFileName
end if
Next
ReplaceRemoteUrl=Content
end function

就是我现在要定义个全局变量
比如defaultpicurl.然后让这个全局变量获得上面代码
Content=Replace(Content,RemoteFileurl,"/../UploadFiles/"&SaveFileName)
里面的"/../UploadFiles/"&SaveFileName 数据

然后写入到数据库 求解该如何写?
如何写到数据库我已经会了 就想如何让default的值被获得

Answer 1

直接call updateData("/../UploadFiles/"&SaveFileName)
然后写一个这样的过程，保存这个数据就是了

追问

能具体点吗 不是很会

追答

不知道我实现的方式是不是你想要的
就是在保存图片之后
call SaveRemoteFile(SaveFileName,RemoteFileurl)
加上
call updateData("/../UploadFiles/"&SaveFileName)

然后在文件中定义一个过程
function updateData(byval picAdd as String)
'写入，更新之类的代码
end function

追问

我就是想要那个地址 然后把这个地址塞进数据库里

追答

还不明白？

追问

不行 - -加上去没用呢

追答

我晕。更新写入代码你自己写

追问

Microsoft VBScript 编译器错误 错误 '800a03ee'

缺少 ')'

/admin/ProductSave.asp，行 171

function updateData(byval picAdd as String)

追答

晕，你函数写在哪里
要不你直接写
function updateData(picAdd)算了