%@ LANGUAGE = VBScript.Encode %>
生成首页及其他主页面
<%
if Instr(session("AdminPurview"),"|34,")=0 then
response.write ("
您没有管理该模块的权限!
")
response.end
end if
if ISHTML = 0 then
response.Write ""
response.End
end If
%>
<%
call htmll("/CH/","/CH/","Index."&HTMLname&"","Index.asp","","","","")
call htmll("/EN/","/EN/","Index."&HTMLname&"","Index.asp","","","","")
Response.Write ""
Response.Flush
call htmll("/CH/","/CH/",""&AboutNameDiy&"."&HTMLname&"","About.asp","","","","")
call htmll("/EN/","/EN/",""&AboutNameDiy&"."&HTMLname&"","About.asp","","","","")
Response.Write ""
Response.Flush
call htmll("/CH/","/CH/",""&NewSortName&"."&HTMLname&"","NewsList.asp","","","","")
call htmll("/EN/","/EN/",""&NewSortName&"."&HTMLname&"","NewsList.asp","","","","")
Response.Write ""
Response.Flush
call htmll("/CH/","/CH/",""&ProSortName&"."&HTMLname&"","ProductList.asp","","","","")
call htmll("/EN/","/EN/",""&ProSortName&"."&HTMLname&"","ProductList.asp","","","","")
Response.Write ""
Response.Flush
call htmll("/CH/","/CH/",""&JobSortName&"."&HTMLname&"","JobsList.asp","","","","")
call htmll("/EN/","/EN/",""&JobSortName&"."&HTMLname&"","JobsList.asp","","","","")
Response.Write ""
Response.Flush
call htmll("/CH/","/CH/",""&DownSortName&"."&HTMLname&"","DownList.asp","","","","")
call htmll("/EN/","/EN/",""&DownSortName&"."&HTMLname&"","DownList.asp","","","","")
Response.Write ""
Response.Flush
call htmll("/CH/","/CH/",""&OtherSortName&"."&HTMLname&"","OtherList.asp","","","","")
call htmll("/EN/","/EN/",""&OtherSortName&"."&HTMLname&"","OtherList.asp","","","","")
Response.Write ""
Response.Flush
Response.Write ""
Response.End
%>