怎么在一个页面中调用另一个页面,在下面的代码中,用js调用另一个页面
FunctionGetIndex()dimcacheName,indexStr,x:cacheName="parsed_index"x="/"&sitePath&"tem...
Function GetIndex()
dim cacheName,indexStr,x : cacheName="parsed_index"
x="/"&sitePath&"template/"&defaultTemplate&"/"&templateFileFolder&"/ind
ex.html"
if cacheStart=1 then
if cacheObj.chkCache(cacheName) then indexStr =
cacheObj.getCache(cacheName) else parseIndex
(x):indexStr=templateObj.content:cacheObj.setCache cacheName,indexStr
else
parseIndex(x):indexStr=templateObj.content
end if
GetIndex=indexStr
End Function
Sub parseIndex(x)
with templateObj:.content=loadFile(x):.parseTopAndFoot
():.parseSelf():.parseGlobal():.content=replaceCurrentTypeId
(.content):.parseMenuList(""):.parseAreaList():.parseTopicList
():.parseVideoList():.parseNewsList():.parseLinkList:.parseIf():end
with
End Sub
if runMode="static" then
response.Redirect("/"&sitePath&"index"&fileSuffix)
else
tryDieCacheFile 0,"#video"
dim templateobj,temp: set templateobj =
mainClassobj.createObject("MainClass.template"):temp=GetIndex()
WriteCacheFile 0,"#video",temp:echo replaceStr
(temp,"{maxcms:runinfo}",getRunTime())
set templateobj =nothing : terminateAllObjects
end if
%>
用这样的方式,<script type="text/javascript" language="javascript"
src="/js.asp"></script>,显示不出来,高分悬赏 展开
dim cacheName,indexStr,x : cacheName="parsed_index"
x="/"&sitePath&"template/"&defaultTemplate&"/"&templateFileFolder&"/ind
ex.html"
if cacheStart=1 then
if cacheObj.chkCache(cacheName) then indexStr =
cacheObj.getCache(cacheName) else parseIndex
(x):indexStr=templateObj.content:cacheObj.setCache cacheName,indexStr
else
parseIndex(x):indexStr=templateObj.content
end if
GetIndex=indexStr
End Function
Sub parseIndex(x)
with templateObj:.content=loadFile(x):.parseTopAndFoot
():.parseSelf():.parseGlobal():.content=replaceCurrentTypeId
(.content):.parseMenuList(""):.parseAreaList():.parseTopicList
():.parseVideoList():.parseNewsList():.parseLinkList:.parseIf():end
with
End Sub
if runMode="static" then
response.Redirect("/"&sitePath&"index"&fileSuffix)
else
tryDieCacheFile 0,"#video"
dim templateobj,temp: set templateobj =
mainClassobj.createObject("MainClass.template"):temp=GetIndex()
WriteCacheFile 0,"#video",temp:echo replaceStr
(temp,"{maxcms:runinfo}",getRunTime())
set templateobj =nothing : terminateAllObjects
end if
%>
用这样的方式,<script type="text/javascript" language="javascript"
src="/js.asp"></script>,显示不出来,高分悬赏 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询