生成html位0，页面空白

chenkui

不是新云，新云的论坛上有教程，另外的程序xyxcms。godaddy主机真麻烦啊

[ 本帖最后由 chenkui 于 2010-5-15 05:43 PM 编辑 ]

gypworks526

有给写权限吗？

add.c

不是新云可能解决方法也差不多的, 你先试试解决新云的方法
然后查看下这个程序生成静态页面的代码有何不同

chenkui

根目录root读写都开了的

chenkui

所有页面都不能生成html

[ 本帖最后由 chenkui 于 2010-5-15 05:35 PM 编辑 ]

chenkui

<!--#include file="conn.asp" -->
<%
dim template
template=get_html("../temp/"&web_theme&"/index.html")

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$标签，模板路径, @theme_path@
if left(web_root,1)="/" then web_root = right(web_root,len(web_root)-1)
if right(web_root,1)="/" then web_root = left(web_root,len(web_root)-1)
if web_root <>"" then web_root = "/"&web_root
template=replace(template,"@web_root@",web_root)
template=replace(template,"@theme_path@",web_root&"/temp/"&web_theme)
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$


'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$数量，标签 @allcount@
set rs=server.createobject("adodb.recordset")
sql="SELECT count(*) FROM flash"
rs.Open sql,conn,1,1  
allcount=rs(0)
rs.close
set rs = nothing  
template=replace(template,"@allshu@",allcount)
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$


'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$全局标签
template=replace(template,"@web_name@",web_name)
template=replace(template,"@web_url@",web_url)
template=replace(template,"@QQ_z@",QQ_z)
template=replace(template,"@web_descript@",web_descript)
template=replace(template,"@web_keywords@",web_keywords)
template=replace(template,"@tj@",tj)
template=replace(template,"@miibeian@",miibeian)

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$



template=Lable_Menu(template)
template=Lable_Tag(template)
template=Lable_List(template)
template=Lable_TodayCount(template)
template=Lable_FriendLink(template)

%>

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set fout = fso.CreateTextFile(server.mappath("../index.htm"))
fout.Write template
fout.close

%>
<font color="red">首页已生成! <a href="../index.htm" target="_blank" style="font-size:12px; text-decoration:none">点击打开 >></a></font>

add.c

这个不是生成静态页面的代码吧

chenkui

就是make_html_index.asp的代码。