中羽在线社区 » 社区事务区 » 能否提供现在所使用的论坛下载！

蓝色沸点 发表于 2003-11-21 21:37

能否提供现在所使用的论坛下载！

装有随机广告和下拉菜单的或者你提供文件给我们覆盖行吗！

野人 发表于 2003-11-21 21:51

这个安装都很简单的~广告插件你可以去飘萍网站下载

http://61.145.199.2:81/dv/poopin/down_list.asp?id=39

这个是下拉菜单：

http://bbs.dvbbs.net/dispbbs.asp?boardID=13&ID=473975

蓝色沸点 发表于 2003-11-22 23:01

Microsoft VBScript 运行时错误 错误 '800a01f4'

变量未定义: 'dvbbs'

/bbs/advshow.asp，行17

安装贴间广告出现如下错误请问能否提供贵站dispbbs.asp

野人 发表于 2003-11-22 23:07

[quote][b]以下是引用[i]蓝色沸点在2003-11-22 23:01:16[/i]的发言：[/b]
Microsoft VBScript 运行时错误 错误 '800a01f4'

变量未定义: 'dvbbs'

/bbs/advshow.asp，行17

安装贴间广告出现如下错误请问能否提供贵站dispbbs.asp
[/quote]

你的论坛是6.0的吧~修改修改advconn.asp文件中的论坛版本（变量“dvbbsver”，dvbbsver=60）就可以了~注意看说明文件~

蓝色沸点 发表于 2003-11-22 23:18

能给出你的相应这段代码吗？
'飘萍帖间广告
                call advshow()
                response.write"</td><td align=right nowrap valign=bottom width='1%'>"
'飘萍帖间广告结束
        if founduser then
                if Cint(GroupSetting(10))=1 or Cint(GroupSetting(23))=1 then
                        response.write "<a href=editannounce.asp?BoardID="&BoardID&"&replyID="&rs(0)&"&id="&AnnounceID&"&star="&star&"><img src="&Forum_info(7)&Forum_TopicPic(16)&" border=0 alt=编辑这个贴子 align=absmiddle></a>"
                end if
        end if


        response.write "</td><td align=right nowarp valign=bottom width=200>"
        if Cint(GroupSetting(11))=1 or Cint(GroupSetting(18))=1 then
                if rs("isbest")=0 then
                        besttitle="精华"
                else
                        bestTitle="解除精华"
                end if
                if not istopic then
                        response.write "<a href=""admin_postings.asp?action=删除跟帖&BoardID="&BoardID&"&ID="&AnnounceID&"&replyID="&rs(0)&"&userid="&postuserid&""" title=注意：本操作将删除单个贴子><img src="&Forum_info(7)&Forum_TopicPic(17)&" border=0></a>&nbsp;"
                end if
        response.write "<a href=""admin_postings.asp?action=复制&BoardID="&BoardID&"&ID="&AnnounceID&"&replyID="&rs(0)&""" title=""复制单个贴子到别的版面""><img src="""&Forum_info(7)&Forum_TopicPic(18)&""" border=0></a>&nbsp;"
        response.write "<a href=""admin_postings.asp?action="&bestTitle&"&BoardID="&BoardID&"&ID="&AnnounceID&"&replyID="&rs(0)&""" title="""&bestTitle&"""><img src="""&Forum_info(7)&Forum_TopicPic(19)&""" border=0></a>"
        end if
        response.write "</td>"
        response.write "<td align=right valign=bottom width=4> </td>"
        response.write "</tr></table>"
        response.write "</td></tr></table>"

野人 发表于 2003-11-22 23:26

'飘萍帖间广告
                call advshow()
response.write"</td><td align=right nowrap valign=bottom width='1%'>"
'飘萍帖间广告结束

        if founduser then
                if Cint(GroupSetting(10))=1 or Cint(GroupSetting(23))=1 then
                        response.write "<a href=editannounce.asp?BoardID="&BoardID&"&replyID="&rs(0)&"&id="&AnnounceID&"&star="&star&"><img src="&Forum_info(7)&Forum_TopicPic(16)&" border=0 alt=编辑这个贴子></a>&nbsp;"
                end if
        end if
        'response.write "</td><td align=right nowarp valign=bottom width=200>"
        if Cint(GroupSetting(11))=1 or Cint(GroupSetting(18))=1 then
                if rs("isbest")=0 then
                        besttitle="精华"
                else
                        bestTitle="解除精华"
                end if
                if not istopic then
                        response.write "<a href=""admin_postings.asp?action=删除跟帖&BoardID="&BoardID&"&ID="&AnnounceID&"&replyID="&rs(0)&"&userid="&postuserid&""" title=注意：本操作将删除单个贴子><img src="&Forum_info(7)&Forum_TopicPic(17)&" border=0></a>&nbsp;"
                end if
        response.write "<a href=""admin_postings.asp?action=复制&BoardID="&BoardID&"&ID="&AnnounceID&"&replyID="&rs(0)&""" title=""复制单个贴子到别的版面""><img src="""&Forum_info(7)&Forum_TopicPic(18)&""" border=0></a>&nbsp;"
        response.write "<a href=""admin_postings.asp?action="&bestTitle&"&BoardID="&BoardID&"&ID="&AnnounceID&"&replyID="&rs(0)&""" title="""&bestTitle&"""><img src="""&Forum_info(7)&Forum_TopicPic(19)&""" border=0 ></a>"
        end if
        response.write "</td>"
        response.write "<td align=right valign=bottom width=4> </td>"
        response.write "</tr></table>"
        response.write "</td></tr></table>"

蓝色沸点 发表于 2003-11-22 23:34

谢谢，解决了编辑图片按钮错位的问题！

查看完整版本: 能否提供现在所使用的论坛下载！