win空间sdcms生成html 0大小，如何解决

master9989 · 发表于 2009-8-24 13:29:33

sdcms程序，生成html是全部是0大小

附件是生成页面代码，有人会改吗？

create.rar (2.8 KB, 下载次数: 332)

add.c · 发表于 2009-8-24 13:37:04

目录设置读写权限

master9989 · 发表于 2009-8-24 13:54:11

写权限肯定给了，不然0KB的文件无法生成出来。

有看到过这样的解决方案：
fs.CreateTextFile(server.MapPath(filepath),true,UTF-8) 后面加,UTF-8
但是我的问题是：
1）SDCMS是gbk2312编码，加UTF-8行吗？
2）他的生成页面比较复杂，不知道那里加？

add.c · 发表于 2009-8-24 14:07:54

具体结果怎样肯定要自己测试
修改你程序生成页面的那串代码

ARLOVE · 发表于 2009-8-27 09:48:41

我也是同样的问题呵呵不过还在研究

ARLOVE · 发表于 2009-8-27 23:06:33

呵呵，楼主，不是改这个文件，你应该改inc/function.asp这个文件，找到Set oStream = oFSO.CreateTextFile(sFile,True)改成Set oStream = oFSO.CreateTextFile(sFile,True,utf-8)
可以解决生成html文件空白的问题，但是现在可能会出现一个新问题，如果你的页面上有汉字，那么你最好把文字都做成标签调用，也就是写到数据库里面后在输出来，要不然会乱码的，呵呵！

8873270 · 发表于 2009-11-5 22:28:40

我的没这个文件，不知道在哪里修改呀

8873270 · 发表于 2009-11-5 22:34:13

这个该改哪里：

<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<HTML>
<HEAD>
<TITLE>生成页面</TITLE>
<META NAME="Generator" C>
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
<tr>
<td bgcolor="#cccccc" align="center">生成分类页面</td></tr>
<tr>
<td bgcolor="#eeeeee"><br>
<%
dim allsel
dim rs(5)
function listunder(i)
set rs(i)=server.createobject("adodb.recordset")
rs(i).open "select classid,classname from feilei where topclass="&rs(i-1)("classid"),conn,1,3
while not rs(i).eof
  dim topclassname
  topclassname=""
  for x=0 to i-1
topclassname=topclassname&rs(x)("classname")&"＞"
  next
  response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&"</option>"&vbCrLf
  allsel=allsel & ";" & rs(i)("classid")
            if i<Ubound(rs) then
call listunder(i+1)
  end if
  rs(i).movenext
wend
end function
%>
<script language=javascript></script>
<script language=vbscript>
function wz_add(theform)
on error resume next
wz_add=false
dv1.style.display="none"
dv2.style.display=""

set xht=createobject("microsoft.xmlhttp")

ppp=split(theform.classid.value,";")
for iss=0 to ubound(ppp)
document.forms(1).textlog.value=document.forms(1).textlog.value & "开始生成>>" & ppp(iss)
xht.open "get","../create_html.asp?classid=" & ppp(iss) & "&" & now(),false
xht.send
if xht.resp then document.forms(1).textlog.value=document.forms(1).textlog.value & " 成功！" else document.forms(1).textlog.value=document.forms(1).textlog.value & " 失败！"
document.forms(1).textlog.value=document.forms(1).textlog.value & chr(13) & chr(10)
next
alert "完成！"
dv1.style.display=""
end function
</script>
<div id=dv1>
<form action="../create_html.asp" method="post"  name="form1">
选择要生成的类别：<select name="classid">
<option selected value="0">生成所有类别</option>
<%
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname from feilei where topclass=0",conn,1,3
while not rs(0).eof
response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&"</option>"&vbCrLf
if allsel="" then allsel= rs(0)("classid") else allsel= allsel & ";" & rs(0)("classid")
      call listunder(1)
rs(0).movenext
wend
response.write "<option selected value=""" & allsel & """>生成所有类别</option>"
%>
</select>
<input type="submit" value="马上生成HTML文件">
</form>
<br>生成所有类别时速度较慢，请耐心等待！第一次请选所有类别。
</div>
<div id=dv2 style="display:none"><form>
<textarea name="textlog" cols="80" rows="25"></textarea></form>
</div>
<br></td></tr>
</table>
</BODY>
</HTML>

[提问] win空间sdcms生成html 0大小，如何解决

问题解决

评分

浏览过的版块

GoDaddy讨论