asp acc 不能生成静态页面

llw5511

如题 asp acc 不能生成静态页面，脚本提示生成成功 实际 并没有生成文件！
本地测试没问题 可以生成！
数据库转换成 97 的 了
代码如下！

1. <%dim Skin_Id,strOut,Skin_Html,fldr,Skin_Name
   
2. Skin_Id=Request("Skin_Id")
   
3. Menu=Request("Menu")
   
4. if Skin_Id<>"" then
   
5. rs.open"select Skin_Skin,Skin_Html,Skin_Name from Skin where Skin_Id="&Skin_Id,conn,1,3
   
6.    if not rs.eof then
   
7.       strOut=rs("Skin_Skin")
   
8.           Skin_Html=rs("Skin_Html")
   
9.           Skin_Name=rs("Skin_Name")
   
10.    else
    
11.       Response.Write("<script language=javascript>alert('没有找到模板');DivOpenClose('',2,0,0);</script>")
    
12.       Response.End()
    
13.    end if
    
14.    rs.close
    
15. rs.open"select IndexAd_Label,IndexAd_Html from IndexAd",conn,1,3
    
16. while not rs.eof
    
17. if rs("IndexAd_EndTime")<>"" then
    
18. if rsDetail("IndexAd_EndTime")>=date() then
    
19.    strOut=Replace(strOut,rs("IndexAd_Label"),rs("IndexAd_Html"))
    
20.    end if
    
21.    else
    
22.    strOut=Replace(strOut,rs("IndexAd_Label"),rs("IndexAd_Html"))
    
23. end if
    
24. rs.movenext
    
25. wend
    
26. rs.close
    
27.    strOut=Replace(strOut,"$Skin_Name$",Skin_Name)
    
28.    strOut=Replace(strOut,"$Site_TopAd$",Site_TopAd)
    
29.    strOut=Replace(strOut,"$Site_BottomAd$",Site_BottomAd)
    
30.    strOut=Replace(strOut,"$Skin_Name$",Skin_Name)
    
31.    Dim fso,f
    
32.    Call SiteLable()
    
33.     Set fso=Server.CreateObject("Scripting.FileSystemObject")
    
34.     fldr = ""
    
35.     GetNewsFold = Split(Skin_Html, "/")
    
36.     For f = 0 To UBound(GetNewsFold)-1
    
37.         if fldr="" then
    
38.                 fldr=GetNewsFold(f)
    
39.         else
    
40.                 fldr=fldr&""&GetNewsFold(f)
    
41.         end if
    
42.         If IsFolder(fldr)=false then
    
43.             CreateFolder "../"&fldr
    
44.         End If
    
45.     Next
    
46.        
    
47. 
    
48.    Set f=fso.CreateTextFile(Server.MapPath(Site_Div&Skin_Html&".html"),true)
    
49.    f.WriteLine strOut
    
50.    f.close
    
51.    fso.close
    
52.    Set f=Nothing
    
53.    Set fso=Nothing
    
54.    Response.Write("<script language=javascript>alert('生成成功');parent.window.location.reload();DivOpenClose('',2,0,0);</script>")
    
55. end if
    
56. %>

复制代码

先谢谢大家！

bhhl

GD的服务器是不支持中文的，如果你的静态页面的文件名有中文的话那么是访问不了的（虽然存在文件）。

llw5511

谢谢！ 不过生成的文件名都是英文的肯定没有中文的。
并且是不能生成文件 也就是 文件并不存在！

llw5511

谢谢大家，问题解决了是我配置的问题，忘记godaddy 不是放在根目录了！

nisheng

解决就好