自由动力3.6版90个问答

[41] 问:
增加首页友情连接数目：

index.asp查找 friendlist= ShowFriendSite(1,10,1,1) & ShowFriendSite(2,10,1,3)注意第一个10为logo链接数目，第二个10为文字链接数目，分别改成您想要的数目即可！

[42] 问:
改变首页留言数目和字数：

index.asp查找 TempStr = Replace(TempStr,"{$showGuest}",showGuest(16,8))注意“16”为显示留言标题字数，“8” 为显示留言条数，分别改成您想要的数目即可！

[16] 问:
增加首页最新下载数目及去掉后面的时间

index.asp查找 sqlNew="select top 8 S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True order by S.SoftID desc"把 8 改成您想要的数字然后进入后台刷新缓存，就可以改变首页最新下载数目查找 strtemp = strtemp & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href='Soft_Show.asp?SoftID=" & strcol(0) & "' title='软件名称：" & strcol(1) & vbcrlf & "软件版本：" & strcol(2) & vbcrlf & "文件大小：" & strcol(11) & " K" & vbcrlf & "软件作者：" & strcol(3) & vbcrlf & "更新时间：" & strcol(5) & vbcrlf & "下载次数：今日:" & strcol(8) & " 本周:" & strcol(9) & " 本月:" & strcol(10) & " 总计:" & strcol(7) & "' target='_blank'>" & gotTopic(strcol(1) & " " & strcol(2),30) & "</td><td align=right>[<font color=#999999>" & strcol(5) & "</font>]</td></tr></table>"将<td align=right>[<font color=#999999>" & strcol(5) & "</font>]</td> 删去最新下载条目后的时间即可消失！

[43] 问:
去掉首页图片黄色边框：

后台，网站模板管理，CSS样式管理，查找“ .pic1”将其下面的 border: #ff9900 1px solid; 删除刷新缓存即可！

[44] 问:
我想改变首页最新文章一栏图片的大小,怎样改?

index.asp找到这一行：TempStr = Replace(TempStr,"{$ShowPicArticle1}",ShowPicArticle(0,1,20,1,1,120,90,200,false,false))注意，120是图片的宽，90是高，分别改成您想要的数字！

[45] 问:
如何改变最新栏目文章调用的条数和标题字数

inc/function.asp文件查找sql="select top 6 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"将6改成您想要的数字，然后进入点“修改生效”刷新缓存就可以改变调用最新文章的条数！查找在function.asp中找到strtemp = strtemp & ArticleContentshiyu(20,True,True,False,1,False,False)将20改成您想要的数字，然后进入点“修改生效”刷新缓存就可以改变最新文章标题的字数！

[46] 问:
修改用户控制面板

(6-23 20:46:33)把您网站会员经常要用到的功能放在“用户控制面板”是个不错的主意，如果会员的某个需要他找了半天都找不到，他就会放弃而去，或者骂人！我就经常接到网友不止一次留言“我论坛财富能不能转到前台来阅读文章下载软件啊？怎么转换啊？”——其实我们都知道我们的动力3.6已经有这个插件了，但网友找不到！于是我决定把“论坛金钱换网站点数”放到控制面板里，其步骤有两步：第一步：打开inc/function.asp 查找strLogin = strLogin & "<a href=""javascript:openScript('User_ControlPad.asp?Action=ArticleManage')"">文章管理</a>" & vbcrlf在其下加入一行strLogin = strLogin & "<a href=""javascript:openScript('User_ControlPad.asp?Action=Money2Point')"">论坛金钱换网站点数</a>" & vbcrlf第二步：打开User_ControlPad.asp 查找elseif Action="ModifyInfo" then response.write "User_ModifyInfo.asp"在其下插入一行elseif Action="Money2Point" then response.write "User_Money2Point.asp"体会一下本修改，您就可以对控制面板做其他更多随心所欲的修改了！

[47] 问:
“文章频道”下部“文章栏目导航”显示5个子栏目就换行。能不能改啊？

inc/ function.asp 搜索mod 5=0 改成 mod 你要的栏数 =0 最好是单数

[48] 问:
一个小问题的修改）(6月28日)

inc/syscode_soft.asp查找response.write "<a href='Soft_CommentShow.asp?SoftID=" & SoftID & "'>查看关于此文章的所有评论</a>"改“文章”为“软件”

[49] 问:
改“文章栏目导航”（文章频道首页下端）每行栏目数(6月28日)：

Article_Index.asp查找if i mod 6=0 then将数字6改成您想要的数字，注意实际每行显示的栏目数为您设置的数目减1

[50] 问:
修改文章最底级栏目的目录（即“××文章列表”）(6月28日)

A.修改标题字数 Article_Class2.asp 查找response.write ShowArticle(30) 将30换成您想要的数字B.去掉作者 syscode_Article.asp 查找 tmpdata=ArticleContent(TitleLen,True,True,True,2,True,True) 替换为 syscode_Article.asp 查找 tmpdata=ArticleContent(TitleLen,True,True,True,2,True,True)C.修改时间格式 默认的是“2004年6月26日” syscode_Article.asp 查找 tmpdata=ArticleContent(TitleLen,True,True,True,2,True,True) 共有3处，将其中的2分别都改成1，在后台点“修改生效”，可以使时间显示为“06-26”D.每页显示最多文章篇数 Article_Class2.ASP 查找 MaxPerPage=20 将20换成您想要的数字

[51] 问:
修改网页标题只显示“首页”的问题(6月28日)

第一步：后台网站模板管理——当前模板主模块(Main_Style) 界面风格——nt2003.mainhtml(1)

删掉<title>{$sitename} >> 首页</title>

第二步：打开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>

[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;TABLE-LAYOUT: fixed">

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

[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>

[70] 问:
把首页的论坛新帖和最新留言移到网站下面去

进入后台

分页面模板(page_index)
编辑该模块：语言包 新 | 图片 新 | 界面风格 新

电击页面风格

搜索 论坛新贴 最新留言

将其所属table标签 移动到


<tr>
<td class="tdbg_mainall"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60%" class="title_main2">论坛新贴</td>
<td width="1%"> </td>
<td width="39%" class="tdbg_main2">最新留言</td>
</tr>
<tr>
<td valign="top" class="tdbg_main"><script src='" target=_blank>http://bbs.asp163.net/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=8&sdate=1&orders=2&info=3&action=1&reply=0'></script></td>
<td> </td>
<td valign="top" class="tdbg_main">{$showGuest}</td>
</tr>
把这一段随便换到别的位置

然后修改 保存 点击修改生效

[71] 问:
修改最新留言的数目


首页的最新留言只显示5条，
而论坛是显示8条的，
不和谐！·

在index.asp中“TempStr = Replace(TempStr,"{$showGuest}",showGuest(18,8))”的8改为10即可！

原来还要去inc/function.asp里修改！

[72] 问:
怎样改变首页最新文章一栏显示图片的大小

打开 Index.asp ，找到 TempStr = Replace(TempStr,"{$ShowPicArticle1}",ShowPicArticle(0,2,20,1,1,120,90,200,false,false))，其中120为图片宽度，90为图片高度。把这两个数值修改成你需要的大小即可。

[73] 问:
page_index内部变量描述(首页一些最新的栏目调用）
内部变量描述：<li>{$width}：表格宽度变量；（主模块(Main_Style)基本设置） <li>{$ShowAnnounce}：公告信息变量；<li>{$ShowUserLogin}:用户登录窗口调用；<li>{$ShowPicArticle1}：最新文章图片调用；<li>{$ShowNewArticle1}：最新文章标题调用；<li>{$ShowNewSoft}：最新下载调用；<li>{$showGuest}：最新留言调用；<li>{$ShowNewarticle2}：最新栏目文章调用（分栏目调用）；<li>{$ShowNewPhoto}：最新图片调用；<li>{$ShowPicArticle2}：最新图片文章调用；<li>{$ShowVote}：最新调查调用；<li>{$ShowHot}：最新热点（热门）调用；<li>{$ShowSpecial}：专题栏目调用；<li>{$ShowSiteCountAll}：网站统计调用；<li>{$ShowTopUser}：用户排行调用；<li>{$ShowFriendSite}：友情链接调用；

[74] 问:
把760宽度改为1000的宽度

动力默认是760的宽度。如果要变成1024的可以参看如下方法：



修改模板的头部和尾部代码，把宽度调整为1000（比1024略小，避免出现横向滚动条）
对于各版面中部代码，修改如下：

<table width="1000" border="0">
<tr>
<td width="760"><div align="center">原来的中部代码，全部复制在这里</div></td>
<td><div align="center">新增加的内容，建议用dw编辑</div></td>
</tr>
</table>

新增加的内容如果需要分成若干行，可插入如下代码：
<tr><td>第一行内容</td></tr>
<tr><td>第二行内容</td></tr>

[75] 问:
文章栏目怎么才能成一排显示？

并排的两个表格变成一个表格，在function.asp里修改
查找：if iClassID mod 2=0 then
改成：if iClassID mod 1=0 then

注意：还得要进入后台点击“修改生效”后方可看到郊果！

[76] 问:
可以由浏览者自行调节文字大小


后台
main_style模板里在head前面加上

<script>
function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}
</script>

下面的我只能说概要了，因为我的测试站是全模板的
在article_show中，找到显示正文的<td ＞表格控制　加上id号
就是这样的
<td id="zoom">

在你需要的地方插入字体的　大　中　小控制就可以了
代码如下
<p align=right>调整字体: <b>【<a href="#" onclick="doZoom(18);return false;">大号</a>】</b><b>【<a href="#" onclick="doZoom(15);return false;">中号</a>】</b><b>【<a href="#" onclick="doZoom(12);return false;">小号</a>】</b> </p>

[78] 问:
3。6背景修改的方法

后台编辑CSS里面修改

BODY
{
FONT-SIZE: 9pt;background:url(Skin/xxxxx/bg.gif);
}

[79] 问:
网站注册自动返回文件下载及修改方法
好象很多朋友需要,这个改法也非常简单,但不会破坏网站和论坛的任何东西,不影响论坛升级,所以我也一直使用的这个方法.大家觉得可以就用,也帮顶一下.
本文件只适用动力3.6+动网7.0SP2


首先将bbs_reg.asp文件传到论坛根目录
这主要利用动网论坛模版化的功能,下面的动网后台的添加必须在你所使用的默认的默板里添加,当然你把你所有的模版都加上也可以,不影响论坛登陆,最好先备份论坛数据库.

第一步:

一\\\\\这是网站直接使用论坛的注册协议及注册页面的动力修改的地方

修改INC目录里的function.asp文件,找到<a href='User_Reg.asp'>用户注册</a>将User_Reg.asp改为bbs_reg.asp改过后为<a href='bbs_reg.asp'>用户注册</a>

二\\\\\\这是使用动力3.6注册协议修改动力的地方

修改User_Reg.asp文件:

找到<form action="<%=forum_dir%>/reg.asp?action=apply" method="post">修改为

<form action="<%=forum_dir%>/bbs_reg.asp?action=apply" method="post">


第二步:太长,就不复制了,自己下文件去看吧


http://mm.y00.net/bbs_reg.rar

自由动力3.6版88个问答

[80] 问:
给首页做个网站导航
参考文件syscode_Article.asp syscode_soft.asp syscode_Photo.asp里ShowClassNavigation（显示栏目导航），略加修改，做成首页的网站导航。


演示：http://www.shuxue123.com/xyz/

方法：1、在index.asp下面任一个end function后添加以下3个过程函数。
2、在index.asp中任一个TempStr = Replace．．．后插入下面代码：
TempStr = Replace(TempStr,"{$ShowArticleClassNavigation}",ShowArticleClassNavigation)
TempStr = Replace(TempStr,"{$ShowSoftClassNavigation}",ShowSoftClassNavigation)
TempStr = Replace(TempStr,"{$ShowPhotoClassNavigation}",ShowPhotoClassNavigation)
3、后台分页面模板(page_index) 适当位置，在某个<td></td>之间加入标签：
{$ShowArticleClassNavigation}{$ShowSoftClassNavigation}{$ShowPhotoClassNavigation}

说明：出现编译器错误的原因是代码中<br>被执行了，因而不能把代码贴上。

点击：http://www.shuxue123.com/xyz/abc.rar 下载下面3个函数代码。

'=================================================
'过程名：ShowArticleClassNavigation
'作 用：显示首页文章栏目导航
'参 数：无
'=================================================

'=================================================
'过程名：ShowSoftClassNavigation
'作 用：显示首页下载栏目导航
'参 数：无
'=================================================


'=================================================
'过程名：ShowPhotoClassNavigation
'作 用：显示首页图片栏目导航
'参 数：无
'=================================================
[81] 问:
彻底解决升级后留言板不能显示问题。

首先，把数据库后缀名改为mdb，例如：fp360609.asp改为fp360609.mdb，然后，用Access打开，在Guest下增加字段GuestTypeadmin，属性为最后四项为：否，是，有，是，就可以解决问题，不能修改文件syscode_guest.asp，否则，不能正确显示用户名字。

[82] 问:
最新文章、软件显示其所在栏目的方法
演示：http://www.shuxue123.com/xyz/


1、最新文章显示其所在栏目的方法
文件syscode_Article.asp里
'=================================================
'过程名：ShowNewArticle
'作 用：显示最新文章
'参 数：ArticleNum ----最多显示多少篇文章
' TitleLen ----标题最多字符数，一个汉字=两个英文字符
'=================================================
function ShowNewArticle(ArticleNum,TitleLen)
dim sqlNew,rsNew,strrow,strcol,i,tmpdata
nt2003.Name="NewArticle"
If nt2003.ObjIsEmpty() Then
sqlNew="select top 20 A.ArticleID,A.Title,A.Author,A.UpdateTime,A.Hits,A.ReadLevel,A.ClassID,L.LayoutFileName from article A inner join Layout L on L.LayoutID=A.LayoutID where A.Deleted=False and A.Passed=True order by A.articleid desc"
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"|||","@@@","")
end if
rsNew.close
set rsNew=nothing
end if
if TitleLen<0 or TitleLen>255 then TitleLen=50
if nt2003.value="" then
tmpdata = "<font color=#ff9900>·</font>没有任何文章"
else
strrow=Split(nt2003.value,"@@@")
dim loopnum
if ArticleNum<UBound(strrow) then
loopnum=ArticleNum-1
else
loopnum=UBound(strrow)-1
end if
for i = 0 to loopnum
strcol=Split(strrow(i),"|||")
if strcol(5)=>Userlevel then
tmpdata = tmpdata & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href='Article_Class.asp?ClassID="&strcol(6)&"'><font color=#4474A3>[" & conn.execute("select * from ArticleClass where ClassID = "& strcol(6))("ClassName") & "]</font></a><a href='" & strcol(7) & "?ArticleID=" & strcol(0) &"' title='文章标题：" & strcol(1) & vbcrlf & "文章作者：" & strcol(2) & vbcrlf & "更新时间：" & strcol(3) & vbcrlf & "点击次数：" & strcol(4) & "' target='_blank'>" & gotTopic(strcol(1),TitleLen) & "</a></td><td align=right>[<font color=#999999>"
if month(strcol(3))<10 then
tmpdata = tmpdata & "0"
end if
tmpdata = tmpdata & month(strcol(3)) & "-"
if day(strcol(3))<10 then
tmpdata = tmpdata & "0"
end if
tmpdata = tmpdata & day(strcol(3)) & "</font>]</td></tr></table>"
end if
next
end if
ShowNewArticle=tmpdata
end function

2、最新软件显示其所在栏目的方法
文件Index.asp里
'=================================================
'过程名：ShowNewSoft
'作 用：显示最新软件更新
'=================================================
function ShowNewSoft
dim sqlNew,rsNew,strrow,strcol,i,strtemp
nt2003.Name="NewSoft"
If nt2003.ObjIsEmpty() Then
sqlNew="select top 8 S.SoftID,S.ClassID,S.SoftName,S.SoftVersion,S.Author,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True order by S.SoftID desc"
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"|||","@@@","")
end if
rsNew.close
set rsNew=nothing
end if
if nt2003.value="" then
strtemp = "<font color=#ff9900>·</font>没有任何下载"
else
strrow=Split(nt2003.value,"@@@")
for i = 0 to UBound(strrow)-1
strcol=Split(strrow(i),"|||")
strtemp = strtemp & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href='soft_Class.asp?ClassID="&strcol(1)&"'><font color=#4474A3>[" & conn.execute("select * from softClass where ClassID = "& strcol(1))("ClassName") & "]</font></a><a href='Soft_Show.asp?SoftID=" & strcol(0) & "' title='软件名称：" & strcol(2) & vbcrlf & "软件版本：" & strcol(3) & vbcrlf & "文件大小：" & strcol(11) & " K" & vbcrlf & "软件作者：" & strcol(4) & vbcrlf & "更新时间：" & strcol(5) & vbcrlf & "下载次数：今日:" & strcol(8) & " 本周:" & strcol(9) & " 本月:" & strcol(10) & " 总计:" & strcol(7) & "' target='_blank'>" & gotTopic(strcol(2) & " " & strcol(3),30) & "</td><td align=right>["
if CDate(FormatDateTime(strcol(5),2))=date() then
strtemp = strtemp & "<font color=red>"
else
strtemp = strtemp & "<font color=#999999>"
end if
if month(strcol(5))<10 then
strtemp = strtemp & "0"
end if
strtemp = strtemp & month(strcol(5)) & "-"
if day(strcol(5))<10 then
strtemp = strtemp & "0"
end if
strtemp = strtemp & day(strcol(5)) & "</font>]</td></tr></table>"
next
end if
ShowNewSoft=strtemp
end function

点击修改生效

[83] 问:
如何不显示最新栏目文章标题后的时间
文件function.asp：


'*************************************************
'缓存文章栏目
'=================================================
'过程名：ArticleContentshiyu
'作 用：显示文章属性、标题、作者、更新日期、点击数等信息
'参 数：intTitleLen ----标题最多字符数，一个汉字=两个英文字符
' ShowProperty ----是否显示文章属性（固顶/推荐/普通），True为显示，False为不显示
' ShowIncludePic ---是否显示“[图文]”字样，True为显示，False为不显示
' ShowAuthor -------是否显示文章作者，True为显示，False为不显示
' ShowDateType -----显示更新日期的样式，0为不显示，1为只显示月日，2为显示年月日。
' ShowHits ---------是否显示文章点击数，True为显示，False为不显示
' ShowHot ----------是否显示热门文章标志，True为显示，False为不显示
'=================================================

strtemp = strtemp & ArticleContentshiyu(20,True,True,False,1,False,False)

[84] 问:
如何在css中定义链接的下划线为虚线
A:hover {
BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; COLOR: #ff6600; BORDER-BOTTOM: 1px dotted; BORDER-RIGHT-WIDTH: 1px; TEXT-DECORATION: none
}

[85] 问:
3.6 banner的宽度怎么改?

模板css样式里
.van_main
里的60改成你想要的数字就可以了

[86] 问:



[87] 问:
3.6版中如何将首页上时间格式改为"2004年8月5日 星期四"?

想将"2004年8月5日 17:24:06 星期四"改为"2004年8月5日 星期四",应该如何修改,请各位老大指点,谢谢!(3.6版)

(原来效果：2004年8月5日 17:24:06 星期四)
<script>setInterval("jnkc.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt (new Date().getDay());",1000);</script>

(你要的效果：2004年8月5日 星期四)
<script language="javascript" type="text/javascript">
var day="";
var month="";
var ampm="";
var ampmhour="";
var myweekday="";
var year="";
mydate=new Date();
myweekday=mydate.getDay();
mymonth=mydate.getMonth()+1;
myday= mydate.getDate();
myyear= mydate.getYear();
year=(myyear > 200) ? myyear : 1900 + myyear;
if(myweekday == 0)
weekday=" 星期日 ";
else if(myweekday == 1)
weekday=" 星期一 ";
else if(myweekday == 2)
weekday=" 星期二 ";
else if(myweekday == 3)
weekday=" 星期三 ";
else if(myweekday == 4)
weekday=" 星期四 ";
else if(myweekday == 5)
weekday=" 星期五 ";
else if(myweekday == 6)
weekday=" 星期六 ";
document.write(year+"年"+mymonth+"月"+myday+"日 "+weekday);
</script>

[88] 问:
如何滚动的公告板如何显示全文？
打开function.asp，找到
'过程名：Announcestr
'作 用：显示本站公告信息
do while not rsAnnounce.eof
　　response.Write "<a href='#'....
将..."'>" & rsAnnounce("title") & "</div>中的rsAnnounce("title")...改成& rsAnnounce("title") & ";"& rsAnnounce("Content") &

[89] 问:
给最新栏目文章下边每个栏目的标题加上背景（望置顶）

方法是： 打开INC目录下的function.asp 文件

找到 strtemp = strtemp & "<tr><td class='title_right'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>" 这一行

然后在这一行里添加图片路径：  

strtemp = strtemp & "<tr><td class='title_right'><table width='100%'  border='0' cellspacing='0' cellpadding='0' background='你的图片所在的目录/你的图片名字'>"

注意： background=的后边到红字结束也就是从=号后一直到>的前边 一定不能出现" 一定要是 '

这个是给菜鸟们说的 呵呵

演示地址：http://www.kuniu.net

感谢 lhb给我提醒~！！

我还要说的是 我以前在论坛上发问题贴 跟本就没人理我~！！！ 火大！！~

[90] 问:
[原创]动力系统验证码在WinXP SP2下不显示的解决方案
前几天在这里提出了装了Windows XP SP2 RC2 2149后，所有版本的动力、动易系统的验证码将不能显示的问题，也许是装SP2的人不多的缘故，一直没有高手能给出一个完美的解决方法，因此只能自己动手来想办法解决！
    
       不能显示动力验证码的原因，据ssite.org的管理员笨笨巫师推断：“效验码图片不能显示是因为其特殊的图片格式，sp2出于安全考虑禁止了他的显示。尚无解决办法。”

       不过在SP2下面，动网的验证码显示却没问题，因为动网的验证码采用的是BMP格式的图片，而不是动力所采用的被SP2屏蔽的XBM格式图片，所以就可以把动网的验证码文件稍做修改转到动力上来！

       论坛怎么不能上传附件？只能用我的空间了http://www.classic99.net/checkcode.rar
下载这个文件并放入相应目录！

虽然这可能在高手眼里是一个微不足道的小问题，但请不要嘲笑我这个对ASP一窍不通的大菜鸟对此所做的努力和如此般的小题大做发这个原创贴！

友情链接排成横排方法：
在index.asp中找到
friendlist= ShowFriendSite(1,10,1,1) & ShowFriendSite(2,10,1,3)
注意第一个10为logo链接数目，第二个10为文字链接数目，分别改成您想要的数目即可！
并将其改为你想要的排列数，如：
friendlist= ShowFriendSite(5,30,6,2) & ShowFriendSite(2,16,8,2)

在:分页面模板(page_index) 将原友情连接部分去掉，在最后加上
</table>
<table width="760"  border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#99CCFF" >
          <tr>
            <td align="center" class="tdbg_left"><div align="center">{$ShowFriendSite}
             </div></td>
          </tr>
        </table><!-- ********网页中部代码结束******** -->

___________________________________________________________________


一个服务器安装两个动力不能正确显示的问题
修改 inc\function.asp 文件中
  CacheName=Replace(Server.MapPath("\index.asp"),"index.asp","")
为
  CacheName=Replace(Server.MapPath("index.asp"),"index.asp","")


___________________________________________________________________

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 自由动力自由动力 3.6版3.6版 90个问答90个问答
相关日志: