admin_maketemp.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<!-- #include file="../conn.asp" --><%Response.buffer=False %><!-- #include file="session.asp" --><!--#include file="../inc/config.asp"-->
<link href="css.css" rel="stylesheet" type="text/css"><%
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rstemp=server.createobject("adodb.recordset")
rstemp.open ("select * from [Template] where id="&id&""),connTemp,1,1
Temp_Name=rstemp("Temp_Name")
SystemPath=rstemp("SystemPath")
Page_Css=rstemp("Page_Css")
Page_Head=rstemp("Page_Head")
Page_top=rstemp("Page_top")
Page_bottom=rstemp("Page_bottom")
Page_Foot=rstemp("Page_Foot")
Page_Index=rstemp("Page_Index")
Page_listbook=rstemp("Page_Listbook")
Page_lookbook=rstemp("Page_Lookbook")
Page_readbook=rstemp("Page_readbook")
Page_viewbook=rstemp("Page_viewbook")
Page_readviewbook=rstemp("Page_allviewbook")
Page_viewallbook=rstemp("Page_viewallbook")
Page_Search=rstemp("Page_Search")
Page_topten=rstemp("Page_topten")
Page_kfindex=rstemp("Page_kfindex")
Page_user=rstemp("Page_user")
Page_author=rstemp("Page_author")
Page_Error=rstemp("Page_Error")
Page_1=rstemp("Page_1")
moban=rstemp("moban")
viewRootFolder=""&SiteSystemPath&"" 
view_localpath = SystemPath
viewFolder = viewRootFolder&""&view_localpath

If Not CreateMultiFolder(viewFolder) Then
			Response.Write "<font color='red'><B>目录创建失败！！</B></font>"&viewFolder&"<br>"
end if


main=main&"<!-- Temp_Name -->"
main=main&chr(10)
main=main&""&Temp_Name&""
main=main&chr(10)
main=main&"<!-- Temp_Name End -->"
main=main&chr(10)

main=main&"<!-- SystemPath -->"
main=main&chr(10)
main=main&""&SystemPath&""
main=main&chr(10)
main=main&"<!-- SystemPath End -->"
main=main&chr(10)

main=main&"<!-- Page_Css -->"
main=main&chr(10)
main=main&""&Page_Css&""
main=main&chr(10)
main=main&"<!-- Page_Css End -->"
main=main&chr(10)

main=main&"<!-- Page_Head -->"
main=main&chr(10)
main=main&""&Page_Head&""
main=main&chr(10)
main=main&"<!-- Page_Head End -->"
main=main&chr(10)

main=main&"<!-- Page_top -->"
main=main&chr(10)
main=main&""&Page_top&""
main=main&chr(10)
main=main&"<!-- Page_top End -->"
main=main&chr(10)

main=main&"<!-- Page_bottom -->"
main=main&chr(10)
main=main&""&Page_bottom&""
main=main&chr(10)
main=main&"<!-- Page_bottom End -->"
main=main&chr(10)

main=main&"<!-- Page_Foot -->"
main=main&chr(10)
main=main&""&Page_Foot&""
main=main&chr(10)
main=main&"<!-- Page_Foot End -->"
main=main&chr(10)

main=main&"<!-- Page_Index -->"
main=main&chr(10)
main=main&""&Page_Index&""
main=main&chr(10)
main=main&"<!-- Page_Index End -->"
main=main&chr(10)

main=main&"<!-- Page_VIPIndex -->"
main=main&chr(10)
main=main&""&Page_VIPIndex&""
main=main&chr(10)
main=main&"<!-- Page_VIPIndex End -->"
main=main&chr(10)

main=main&"<!-- Page_listbook -->"
main=main&chr(10)
main=main&""&Page_listbook&""
main=main&chr(10)
main=main&"<!-- Page_listbook End -->"
main=main&chr(10)

main=main&"<!-- Page_lookbook -->"
main=main&chr(10)
main=main&""&Page_lookbook&""
main=main&chr(10)
main=main&"<!-- Page_lookbook End -->"
main=main&chr(10)

main=main&"<!-- Page_readbook -->"
main=main&chr(10)
main=main&""&Page_readbook&""
main=main&chr(10)
main=main&"<!-- Page_readbook End -->"
main=main&chr(10)

main=main&"<!-- Page_viewbook -->"
main=main&chr(10)
main=main&""&Page_viewbook&""
main=main&chr(10)
main=main&"<!-- Page_viewbook End -->"
main=main&chr(10)

main=main&"<!-- Page_readviewbook -->"
main=main&chr(10)
main=main&""&Page_readviewbook&""
main=main&chr(10)
main=main&"<!-- Page_readviewbook End -->"
main=main&chr(10)

main=main&"<!-- Page_viewallbook -->"
main=main&chr(10)
main=main&""&Page_viewallbook&""
main=main&chr(10)
main=main&"<!-- Page_viewallbook End -->"
main=main&chr(10)

main=main&"<!-- Page_Search -->"
main=main&chr(10)
main=main&""&Page_Search&""
main=main&chr(10)
main=main&"<!-- Page_Search End -->"
main=main&chr(10)

main=main&"<!-- Page_topten -->"
main=main&chr(10)
main=main&""&Page_topten&""
main=main&chr(10)
main=main&"<!-- Page_topten End -->"
main=main&chr(10)

main=main&"<!-- Page_kfindex -->"
main=main&chr(10)
main=main&""&Page_kfindex&""
main=main&chr(10)
main=main&"<!-- Page_kfindex End -->"
main=main&chr(10)

main=main&"<!-- Page_user -->"
main=main&chr(10)
main=main&""&Page_user&""
main=main&chr(10)
main=main&"<!-- Page_user End -->"
main=main&chr(10)

main=main&"<!-- Page_author -->"
main=main&chr(10)
main=main&""&Page_author&""
main=main&chr(10)
main=main&"<!-- Page_author End -->"
main=main&chr(10)

main=main&"<!-- Page_Error -->"
main=main&chr(10)
main=main&""&Page_Error&""
main=main&chr(10)
main=main&"<!-- Page_Error End -->"
main=main&chr(10)

main=main&"<!-- Page_1 -->"
main=main&chr(10)
main=main&""&Page_1&""
main=main&chr(10)
main=main&"<!-- Page_1 End -->"
main=main&chr(10)

moban=replace(moban,"list_main",main)

Tempfile=server.mappath( ""&viewFolder&"moban.txt" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set fout = fso.Createtextfile(Tempfile,true)
 fout.writeline moban
fout.close
set fso=nothing
rstemp.close
set rstemp=nothing
Response.Write ("<script>alert(' 操作成功 \n\n 完成: "&Temp_Name&" 的模版导出 \n\n 导出位置在: "&viewFolder&"moban.txt ');history.back();</script>")
Response.End
%>