求助帮忙修改下ASP代码

红色旋风 · 发表于 2011-5-9 14:31:41

由于最近GODADDY空间根目录无法设置写权限所以无法生成主页想修改下主页文件的生成的路径不生成在根目录下新建个子目录aaa 把主页文件生成在这个目录下然后手动从aaa目录下把文件在复制到根目录下虽然烦琐但是也是个解决办法

但是代码我不会修改请大家帮下忙下面是生成主页的代码
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2009 佛山市动易网络科技有限公司版权所有
'**************************************************************

Const NeedCheckComeUrl = True '是否需要检查外部访问

Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限

ChannelID = 0
Response.Write "<html><head><title>生成网站首页</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf

If FileName_SiteIndex = "Index.asp" Then
Response.Write "因为网站配置中未启用网站首页生成HTML功能，所以不用生成首页。"
Response.End
End If
Response.Write "正在生成网站首页（" & InstallDir & FileName_SiteIndex & "）……"

Call GetHTML_SiteIndex

Call WriteToFile(InstallDir & FileName_SiteIndex, strHTML,"gb2312")

Response.Write "……………………生成网站首页成功！" & "</b>" & vbCrLf
Response.Write "</body></html>"
Call CloseConn
%>

lwbo1987 · 发表于 2011-5-9 14:43:46

ASP不懂！

红色旋风 · 发表于 2011-5-9 15:27:30

问题解决

Response.Write "正在生成网站首页（" & InstallDir & "aaa/" & FileName_SiteIndex

& "）……"

Call GetHTML_SiteIndex

Call WriteToFile(InstallDir & "aaa/" & FileName_SiteIndex, strHTML,"gb2312")

[其他] 求助帮忙修改下ASP代码

GoDaddy讨论