为什么SQL版在安装完成后运行时会出现“Microsoft OLE DB Provider for SQL Server (0x80040E09) 拒绝了对对象 \'PE_Config\'(数据库 \'***\',所有者 \'***\')的SELECT权限。/Update/conn.asp,第 69 行”的错误?
错误提示: Microsoft OLE DB Provider for SQL Server (0x80040E09) 拒绝了对对象 \'PE_Config\'(数据库 \'***\',所有者 \'***\')的SELECT权限。 /Update/conn.asp,第 69 行
错误原因:数据库角色中没有勾选设置db_owner角色 解决方法:在新建sql数据库的登录时,数据库要设两个角色:public(默认)角色和db_owner。打开SQL Server企业管理器,依次点击〔安全性〕-〔登录〕,选中您设置的用户,右键-属性-数据库访问,选择您设置的数据库名,勾选db_owner角色
============================================问:文章固顶在频道的首页、栏目页面均固顶成功,而在网站首页的固顶没有用啊? :网站首页模板,{$GetArticleList(****)}标签有个参数OrdeyType的参数。这个参数设为1就可以了。 ============================================问:整合Dvbbs7.0时出现下面的错误? Microsoft JET Database Engine 错误 \'80040e37\' Microsoft Jet 数据库引擎找不到输入表或查询 \'PE_User\'。 确定它是否存在,以及它的名称的拼写是否正确。 /Index.asp,行15
:改這一步: const UserTableType = "Dvbbs6.0" \' "Dvbbs6.0" --- 整合动网论坛6.0 \' "Dvbbs7.0" --- 整合动网论坛7.0 \' "MyPower" --- 不整合论坛
============================================问:禁用了一些频道后,首页上方显示“---此频道已经被管理员禁用! 此频道已经被管理员禁用!”的字,应该如何解决? :禁用了一些频道后,还需要修改首页模板,把有关禁用频道内容的调用去掉。 ============================================问:为什么的网站后台统计不正确?如何在前台显示动易系统的统计? :网站后台统计不正确或不统计,是要在需要统计的页面加入统计代码。 请在【后台管理】的【系统设置】里的【首页模板管理】里你想要显示的适当位置加入下面的代码: 无显示: <script src="count/CounterLink.asp?style=none"></script> 简单显示: <script src="count/CounterLink.asp?style=simple"></script> 全部显示: <script src="count/CounterLink.asp?style=all"></script> ============================================问:如何在自己制作的asp格式首页中显示友情链接? :插入以下代码:<%=ShowFriendSite(2,10,1,3)%> ============================================问:怎样屏蔽文章复制功能? :文章内容页模板里<body leftmargin=0 topmargin=0 {$ArticleProtect}> ,加上{$ArticleProtect} 标签。
============================================
问:我不想让用户有上传软件的权限!只想让用户上传文章和图片,而不想让注册用户有上传软件的权限,我已经将下载栏目中的---本频道默认的添加内容的用户级别:设定为管理员,但是用户登录后为什么还是可以上传软件? :修改admin目录下的相应Upload_×××.asp 将其中的判断 if EnableUploadFile=True and (AdminName<>"" or UserName<>"") then 改为if EnableUploadFile=True and AdminName<>"" then 或者添加你自已的判断 比如UserLevel<99 等 就可以对用户上传进行限制
============================================
问:评论怎样不经过审核直接发表? :Comment.asp文件 中的SaveComment()函数: rsComment("WriteTime")=now()rsComment("Passed")=False rsComment.updateFalse 改成True 就可以了 另外:call WriteSuccessMsg("发表评论成功!请等候管理员的审核!审核后才会显示") 改成call WriteSuccessMsg("发表评论成功!")
============================================
问:发表评论页的模板在哪里修改? :评论页都是ASP页面。每个频道目录下的commen.asp就是评论页文件。
============================================
问:相关新闻的标签是:{$CorrelativeArticle},我想要它所对应的新闻显示个数和字数在什么地方修改? :将原来的{$CorrelativeArticle}标签替换成下面的标签:{$GetCorrelative(10,30)},10,30是新闻显示个数和字数。
-- 作者:wuzx -- 发布时间:2004-9-13 下午 01:59:24 --
整合论坛 (1) 整合论坛的目的是让两套系统共用一个用户数据库,实现登录一次,在动易及动网都通行。动易整合动网,采用了用动网的用户数据库来管理动易的用户群的方式,用户一次注册就成为两套系统的用户。 (2) 将动网安装成功(详细的安装方法,访问动网论坛 ),能正常访问。如安装到动易的/bbs目录下,或者动易和动网论坛都作为网站一个子目录(不能是虚拟目录),平级放在网站根目录中。 (3) 升级动网论坛的数据库,详细操作步骤请看下载包中“动网论坛整合程序”目录中,“动网论坛数据库升级程序”目录中的“操作说明.txt”文件,对论坛数据库进行升级。 (4) 打开“动网论坛整合程序”目录下和你的论坛版本对应的目录下的Reg.asp,在这里你可以按照说明设置你的站点用户注册的一些默认选项;然后把该目录下所有文件传到论坛的目录下,覆盖论坛原来的文件; * 如果你没有对要覆盖的动网文件做过修改,可以直接覆盖,如果你修改过动网的有关文件,建议自行对照修改相关的文件。 (5) 修改动易安装目录下的 Conn_User.asp 文件,设置你整合的论坛版本、论坛的安装路径,并设置好论坛的数据库路径(ACCESS版)或有关SQL连接参数,保存此文件。具体参数如下: const UserDatabaseType="ACCESS " \'用户数据库类型,"SQL"为MS SQL2000数据库,"ACCESS"为MS ACCESS 2000数据库 const UserTableType = "MyPower " \' "Dvbbs6.0" --- 整合动网论坛6.0 \' "Dvbbs7.0" --- 整合动网论坛7.0 \' "MyPower" --- 不整合论坛 const Forum_dir="bbs/ " \'论坛所在目录,请使用相对路径 \'如果是ACCESS数据库,请认真修改好下面的数据库的文件名。如果整合论坛,则此处应该为论坛的数据库文件名。 db_User="\\database\\PowerEasy4.mdb " \'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径 \'如果是安装在网站根目录,直接修改文件名即可。如果是安装在网站某一目录下,则在前面加上此目录,例如,系统安装在“http://www.asp163.net/PE4/”目录下(PE4为安装目录),则这里应该修改为:db= "\\PE4\\database\\PowerEasy4.mdb" \'如果是SQL数据库,请认真修改好以下数据库选项。如果整合论坛,则此处应该为论坛的数据库选项。 SqlUsername_User = "PowerEasy " \'SQL数据库用户名 SqlPassword_User = "PowerEasy*9988 " \'SQL数据库用户密码 SqlDatabaseName_User = "PowerEasy40 " \'SQL数据库名 SqlHostIP_User = "127.0.0.1 " \'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP) (6) 检测整合效果, 看是否可以实现登录一次,在动易及动网都通行。在任何一方退出登录,都可以同时退出。 * 如果整合的是动网论坛7.0版,请关闭论坛登录验证码功能。
如何调出新加频道的文章 (1) 在修改模板时如何知道我要的频道的ID和栏目的ID是什么? (2) 后台管理----系统设置——网站模板管理——网站首页模板——修改模板 (3) 找到要修改的代码: <!--新加频道最新文章代码开始--> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td Class="main_title_575"><b>新加频道一最新文章 </b></td> </tr> <tr> <td valign="top" Class="main_tdbg_575"><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="28%" height="100" align="center" valign="middle">{$GetPicArticle(5,0,True,0,1,false,false,0,3,2,130,90,20,0,True,1)}</td> <td width="72%" valign="top">{$GetArticleList(5 ,0,True,0,True,8,False,False,"",0,3,2,44,0,True,1,True,False,3,False,False,False,True,True,False,0)}</td> </tr> (4) 改“新加频道一最新文章 ”为新增频道名称,改“5 ”为新增频道ID。 (5) 保存模板。 (6) 首页如果是index.asp,刷新即可显示新增频道的文章,如果是index.html,要重新生成首页。 (7) "新增频道二最新文章"作类似修改。当然也可类似地添加“新增频道三最新文章”等。
如何调出论坛新贴 (1) 后台管理----系统设置——网站模板管理——网站首页模板——修改模板 (2) 找到要修改的代码: <tr> <td Class="main_title_575"><b>论坛新贴</b></td> <td rowspan="2"></td> <td valign="top" Class="main_title_575"><b>最新留言</b></td> </tr> <tr> <td height="100" valign="top" Class="main_tdbg_575"><script src=\'http://bbs.asp163.net/ newtopic.asp?boardid=all&lock=0&bname=0&tlen=20&n=8&sdate=1&orders=2&info=3&action=1&reply=0\'></script> </td> <td valign="top" Class="main_tdbg_575"><script src=\'guestbook/newguest.asp?num=8&tlen=13&order=0&info=0\'></script></td> </tr> (3) 将http://bbs.asp163.net 改成你自己论坛的地址。newtopic.asp?boardid=all&lock=0&bname=0&tlen=20&n=8&sdate=1&orders=2&info=3&action=1&reply=0 中的参数参照newscode.asp,newscode.htm文件进行修改。 (4) 如果用论坛使用的是动网7.x版,还要到动网的网站下载动网论坛Ver 7.0.0首页调用文件,下载地址:http://www.aspsky.net/download/list.asp?id=2220 并上传到与论坛Conn.asp文件相同的目录下,即论坛根目录。 (5) 用记事本编辑newtopic.asp,tongji.asp,newsfile.asp文件,修改论坛地址。 \'DVBBS 7.0 动网论坛首页调用-----主题调用 dim bbsurl,lockboardid,picurl \'############以下为修改项###################### dim lockurllockurl="" \'只允许调用网址,要以"HTTP://"开头,为空则不开放此功能.(可允许多网址限制,要以","分隔。) \'例如只允许此两个网址调用: lockurl="http://www.artistsky.net/,http://www.artbbs.net/ "bbsurl="http://bbs.dvbbs.net/" \'请填写你论坛的正确地址,要以"HTTP://"开头lockboardid="1,2,3" \'请填写限制调用的论坛版块ID,用逗号隔开。(当lock参数为1,2时生效)picurl="skins/default/topicface/" \'心情图标目录地址 \'############以上为修改项######################
常见疑问: (1) 如果我同一网站有两个域名,但只注册了其中一个域名,两个域名下都可以正常使用吗? (2) 系统中有定义的标签调用,为什么还要用JS文件调用?JS调用会不会影响服务器CPU资源与访问速度? (3) 空间升级新的动易最新版组件后,我的4.02版还能否使用? (4) 可以从3.51access直接升级到4.02SQL或者4.03SQL吗? (5) 我的网站访问量比较大,想升级,又怕不好使,动力3.51能不能直接升级到动易4.03? (6) 如何将论坛中的用户数据转移到动易数据库? (7) 我想将一个文章频道内某些栏目内的文章移动到另一个新加的文章频道的栏目中去能实现吗? (8) 远程保存图片,相同的一个图片路径,有的能保存,有的保存不了,是什么原因? (9) 首页的论坛新贴为什么显示的动易论坛的新贴?怎样才能显示自己的论坛? (10) 动易函数中书写的函数名大小写有什么区别吗? (11) 禁用了一些频道后,首页上方显示“---此频道已经被管理员禁用! 此频道已经被管理员禁用!”的字,应该如何解决? (12) 在修改模板时如何知道我要的频道的ID和栏目的ID是什么? (13) 文章固顶在频道的首页、栏目页面均固顶成功,而在网站首页的固顶没有用啊? (14) 当站点公告的内容太多时,在当前页面无法全部显示,而且最大化的按钮也是灰色的,不能用。该如何解决? (15) 我想将默认模板中的原来居右的频道内容改成居左的效果,在模板中加了align="left"代码为什么不起作用? (16) 何让自己的iis支持FSO?我用的是winxp\\IIS是5.0版本的,谁能告诉我怎么样让自己的服务器支持FSO吗? (17) 为什么新增加文章频道后,浏览不同的文章频道的最新文章等内容,结果各个频道的内容都显示为默认文章频道的内容? (18) 下载管理中在那里设置上传文件的大小,默认只允许1m的文件。我想上传大点的文件不行吗? (19) 我要调用所有文章频道的热门文章,将 iChannelID设为0 ({$GetArticleList( 0 ,......)})会显示:“没有热门文章”的提示,而把iChannelID设成具体任何一个频道能显示,为什么? (20) 我不想让用户有上传软件的权限!只想让用户上传文章和图片,而不想让注册用户有上传软件的权限,我已经将下载栏目中的---本频道默认的添加内容的用户级别:设定为管理员,但是用户登录后为什么还是可以上传软件? (21) (22) (23)
常见错误分析及解决办法: (1) 数据库连接出错,请检查Conn.asp文件中的数据库参数设置。 (2) 错误提示:Microsoft JET Database Engine 错误 \'80040e09\' 不能更新。数据库或对象为只读。 (3) 错误提示:PowerEasy 错误 \'800a0046\' 拒绝的权限 (4) 错误现象:安装后图片等路径不对,无法显示 (5) 错误现象:绝大部分功能都正常,但会出现个别文章无法生成 (6) 错误提示:Server 对象 错误 \'ASP 0177 : 800401f3\' Server.CreateObject 失败 index.asp,行 14 无效的类别字符串 (7) 错误提示:ADODB.Recordset 错误 \'800a0cc1\'Item cannot be found in the collection corresponding to the requested name or ordinal. /index.asp,行15 (8) 错误提示:PowerEasy 错误 \'800a01ae\' Class does not support Automation or does not support expected interface /admin/Admin_SoftCreate.asp,行17 (9) 错误提示:(SQL版)ADODB.Recordset 错误 \'800a0cb3\'当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。/Admin/Admin_Article.asp,行17 (10) 为什么SQL版在安装完成后运行时会出现 “Microsoft OLE DB Provider for SQL Server (0x80040E09) 拒绝了对对象 \'PE_Config\'(数据库 \'***\',所有者 \'***\')的SELECT权限。/Update/conn.asp,第 69 行” 的错误? (11) 为什么访问网站时提示 “用户 \'PowerEasy\' 登录失败。原因:未与信任 SQL Server 连接相关联” ? (12) 当调试程序出错的时候,为什么有的机器总是出现 “HTTP 错误 500.100 - 内部服务器错误 - ASP 错误” ,而不能显示具体的出错信息? (13) 出现 “类不支持自动化或不支持期望的接口” 的问题怎么解决? (14) 为什么安装好动易系统后,访问网站首页index.asp与各频道asp格式首页时,出现“http 500 - 内部服务器错误 Internet Explorer”,但浏览htm静态页面与留言等页面正常。登录后台也正常,但生成文章时出现“正在生成首页…… Class does not support Automation or does not support expected interface……”的错误。组件也已经正常安装,该如何解决? (15)文件上传时为什么总出现如下错误: 服务器对象 错误 \'ASP 0177 : 800401f3\' Server.CreateObject 失败 /**/upfile_class.asp ? (16) 整合Dvbbs7.0时出现下面的错误: 数据库引擎找不到输入表或查询 \'PE_User\' ? (17) 为什么访问网站时提示 “Microsoft VBScript 运行时错误 (0x800A0046) 没有权限或拒绝的权限” ,或者出现 “Microsoft JET Database Engine (0x80040E09) 不能更新。数据库或对象为只读” ? (18) 动易系统与动网论坛整合后,为什么出现 “Microsoft OLE DB Provider for SQL Server 错误 \'80040e37\' 对象名 \'Dv_User\' 无效。/index.asp,行15” 的错误? (19) (20)
有关2003的问题 : (1) 动易系统如何才能在Win2003下正常运行? (2) 如何授权 Internet 匿名用户读写权限? (3) 如何在win2003上设置[ 启用父路径 ]? (4) 我的是2003的服务器,除了主页能显示,为什么其他的页面都是:无法显示网页? (5) 动易系统在Win2003下不能上传附件应该如何解决? (6) 为什么能访问首页,但点击后台管理时就说找不到网页?怎样让Windows 2003 Server 支持ASP程序 ? (7) 关于win2003上传限制解决方案的补充说明! (8) (9)
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:08:16 --
问:如何取消发布文章的审核?
答:在频道管理里 前台是否显示无权限的栏目: 是 否 是否启用本频道的审核功能: 是 否 是否允许在本频道上传文件: 是 否
问:为什么下载统计都是0? 答:打开防盗链功能,就能统计了。如果不打开防盗链功能,是直接显示下载地址的,当然统计不了。 ===================================================================问:我的网站访问量比较大,想升级,又怕不好使,动力3.51能不能直接升级到动易4.03? 答:可以直接升级。下载文件包中应该有升级程序。 ===================================================================问:怎么在首页调用全部频道(文章系统复制出的频道)的的最新文章? 答:完全可以! {$GetArticleList(***)}标签的第一个参数ChannelID的值设为0即可。 ===================================================================问:如何去除新加频道的文章禁用右键功能? 答:在内容页模板找到 </head> <body leftmargin=0 topmargin=0 {$ArticleProtect}> <noscript> 将之改为: </head> <body leftmargin=0 topmargin=0> <noscript> 重新生成文章html即可 =================================================================== 问:公告栏上、下、左、右怎么移?要改变动易里的什么程序? 答:模板里的对应公告栏的这一段: <MARQUEE scrollAmount=1 scrollDelay=4 align="left" onmouse over="this.stop()" onmouse out="this.start()"> {$ShowAnnounce(2,5)}</MARQUEE> 把align="left"中的left改成up,down,或right就可以了。 ===================================================================
问:系统中有标签调用,为什么还要用JS文件调用?JS调用会不会影响服务器CPU资源与访问速度? 答:1、如果你认真研究过系统,就会明白,这些JS文件必不可少!如果将栏目、下拉菜单、搜索表单等改为标签,则每添加/修改/删除一个栏目,都要重新生成所有HTML文件(因为网站中几乎每个页面都有和栏目相关的调用)。而现在这种方式,只需要更新几个JS文件就可以了,这些更新都是全自动的,在你添加栏目时就自动做好了。权衡利弊,你会选择哪种方式呢? 2、如果栏目较多,建议不要使用无级下拉菜单。这个效果虽然好,但非常消耗系统资源。在3.51版时,这个功能会先消耗服务器的系统资源(用于生成下载菜单的有关JS代码),然后再消耗客户端的系统资源(用于将JS代码转换成实际效果)。在4.0x版,这个效果只消耗客户端的系统资源(因为服务器已经是事先生成的静态JS文件)。我们的测试结果表明,在栏目比较多的情况下,如果将无级下拉菜单效果改为无菜单效果(在频道管理中修改频道的参数,然后重新刷新栏目JS),客户端打开页面速度会提高50%以上。现在感觉打开速度慢,主要是因为这个引起的。 JS文件对服务器来说,只是一个文件,对服务器CPU资源等无任何影响的。 ===================================================================
问:在每一个文章标题下面都有底色,一条浅灰和一条白色相间的,如何去掉这些底色? 答:在后台-网站设置-风格模板中,修改模板中的css,以下两句控制{$GetArticleList()}的底色。 .listbg /* --栏目文章列表内容间隔颜色的定义1-- */ { background:#ffffff; } .listbg2 /* --栏目文章列表内容间隔颜色的定义2-- */ { background:#f7f7f7; } =================================================================== 问:请问在那里改整个网站的背景颜色? 答:在后台[系统设置 ]-[网站风格添加 | 管理]-[修改风格],找到下面的CSS定义: /* Body的CSS定义:对应CSS中“BODY”,可定义内容为网页字体颜色、背景、浏览器边框等 */ BODY { FONT-SIZE: 9pt;background:url(Skin/adv3/bg.gif); text-decoration: none; SCROLLBAR-FACE-COLOR: #f6f6f6; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #cccccc; SCROLLBAR-3DLIGHT-COLOR: #cccccc; SCROLLBAR-ARROW-COLOR: #330000; SCROLLBAR-TRACK-COLOR: #f6f6f6; SCROLLBAR-DARKSHADOW-COLOR: #ffffff; } 其中background:url(Skin/adv3/bg.gif);就是背景的定义,你可以改成定义颜色:background:#000000; ===================================================================问:如果说不想要HTM生成?而是只要ASP的,直接调用数据库该怎么做呢? 答:在后台[系统设置 ]-[网站频道添加 | 管理]-[修改],修改频道的属性,将“是否使用生成HTML功能:是 否”选项选择为否即可。 =================================================================== 问:我想将一个文章频道内某些栏目内的文章移动到另一个新加的文章频道的栏目中去能实现吗? 答:能实现,使用系统提供的批量移动功能即可。如:在后台文章中心管理-[批量移动文章 ],在出现的〔文章中心管理----批量移动文章〕窗口中设置指定栏目的文章和目标频道及栏目,再点击〔执行批处理〕按钮就可以实现移动了。 =================================================================== 问:网站首页的论坛新贴为什么显示的动易论坛的新贴?怎样才能显示自己的论坛? 答:找到网站首页的论坛新贴调用:<script src=\'http://bbs.asp163.net/newtopic.asp?boardid=all&lock=0&bname=0&tlen=20&n=8&sdate=1&orders=2&info=3&action=1&reply=0\'></script> 将http://bbs.asp163.net 改成你自己论坛的地址。 另外,如果用论坛使用的是动网7.x版,还要到动网的网站下载动网论坛Ver 7.0.0首页调用文件,下载地址:http://www.aspsky.net/download/list.asp?id=2220 ===================================================================
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:09:35 --
问:空间升级新的动易4.03组件后,我的4.02版还能否使用?
答:新组件对下是兼容的,可以使用。 =================================================================== 问:在后台增加新频道为什么不成功? 显示:找不到网页 正在查找的网页可能已被删除、重命名或暂时不可用。 答:1.可能是没有打开动易目录读写权限,所以无法生成新频道 2.看看你生成的频道目录里有没有文件和子目录,没有的话肯定是FSO不支持了! ============================================================问:如何在自己制作的asp格式首页中显示友情链接? 答:插入以下代码:<%=ShowFriendSite(2,10,1,3)%> =================================================================== 问:如何去除新加频道的文章禁用右键功能? 答:直接修改栏目的属性就可以了。 ============================================================ 问:用户登陆的背景颜色如何修改? 答:直接在UserLogin.asp中的<body>中添加背景定义,如:<body bgcolor="#7B91A9" leftmargin=0 topmargin=0> ================================================================ 问:我的是2003的服务器,除了主页能显示,为什么其他的页面都是:无法显示网页? 答:看看有没有开启父路径等设置,详见:动易系统如何才能在Win2003下正常运行 ================================================================ 问:如何将论坛中的用户数据转移到动易数据库? 原来的3.51版本就是整合动网6.1.0的。现在感觉4.0动易功能增加不少,根据小站的情况,4.03没必要再整合动网论坛了。问题是:动易或动力3.51的数据库中缺少用户数据库,有什么办法能够把动网数据库(6.1.0或7.0版本)中的用户数据转移到动易数据库中来?
答:直接用“用户升级程序”就可以了。3.51的用户数据库指定为论坛的数据库就行了。 ===================================================================== 问:为什么文章内容页无法调用公告? 答:因为目前文章内容页里不支持此标签。 ======================================================================= 问:可以从3.51access直接升级到4.02SQL或者4.03SQL吗? 答:可以直接升级。4.0X下载文件包中提供了升级程序。 ========================================================================= 问:如何设置用户排行榜? 在首页及一些页面中有用户排行榜,好象系统默认的是显示5—6个,如何让他按照自己想要的数字显示??比如:显示10个用户或更多,请教了! 答:在后台找到相关的模板管理-------修改模板--------查找{$ShowTopUser(5)}标签-----修改5为你需要的数字。如果是生成HTML的,需要重新生成 ========================================================================= 问:请问顶部频道的导航栏的链接css在哪里修改? 答:应该是后台风格中: /* 顶部频道文字链接的CSS定义--将顶部频道文字链接与网站链接总的CSS定义分开,以后可以制作深底浅字的格式,如果要保持原来的设计样式,将此定义内容删除或定义成与网站链接总的CSS相同即可。调用代码为<a class=\'Channel\' ***>***</a> */ a.Channel:link {color: #ffffff;} a.Channel:visited {color: #ffffff;} a.Channel:hover{COLOR: #ffff00;} a.Channel:active {color: #ffffff;} /* 顶部频道文字链接的CSS定义2--将顶部当前频道时文字链接CSS定义。调用代码为<a class=\'Channel2\' ***>***</a> */ a.Channel2:link {color: #ffffff;} a.Channel2:visited {color: #ffffff;} a.Channel2:hover {COLOR: #ffff00;} a.Channel2:active {color: #ffffff;} ========================================================================= 问:如何让弹出公告的页头标题自动与公告内容的标题相一致? 答:在Announce.asp文件中约23行找到:<title>本站通告</title> 修改为:<title><%=rsAnnounce("title")%></title> ========================================================================= 问:如何改变弹出公告标题的字体颜色? 答:在Announce.asp文件约54行查找: response.Write "<table width=\'100%\' border=\'0\' cellspacing=\'0\' cellpadding=\'0\' style=\'word-break:break-all;Width:fixed\'><tr><td align=\'center\' height=\'24\'>" & rsAnnounce("title") & "</td></tr><tr><td align=\'left\' valign=\'top\'>" & ubbcode(dvHTMLEncode(rsAnnounce("Content"))) & "</td></tr><tr><td align=\'right\' valign=\'top\'><p align=\'\'>" & rsAnnounce("Author") & " <br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</td></tr></table>"
改为: response.Write "<table width=\'100%\' border=\'0\' cellspacing=\'0\' cellpadding=\'0\' style=\'word-break:break-all;Width:fixed\'><tr><td align=\'center\' height=\'24\'><font color=\'#FF0000\'>" & rsAnnounce("title") & "</font> </td></tr><tr><td align=\'left\' valign=\'top\'>" & ubbcode(dvHTMLEncode(rsAnnounce("Content"))) & "</td></tr><tr><td align=\'right\' valign=\'top\'><p align=\'\'>" & rsAnnounce("Author") & " <br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</td></tr></table>" ========================================================================== 问:远程保存图片,相同的一个图片路径,有的能保存,有的保存不了,是什么原因? 答:这个远程保存受很多条件制约,要求双方都开端口,而且在读取数据过程中不能出错。 出现Get Failed 的提示,就是说在读取数据的时候出现了错误。 Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") 因为用到的只是这个对象的调用,具体在读取过程中的出错就没有办法控制。 可以再测一次,如果不行,就只能手动保存。 ==========================================================================问:如何在动易首页调用横向列表式的文字链接? 答:进入后台管理---->系统设置---->网站首页模板管理---->修改模板(默认模板),在模板代码区内的底部找到 {$ShowFriendSite(1,14,7,2)} ,将第一个1改为2,保存。如果是生成HTML的,请重新生成网站首页。 ==================================================================== 问:怎样取消左上可伸缩的菜单? 答:后台-------系统设置------频道管理---------修改设置--------是否在本频道显示树状导航菜单:选择“否” ====================================================================
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:13:48 -- 【公告】MY动力系统3.51常见问题解答汇集1、文章页里头的栏目导航二级子栏目一行只能排列5个,请问改动哪些文件可以增加同一行中子栏目的排列数量? :syscode_article.asp 552行:if i mod 6=0 then 将mod 6=0改成你要的数字 syscode_article.asp257行 maxlinemenu=12 \'一行最多显示菜单数 ============================== 2、3.0升级到3.51,升级过程及提示一切正常。 但点击文章标题进入时出错,总提示: ------------------------------------------------------------------- Java Script Error Description:未结束的字符串常量。 Source:http://www.***.com/access/Article_Show.asp?ArticleID=185 Line:283 See More Details? -------------------------------------------------------------------- 但忽略还可进入,但不见了栏目导航。试着重新升级一次,故障依旧,不知该如何解决? :是不是你的栏目说明里面有换行?或\'<>/7&*()$%:;"这样的字符?不要使栏目说明包含换行或其它\' " ( ) ; < >等字符。 ==============================3、我怎么给首页加个背景图片? :后台配色模板中[Body的CSS定义]中加上background:url(Skin/2/bg01.gif);background-position: center; 其中background-position: center;是使背景图片居中的。 ==============================4、怎样让一级分类在同一窗口打开? :在动力系统的inc目录下在syscode_Article.asp syscode_guest.asp syscode_Photo.asp syscode_soft.asp 四个文件里,搜索以下字符rsChannel("LinkUrl")把 strChannel=strChannel & "<a href=\'" & rsChannel("LinkUrl") & "\' target=\'_blank\'>" & rsChannel("ChannelName") & "</a> | " 中的target=\'_blank\'删除掉。 ==============================5、文章系统栏目数过多,怎样才能自动换行? :syscode_article.asp 257行 maxlinemenu=10 \'一行最多显示菜单数 进行设置,其它的图片、软件系统也是一样对syscode_photo 、syscode_soft进行设置,默认是是10个回行。 ==============================6、首页的栏目最多只能有六个显示,能不能显示8 个或者更多? :在首页index.asp中查找: sqlRoot="select top 6 C.ClassID,C.ClassName,C.RootID...... 将“6”改成你要的数字 ==============================7、怎么修改文章首页中最新栏目文章的每个分栏目主题的数目呢?现在默认是一个栏目能显示8个主题,如果想让他显示6个或更多该怎么改? :在Article_Index.asp约287行找到: sql="select top 8 A.ArticleID,A.ClassID,...... 改一下这里的“8” ==============================8、后台“代码广告: 指包含html内容的网站推广代码”这个代码广告我加了,怎么不显示的呀。在哪里显示的呀? :这个你要在网页中自己添加代码:<% call ShowAD(6) %>。 另:广告调用代码: <% call ShowAD(0) %>弹出广告 <% call ShowAD(1) %>Banner广告 <% call ShowAD(2) %>栏目广告 <% call ShowAD(3) %>文章内容页广告 <% call ShowAD(4) %>浮动广告 <% call ShowAD(5) %>页面固定广告 <% call ShowAD(6) %>代码广告 ========================9、首页最新文章内如何显示:栏目+日.月 的形式? 样式: [考试空间] 2003年国家司法考试试卷及答案(四)[10-25] 演示: http://judge.gofree8.net/ \'================================================= \'过程名:ShowNewArticle \'作 用:显示最新文章 \'参 数:ArticleNum ----最多显示多少篇文章 \' TitleLen ----标题最多字符数,一个汉字=两个英文字符 \'================================================= sub ShowNewArticle(ArticleNum,TitleLen) dim sqlNew,rsNew if ArticleNum>0 and ArticleNum<=100 then sqlNew="select top " & ArticleNum else sqlNew="select top 10 " end if sqlNew=sqlNew & " A.ArticleID,A.Title,A.Author,A.UpdateTime,A.Hits,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= Server.CreateObject("ADODB.Recordset") rsNew.open sqlNew,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=50 if rsNew.bof and rsNew.eof then response.write "<li>没有文章</li>" else do while not rsNew.eof response.Write "<li><a href=\'Article_Class2.asp?ClassID="&rsNew("ClassID")&"\'><font color=#4474A3>[" & conn.execute("select * from ArticleClass where ClassID = "& rsNew("ClassID"))("ClassName") & "]</font></a> <a href=\'" & rsNew("LayoutFileName") & "?ArticleID=" & rsNew("articleid") &"\' title=\'文章标题:" & rsNew("Title") & vbcrlf & "作 者:" & rsNew("Author") & vbcrlf & "更新时间:" & month(rsnew("updateTime")) & "-" & day(rsnew("updateTime")) & vbcrlf & "点击次数:" & rsNew("Hits") & "\' target=\'_blank\'>" & gotTopic(rsNew("title"),TitleLen) & "</a>[<font color=red>" & month(rsnew("updateTime")) & "-" & day(rsnew("updateTime")) & "</font>]</li>" rsNew.movenext loop end if rsNew.close set rsNew=nothing end sub ===============================10、jgxx_zb版主回复:有朋友提出,3.51文章内容页默认字体太小,想改大些怎么办? :修改前请备份好原文件。在Article_Show.asp中查找以下代码: <td height="200" valign="top"> <table border="0" align="left" cellpadding="10" cellspacing="0"> <tr> <td><% call ShowAD(3) %></td> </tr> </table> <%call ShowArticleContent()%> </td> 改为: <td height="200" valign="top" style="line-height: 25px;"><font size="3"> <table border="0" align="left" cellpadding="10" cellspacing="0"> <tr> <td><% call ShowAD(3) %></td> </tr> </table> <%call ShowArticleContent()%> </font></td> 其中:25px是行距(可以修改);<font size="3 ">是默认字体的大小(红色数字你可以修改,1最小,2、3、4、5……越来越大) 这是效果图: 此主题相关图片如下: ===================================11、留言板每页显示10条,把网页拉的老长,怎样修改? :打开Inc/syscode_guest.asp文件查找如下代码: strFileName="GuestBook.asp" GuestPath="images/guestbook/" MaxPerPage=10 红色数字就是你要修改的。 ==========================如何在打开的文章中不屏蔽复制,即恢复右键功能? :在文章显示页文件 article_show.asp和article_show2.asp中将 <body <%=Body_Label%> onmousemove=\'HideMenu()\' oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" onmouseup="document.selection.empty()"> 改成下面的就可以了 <body <%=Body_Label%> onmousemove=\'HideMenu()\' > ==================================请问用户列表页userlist.asp 这个文件的用户列表的颜色,手标放上去 效果变成蓝的 我想把效果变成另外的颜色应该在什么文件改呢 :在function.asp中的ShowAllUser()定义中 ==================================普通用户添加文章时要有选择模版项怎么办? :请用下面一个文件覆盖下: 点击浏览该文件 ==================================滚动的公告板如何显示全文?要显示标题与内容,并在标题与内容之间加分号? :打开function.asp,找到 \'过程名:ShowAnnounce \'作 用:显示本站公告信息 在约498行和505行找到 do while not rsAnnounce.eof response.Write "<a href=\'#\'.... 将..."\'>" & rsAnnounce("title") & "</div>中的rsAnnounce("title")...改成& rsAnnounce("title") & ";"& rsAnnounce("Content") & ==================================
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:14:25 --
12.请问斑竹友情连接能不能拉长些? 友情连接只显示3个LOGO滚动,能不能显示的多一点在哪个文件下设置那
在function.asp中找到: strLink=strLink & "style=overflow:hidden;height:100;width:100>" \'新增加的代码
把height:100改为height:200或你想要的数字
13.如何让首页最新文章标题后面加上“NEW”图标?
在syscode_Article.asp中可以找到下面的调用过程代码。注意:用下面代码替换原来的代码,图片自己准备吧。 \'================================================= \'过程名:ShowNewArticle \'作 用:显示最新文章 \'参 数:ArticleNum ----最多显示多少篇文章 \' TitleLen ----标题最多字符数,一个汉字=两个英文字符 \'================================================= sub ShowNewArticle(ArticleNum,TitleLen) dim sqlNew,rsNew if ArticleNum>0 and ArticleNum<=100 then sqlNew="select top " & ArticleNum else sqlNew="select top 10 " end if sqlNew=sqlNew & " A.ArticleID,A.Title,A.Author,A.UpdateTime,A.Hits,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.UpdateTime desc" Set rsNew= Server.CreateObject("ADODB.Recordset") rsNew.open sqlNew,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=50 if rsNew.bof and rsNew.eof then response.write "没有文章" else do while not rsNew.eof response.Write "<img src=\'images/meili.gif\' border=\'0\' alt=\'\'> <a href=\'Article_Class2.asp?ClassID="&rsNew("ClassID")&"\'><font color=#4474A3>[" & conn.execute("select * from ArticleClass where ClassID = "& rsNew("ClassID"))("ClassName") & "]</font></a> <a href=\'" & rsNew("LayoutFileName") & "?ArticleID=" & rsNew("articleid") &"\' title=\'文章标题:" & rsNew("Title") & vbcrlf & "作 者:" & rsNew("Author") & vbcrlf & "更新时间:" & month(rsnew("updateTime")) & "-" & day(rsnew("updateTime")) & vbcrlf & "点击次数:" & rsNew("Hits") & "\' target=\'_blank\'>" & gotTopic(rsNew("title"),TitleLen) & "</a>" if datediff("d",rsNew("UpdateTime"),date())<10 then response.write("</td><td align=\'right\' width=\'65\' style=\'padding-right: 16px\'><img src=\'images/news.gif\' alt=\'最新文章\'>[<font color=red>" & month(rsnew("updateTime")) & "-" & day(rsnew("updateTime")) & "</font>] <br>") else response.write("</td><td align=\'right\' width=\'65\' style=\'padding-right: 16px\'>[<font color=#999999>" & month(rsnew("updateTime")) & "-" & day(rsnew("updateTime")) & "</font>]") end if rsNew.movenext loop end if rsNew.close set rsNew=nothing end sub
14.如何修改3.51文章栏目中标题的字数? 有朋友提出:想使首页中标题的字数增加几个,不知在哪改?
回复:在index.asp中查找: call ArticleContent(20,True,True,False,1,False,False)
改20为你想要的数字
怎样把首页“最新留言”和“论坛新贴”前面的小红点改为图片
有兴趣的朋友可以一试。
在function.asp中查找: response.write "<font color=#b70000><b>·</b></font><a href=\'guestbook.asp\' " 改为: response.write "<img src=\'images/zxly.gif\' alt=\'最新留言\'> <a href=\'guestbook.asp\' "
在bbs\\newtopic.asp中查找: <font color=#b70000><b>·</b></font> 改为: <img src=\'images/ltxt.gif\' alt=\'论坛新贴\'>
选两个图片分别取名zxly.gif和ltxt.gif,分别放在动力系统和bbs的images文件夹里。
怎样让发表的文章按录入时间排序?
在syscode_article.asp文件ShowNewArticle函数里的order by A.articleid desc 改成order by A.UpdateTime desc
另外,在index.asp、Article_Class2.asp、Article_Index.asp中查找articleid desc, 用UpdateTime desc替换 (如果你用三分栏,可能还要修改Article_Class3.ASP、Article_Index3.asp等文件)
我想让首页最新图片文章显示4个,修改哪个文件?
在index.asp中查找(0,2,14,2,1,100,90,106,false,false) 改为:(0,4,14,2,1,100,90,106,false,false)
括号中的数字分别表示: 0 ----栏目ID,0为所有栏目,若大于0,则显示指定栏目及其子栏目的图片文章 4 ----最多显示多少篇文章 14 ----标题最多字符数,一个汉字=两个英文字符 2 ----显示方式。1为只有图片+标题,2为图片+标题+内容简介 1 ----列数。超过此列数就换行。 100 ----图片宽度 90 ----图片高度 106 ----内容最多字符数 false ----是否是热门文章 false ----是否是推荐文章
如何去掉图片显示页的右键屏蔽?
Photo_View.asp 106行 oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false"onmouseup="document.selection.empty()" 去掉就可以
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:14:44 -- 自选风格的下拉菜单会被FALSH文件遮住了,怎么解决? 解决方法:打开Inc/function.asp,找到以下代码1、Banner中的修改: ================================================== \'过程名:ShowBanner \'作 用:显示网站Banner \'参 数:无 \'================================================== 约425行将 ...... Response.Write "<object classid=\'clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\' codebase=\'http://download.macromedia.com/pub/shockwave/cabs/flashlash.cab#version=5,0,0,0\' width=\'480\' height=\'60\'><param name=\'movie\' value=\'" & BannerUrl & "\'><param name=\'quality\' value=\'high\'>......中加上下面红色的代码: ...... Response.Write "<object classid=\'clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\' codebase=\'http://download.macromedia.com/pub/shockwave/cabs/flashlash.cab#version=5,0,0,0\' width=\'480\' height=\'60\'><param name=\'movie\' value=\'" & BannerUrl & "\'> <param name=\'wmode\' value=\'transparent\'> <param name=\'quality\' value=\'high\'>......2、Banner广告中的修改: \'================================================== \'过程名:ShowAD \'作 用:显示广告 \'参 数:ADType ---广告类型 \'================================================== 约1203行将 ...... <param name=\'movie\' value=\'" & rsAD("ImgUrl") & "\'><param name=\'quality\' value=\'high\'>......中也加上下面红色的代码: ...... <param name=\'movie\' value=\'" & rsAD("ImgUrl") & "\'><param name=\'wmode\' value=\'transparent\'> <param name=\'quality\' value=\'high\'>...... =========================================怎样调用显示完整的文章中表格? 调用表格文章所属栏目的方法2(在前台调用文件中改栏目的ID): 1、首先在首页下面的定义<% call CloseConn() 下一行加上以下定义:sub showIDclass(ClassID) dim sqlIA,rsIA sqlIA="select top 1 content from article where Deleted=false and Passed=true and ClassID=" & ClassID & " ORDER BY ArticleID desc" Set rsIA= Server.CreateObject("ADODB.Recordset") rsIA.open sqlIA,conn,1,1 if not rsIA.eof then response.write rsIA("content") end if rsIA.close end sub 2、然后在首页的想要显示的表格内加上<%call showIDclass(*)%> 。这个调用语句 中的定义中(*) 是指的发表的文章所属栏目的ID。 3、说明: 这个能调用表格文章所属栏目内的文章自动更新。要修改指定的栏目请在前台调用文件中改栏目的ID。 ===========================================
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:14:59 -- 问:如何在首页调用文章、图片、下载这三个频道的栏目导航? 在首页你认为合适的位置,分别建立3个一列两行(或者是1个三列两行)的表格,上格写入导航标题如:“图片栏目导航 ”,下格插入相应的调用代码。 显示文章栏目导航,调用代码是<%call ShowSiteNavigation("ArticleClass")%> 显示图片栏目导航,调用代码是<%call ShowSiteNavigation("PhotoClass")%> 显示软件栏目导航,调用代码是<%call ShowSiteNavigation("SoftClass")%>3.51版软件“最近更新”如果出现不分页的情况,请下载下面的文件覆盖一下原文件 (请先做好备份 ) 点击浏览该文件 3.51版修改公告出现问题? Microsoft VBScript 运行时错误 错误 \'800a01f4\' 变量未定义: \'dvHTMLCode\' /admin_announce.asp,行 328修改方法: Admin_Announce.asp文件里的328和346行dvHTMLCode函数应该改正为dvHTMLEnCode函数。请问如何修改“佚名”这两个字? 可以用“查找与替换”的方法进行修改。主要涉及以下文件:Admin_Announce、Admin_PhotoShow、Photo_Show、Photo_Viewer、User_PhotoShow、Inc/admin_code_guest、Admin_ArticleSave、User_ArticleSave。文章部分是:Admin_ArticleSave、User_ArticleSave。
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:15:43 -- 问:我添加了一个普通管理员,让他可以在我的软件频道一个一级栏目里有录入的权限。 添加完成后,我用他的身份登陆后台,在添加软件的时候发现,那个一级栏目没有显示红色,我没有管它,在继续添加软件完成后,后台显示 ADODB.Recordset 错误 \'800a0cc1\' 在对应所需名称或序数的集合中,未找到项目。 /Test/ACCESS/Admin_SoftSave.asp,行 103 或 ADODB.Recordset 错误 \'800a0cc1\' Item cannot be found in the collection corresponding to the requested name or ordinal. /Admin_SoftSave.asp,行103 的错误! 修改方法:将Admin_SoftSave.asp中85行,set tClass=conn.execute("select ClassName,Depth,ParentPath,Child,LinkUrl From SoftClass where ClassID=" & ClassID) 改成set tClass=conn.execute("select ClassName,Depth,ParentPath,Child,LinkUrl,ParentID,ClassInputer From SoftClass where ClassID=" & ClassID)
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:15:55 -- 问:3.51系统,当采用 js调用时,如何加"new"图标? :找到Article_js.asp中的代码: ===================================== if ShowUpdateTime="true" then if ShowAuthor="true" then str=str & "" \'去掉了,号 end if if CDate(FormatDateTime(rs("UpdateTime"),2))>=date()-3 then str=str & "<font color=red>" else str=str & "<font color=#999999>" end if \'str=str & FormatDateTime(rs("UpdateTime"),1) & "</font>" str=str & month(rs("UpdateTime")) & "月" & day(rs("UpdateTime")) & "日</font>" end if ===================================== 将它换成下面的代码: ===================================== if ShowUpdateTime="true" then if ShowAuthor="true" then str=str & "" \'去掉了,号 end if if CDate(FormatDateTime(rs("UpdateTime"),2))>=date()-3 then str=str & "<font color=red>" str=str & month(rs("UpdateTime")) & "月" & day(rs("UpdateTime")) & "日</font><img src=***.gif\'>" else str=str & "<font color=#999999>" str=str & month(rs("UpdateTime")) & "月" & day(rs("UpdateTime")) & "日</font>" end if end ===================================== 其中,***.gif\'就是你最新图片的地址。
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:16:07 --
如果有朋友用英文留言时不能够自动换行,采取以下办法可以解决这个小问题。 在inc\\syscode_guest.asp中查找: <table width="99%" border="0" cellspacing="0" cellpadding="0" align="center"> 改为: <table width="99%" border="0" cellspacing="0" cellpadding="0" style=\'word-break:break-all;Width:fixed\' align="center"> 红色代码为新添加的
======================================================================●●● Article_Class.ASP页面吃了作者的第一EMAIL字母,例如:鼠标放在作者名字上,显示的EMAIL是 dq@wyren.net 实际的EMAIL是wdq@wyren.net 如何解决? 在inc\\syscode_Article.asp中查找: strTemp=strTemp & "http://bbs.asp163.net/ http://bbs.asp163.net/mailt "%20target="_blank"%20%20target="_blank"%20>"%20&%20AuthorName%20&%20"" 将代码中%20AuthorEmail 改为:right(Author,len(Author)-instr(Author,"|"))
首页下载更新内如何显示:栏目+软件名称+日.月的形式?
修改方法:
在首页最下面找到如下代码,其中红色代码是新添加的代码
\' ="================================================\'过程名:ShowNewSoft \'作 用:显示最新更新 \'参 数:SoftNum ----最多显示多少个软件 \' TitleLen ----标题最多字符数,一个汉字=两个英文字符 \'================================================= sub ShowNewSoft(SoftNum,TitleLen) dim sqlNew,rsNew if SoftNum>0 and SoftNum<=100 then sqlNew="select top " & SoftNum else sqlNew="select top 10 " end if sqlNew=sqlNew & " S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits, S.ClassID, S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True " sqlNew=sqlNew & " order by S.SoftID desc" Set rsNew= Server.CreateObject("ADODB.Recordset") rsNew.open sqlNew,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=100 if rsNew.bof and rsNew.eof then response.write "<li>没有下载</li>" else do while not rsNew.eof response.Write "<a href=\'soft_Class.asp?ClassID="&rsNew("ClassID")&"\'><font color=#4474A3>[" & conn.execute("select * from softClass where ClassID = "& rsNew("ClassID"))("ClassName") & "]</font></a> <a href=\'Soft_Show.asp?SoftID=" & rsNew("Softid") & "\' title=\'软件名称:" & rsNew("SoftName") & vbcrlf & "软件版本:" & rsNew("SoftVersion") & vbcrlf & "文件大小:" & rsNew("SoftSize") & " K" & vbcrlf & "作 者:" & rsNew("Author") & vbcrlf & "更新时间:" & rsNew("UpdateTime") & vbcrlf & "下载次数:今日:" & rsNew("DayHits") & " 本周:" & rsNew("WeekHits") & " 本月:" & rsNew("MonthHits") & " 总计:" & rsNew("Hits") & "\' target=\'_blank\'>" & gotTopic(rsNew("SoftName") & " " & rsNew("SoftVersion"),TitleLen) & "[<font color=red>" & month(rsnew("updateTime")) & "-" & day(rsnew("updateTime")) & "</font>]<br>" rsNew.movenext loop end if rsNew.close set rsNew=nothing end sub
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:16:25 --
首页友情链接如何改成横向显示的?
在首页适当位置插入以下调用代码(两种方式):
1.横向列表式LOGO链接: <% call ShowFriendSite(1,14,7,2) %> 2.横向列表式文字链接: <% call ShowFriendSite(2,14,7,2) %>
括号中的参数依次分别表示: ----链接方式,1为LOGO链接,2为文字链接 ----最多显示多少个站点 ----分几列显示 ----显示方式。1为向上滚动,2为横向列表,3为下拉列表框
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:24:45 -- 4.03免费版实现文章签收功能的修改办法
今天休息,继续琢磨4.03免费版,发现她也能实现文章签收功能。 现在我公布出来,希望系统开发者和各位斑竹们不要删掉此贴。
因为我想,既然是免费版,那么她的已经开发出来的功能就应全部发挥出来,不必隐藏着。 再次向系统开发者们表示感谢和敬意!
具体修改办法:
1、conn.asp中第9行:将const SystemVersion=1 \'动易网站管理系统的版本,1为免费版,2为个人版,3为企业版 改为const SystemVersion=3 \'动易网站管理系统的版本,1为免费版,2为个人版,3为企业版
2、inc/function.asp中628-633行:全部去掉前面的注释符号“ \' ”
3、进入后台管理,将“网站首页模板”、各“频道首页模板”等所有涉及“用户登录代码”中的 <td height="150 " align="center" valign="middle "><iframe id=\'UserLogin\' src=\'{$InstallDir}UserLogin.asp?ShowType=1\' width=\'170\' height=\'145 \' frameborder=\'0\' scrolling=\'no\'></iframe></td> 全部改为: <td height="165 " align="center" valign="top "><iframe id=\'UserLogin\' src=\'{$InstallDir}UserLogin.asp?ShowType=1\' width=\'170\' height=\'165 \' frameborder=\'0\' scrolling=\'no\'></iframe></td>
9月9日凌晨补充以下步骤:
4、admin/admin_siteconfig.asp中,删掉119--129行: if SystemVersion>1 then %> <tr class=\'tdbg\'> <td width=\'300\' height=\'25\'><strong>序列号:</strong><br> 每个使用本系统的网站都有一个我们授权的唯一序列号,如果你还没有此序列号,请联系我们获取,否则,你只能在服务器上进行后台管理。</td> <td> <textarea name=\'SiteKey\' cols=\'60\' rows=\'6\' id=\'SiteKey\'><%=SiteKey%></textarea> </td> </tr> <% end if
5、打开你的数据库文件(如原系统默认的是PowerEasy4.mdb),打开PE_Article表: ①在字段名为Receive的下方选择你想作为签收文章所对应表格内的方框中(如文章ID号为1和3和8的这3篇文章)单击鼠标左键,就会自动在方框中打上勾(表示已作为签收文章了); ②在打勾方框右边(字段名为ReceiveUser)的表格中,填入待签收者的用户名(无论哪个级别的用户均可)。若只要admin一个人签收,只填签收者的用户名admin;若需要多人签收(如admin|2688|abcd),则用户名之间用短竖线“ | ”隔开,注意最后一个名字后面不需加短竖线; ③打开PE_User表(合并了论坛的则此表在论坛数据库文件中),在倒数第三个字段ArticlesReceive下,分别在待签收者(如admin)所对应的表格中填入刚才选定文章的ID号(如1或3或8)。注意:选多篇文章时文章ID号之间用半角的逗号隔开(如1,3,8)。若这里填3个ID号,签收者登陆后用户登陆处就会显示“待签收文章:3 篇”,不填则显示为“待签收文章:0 篇”,签收过后该表格为空。(此第③步可以不做,但前台用户登陆处无论是否签收都永远显示为“待签收文章:0 篇”,而签收界面却仍可显示待签文章标题并可以进行签收操作)。
6、以上面所选签收者用户名登陆,就可以签收文章了。以后再要发签收文章时,先按普通填加文章操作,然后再按上面第5步操作即可。管理员可通过PE_Article表的Received字段查看哪些人已签收过了,对应表格中会自动加入已签收者的用户名。
7、本办法可推广应用到以文章模块复制的其它频道。
9月9日特别申明:本办法适用于内部局域网等只装过4.03免费版注册组件的服务器上。凡安装过商业版注册组件的服务器此法行不通。想用则须先卸载商业版注册组件,再重新安装免费版注册组件。
-- 作者:wuzx -- 发布时间:2004-9-13 下午 02:34:33 --
动易4.XX IP访问控制插件
经过半天时间分析试验,终于成功改成IP访问控制插件.不敢独享,现拿出与各位分享.具体步骤如下:
1、下载下面的文件解压到动易系统的ADMIN目录下。
本帖包含附件
2、在ADMIN目录下的Admin_Index_Left.asp文件中找到以下代码:
<tr> <td height=20><a href=\'Admin_Template.asp?ChannelID=0\' target=\'main\'>网站首页模板管理</a></td> </tr>
修改为:
<tr> <!---IP控制插件开始---> <tr> <td height=20><a href=http://169.254.8.10/Admin/Admin_LockIP.asp?Action=Add target="main">IP访问控制添加</a> | <a href=Admin_LockIP.asp target=main>管理</a></td> </tr> <!---IP控制插件结束---> <td height=20><a href=\'Admin_Template.asp?ChannelID=0\' target=\'main\'>网站首页模板管理</a></td> </tr>
3、导入压缩包内的LockIP.mdb中的表到您的ACCESS数据库中,如果您使用的是SQL数据库请使用以下SQL查询来加入表:(本步骤要求把LockIP.mdb中的表LockIP导入到动易数据库中,如果没有正确操作可能会引起IP地址段无法添加而限制不成功)
if exists (select * from dbo.sysobjects where id = object_id(N\'[dbo].[LockIP]\') and OBJECTPROPERTY(id, N\'IsUserTable\') = 1) drop table [dbo].[LockIP] GO
CREATE TABLE [dbo].[LockIP] ( [id] [int] IDENTITY (1, 1) NOT NULL , [ip1] [float] NULL , [ip2] [float] NULL , [sip1] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [sip2] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO
4、在您想加入IP访问控制的栏目中,找到用于显示文章内容的文件(如Article系统的ShowArticle.asp文件中)作以下修改: 在<!--#include file="Article_Syscode.asp"-->下面加入: <!--#include file="../inc/function.asp"--> <% \'********************IP访问控制插件代码开始******************** if LockIP(Request.ServerVariables("REMOTE_ADDR")) then FoundErr=True ErrMsg=ErrMsg & "<br><br><li>对不起,您的IP已经被限制不能访问本项内容。</li><li>请和管理员联系"&WebmasterEmail&"。</li>" call WriteErrMsg() response.end end if
function LockIP(sip) dim str1,str2,str3,str4,sql,rs dim num LockIP=false if isnumeric(left(sip,2)) then str1=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str2=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str3=left(sip,instr(sip,".")-1) str4=mid(sip,instr(sip,".")+1) if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then else num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1 sql="select count(*) from LockIP where ip1 <="&num&" and ip2 >="&num&"" set rs=conn.execute(sql) if rs(0)>0 then LockIP=true end if set rs=nothing end if end if end function
sub WriteErrMsg() dim strErr strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv=\'Content-Type\' content=\'text/html; charset=gb2312\'>" & vbcrlf strErr=strErr & "<link href=\'" & strInstallDir & "Admin/Admin_Style.css\' rel=\'stylesheet\' type=\'text/css\'></head><body><br><br>" & vbcrlf strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class=\'border\' align=center>" & vbcrlf strErr=strErr & " <tr align=\'center\' class=\'title\'><td height=\'22\'><strong>IP访问控制</strong></td></tr>" & vbcrlf strErr=strErr & " <tr class=\'tdbg\'><td height=\'100\' valign=\'top\'><b>产生错误原因:</b>" & errmsg &"</td></tr>" & vbcrlf strErr=strErr & " <tr align=\'center\' class=\'tdbg\'><td>" strErr=strErr & "<a href=\'javascript:window.close();\'>【关闭】</a>" strErr=strErr & "</td></tr>" & vbcrlf strErr=strErr & "</table>" & vbcrlf strErr=strErr & "</body></html>" & vbcrlf response.write strErr end sub
\'********************IP访问控制插件代码结束******************** 大家也可以下载我改好的文件参考,解压后盖到动易目录下的Article目录中,然后进入后台到系统设置中加入相应的IP地址即可实现对文章系统内容的访问控制。
本帖包含附件
5、第四步可以实现只能让访问者看到页面、标题等,但访问标题下的具体内容,如果想实现对整个系统控制,则可以在相应栏目的index.asp中或其实必调用文件中加入第四步的代码。方法很多,大家可以一试。
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:00:01 --
1、显示文章列表栏的背景的修改。(原创)
现象:首页最新文章、推荐文章等栏目的文章列表内,背景是一条灰一条白。
目标:背景改为白色或下画线。
方法:后台——风格管理——修改风格设置:找到
.listbg /* --栏目文章列表内容间隔颜色的定义1-- */ {background:#ffffff; } .listbg2 /* --栏目文章列表内容间隔颜色的定义2-- */ {background:#f7f7f7; }
将其中的红色部分改为:
.listbg /* --栏目文章列表内容间隔颜色的定义1-- */ {background:url(skin/blue/f3.gif); } .listbg2 /* --栏目文章列表内容间隔颜色的定义2-- */ {background:url(skin/blue/f3.gif); } 注意:skin/blue/f3.gif是自己加的背景图片,你可以选择你喜欢的图片(注意图片尺寸)。
效果:(因无法上传图片,所以暂时空缺)(测试成功)
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:00:30 -- [转帖]完善动易首页的搜索功能
众所周知,动易首页的搜索只有四项,但我们的网站栏目往往不只四项。今天修改首页模板的时候,无意中看了搜索代码,原来完全可以自己另外加上其它频道的搜索功能。看下面的代码:
<input name="Channel" type="radio" value="Article" style="border:0" checked onClick="javascript:document.search.action=\'Article/search.asp\';document.search.Field.value=\'Title\';"> 文章 <input type="radio" name="Channel" value="Soft" style="border:0" onClick="javascript:document.search.action=\'Soft/search.asp\';document.search.Field.value=\'SoftName\';"> 下载<br> <input type="radio" name="Channel" value="Photo" style="border:0" onClick="javascript:document.search.action=\'Photo/search.asp\';document.search.Field.value=\'PhotoName\';"> 图片 <input type="radio" name="Channel" value="bbs" style="border:0" onClick="javascript:document.search.action=\'bbs/queryresult.asp?sType=2&pSearch=1&SearchDate=ALL&Stable=bbs1&boardid=0\';document.search.Field.value=\'Title\';"> 论坛<br>
比如我的网站有书画频道,在首页加上书画的搜索,方法是复制图片的搜索代码。 <input type="radio" name="Channel" value="Photo" style="border:0" onClick="javascript:document.search.action=\'Photo/search.asp\';document.search.Field.value=\'PhotoName\';"> 图片
将\'Photo/search.asp\'改为我的书画所在目录\'mjsh/search.asp\' 再将图片改成“书画”,搞掂。
如果是文章频道克隆的其它频道,就必须改一下input type="radio" name="Channel" value="Photo" style="border:0" 这句中的“Photo”,将其改成文章频道在数据库中的表名:"Article" ,下载频道克隆的频道就变成"Soft"。效果如下:
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:00:51 -- 、[转帖]4.03首页最新留言的人性化修改 当你进入网站的首页,看到最新留言时,是不是很想知道哪些留言已经被管理员回复了,哪些还没有回复?尤其是留言者和管理员更希望看到这种效果吧。在WZZ-2004 的指导下,我做了如下修改(对应的语句后面作了注释)。如果留言被管理员(在后台)回复了,那么网站首页留言标题后面自动显示 [XXX已回复] 字样(XXX即管理员的名字),或者新旧留言的颜色有所区别,或者站长回复的留言标题突出了颜色,或者几天内的新留言加上了NEW图标。这些修改看来虽然细小,但却体现了人性化的特点。★ 演示站点: http://hyjjgxx.vicp.net/access42/ (主页右下角为“最新留言”) 1.让网站首页留言标题后面自动显示“XXX已回复”字样: ★ 详见 http://bbs.asp163.net/dispbbs.asp?boardID=27&ID=43773 下面又提供了首页最新留言的几种修改方法,均是在以上修改基础上的再修改, 仅供大家参考。2.让最新留言的标题自动按时间改变颜色: 在GuestBook\\newguest.asp中找到: response.write "document.write(\'"&title&"\');" 用下面代码替换: if datediff("d",rsGuest("GuestDatetime"),date())<5 then \'jgxx_zb添加修改 response.write "document.write(\'" & htmlencode(title) & " \');" \'jgxx_zb添加修改 else response.write "document.write(\'"&title&"\');" end if3.让最新留言的标题自动按站长是否已回复而改变颜色: 将上面第2种方法代码中的 if datediff("d",rsGuest("GuestDatetime"),date())<5 then \'jgxx_zb添加修改 改为: if len(rsGuest("GuestReply")) >0 then \'jgxx_zb添加修改4.让最新留言的标题后面按时间控制自动加上NEW图标: 将上面第2种方法代码中的 response.write "document.write(\'" & htmlencode(title) & " \');" \'jgxx_zb添加修改 改为: response.write "document.write(\'" & htmlencode(title) & " \');" \'jgxx_zb添加修改5.上面几种方法可以根据个人喜好选择其中一种,也可以相互组合使用。 其中的<5 ,表示时间为5天之内 的留言。附:●3.51首页最新留言的人性化修改【分享】 http://bbs.asp163.net/dispbbs.asp?boardID=24&ID=35082 点击浏览该文件 (只改了一个文件newguest.asp)
http://bbs.asp163.net/dispbbs.asp?BoardID=27&ID=44772
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:01:05 --
4、各页面顶部栏目导航的制作(原创)
页面加上导航后,可以让浏览者方便的进入相应栏目,了解整站大致情况。现将制作方法发出来(效果见本站。)
后台——系统设置——首页(或文章)模板管理——修改模板——将代码复制到DW中,在{$ShowAD1}上方插入一行,将导航表格放入你需要的位置——将修改好的代码复制到模板中——保存修改,OK!
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:01:18 -- 、批量移动文章的方法
现象:有时要把一些栏目的文章移动到另一个频道,就需要用到批量移动文章的功能。但经过实验,发现如果直接把栏目移动到新栏目中(新栏目中无子栏目),往往容易多出一个“##栏目文章列表”,但在后台却看不到这栏目(因为它不是一个栏目,而是子栏目外的文章)。
解决办法:在文章管理中,选中要移动的栏目,在下面选择“批量移动”,问题就可以解决了。(直接选择“批量移动”工具容易出问题,最好现在新频道中建立相应的子栏目,然后用以上方法移动。)
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:01:31 -- 、(转帖)首页公告显示内容的修改方法
以下是引用gmxq 在2004-11-5 12:04:40的发言: 此主题相关图片如下:
思路受DVBBS论坛新帖调的启发。
采用<SCRIPT src=?????.asp></SCRIPT>调用
第一步:保存下载内容为gonggao.asp,存到网站根目录下,和COON.asp放在一个目录下。
<!--#include file="conn.asp"--> <!--#include file="inc/ubbcode.asp"--> <% dim sqlAnnounce,rsAnnounce sqlAnnounce="select top 30 * from PE_Announce where IsSelected=True order by ID Desc" Set rsAnnounce= Server.CreateObject("ADODB.Recordset") rsAnnounce.open sqlAnnounce,conn,1,1 if rsAnnounce.bof and rsAnnounce.eof then response.write "document.write(\'<p> 没有通告</p>\');" else do while not rsAnnounce.eof response.Write "document.write(\'<br>标题:"&rsAnnounce("title")&"\');" response.Write "document.write(\'<br>内容:<br><b>"&ubbcode(dvHTMLEncode(rsAnnounce("Content")))&"</b>\');" response.Write "document.write(\'<br>发布:<b>"&rsAnnounce("Author")&"</b>\');" response.Write "document.write(\'<br>时间:"&FormatDateTime(rsAnnounce("DateAndTime"),1)&"\');" rsAnnounce.movenext response.write "document.write(\'<hr>\');" loop end if rsAnnounce.close set rsAnnounce=nothing %>
第二步,在首页模板中替换{$ShowAnnounce(1,5)}
为<SCRIPT src=gonggao.asp></SCRIPT>
应该就行了吧。
我是初学者,研究老半天才搞出来的。
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:01:48 -- 、(原创)统计开始日期如何修改?
问题:我在开始使用开通网站时忘了初始化,开始统计的时间是6月18日,造成日均访问量较少,请教高手,能否修改,如何修改,请指点。谢谢!
解决方法:在COUNT/Counter.mdb中修改其中的统计表(打开表看一下就知道了)。
注意:如果使用数据初始化,那么访问数据就没有了。
(测试通过)
附:原来的IP地址的数据修改也用这方法可以修改。
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:02:09 -- 、(转帖)[下载] 【历史上的今天插件】( 春之韵 2004-9-26 8:51:18 发帖)
将文件解压后上传到自由动力3.6(或者动易4.03、或者MY动力3.51)的根目录下,在频道管理中添加新频道名“历史上的今天”,链接地址为:lishi.asp
本人从未做过插件,专门作为学习研究之用,所以可能存在许多问题。此插件由“历史上的今天for dvbbs7.0”修改而来,没有做更多的美化。期待有能力的高手进一步完善之。
历史上的今天插件 for自由动力3.6 点击浏览该文件
历史上的今天插件 for动易4.03 点击浏览该文件
历史上的今天插件 for MY动力3.51
点击浏览该文件 详情见http://bbs.asp163.net/dispbbs.asp?boardID=25&ID=61541&page=1
注:经测试,通过,只是页面有点不齐,期待改进。
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:03:04 --
、(转帖)如何把文章频道的栏目菜单加入整个网站的首页中?( 转自动易帮助站 )
将以下代码放入后台网站首页模板顶部代码中: <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="top_nav_menu" style="word-break:break-all;Width:fixed"> <tr align="center"> <td><script type=\'text/javascript\' language=\'javascript1.2\' src=\'{$InstallDir}js/stm31.js\'></script> <script language=\'javascript1.2\' type=\'text/javascript\' src=\'{$InstallDir}Article/JS/ShowClass_Menu.js\'></script> </td> </tr> </table> 说明:ShowClass_Menu.js需要stm31.js的配合才能使用。
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:03:23 --
、(转帖) 如何使网站首页的最新图片能向左滚动显示 ?(转自动易帮助站 )
进入后台〔系统设置〕-〔网站首页模板管理〕,修改网站首页模板,找到 <!--最新图片更新代码开始--> ...... <td height="100" valign="top" Class="main_tdbg_575">{$GetPicPhoto(3,0,True,0,4,False,False,0,1,1,130,90,20,0,True,4)}</td> ...... <!--最新图片更新代码结束-->
将上面红色的代码改成下面的代码: ======================================= <!--最新图片更新代码开始--> ...... <td height="100" valign="top" align="center" Class="main_tdbg_575"> <div id=demo style=overflow:hidden;height:118px;width:530px;><table align=left cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top> {$GetPicPhoto(3,0,True,0,8,False,False,0,1,1,130,90,20,0,True,6)} </td><td id=demo2 valign=top></td></tr></table></div> <script> var speed=15 demo2.innerHTML=demo1.innerHTML function Marquee1(){ if(demo2.offsetWidth-demo.scrollLeft<=0) demo.scrollLeft-=demo1.offsetWidth else{ demo.scrollLeft++ } } var MyMar1=setInterval(Marquee1,speed) demo.onmouseover=function() {clearInterval(MyMar1)} demo.onmouseout=function() {MyMar1=setInterval(Marquee1,speed)} </script> </td> ...... <!--最新图片更新代码结束--> =======================================
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:03:33 -- 、(转帖)评论怎样不经过审核直接发表 ?(转自动易帮助站 ) :Comment.asp文件 中的SaveComment()函数: rsComment("WriteTime")=now()rsComment("Passed")=False rsComment.updateFalse 改成True 就可以了 另外:call WriteSuccessMsg("发表评论成功!请等候管理员的审核!审核后才会显示") 改成call WriteSuccessMsg("发表评论成功!")
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:03:55 --
、(转帖)在修改模板时如何知道我要的频道的ID和栏目的ID是什么 ?(转自 动易帮助站 )
在制作模板时,修改相关函数时需要知道所要调用的频道的ID和栏目的ID。 请看下面的图示:
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:04:08 --
、(转帖)公告显示内容不全的解决办法 (转自动易帮助站 )
问:当站点公告的内容太多时,在当前页面无法全部显示,而且最大化的按钮也是灰色的,不能用。该如何解决?
修改 Announce.asp文件
在这页的表格<table>...</table>外面加上: <DIV style="HEIGHT: 440px; WIDTH: 400px; overflow=auto"> <table> ... </table> </div> 就可以了 ==============================================================================================
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:04:56 -- 滚动条颜色,在后台"网站模版管理"下的“修改css样式”中。 在“修改css 内容”里 scrollbar-face-color: #377ED0; 滚动条凸出部分的颜色 scrollbar-shadow-color: #E5EEFD; 立体滚动条阴影的颜色 scrollbar-highlight-color: #E5EEFD; 滚动条空白部分的颜色 scrollbar-3dlight-color: #377ED0; 滚动条亮边的颜色 scrollbar-darkshadow-color: #377ED0; 滚动条强阴影的颜色 scrollbar-track-color: #E5EEFD;滚动条的背景颜色 scrollbar-arrow-color: #E5EEFD;上下按钮上三角箭头的颜色
-- 作者:wuzx -- 发布时间:2004-11-15 上午 01:05:30 --
首页图片的边框怎么加上去?
在风格里加入
.pic1 /* 图片边框 */ { background-color: #ffffff; border: 1px solid #000000; padding: 5px; }
对照修改