就差一点,系统就完成了。

opbsm 2004-11-23 04:15:12
我做了一个新闻系统。是全静态的。从首页到文章页面(包括分页显示,没有JS调用)
我的思路是:
做好一个网页的摸版:然后有replace来替换摸版相应的类容。
代码如下:
pencat=replace(pencat,"T_TITLE",bt)拦目列表
pencat=replace(pencat,"T_List",lb)文章列表。

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("html/"&tid&"_"¤tPage&".htm"))
fout.Write pencat
fout.close
我只要在摸版中加上一个T_List,那摸生成的时候就是文章的列表。

我遇到了一个问题:当版面要求很高或是不很规则的时候,就有点不能用了,那就是文章的调用遇到了问题。
例如:我的一个页面:要单独调用”娱乐新闻“拦目的文章10条。那思路是如何呢。我总不能单独写一个代码然后在摸版上加:List_1。
我想过写JS代码来调用,但是当一个有6、7个JS的时候,就会很慢。

不知道说的清楚不。在线等
...全文
71 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yqh1314 2004-11-23
看不明白是什么意思! pencat=replace(pencat,"T_List?#",outcat)是参数吗?还是`````````
回复
deerchao 2004-11-23
这个是说你要找到形式为T_list?加一个数字的子串(asp没有这个函数,但有类似的函数,用jscript的正则表达式方便一点);然后取出其中的数字放在i里。

对vbs的函数记得不是太清了,所以就写了伪码。。。
回复
opbsm 2004-11-23
i=search("T_list?#")."#"这是个什么东西啊
回复
deerchao 2004-11-23
先要查找到要替换的地方,然后取出显示的条数,然后循环输出到临时变量,再替换到pencat...

注:上面是P-code,不要直接运行哦。。。
回复
deerchao 2004-11-23
不是啊,

i=search("T_list?#")."#"
for i=i to 1
outcat+=....
next
pencat=replace(pencat,"T_List?#",outcat)
回复
opbsm 2004-11-23

shu=10

pencat=replace(pencat,"T_List&shu",lb)

上面的代码有没有错误啊
回复
deerchao 2004-11-23
把模版里要用到可变数量的都改成:
T_List?*的形式。只要在替换时先查出所有的这类形式就可以进一步处理了。

T_list?0显示全部,T_list?10显示10条。
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-23 04:15
社区公告
暂无公告