<% data_path="../../../" 'ACC连接数据库路径,对SQL无效 %> <% if request.Cookies("masterflag")="" or request.Cookies("masterflag")="" then response.write "" response.end end if '权限限制^^^^^^^^^^^^^^^^^^^^ dim ishavegant ishavegant=false in_str=split(request.Cookies("masterflag"),",") for each ins in in_str if trim(ins)="010" then ishavegant=true end if next if ishavegant=false then response.redirect "../../../admin/err.asp" response.end end if action=Request.QueryString("act") if action<>"" then Set rs=Server.createobject("ADODB.RecordSet") rs.Open ("select home_index,Co_index,produts_index,news_index,msg_index,Contact,map from benming_ch_worldec_Temp where selected=1"),conn,1,1 If rs.Eof Then Response.Write("

     对不起!该模版不存在!返回") Response.End() End If If Not rs.Eof Then Select Case action Case "index" Which_page="/Index.html" '生成的网站首页文件名(或路径) Code_index=rs("home_index") '模版内容 Case "Contact" Which_page="/Contact.html" '生成的网站联系我们文件名(或路径) Code_index=rs("Contact") Case "msg" Which_page="/msg.html" '生成的网站联系我们文件名(或路径) Code_index=rs("msg_index") Case "map" Which_page="/Map.html" '生成的网站联系我们文件名(或路径) Code_index=rs("map") Case "search" Which_page="/Search.asp" Code_index="/templets/blue/search.htm" Case Else End Select rs.Close Set rs=Nothing End if '处理生成页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set fso = YXFSO '取模板内容 Set sort_save=fso.OpenTextFile(Server.MapPath(Code_index)) Web_str=sort_save.ReadAll sort_save.close '替换标签生成html页^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ str=Hope_HtmlResult(Web_str) Set sort_save = fso.CreateTextFile(Server.Mappath(Which_page)) sort_save.Write str sort_save.Close '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Response.Write "

生成完毕。点击查看  返回" conn.Close Set conn=Nothing else %> 生成各大栏目首页

生成各首页静态页面操作:请点击相关项进行生成操作!
生成网站首页 生成联系我们 生成在线留言  生成搜索  网站地图
返回
<%end if%>