自由动力3.6版90个问答-4

第二步：打开article_show.asp article_show2.asp

查找<!-- ********网页中部代码开始******** -->

在其下加入一行“<title>历史风云网——<%=ArticleTitle%></title>”（将“历史风云网”换成您网站的名字）

打开soft_show.asp <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">

在其上插入一行<title>历史风云网——<%=SoftTitle%></title>（将“历史风云网”换成您网站的名字）

后台——网站模板管理 ——分页面模板(page_index) | 界面风格 ——<!-- ********网页中部代码开始******** -->

下加入一行<title>历史风云网，给您想看的历史！</title>

后台——网站模板管理 ——分页面模板(page_article_index) | 界面风格 ——<!-- ********网页中部代码开始******** -->

下加入一行<title>历史风云网文章首页</title>

其他地方如果发现没标题也是同样道理修改！

[52] 问:
我想让网友可以看到我的会员级别的收费文章内容的头10个字而不是上百的字..请问怎么修改呀? （7月1日21时）

inc/syscode_Article.asp查找 ErrMsg="<p align=left><b>内容预览：</b>" & left(nohtml(rs("Content")),300) & "……</p>" & ErrMsg将300换成您想要的数字！

[53] 问:
在文章浏览页面加个“编辑本文” （7月12日11时）

当您浏览正文时（前台）有时无意发现某篇文章有错误，怎么办？进入后台搜索那篇文章再修改是否麻烦了点，如果我们浏览时可以直接点击“编辑本文”即加入修改页面，不是省事些吗？其实修改起来也非常简单：article_show.asp article_show2.asp搜索| <a href="Article_Print.asp?ArticleID=<% =rs("ArticleID") %>">打印此文</a>将其替换成|<a href="Admin_ArticleModify.asp?ArticleID=<% =rs("ArticleID") %>">编辑此文</a>|看看正文下面是否多了个“编辑本文”？（发表评论 | 告诉好友 | 打印此文 | 后面），如果您以管理身份登陆，点击后可以直接加入修改本文页面，如果非管理点击后打开的是管理登陆界面，不会带来什么安全问题！

17.如何修改网页背景

18.如何去掉或修改底部大图

19.首页调用论坛新贴的问题

以下从http://djxx.sjedu.cn/djbbs/dispbbs.asp?boardid=26&star=1&replyid=780&id=438&skin=0&page=1整理

[54] 问:
论坛不能搜索的问题

网站模板管理-->分页面模板(page_index)-->界面风格-->template.html(0)-->
onClick="javascript:document.search.action=‘forum/queryResult.asp?sType=2&pSearch=1&SearchDate=ALL&Stable=bbs1&boardid=0‘;document.search.Field.value=‘Title‘;"style="background-color: #CEDEFA;"> 论坛
改为
onClick="javascript:document.search.action=‘bbs/query.asp?sType=2&pSearch=1&SearchDate=ALL&Stable=bbs1&boardid=0‘;document.search.Field.value=‘Title‘;"style="background-color: #CEDEFA;"> 论坛

[55] 问:
论坛频道添加网站频道添加-->管理-->交流论坛-->修改
把 链接地址 改为 "./bbs"

[56] 问:
论坛新贴显示修改

首先确认论坛首页调用文件已经修改好（具体见动网说明）
网站模板管理 -->分页面模板(page_index)-->界面风格-->template.html(0)
把其中的论坛调用代码修改为：
<script src=‘./bbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=10&sdate=&orders=4&info=3&action=1&reply=0&showpic=1‘></script>

[57] 问:
文章那个小图标的问题：

打开 article_index.asp
把
Dim TempStr
Dim ShowAnnounce_article_indexstr
TempStr = Replace(template.html(0),"{$width}",nt2003.mainsetting(0))
TempStr = Replace(TempStr,"{%ShowUserLogin}",ShowUserLogin())
TempStr = Replace(TempStr,"{$ShowElite}",ShowElite(8,24))  
TempStr = Replace(TempStr,"{$PicUrl}",nt2003.Site_PicUrl)      ‘ 把这一句移动到本节最后
TempStr = Replace(TempStr,"{$ShowPicArticle}",ShowPicArticle(0,1,12,1,1,100,75,200,false,false))
TempStr = Replace(TempStr,"{$ShowPicArticle2}",ShowPicArticle(0,4,18,1,4,120,90,200,false,false))
TempStr = Replace(TempStr,"{$ShowHot2}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowHot1}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowSiteCount}",ShowSiteCountAll)
TempStr = Replace(TempStr,"{%ShowSpecial}",ShowSpecial(10))
TempStr = Replace(TempStr,"{$ShowTopUser}",ShowTopUser(10))
TempStr = Replace(TempStr,"{$ShowClassNewarticle}",nt2003.showarticleshiyu())
TempStr = Replace(TempStr,"{$ShowClassNavigation}",ShowClassNavigation)
TempStr = Replace(TempStr,"{$ShowSearchForm}",ShowSearchForm("Article_search.asp",1))
调整为
Dim TempStr
Dim ShowAnnounce_article_indexstr
TempStr = Replace(template.html(0),"{$width}",nt2003.mainsetting(0))
TempStr = Replace(TempStr,"{%ShowUserLogin}",ShowUserLogin())
TempStr = Replace(TempStr,"{$ShowElite}",ShowElite(8,24))  
TempStr = Replace(TempStr,"{$ShowPicArticle}",ShowPicArticle(0,1,12,1,1,100,75,200,false,false))
TempStr = Replace(TempStr,"{$ShowPicArticle2}",ShowPicArticle(0,4,18,1,4,120,90,200,false,false))
TempStr = Replace(TempStr,"{$ShowHot2}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowHot1}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowSiteCount}",ShowSiteCountAll)
TempStr = Replace(TempStr,"{%ShowSpecial}",ShowSpecial(10))
TempStr = Replace(TempStr,"{$ShowTopUser}",ShowTopUser(10))
TempStr = Replace(TempStr,"{$ShowClassNewarticle}",nt2003.showarticleshiyu())
TempStr = Replace(TempStr,"{$ShowClassNavigation}",ShowClassNavigation)
TempStr = Replace(TempStr,"{$ShowSearchForm}",ShowSearchForm("Article_search.asp",1))
TempStr = Replace(TempStr,"{$PicUrl}",nt2003.Site_PicUrl)  ‘就是这一句，是从上面移动下来的

[58] 问:
首页顶部图象修改

CSS（51dsn03）修改
.nav_main
{
background-color: #2C92DC;
background-image: url(Skin/51dsn03/top_main01.jpg);
background-repeat: no-repeat;
height: 138px;
}
说明：我直接把自己的图片改名为top_main01.jpg，然后上传到/skin/51dsn03/下面，由于自己的图片高度为138，所以在这个地方修改为138。

[59] 问:
3。6的论坛新贴调用在哪啊！偶找了好久！没找到！说明里也没有！即使连接不是ASP153的论坛！可是仍然是这里的新贴！请调用到那里的高手们指教！

答:(haihui )

后台模板管理中，分页面模板(page_index)  ,界面风格，找找asp163.net

答二:(BoPo  2004-6-11 1:10:00)

关于首页调用动网论坛的修改-今天刚刚做好的
先到动网的官方网站，下载一个首页显示的文，按说明先安装到论坛上，会生成一个代码，<script>.....</script>.然后到后台的模版管理中巴page_index里的中间部分找到。有个一个<script scr=XXXX.com/topic.asp~~~~~>.....</script>把这段改称你的论坛地址就ok了。

[60] 问:
自由动力为什么新注册用户默认点数是100点？？
自由动力3.6为什么新注册用户默认点数是100点？在后台设置注册用户初始点数是0，可是没有变化。

答:( 一枝梅    2004-6-12 8:55:00)
打开论坛的reg.asp文件：
找到：rs("UserPoint")=100
把那个100改成你想要的数字！

[61] 问:
表格涨了不知如何处理,在最新调查之间表格涨了如何修改

答：（提交人：shiyu  2004-6-15 20:11:00）
1、style="word-break:break-all;Width:fixed"

2、style="word-break:break-all;">

在表格属性中加 上面其中的一个代码 看看

[62] 问:
一级分类菜单“首页”去除大法function.asp中
找到这个函数
Public Sub loadclasslist()
下数第四个value=
改成
value = value & "stm_ai(‘p0i0‘,[0,‘‘,‘‘,‘‘,-1,-1,0,‘‘,‘_self‘,‘‘,‘‘,‘‘,‘‘,0,0,0,‘‘,‘‘,0,0,0,0,1,‘#f1f2ee‘,1,‘#cccccc‘,1,‘‘,‘‘,3,3,0,0,‘#fffff7‘,‘#000000‘,‘#000000‘,‘#000000‘,‘9pt 宋体‘,‘9pt 宋体‘,0,0]);" & vbcrlf

这句话只是让第一个小|线不显示
然后下面那句
value = value & "stm_aix(‘p0i1‘,‘p0i0‘,[0,‘首 页‘,‘‘,‘‘,-1,-1,0,‘" & ChannelUrl & "‘,‘_self‘,‘" & ChannelUrl & "‘,‘‘,‘‘,‘‘,0,0,0,‘‘,‘‘,0,0,0,0,1,‘#f1f2ee‘,1,‘#cccccc‘,1,‘‘,‘‘,3,3,0,0,‘#fffff7‘,‘#ff0000‘,‘#000000‘,‘#cc0000‘,‘9pt 宋体‘,‘9pt 宋体‘]);" & vbcrlf
就是这句，去了
保存
后台需要保存修改

[63] 问:
如何在首页不显示下载更新时间的话
答：把index.asp中过程名为ShowNewSoft的
[<font color=#999999>" & strcol(5) & "</font>]
去了

[64] 问:
3.6图片滚动的方法
演示：http://hnkmmyc.com/web


首先保证有六张图片以上
然后就下面代码

<script>
var speed=10
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>


复制到模版管理中的page_index中
<td id="demo1">{$ShowNewPhoto}</td>
<td id="demo2"></td>
的后面

[65] 问:
新建了一个分页模板，如何调用！
答：nt2003.loadtemplates("分页模板名")

[66] 问:
整合版短信不能彻底删除的问题解决
错误现象：指定。。。参数

sms_main.asp

找到　case "删除垃圾"
改成　case "删除废件"

如果你的参数不对的话
在sms_main.asp
132行　select case request("action")
这句前面插入
response.write request("action")
然后去运行清空废件箱的过程，看看传过来的参数是什么，然后对照着改下面的语句就可以了

估计错误是：　165行　case "清空垃圾箱"
应该改成　case "清空废件箱"

[67] 问:
怎样修改首页“最新栏目文章”标题的字数、显示标题的条数？默认是6条，我要显示10条，怎么改？
打开index.asp文件，找到
TempStr = Replace(TempStr,"{$ShowNewArticle}",ShowNewArticle(8,40))
参数中的8代表显示文章的数目，40代表文章的标题字符数，改成你想要的就行了。

[68] 问:
文章中添加的附件，发布后无法下载

答：（提交人： wuwll   2004-6-17 11:19:00）
自力更生,修正文章中添加的附件，发布后无法下载的问题
将Upfile_Article.asp文件中
case else
strJS=strJS & "range.text=‘
点击浏览该文件‘;" & vbcrlf
end select
代码修改为:
case else
strJS=strJS & "range.pasteHTML(‘<A href="& FileName & ">点击浏览该文档</A>‘);" & vbcrlf
end select
即可!!

[69] 问:
论坛登陆代码
直接在主页登陆论坛的代码，只是提供一个参考。送给和我一样的菜鸟。（高手就别看了）


简单型的：
<table width=543 border=0 cellpadding=0 cellspacing=0>
<tr><td height=32 valign="middle">
<FORM action="http://www.dongwind.com/bbs/login.asp?action=chk"‘ target="_blank" >http://www.dongwind.com/bbs/login.asp?action=chk"; method="post">
<INPUT name=action style="FONT-SIZE: 12px" type=hidden value=login>
<font color=#BE5104><b>登录论坛>></b></font>
用户名：<INPUT maxLength=16 name="username" size=15 style="font-size: 12px; background-color: #C0C0C0">
密码：<INPUT maxLength=16 name="password" size=15 style="font-size: 12px; background-color: #C0C0C0" type=password>
<INPUT name=Submit style="FONT-SIZE: 12px" type=submit value=登　录>
</FORM>
</td></tr>
</table>
< p="">