[技术] 分享MAXCMS1.0的生成播放页全部HTML的代码

我一直在希望老马可以做下个版本的时候,会支持这样的功能, T( {! o; S- P# D5 N) K% H  X& t
播放页全部可以生成HTML, d" |; Y2 O" H) {+ r; C
后来得知1.0之后可能不会有这样的功能了
6 d9 |3 A& Z. a& x所以这几天一直在研究怎么生成" K& J& n. {" [9 t
今天从我朋友那里看到那个60DU.NET的生成分类的方法4 j3 W, ^7 P  V1 H
运用到1.0竟然也让我生成成功了* e0 i9 T: r  O: {% S% U
不过呢,还没完善,希望老马和其他高手们可以指点一二# q: M6 j2 l* s  Y  T1 ]
: K& u' S7 A6 W, T% ^
方法是这样的:
0 U  v. N$ }5 @" u. ]& t3 U6 Y1.先在make_view.asp文件里找到
9 V) w3 j5 y) L- f4 P

复制内容到剪贴板

代码:


If InStr(a(i),"$")>0 Then
                                url_=url_&"<a{blank} href=""play.html?"&Split(a(i),"$")(1)&","&zt_dy&zt_dy_domain&""">"&Split(a(i),"$")(0)&"</a>"
                        Else
                                url_=url_&"<a{blank} href=""play.html?"&a(i)&","&zt_dy&zt_dy_domain&""">第"&ii&"集</a>"
                        End If
                End if
        End If

然后加一行插入这段代码 3 x/ l" `; q6 s0 d

复制内容到剪贴板

代码:


call view_play(zt_id,ai,zt_dy_domain,ii)

接着在这个make_view.asp文件的最后4 I3 |' Q+ |2 V) g

复制内容到剪贴板

代码:


call web_clear()

前面加入 " C2 }4 W, \7 U$ Q

复制内容到剪贴板

代码:


sub view_play(zt_id,ai,zt_dy_domain,ii)
                        html_template_play=FSOFileRead("../template/default/html/play.html")
                        m_view_path ="../"&zt_id&"/"&ii&".html"
                        call createhtml(m_view_path,html_template_play)
                        response.write "恭喜，<font color=red>"&zt_name&"</font>生成成功！地址为：<a href="""&m_view_path&""" target=_blank>"&m_view_path&"</a><br>"
end sub

这样就可以生成了& C: D; W5 [5 ~/ e' a, X) _
但原来的标签就失效了(这个可能是没有读取了上面的函数吧)# a# r* W3 g$ Y1 y) b) n
如果大家有兴趣的话可以一起做做看
5 G6 t7 \6 g; b8 R0 d- y如果你们做完美了,记得告诉我一下怎么写咯+ \& i6 u6 V( w  |
谢谢