Question

asp图片调用地址出错

先把部分代码贴出来：几点说明，这是其中部分调用的源码，其他的地址都是正确的，就是图片的地址出错！图片是以miniature为调用图片的地址。
http://www.xxxxx.com/v/show.asp?id=235

但是，图片的调用地址却是：

http://www.xxxxx.com/v/v/图片.gif

就是多了一个v地址

需要说明的是，我的许多修改再模板，但是调用的图片，找了半天还是以下的方式进行的，比如，mininature！
主要是这个错误。。。。。。

If rsRdlated.EOF And rsRdlated.BOF Then
RelatedFlash = ""
Set rsRdlated = Nothing
Exit Function
Else
i = 0
Resize = 0
Do While Not rsRdlated.EOF
ReDim Preserve ArrayTemp(i + Resize)
strContent = ArrayTemp(i) & Newasp.HtmlSetting(4)
strtitle = rsRdlated("title")
strtitle = Newasp.GotTopic(strtitle, CInt(Newasp.HtmlSetting(2)))
strtitle = Newasp.ReadFontMode(strtitle, rsRdlated("ColorMode"), rsRdlated("FontMode"))
If CreateHtml <> 0 Then
HtmlFileUrl = Newasp.ReadDestination(Newasp.HtmlInfo, Newasp.ChannelDir, rsRdlated("HtmlFileDate"),rsRdlated("HtmlFileDir"),rsRdlated("ClassID"),rsRdlated("flashid"),1,"")
Else
HtmlFileUrl = "show.asp?id=" & rsRdlated("flashid")
End If
FlashUrl = HtmlFileUrl
title = "<a href=""" & FlashUrl & """" & LoadRemark(rsRdlated("title")) & " >" & strtitle & "</a>"
If Not IsNull(rsRdlated("miniature")) Then
strminiature = rsRdlated("miniature")
End If
miniatureUrl = Newasp.GetImageUrl(strminiature, Newasp.ChannelDir)
miniature = Newasp.GetFlashAndPic(miniatureUrl, CInt(Newasp.HtmlSetting(9)), CInt(Newasp.HtmlSetting(10)))
miniature = "<a href='" & FlashUrl & "' title='" & Rs("title") & "' >" & miniature & "</a>"
strContent = Replace(strContent, "{$Miniature}", miniature)
strContent = Replace(strContent, "{$FlashTopic}", title)
strContent = Replace(strContent, "{$AllHits}", rsRdlated("AllHits"))
strContent = Replace(strContent, "{$DateTime}", Newasp.ShowDateTime(rsRdlated("addTime"), CInt(Newasp.HtmlSetting(3))))
ArrayTemp(i) = strContent
rsRdlated.MoveNext
i = i + 1
Loop
End If
如果可以解决问题，可以再追加加20分。。。。。如果你只是凑凑热闹 那不好意思，即使关闭也不会加分。。。

QQ:zetao1220@qq.com

我知道 自己写错了 但是百度不能修改 郁闷了

Answer 1

HtmlFileDir
miniature
这两个字段,仔细查看一下,是不是路径重复了.
你给的是show.asp这个代码?
miniature你自己都写错了,你写的是mininature

Answer 2

不给高分谁给你看啊

Answer 3

HtmlFileUrl = Newasp.ReadDestination(Newasp.HtmlInfo, Newasp.ChannelDir, rsRdlated("HtmlFileDate"),rsRdlated("HtmlFileDir"),rsRdlated("ClassID"),rsRdlated("flashid"),1,"")

你看看你的这段代码吧。我刚才看了一下，你是用了个叫什么新云网站内容管理系统的东西，应该是你后台设置上传路径或显示路径时，搞错了。