如何修改文字广告《国内使用量最大的动网论坛》字样
查看inc/Dv_ClsOther.asp
找到XmlAds.documentElement.appendChild(XmlAds.createNode(1,"text","")).text=""
改成
XmlAds.documentElement.appendChild(XmlAds.createNode(1,"text","")).text=""

查看Dv_ClsMain.asp
找到Const Dvbbs_Server_Url = "http://server.dvbbs.net/"
改成Const Dvbbs_Server_Url = "http://你的论坛地址/"

以下代码另存为inc/DvDefaultTextAd.asp文件

原理：动网的文字广告地址是用iframe框架载入http://server.dvbbs.net/dvbbs/DvDefaultTextAd.asp这个页面的，我们要做的就是把这个页面地址改成自己的页面，这样，上面的广告也是自己的了。呵呵。。

更简单的修改办法是：
查看inc/Dv_ClsOther.asp
找到XmlAds.documentElement.appendChild(XmlAds.createNode(1,"text","")).text=""
改成
XmlAds.documentElement.appendChild(XmlAds.createNode(1,"text","")).text="网秀论坛-精彩无限！（呵呵，做个广告，你可以改成自己的广告词）"

=====================================================
另外的几种修改办法：

与这里的文字位广告有关的代码我找到三处：

1、DV_clsother.asp （大概在174～185行）

If IsSqlDataBase = 0 Then 
If IsObject(Application(Dvbbs.CacheName & "_TextAdservices")) Then
Set XmlAds=Application(Dvbbs.CacheName & "_TextAdservices").cloneNode(True)
Else
Set XmlAds=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion )
XmlAds.appendChild(XmlAds.createElement("xml"))
XmlAds.documentElement.appendChild(XmlAds.createNode(1,"text","")).text=""
End If
Else
Set XmlAds=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
XmlAds.appendChild(XmlAds.createElement("xml"))
End If
2、Loadservoces.asp文件，其中的 SendData() 过程就是读取远程广告文字。

3、Dv_ClsMain.asp文件中（大概在309～318行）

Dim xmlhttp
If IsSqlDataBase =0 Then
On Error Resume Next
Set xmlhttp = Server.CreateObject("msxml2.ServerXMLHTTP")
xmlhttp.setTimeouts 65000, 65000, 65000, 65000
xmlhttp.Open "POST",Get_ScriptNameUrl& "Loadservoces.asp",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send()
Set xmlhttp = Nothing
End If
要修改，可以把上面的第1部分DV_clsother.asp中的那段代码改成如下

Set XmlAds=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
XmlAds.appendChild(XmlAds.createElement("xml"))
还有一种更简单的改法，将DV_clsother.asp中这段代码

If IsSqlDataBase = 0 Then 
If IsObject(Application(Dvbbs.CacheName & "_TextAdservices")) Then
Set XmlAds=Application(Dvbbs.CacheName & "_TextAdservices").cloneNode(True)
Else
Set XmlAds=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion )
XmlAds.appendChild(XmlAds.createElement("xml"))
XmlAds.documentElement.appendChild(XmlAds.createNode(1,"text","")).text=""
End If
Else
Set XmlAds=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
XmlAds.appendChild(XmlAds.createElement("xml"))
End If

If IsSqlDataBase = 0 Then 这行改成If IsSqlDataBase = 1 Then

因为sql server数据库用户是没有这条广告代码的，这里是判断是否sql商业用户，改反过来就就不会有那条广告了，改完记得更新缓存。