www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Admin_Skin.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="Conn.asp"--> <!--#include file="Ex_Cls/Ex_SkinCls.asp"--> <!--#include file="Ex_Cls/Ex_ImgCls.asp"--> <%response.buffer=true%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>易心博客-模板</title> </head> <link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css"> <script src="wbTextBox/kindeditor.js"></script> <body> <script language="JavaScript"> //用户自定义函数---检测表单填写 function check1() { var topic=document.getElementById("topic"); var author=document.getElementById("author"); var body=KE.util.getData('Body'); if (topic.value=="" || author.value=="" || body.value=="") { alert("请把信息填写完整"); return false; } } function check2() { var body=KE.util.getData('Body'); if (body.value=="") { alert("请把信息填写完整"); body.focus(); return false; } } </script> <% Dim ExComm,ExFso Set ExComm=new Ex_CommonCls Set ExFso=new Ex_FsoCls ExComm.IsAdLogin ExComm.IsIpAllow Dim Action Action=Request.QueryString("action") select case Action Case "addform1" AddForm1()'添加主模板表单 Case "add1"' Add1()'添加主模板过程 Case "addform2"' AddForm2()' 添加辅模板表单 Case "add2" Add2()'添加辅模板过程 Case "changeform1"' ChangeForm1()'修改主模板表单 Case "change1" Change1()'修改主模板过程 Case "changeform2"' ChangeForm2()'修改辅模板表单 Case "change2" Change2()'修改辅模板过程 case "del" Del() Case "show" Show() case "set" SetDefault() Case "addbaiduform" AddBaiduForm Case "addbaidu" AddBaidu() Case "addonlineskinform" AddOnlineSkinForm Case "onlineskininstall" OnlineSkinInstall End Select '编码转换 Function BytesToBstr(ByVal strBody,CodeBase) dim obj set obj=Server.CreateObject("Adodb.S"&"tr"&"eam") obj.Type=1 obj.Mode=3 obj.Open obj.Write strBody obj.Position=0 obj.Type=2 obj.Charset=CodeBase BytesToBstr=obj.ReadText obj.Close set obj=nothing End Function '在线添加风格 Sub OnlineSkinInstall Dim remote,xmlHttp,temp,rs,i,f,ExImg,ExComm,skinpath,filename,img,t t=md5(Now()) remote=request("pre") remote="http://www.ex123.net/baidu/temp/zip/exblog/"&remote&"/excss.css" set xmlHttp=server.createobject("M"&"i"&"cr"&"o"&"s"&"of"&"t."&"X"&"M"&"LH"&"TT"&"P") xmlHttp.open "get",remote,False xmlHttp.send() If xmlHttp.readystate<>4 Then xmlHttp.waitforresponse 150 End If if xmlHttp.readystate<>4 then ExComm.ShowMsg "风格加载失败,可能是空间原因导致.建议使用易心空间.","" end if Temp=xmlHttp.ResponseBody Temp=BytesToBstr(Temp,"gb2312") Temp=Replace(Temp,"skin.bo56.com","http://www.ex123.net/baidu/temp/zip/exblog/"&request("pre")&"/skin.bo56.com") Set ExImg=new Ex_ImgCls ExImg.imgPath="ExSkin\BaiduSkin\"&t&"\Images" ExFso.CreateRoute ExImg.imgPath Temp=ExImg.ReplaceUrl(Temp) Temp=Replace(Temp,ExImg.imgPath&"\","Images/") ExFso.CreateFile "ExSkin/baiduSkin/"&t&"/ExCss.Css",Temp response.write("<script>alert('风格添加成功');window.close();</script>") End Sub '在线添加风格表单 Sub AddOnlineSkinForm %> <form method="post" action="?Action=addbaidu" onSubmit="return checkbaidu()"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <th class="topbg" colspan="5">在线添加博客风格</th> <tr> <td class="tdbg" align="center" colspan="5"><iframe src="http://www.ex123.net/baidu/online.php" style="width:750px;height:1550px" frameborder="0"></td> </tr> </table> </form> <%End Sub '添加百度风格 Sub AddBaidu() Dim xmlHttp,CssCnt,CssUrl,ExImg,Baidu,Re,Matchs,Match,Temp 'On Error Resume Next Baidu=Trim(Request.Form("baiduhi")) Temp=Replace(Baidu,"http://hi.baidu.com/","") If InStr(Temp,"/")<>0 Then Baidu="http://hi.baidu.com/"&Split(Baidu,"/")(0) End If set xmlHttp=server.createobject("M"&"i"&"cr"&"o"&"s"&"of"&"t."&"X"&"M"&"LH"&"TT"&"P") xmlHttp.open "get",Baidu,False xmlHttp.send() If xmlHttp.readystate<>4 Then xmlHttp.waitforresponse 150 End If if xmlHttp.readystate<>4 then ExComm.ShowMsg "风格加载失败,可能是空间原因导致.建议使用易心空间.","" end if Temp=xmlHttp.ResponseBody Temp=BytesToBstr(Temp,"gb2312") Baidu=Replace(Baidu,"http://hi.baidu.com/","") If InStr(Baidu,"/")<>0 Then Baidu=Split(Baidu,"/")(0) End If Baidu=Replace(Baidu,"%","") Set Re=new Regexp Re.Global=True Re.Multiline=True Re.IgnoreCase=True Re.Pattern="<link rel=""stylesheet"" type=""text/css"" href=""/(.*?)\.css" Set Matchs=Re.Execute(Temp) For Each Match In Matchs CssUrl=Match.Value CssUrl=Replace(CssUrl,"<link rel=""stylesheet"" type=""text/css"" href=""/","") CssUrl="http://hi.baidu.com/"&CssUrl xmlHttp.open "get",CssUrl,false xmlHttp.send Temp=BytesToBstr(xmlHttp.ResponseBody,"gb2312") If InStr(CssUrl,"/css/item/")<>0 Then Set ExImg=new Ex_ImgCls ExImg.imgPath="ExSkin\BaiduSkin\"&Baidu&"\Images" ExFso.CreateRoute ExImg.imgPath Temp=ExImg.ReplaceUrl(Temp) Temp=Replace(Temp,ExImg.imgPath&"\","Images/") ExFso.CreateFile "ExSkin/baiduSkin/"&Baidu&"/ExCss.Css",Temp Else CssCnt=CssCnt&"/*"&CssUrl&"*/"&vbcrlf&Temp End If Next ExFso.CreateFile "ExSkin/baiduSkin/"&Baidu&"/Global.Css",CssCnt ExComm.ShowMsg "风格添加成功","?action=show" Response.End End Sub '删除风格 Sub Del() dim id,strsql id=request.querystring("id") If id<>"" Then strsql="delete * from Ex_Skin where id="&id Conn.execute(strsql) Else ExFso.DelFolder(request.querystring("path")) End If ExComm.ShowMsg "删除成功",request.servervariables("http_referer") response.end end Sub Function RefreshTxtSkin ExComm.ClearCaches(sn) Dim ExSkin Set ExSkin=new Ex_SkinCls ExSkin.RefreshSkinCache Set ExSkin=Nothing End Function '设置默认模版 Sub setdefault() dim isdefaultID isdefaultID=trim(request("default")) Conn.execute("update Ex_Config set DefaultSkin='"&isdefaultID&"'") RefreshTxtSkin ExComm.ShowMsg "修改成功",request.servervariables("http_referer") Response.End() end Sub '添加主模板 sub add1() dim content,mbauthor,topic,strsql,rs content=trim(request.Form("Body"))'主模板内容 mbauthor=request.Form("author")'模板作者 topic=request.Form("topic")'模板名称 strsql="select * from Ex_Skin" Set rs=server.CreateObject("adodb.recordset") rs.open strsql,Conn,1,2 rs.addnew rs("mbauthor")=mbauthor rs("topic")=topic rs("skin1")=content rs.update response.redirect("?action=addform2") end Sub '添加辅模版 sub add2() dim content,strsql,maxid content=request.Form("Body") strsql="select max(id) from Ex_Skin" set maxid=Conn.execute(strsql) strsql="update Ex_Skin set skin2='"&content&"' where id="&maxid(0) Conn.execute(strsql) ExComm.ShowMsg "模板代码添加成功。\n请用ftp软件把模板图片等相关文件上传到博客skin文件夹以完成模板添加。","?action=show" response.end end Sub '修改主模版 sub change1() dim id,content,mbauthor,topic,strsql id=request.querystring("id") content=Replace(request.form("Body"),"'","''") Content=Replace(Content,"onload=''DrawImage(this)''","") topic=Replace(request.form("topic"),"'","''") mbauthor=Replace(request.form("mbauthor"),"'","''") strsql="update Ex_Skin set skin1='"&content&"',topic='"&topic&"',mbauthor='"&mbauthor&"' where id="&id Conn.execute(strsql) ExComm.ClearCache(sn&"skin1") ExComm.ShowMsg "主模板修改成功!!","?action=show" response.end end Sub '修改辅模版 sub change2() dim id,content,strsql id=request.querystring("id") content=Replace(request.form("Body"),"'","''") Content=Replace(Content,"onload=''DrawImage(this)''","") strsql="update Ex_Skin set skin2='"&content&"' where id="&id Conn.execute(strsql) ExComm.ClearCache(sn&"skin1") ExComm.ShowMsg "辅模板修改成功!!","?action=show" response.end end Sub %> <%sub show() dim rs,strsql strsql="select * from Ex_Skin" set rs=Conn.execute(strsql) If ExComm.IsCache("DefaultSkin")=False Then ExComm.GetConfigCache("DefaultSkin") End If %> <center> <form name="set" method="post" action="?action=set"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <tr> <th class="topbg" colspan="5">模板设置</th> </tr> <tr> <td colspan="5" style="background:#BCCDEF; text-align:center;">Oblog模板</td> </tr> <tr> <td class="tdbg" width="228"><div align="center">模板名称</div></td> <td class="tdbg" width="111"><div align="center">主模板</div></td> <td class="tdbg" width="71"><div align="center">辅模板</div></td> <td class="tdbg" width="136"><div align="center">删除</div></td> <td class="tdbg" width="199"><div align="center">设为默认</div></td> </tr> <%do while not rs.eof%> <tr> <td class="tdbg"><div align="center"><%=rs("topic")%></div></td> <td class="tdbg"><div align="center"><a href="?action=changeform1&id=<%=rs("id")%>">修改</a></div></td> <td class="tdbg"><div align="center"><a href="?action=changeform2&id=<%=rs("id")%>">修改</a></div></td> <td class="tdbg"><div align="center"><a href="?action=del&id=<%=rs("id")%>" onClick="return confirm('是否删除?')">删除</a></div></td> <td class="tdbg"><div align="center"> <%if trim(Application(Sn&"DefaultSkin"))=Trim(Rs("id")) then%> <input type="radio" name="default" id="default" value="<%=rs("id")%>" checked> <%else%> <input type="radio" name="default" id="default" value="<%=rs("id")%>"> <%end if%> </div></td> </tr> <%rs.movenext loop %> <tr> <td colspan="5" style="background:#BCCDEF; text-align:center;">其他模板</td> </tr> <tr> <td class="tdbg"><div align="center">模板类型</div></td> <td colspan="2" class="tdbg"><div align="center">模板名称</div></td> <td class="tdbg"><div align="center">删除</div></td> <td class="tdbg"><div align="center">设为默认</div></td> </tr> <% Dim ArrSkin,ArrI,ArrM,Template,ArrTemplate ArrSkin=ExFso.GetSubFolders("Template") If ArrSkin<>"" Then ArrSkin=Split(ArrSkin,"|") For ArrI=0 To UBound(ArrSkin) ArrTemplate=ExFso.GetSubFolders("ExSkin/"&ArrSkin(ArrI)) If ArrTemplate<>"" Then ArrTemplate=Split(ArrTemplate,"|") For ArrM=0 To UBound(ArrTemplate) %> <tr> <td class="tdbg"><div align="center"><%=ArrSkin(ArrI)%></div></td> <td colspan="2" class="tdbg"><div align="center"><%=ArrTemplate(ArrM)%></div></td> <td class="tdbg"><div align="center"> <a href="?action=del&path=ExSkin/<%=ArrSkin(ArrI)&"/"&ArrTemplate(ArrM)%>" onClick="return confirm('删除后上传的模板文件将在空间中删除.\n是否删除?')">删除</a> </div></td> <td class="tdbg"><div align="center"> <% If Application(sn&"DefaultSkin")=ArrSkin(ArrI)&"/"&ArrTemplate(ArrM) Then %> <input type="radio" name="default" id="default" value="<%=ArrSkin(ArrI)&"/"&ArrTemplate(ArrM)%>" checked> <% Else %> <input type="radio" name="default" id="default" value="<%=ArrSkin(ArrI)&"/"&ArrTemplate(ArrM)%>"> <% End If %> </div></td> </tr> <% Next End If Next End If %> <tr> <td class="tdbg" colspan="5"><div align="center"> <input type="submit" name="Submit" value="提交"> </div></td> </tr> </table> </form></center> <br>提示:<br>1.点击右侧的单选按钮选择你要使用的模板,然后点提交按钮。<br>2.如果您的博客采用的是静态模式运行,您还得重新发布所有页面。<br> <%end Sub Sub addBaiduForm()%> <script> function checkbaidu() { var baidu=document.getElementById("baiduhi").value; if (baidu.indexOf("http://hi.baidu.com/")==-1 || baidu=="http://hi.baidu.com/" || baidu=="") { alert("请填写正确的百度空间地址\n例如:http://hi.baidu.com/jbrose"); return false; } baidu=baidu.replace("http://hi.baidu.com/","") if (baidu.indexOf("/")!=-1) { alert("必须填写空间主页地址,并且不要以 / 结尾.\n例如:http://hi.baidu.com/jbrose"); return false; } } </script> <form method="post" action="?Action=addbaidu" onSubmit="return checkbaidu()"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <th class="topbg" colspan="5">添加百度空间风格</th> <tr> <td class="tdbg" align="center">请填写百度空间地址</td> <td class="tdbg" align="center"><input name="baiduhi" type="text" size="50" value="http://hi.baidu.com/"></td> <td class="tdbg" align="center"><label> <input type="submit" name="Submit3" value="添加"> </label></td> </tr> </table> </form> <% End Sub sub addform1()%><center> <form name="Dvform" method="post" action="?Action=add1" onSubmit="return check1();"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <th class="topbg" colspan="5">模板添加第一步--添加主模板</th> <tr> <td class="tdbg">模板名称:<font color="red">*</font></td> <td class="tdbg"><input name="topic" id="topic"></td> <td class="tdbg">作者:<font color="red">*</font></td> <td class="tdbg"><input name="author" id="author"></td> </tr> <tr> <td colspan="4" class="tdbg" align="center"> <textarea id="Body" name="Body" ROWS="10" COLS="60"></textarea><br> </td> </tr> </table> <input type=Submit value="发 表" name=Submit> <input type=reset name=Submit2 value="清 除" onClick="ClearReset()"></form> <%end sub%> <%sub addform2()%><center> <form name="Dvform" method="post" action="?Action=add2" onSubmit="return check2();"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <th class="topbg" colspan="5">模板添加第二步--添加辅模板</th> <tr> <td colspan="4" align="center" class="tdbg"> <textarea id="Body" name="Body" ROWS="10" COLS="60"></textarea><br> </td> </tr> </table> <input type=Submit value="发 表" name=Submit> <input type=reset name=Submit2 value="清 除" onClick="ClearReset()"></form> <%end sub%> <%sub changeform1() dim id,rs,strsql id=request.querystring("id") strsql="select * from Ex_Skin where id="&id set rs=Conn.execute(strsql) %><center> <form name="Dvform" method="post" action="?Action=change1&id=<%=id%>" onSubmit=";return check1();"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <th class="topbg" colspan="5">修改主模板</th> <tr><td class="tdbg">模板名称:<font color="red">*</font></td><td class="tdbg"><input id="topic" name="topic" value="<%=rs("topic")%>"></td><td class="tdbg">作者:<font color="red">*</font></td><td class="tdbg"><input id="author" name="mbauthor" value="<%=rs("mbauthor")%>"></td></tr> <tr><td colspan="4" class="tdbg" align="center"> <textarea name="Body" id="Body"><%=Server.HtmlEncode(rs("skin1")&" ")%></textarea><!--编辑器初始值的设置--> <!--#include file="htmedit.asp"--> </td></tr> </table> <input type=Submit value="发 表" name=Submit> <input type=reset name=Submit2 value="清 除" onClick="ClearReset()"></form> <%end sub%> <%sub changeform2() dim id,rs,strsql id=request.querystring("id") strsql="select * from Ex_Skin where id="&id set rs=Conn.execute(strsql) %><center> <form name="Dvform" method="post" action="?Action=change2&id=<%=id%>" onSubmit="return check2();"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <th class="topbg" colspan="5">修改辅模板</th> <tr><td class="tdbg" colspan="4" align="center"> <textarea id="Body" name="Body"><%=Server.HtmlEncode(rs("skin2")&" ")%></textarea> <!--#include file="htmedit.asp"--> </td></tr> </table> <input type=Submit value="发 表" name=Submit> <input type=reset name=Submit2 value="清 除" onClick="ClearReset()"></form> <% end sub%> <br> 提示:以上选项必须填写!!<a href="http://www.ex123.net/bbs" target="_blank"><font color="red">如果您对添加模板有什么疑问,点此查看易心博客使用教程</font></a> <a href="http://www.ex123.net/skin" target="_blank"><font color="blue">点此下载更多精美模板</font></a> </body> </html>