求自动生成默认静态html首页是显示错误

uyghur 2007-03-12 01:53:31
我把编码为gb2312的blog系统改成utf-8是,自动生成默认静态html首页显示错误。错误提示:Microsoft VBScript 运行时错误 (0x800A0005)无效的过程调用或参数
/uyblog/index.asp, 第 18 行
下面是 index.asp 的代码:
----------------
const index_file="index.html" '自动生成默认静态首页文件名,不能修改为index.asp,其他文件名均可
Dim fso,tf
Set fso = CreateObject("Scripting.FileSystemObject")
if Application(oblog.cache_name&"index_update")=false and fso.FileExists(server.mappath(index_file)) and DateDiff("s",Application(oblog.cache_name&"index_updatetime"),Now())<oblog.setup(17,0) then
set fso=nothing
response.Redirect(index_file)
else
dim rstmp
set rstmp=oblog.execute("select skinmain from oblog_sysskin where isdefault=1")
show=show&rstmp(0)
set rstmp=nothing
call indexshow()
show=show&oblog.site_bottom
Set tf = fso.CreateTextFile(replace(Server.MapPath("index.asp"),"index.asp",index_file), True)
tf.Write (show)
tf.close
set tf=nothing
set fso=nothing
Application.Lock
Application(oblog.cache_name&"index_update")=false
Application(oblog.cache_name&"index_updatetime")=now()
application(oblog.cache_name&"list_update")=true
application(oblog.cache_name&"class_update")=false
Application.unLock
if request("re")<>"0" then
response.Redirect(index_file)
end if
end if
%>

----------
是18行这个代码有问题 tf.Write (show)
我的操作是把系统文件里面各带gb2312的代码都改成utf-8,还有把两个文件里面的<%@language=vbscript codepage=936%> 改成<%@language=vbscript codepage=65001%>
我这样改后首页就显示上面提示的错误,也不能正常显示自动生成默认静态html首页。
我实在找不到原因了。
...全文
144 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧