<%
select case Action
case "Add","Modify"
call ShowSkinSet()
case "SaveAdd"
call SaveAdd()
case "SaveModify"
call SaveModify()
case "Set"
call SetDefault()
case "Del"
call DelSkin()
case "Export"
call Export()
case "DoExport"
call DoExport()
case "Import"
call Import()
case "Import2"
call Import2()
case "DoImport"
call DoImport()
case else
call main()
end select
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub main()
sql="select * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
%>
<%
rs.close
set rs=nothing
end sub
sub Export()
sql="select * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
%>
<%
rs.close
set rs=nothing
end sub
sub Import()
%>
<%
end sub
sub Import2()
on error resume next
dim mdbname,tconn,trs
mdbname=replace(trim(request.form("skinmdb")),"'","")
if mdbname="" then
FoundErr=True
ErrMsg=ErrMsg & "
请填写导入模版数据库名"
exit sub
end if
Set tconn = Server.CreateObject("ADODB.Connection")
tconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
if err.number<>0 then
ErrMsg=ErrMsg & "
数据库操作失败，请以后再试，错误原因：" & err.Description
err.clear
exit sub
end if
sql="select * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,tconn,1,1
%>
<%
rs.close
set rs=nothing
end sub
sub ShowSkinSet()
if Action="Add" then
sql="select * from Skin where IsDefault=True"
elseif Action="Modify" then
if SkinID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定SkinID
"
exit sub
else
SkinID=Clng(SkinID)
end if
sql="select * from Skin where SkinID=" & SkinID
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "
数据库出现错误！
"
rs.close
set rs=nothing
exit sub
end if
dim Skin_CSS
Skin_CSS=split(rs("Skin_CSS"),"|||")
%>
<%
rs.close
set rs=nothing
end sub
%>
<%
sub SaveAdd()
call CheckSkin()
if FoundErr=True then exit sub
sql="select top 1 * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
rs.addnew
rs("IsDefault")=False
rs("DesignType")=1
call SaveSkin()
rs.close
set rs=nothing
call WriteSuccessMsg("成功添加新的配色模板："& trim(request("SkinName")))
end sub
sub SaveModify()
if SkinID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定SkinID
"
else
SkinID=Clng(SkinID)
end if
call CheckSkin()
if FoundErr=True then exit sub
sql="select * from Skin where SkinID=" & SkinID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "
找不到指定的配色模板！
"
else
call SaveSkin()
call WriteSuccessMsg("保存配色模板设置成功！")
end if
rs.close
set rs=nothing
end sub
sub SetDefault()
if SkinID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定SkinID
"
exit sub
else
SkinID=Clng(SkinID)
end if
conn.execute("update Skin set IsDefault=False where IsDefault=True")
conn.execute("update Skin set IsDefault=True where SkinID=" & SkinID)
call WriteSuccessMsg("成功将选定的模板设置为默认模板")
end sub
sub CheckSkin()
if trim(request("SkinName"))="" then
FoundErr=True
ErrMsg=ErrMsg & "
模板名称不能为空！
"
end if
if trim(request("PicUrl"))="" then
FoundErr=True
ErrMsg=ErrMsg & "
模板预览图地址不能为空！
"
end if
if trim(request("DesignerName"))="" then
FoundErr=True
ErrMsg=ErrMsg & "
模板设计者姓名不能为空！
"
end if
if trim(request("DesignerEmail"))="" then
FoundErr=True
ErrMsg=ErrMsg & "
"
exit sub
else
SkinID=Clng(SkinID)
end if
sql="select * from Skin where SkinID=" & SkinID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "
找不到指定的配色模板！
"
else
if rs("DesignType")=0 then
FoundErr=True
ErrMsg=ErrMsg & "
不能删除系统自带的模板！
"
elseif rs("IsDefault")=True then
FoundErr=True
ErrMsg=ErrMsg & "
当前模板为默认模板，不能删除。请先将默认模板改为其他模板后再来删除此模板。
"
end if
end if
if FoundErr=True then
rs.close
set rs=nothing
exit sub
end if
rs.delete
rs.update
rs.close
set rs=nothing
dim trs
set trs=conn.execute("select SkinID from Skin where IsDefault=True")
conn.execute("update ArticleClass set SkinID=" & trs(0) & " where SkinID=" & SkinID)
conn.execute("update Article set SkinID=" & trs(0) & " where SkinID=" & SkinID)
set trs=nothing
call WriteSuccessMsg("成功删除选定的模板。并将使用此模板的栏目和文章改为使用默认模板。")
end sub
sub DoExport()
on error resume next
dim mdbname,tconn,trs
SkinID=replace(SkinID,"'","")
mdbname=replace(trim(request.form("skinmdb")),"'","")
if SkinID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定要导出的模版
"
end if
if mdbname="" then
FoundErr=True
ErrMsg=ErrMsg & "
请填写导出模版数据库名"
end if
if FoundErr=True then
exit sub
end if
Set tconn = Server.CreateObject("ADODB.Connection")
tconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
if err.number<>0 then
ErrMsg=ErrMsg & "
数据库操作失败，请以后再试，错误原因：" & err.Description
err.clear
exit sub
end if
tconn.execute("delete * from Skin")
set rs=conn.execute("select * from Skin where SkinID in (" & SkinID &") order by SkinID ")
set trs=server.CreateObject("adodb.recordset")
trs.open "select * from Skin",tconn,1,3
do while not rs.eof
trs.addnew
trs("SkinName")=rs("SkinName")
trs("PicUrl")=rs("PicUrl")
trs("DesignerName")=rs("DesignerName")
trs("DesignerEmail")=rs("DesignerEmail")
trs("DesignerHomePage")=rs("DesignerHomePage")
trs("Body")=rs("Body")
trs("Skin_CSS")=rs("Skin_CSS")
trs("IsDefault")=False
trs("DesignType")=rs("DesignType")
trs.update
rs.movenext
loop
trs.close
set trs=nothing
rs.close
set rs=nothing
tconn.close
set tconn=nothing
call WriteSuccessMsg("已经成功将所选中的模板设置导出到指定的数据库中！
你还需要将Skin文件夹中图片文件一起打包。")
end sub
sub DoImport()
on error resume next
dim mdbname,tconn,trs
SkinID=replace(SkinID,"'","")
mdbname=replace(trim(request.form("skinmdb")),"'","")
if SkinID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定要导入的模版
"
end if
if mdbname="" then
FoundErr=True
ErrMsg=ErrMsg & "
请填写导出模版数据库名"
end if
if FoundErr=True then
exit sub
end if
Set tconn = Server.CreateObject("ADODB.Connection")
tconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
if err.number<>0 then
ErrMsg=ErrMsg & "
数据库操作失败，请以后再试，错误原因：" & err.Description
err.clear
exit sub
end if
set rs=tconn.execute(" select * from Skin where SkinID in (" & SkinID &") order by SkinID")
set trs=server.CreateObject("adodb.recordset")
trs.open "select * from Skin",conn,1,3
do while not rs.eof
trs.addnew
trs("SkinName")=rs("SkinName")
trs("PicUrl")=rs("PicUrl")
trs("DesignerName")=rs("DesignerName")
trs("DesignerEmail")=rs("DesignerEmail")
trs("DesignerHomePage")=rs("DesignerHomePage")
trs("Body")=rs("Body")
trs("Skin_CSS")=rs("Skin_CSS")
trs("IsDefault")=False
trs("DesignType")=rs("DesignType")
trs.update
rs.movenext
loop
trs.close
set trs=nothing
rs.close
set rs=nothing
tconn.close
set tconn=nothing
call WriteSuccessMsg("已经成功从指定的数据库中导入选中的模板！