GD空间自动链程序出现“？”

8873270 · 发表于 2009-11-5 21:26:33

自动链程序出现“？”后台也是一样的，而且自动生成文件是0字节，请斑竹帮忙

http://51zsf.com/

add.c · 发表于 2009-11-5 21:50:53

看不到文件
是不是使用中文文件夹？

8873270 · 发表于 2009-11-5 21:57:08

现在就是生成的HTM文件是0字节

add.c · 发表于 2009-11-5 22:14:19

是不是没有设置读写权限
另外参考下这个帖子，他情况和你的类似
http://bbs.idcspy.com/thread-54890-1-1.html

8873270 · 发表于 2009-11-5 22:37:54

自动链程序：生成htm文件0字节  create。ASP文件代码：请问该怎么改


<%
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>

[ 本帖最后由 8873270 于 2009-11-5 10:39 PM 编辑 ]

add.c · 发表于 2009-11-5 22:41:18

具体怎么修改需要看自己动手
这里还有一个类似帖子：http://bbs.idcspy.com/thread-31808-1-1.html

8873270 · 发表于 2009-11-5 22:58:48

我不知道，我的出现0字节的原因，我的ACCESS数据库请版主明示，版主加我：869398915

add.c · 发表于 2009-11-6 10:15:37

不用加你了，刚才仔细看了下你的代码使用的是“createobject"
为了安全原因GoDaddy是不支持CFObject的
对文件的fso操作要用adodb.stream，你考虑修改代码吧

8873270 · 发表于 2009-11-6 12:22:19

版主你这有支持我这个程序代码的国外空间吗

add.c · 发表于 2009-11-6 13:19:49

这个我不清楚，你问问lunar pages和ixwebhosting 看看他们的Windows空间是否支持CFObject

[其他] GD空间自动链程序出现“？”

现在就是生成的HTM文件是0字节

回复 3# 的帖子

回复 7# 的帖子

回复 9# 的帖子

GoDaddy讨论

[其他] GD空间 自动链程序出现“？”

现在就是生成的HTM文件是0字节

回复 3# 的帖子

回复 7# 的帖子

回复 9# 的帖子

GoDaddy讨论

[其他] GD空间自动链程序出现“？”