📄 admin_tempmakeaboutauthor.asp
字号:
<!-- #include file='../conn.asp' -->
<!--#include file="../inc/config.asp"-->
<!-- #include file='session.asp' -->
<link href='css.css' rel='stylesheet' type='text/css'>
<%
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect 'adminmain.asp'
response.End
end if
id=int(id)
set rstemp=server.createobject("adodb.recordset")
sql="select Page_author from Template where id="&id&""
rstemp.open sql,connTemp,1,1
pencat1=rstemp("Page_Author")
rstemp.close
set rstemp=nothing
Function makeAuthor_book()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 作品管理 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
pencat = replace(pencat,"{$authorleft$}","<!-- #include file='AuthorInc/Author_left.asp' -->")
pencat = replace(pencat,"{$authormain$}","<!-- #include file='AuthorInc/Author_book.asp' -->")
file=server.mappath( "../Author_book.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> Author_book.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeAuthor_bookjieedit()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 作品管理 作品章节修改 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
pencat = replace(pencat,"{$authorleft$}","<!-- #include file='AuthorInc/Author_left.asp' -->")
pencat = replace(pencat,"{$authormain$}","<!-- #include file='AuthorInc/Author_bookjieedit.asp' -->")
file=server.mappath( "../Author_bookjieedit.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> Author_bookjieedit.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeAuthor_index()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 作家控制中心 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
pencat = replace(pencat,"{$authorleft$}","<!-- #include file='AuthorInc/Author_left.asp' -->")
pencat = replace(pencat,"{$authormain$}","<!-- #include file='AuthorInc/Author_index.asp' -->")
file=server.mappath( "../Author_index.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> Author_index.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeAuthor_log()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 作家登陆 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
pencat = replace(pencat,"{$authorleft$}"," ")
pencat = replace(pencat,"{$authormain$}","<!-- #include file='AuthorInc/Author_log.asp' -->")
file=server.mappath( "../Author_log.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> Author_log.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
End Function
'----------------------------------------------------------------------------------------------
Function makeAuthor()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
Author_left="<table cellspacing=0 cellpadding=0 width=100% border=0 align=center><tr><td height=31 align=center>驻站作家申请</td></tr><tr height=24 align=center><td>[ <a href=Author.asp?info=reg>申请成为作家</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_contribute.asp target=_top>作家投稿须知</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_commend.asp target=_top>收录推荐原则</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_authoradd.asp target=_top>作品签约方案</a> ]</td></tr><tr height=24 align=center><td>[ <a href=Author.asp?info=listall target=_top>查看所有作家</a> ]</td></tr></table>"
pencat = replace(pencat,"{$authorleft$}",Author_left)
pencat = replace(pencat,"{$authormain$}","<!-- #include file='AuthorInc/Author.asp' -->")
file=server.mappath( "../Author.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> Author.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
Author_left=""
End Function
'----------------------------------------------------------------------------------------------
Function makeabout_contribute()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 原创作品投稿说明 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
Author_left="<table cellspacing=0 cellpadding=0 width=100% border=0 align=center><tr><td height=31 align=center>驻站作家申请</td></tr><tr height=24 align=center><td>[ <a href=Author.Asp?info=reg>申请成为作家</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_contribute.asp target=_top>作家投稿须知</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_commend.asp target=_top>收录推荐原则</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_authoradd.asp target=_top>作品签约方案</a> ]</td></tr><tr height=24 align=center><td>[ <a href=listauthor_all.asp target=_top>查看所有作家</a> ]</td></tr></table>"
pencat = replace(pencat,"{$authorleft$}",Author_left)
pencat = replace(pencat,"{$authormain$}","<!-- #include file='Inc/about_contribute.txt' -->")
file=server.mappath( "../about_contribute.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> about_contribute.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
Author_left=""
End Function
'----------------------------------------------------------------------------------------------
Function makeabout_commend()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 原创作品收录原则 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
Author_left="<table cellspacing=0 cellpadding=0 width=100% border=0 align=center><tr><td height=31 align=center>驻站作家申请</td></tr><tr height=24 align=center><td>[ <a href=Author.Asp?info=reg>申请成为作家</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_contribute.asp target=_top>作家投稿须知</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_commend.asp target=_top>收录推荐原则</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_authoradd.asp target=_top>作品签约方案</a> ]</td></tr><tr height=24 align=center><td>[ <a href=listauthor_all.asp target=_top>查看所有作家</a> ]</td></tr></table>"
pencat = replace(pencat,"{$authorleft$}",Author_left)
pencat = replace(pencat,"{$authormain$}","<!-- #include file='Inc/about_commend.txt' -->")
file=server.mappath( "../about_commend.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> about_commend.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
Author_left=""
End Function
'----------------------------------------------------------------------------------------------
Function makeabout_authoradd()
pencat0="<!-- #include file='conn.asp' --><"
pencat0=pencat0&"%Stats=""作家专区 - 原创作品签约方案 - Powered By JsIceWeb""%"
pencat0=pencat0&"><!-- #include file='head.asp' -->"
pencat2="<!-- #include file='bottom.asp' -->"
pencat=pencat0&pencat1&pencat2
Author_left="<table cellspacing=0 cellpadding=0 width=100% border=0 align=center><tr><td height=31 align=center>驻站作家申请</td></tr><tr height=24 align=center><td>[ <a href=Author.Asp?info=reg>申请成为作家</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_contribute.asp target=_top>作家投稿须知</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_commend.asp target=_top>收录推荐原则</a> ]</td></tr><tr height=24 align=center><td>[ <a href=about_authoradd.asp target=_top>作品签约方案</a> ]</td></tr><tr height=24 align=center><td>[ <a href=listauthor_all.asp target=_top>查看所有作家</a> ]</td></tr></table>"
pencat = replace(pencat,"{$authorleft$}",Author_left)
pencat = replace(pencat,"{$authormain$}","<!-- #include file='Inc/about_authoradd.txt' -->")
file=server.mappath( "../about_authoradd.asp" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
Response.Write "<br><font color='red'><B> about_authoradd.asp 生成成功！！</B></font><br>"
pencat=""
pencat0=""
pencat2=""
Author_left=""
End Function
'----------------------------------------------------------------------------------------------
makeAuthor()
makeAuthor_log()
makeAuthor_book()
makeAuthor_bookjieedit()
makeAuthor_index()
makeabout_contribute()
makeabout_commend()
makeabout_authoradd()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -