admin_skinsave.asp

小说站源代码文件

<!-- #include file="../conn.asp" --><%Response.buffer=False %>
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<%
Select Case request.querystring("info")
	Case "skin_add"
		Call skin_add()
	Case "skin_copy"
		Call skin_copy()
	Case "skin_edit"
		Call skin_edit()
	Case "skin_del"
		Call skin_del()
	Case "dodefault"
		Call dodefault()
	Case "skin_ads_edit"
		Call skin_ads_edit()
	Case "temptoskin"
		Call temptoskin()
	Case "author_add"
		Call author_add()
	Case "author_edit"
		Call author_edit()
	Case "author_del"
		Call author_del()
	Case "author_listdel"
		Call author_listdel()
	Case "user_add"
		Call user_add()
	Case "user_vipadd"
		Call user_vipadd()
	Case "user_gxadd"
		Call user_gxadd()
	Case "user_edit"
		Call user_edit()
	Case "user_del"
		Call user_del()
	Case "user_listdel"
		Call user_listdel()
	Case "guanggao_info"
		Call guanggao_info()
	Case "guanggao_add"
		Call guanggao_add()
	Case "guanggao_edit"
		Call guanggao_edit()
	Case "guanggao_del"
		Call guanggao_del()
	Case "guanggao_listdel"
		Call guanggao_listdel()
end select 

sub skin_add()
name=CheckSql(request.form("name"))
if name="" then
	ErrCodes = ErrCodes & "<li>名称不能为空!</li><br>"
	FoundErr=True
end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rstemp=server.createobject("adodb.recordset")
	sql="select skin_name from list_skin"
	rstemp.Open sql,Conn,1,3
		rstemp.addnew
		rstemp("skin_name")=name
		rstemp.update
		rstemp.close
	set rstemp=nothing
call connclose() 
Call ShowAdminSuccessMsg("新建空模板添加成功！","admin_skin.asp?info=list")
end if
end sub

sub skin_copy()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rstemp=server.createobject("adodb.recordset")
sql="select * from list_skin where id="&id
rstemp.Open sql,Conn,1,1
if not rstemp.eof then
	set rstemp1=server.createobject("adodb.recordset")
	sql="select * from list_skin"
	rstemp1.open sql,conn,1,3
		rstemp1.addnew
		for j=1 to rstemp.Fields.Count-1
            rstemp1(rstemp.fields(j).name)=rstemp.fields(j).value
		next
		rstemp1.update
	rstemp1.close
	set rstemp1=nothing
else
	ErrCodes = ErrCodes & "<li>原模版不能为空!</li><br>"
	FoundErr=True
end if
rstemp.close
set rstemp=nothing
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	call connclose() 
	Call ShowAdminSuccessMsg("模版复制成功！已经新建一个相同的模版,请及时修改！","admin_skin.asp?info=list")
end if
end sub

sub skin_del()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
	conn.execute("delete from list_skin where id="&id&"")
	call connclose() 
	Call ShowAdminSuccessMsg("模版删除成功！","admin_skin.asp?info=list")
end sub

sub dodefault()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("ADODB.RecordSet")
sql="select IsDefault from list_skin where ID="&id
rs.open sql,connTemp,1,3
if not rs.eof then
	if rs("IsDefault")=0 then
		rs("IsDefault")=1
	else
		rs("IsDefault")=0
	end if
	rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script><script language=javascript>window.alert('操作成功!');javascript:window.close();</script>")
end sub

sub skin_ads_edit()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rstemp=server.createobject("adodb.recordset")
sql="select * from [list_skin] where id="&id
rstemp.open sql,conn,1,3
if not rstemp.eof then

     rstemp("index_ads")=request("index")
     rstemp("classindex_ads")=request("classindex")
     rstemp("listupdate_ads")=request("listupdate")
     rstemp("topten_ads")=request("topten")
     rstemp("list_book_ads")=request("list_book")
     rstemp("look_book_ads")=request("look_book")
     rstemp("read_book_ads")=request("read_book")
     rstemp("view_book_ads")=request("view_book")
     rstemp("view_readbook_ads")=request("view_readbook")
     rstemp("viewall_book_ads")=request("viewall_book")
     rstemp("vip_index_ads")=request("vip_index")
     rstemp("list_vipbook_ads")=request("list_vipbook")
     rstemp("look_vipbook_ads")=request("look_vipbook")
     rstemp("vip_view_book_ads")=request("vip_view_book")
     rstemp("article_index_ads")=request("article_index")
     rstemp("article_toplist_ads")=request("article_toplist")
     rstemp("list_article_ads")=request("list_article")
     rstemp("list_userbook_ads")=request("list_userbook")
     rstemp("read_article_ads")=request("read_article")
     rstemp("read_userbook_ads")=request("read_userbook")
     rstemp("Search_ads")=request("Search")
     rstemp("show_Author_ads")=request("show_Author")
     rstemp("show_User_ads")=request("show_User")
     rstemp("Author_log_ads")=request("Author_log")
     rstemp("Author_reg_ads")=request("Author_reg")
     rstemp("Author_regin_ads")=request("Author_regin")
     rstemp("Author_login_ads")=request("Author_login")
     rstemp("Author_action_ads")=request("Author_action")
     rstemp("about_ads")=request("about")
     rstemp("user_log_ads")=request("user_log")
     rstemp("user_reg_ads")=request("user_reg")
     rstemp("user_regin_ads")=request("user_regin")
     rstemp("user_login_ads")=request("user_login")
     rstemp("user_action_ads")=request("user_action")
     rstemp("voteshow_ads")=request("voteshow")
     rstemp("showduanxin_ads")=request("showduanxin")
     rstemp("pay_ads")=request("pay")
     rstemp("Commentlist_ads")=request("Commentlist")
     rstemp("gonggaodisp_ads")=request("gonggaodisp")
     rstemp("link_add_ads")=request("link_add")
     rstemp("links_ads")=request("links")
     rstemp("error_ads")=request("error")
     rstemp.update
else
	ErrCodes = ErrCodes & "<li>模版参数错误!</li><br>"
	FoundErr=True
end if
rstemp.close
set rstemp=nothing
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	call connclose() 
	Call ShowAdminSuccessMsg("模版页面广告设置完成！","admin_skin.asp?info=ads&id="&id&"")
end if
end sub

sub temptoskin()
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
	set rstem=server.createobject("adodb.recordset")
	sql="select * from list_skin"
	rstem.open sql,conn,1,3
		rstem.addnew
		rstem("Name")=rstemp("Temp_Name")
		rstem("Path")=rstemp("SystemPath")
		rstem("Css")=rstemp("Page_Css")
		rstem("index")=rstemp("Page_Head")&rstemp("Page_Index")&rstemp("Page_bottom")
		rstem("classindex")=rstemp("Page_Head")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_bottom")
		rstem("listupdate")=rstemp("Page_Head")&rstemp("Page_Listbook")&rstemp("Page_bottom")
		rstem("topten")=rstemp("Page_Head")&rstemp("Page_topten")&rstemp("Page_bottom")
		rstem("list_book")=rstemp("Page_Head")&rstemp("Page_Listbook")&rstemp("Page_bottom")
		rstem("look_book")=Replace(rstemp("Page_Head")&rstemp("Page_Lookbook")&rstemp("Page_bottom"),"{$showlook_book$}",rstemp("Page_1"))
		rstem("read_book")=rstemp("Page_top")&rstemp("Page_readbook")&rstemp("Page_Foot")
		rstem("view_book")=rstemp("Page_top")&rstemp("Page_viewbook")&rstemp("Page_Foot")
		rstem("view_readbook")=rstemp("Page_top")&rstemp("Page_allviewbook")&rstemp("Page_Foot")
		rstem("viewall_book")=rstemp("Page_top")&rstemp("Page_viewallbook")&rstemp("Page_Foot")
		rstem("vip_index")=rstemp("Page_Head")&rstemp("Page_VIPIndex")&rstemp("Page_bottom")
		rstem("list_vipbook")=rstemp("Page_Head")&rstemp("Page_Listbook")&rstemp("Page_bottom")
		rstem("look_vipbook")=rstemp("Page_Head")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_bottom")
		rstem("vip_view_book")=rstemp("Page_top")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_Foot")
		rstem("article_index")=rstemp("Page_Head")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_bottom")
		rstem("article_toplist")=rstemp("Page_Head")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_bottom")
		rstem("list_article")=rstemp("Page_Head")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_bottom")
		rstem("list_userbook")=rstemp("Page_Head")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_bottom")
		rstem("read_article")=rstemp("Page_top")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_Foot")
		rstem("read_userbook")=rstemp("Page_top")&"<!-- 新模版需要重新设计 -->"&rstemp("Page_Foot")
		rstem("Search")=rstemp("Page_Head")&rstemp("Page_Search")&rstemp("Page_bottom")
		rstem("show_Author")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("show_User")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("Author_log")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("Author_reg")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("Author_regin")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("Author_action")=rstemp("Page_Head")&rstemp("Page_author")&rstemp("Page_bottom")
		rstem("about_")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("user_log")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("user_reg")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("user_regin")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("user_action")=rstemp("Page_Head")&rstemp("Page_user")&rstemp("Page_bottom")
		rstem("voteshow")="<!-- 新模版需要重新设计 -->"
		rstem("showduanxin")="<!-- 新模版需要重新设计 -->"
		rstem("pay")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("Commentlist")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("gonggaodisp")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("kfindex")=rstemp("Page_Head")&rstemp("Page_kfindex")&rstemp("Page_bottom")
		rstem("links")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem("error")=rstemp("Page_Head")&rstemp("Page_Error")&rstemp("Page_bottom")
		rstem.update
	rstem.close
	set rstem=nothing

rstemp.close
set rstemp=nothing
	call connclose() 
	Call ShowAdminSuccessMsg("旧模版转换新模版完成！","admin_skin.asp?info=list")
end sub

%>