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

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的时候,就会很慢。

不知道说的清楚不。在线等
...全文
99 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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条。

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧