📄 admin_layout.asp

📁 一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true	
Const PurviewLevel=2    '操作权限
%>
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
dim rs, sql
dim Action,LayoutID,LayoutType,FoundErr,ErrMsg
Action=trim(request("Action"))
LayoutID=trim(request("LayoutID"))
LayoutType=trim(request("LayoutType"))
if LayoutType="" then
	LayoutType=session("LayoutType")
end if
if LayoutType="" then
	LayoutType=1
else
	LayoutType=CLng(LayoutType)
end if
session("LayoutType")=LayoutType
%>
<html>
<head>
<title>版面设计模板管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="topbg"> 
    <td height="22" colspan="2" align="center"><strong>版 面 设 计 模 板 管 理</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td><a href="Admin_Layout.asp?Action=Add">添加版面设计模板</a> | <a href="Admin_Layout.asp?LayoutType=1">首页模板</a> 
      | <a href="Admin_Layout.asp?LayoutType=2">栏目模板</a> | <a href="Admin_Layout.asp?LayoutType=3">文章内容页模板</a> 
      | <a href="Admin_Layout.asp?LayoutType=4">专题文章模板</a></td>
  </tr>
</table>
<%
select case Action
	case "Add","Modify"
		call ShowLayoutSet()
	case "SaveAdd"
		call SaveAdd()
	case "SaveModify"
		call SaveModify()
	case "Set"
		call SetDefault()
	case "Del"
		call DelLayout()
	case else
		call main()
end select
if FoundErr=True then
	call WriteErrMsg()
end if
call CloseConn()

sub main()
	sql="select * from Layout where LayoutType=" & LayoutType
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,1
%>
<form name="form1" method="post" action="">
<%
response.write "您现在的位置：版面设计模板管理&nbsp;&gt;&gt;&nbsp;<font color=red>"
select case LayoutType
	case 1
		response.write "首页模板"
	case 2
		response.write "栏目模板"
	case 3
		response.write "文章内容页模板"
	case 4
		response.write "专题文章模板"
	case else
		response.write "错误的参数"
end select
response.write "</font><br>"
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
    <tr class="title"> 
      <td width="30" align="center"><strong>选择</strong></td>
      <td width="30" align="center"><strong>ID</strong></td>
      <td height="22" align="center"><strong> 模板名称</strong></td>
      <td width="100" align="center"><strong>模板文件名</strong></td>
      <td width="150" align="center"><strong>效果图</strong></td>
      <td width="60" align="center"><strong>设计者</strong></td>
      <td width="60" align="center"><strong>模板类型</strong></td>
      <td width="150" height="22" align="center"><strong> 操作</strong></td>
    </tr>
    <%if not(rs.bof and rs.eof) then
  do while not rs.EOF %>
    <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="30" align="center"><input type="radio" value="<%=rs("LayoutID")%>" <%if rs("IsDefault")=true then response.write " checked"%> name="LayoutID"></td>
      <td width="30" align="center"><%=rs("LayoutID")%></td>
      <td align="center"><%=rs("LayoutName")%></td>
      <td width="100" align="center"><%=rs("LayoutFileName")%></td>
      <td width="150" align="center"><%response.write "<a href='Admin_Layout.asp?Action=Prview&LayoutID=" & rs("LayoutID") & "' title='点此查看原始效果图'><img src='" & rs("PicUrl") & "' width=100 height=30 border=0></a>"%></td>
      <td width="60" align="center"><%response.write "<a href='mailto:" & rs("DesignerEmail") & "' title='设计者信箱：" & rs("DesignerEmail") & vbcrlf & "设计者主页：" & rs("DesignerHomepage") & "'>" & rs("DesignerName") & "</a>"%></td>
      <td width="60" align="center"><%if rs("DesignType")=1 then response.write "用户自定义" else response.write "系统提供"%></td>
      <td width="150" align="center"><%
	response.write "<a href='Admin_Layout.asp?Action=Modify&LayoutID=" & rs("LayoutID") & "'>修改模板设置</a>&nbsp;"
	if rs("DesignType")=1 and rs("IsDefault")=False then
		response.write "<a href='Admin_Layout.asp?Action=Del&LayoutID=" & rs("LayoutID") & "' onClick=""return confirm('确定要删除此版面设计模板吗？删除此版面设计模板后原使用此版面设计模板的文章将改为使用系统默认版面设计模板。');"">删除模板</a>"
	else
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	end if
	%> </td>
    </tr>
    <%
		rs.MoveNext
   	loop
  %>
    <tr class="tdbg"> 
      <td colspan="8" align="center"><input name="LayoutType" type="hidden" id="LayoutType" value="<%=LayoutType%>"> 
        <input name="Action" type="hidden" id="Action" value="Set"> <input type="submit" name="Submit" value="将选中的模板设为默认模板"></td>
    </tr>
    <%end if%>
  </table>  
</form>
<%
	rs.close
	set rs=nothing
end sub

sub ShowLayoutSet()
	if Action="Add" then
		sql="select * from Layout where IsDefault=True and LayoutType=" & LayoutType
	elseif Action="Modify" then
		if LayoutID="" then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>请指定LayoutID</li>"
			exit sub
		else
			LayoutID=Clng(LayoutID)
		end if
		sql="select * from Layout where LayoutID=" & LayoutID
	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 & "<br><li>数据库出现错误！</li>"
		rs.close
		set rs=nothing
		exit sub
	end if
%>
<form name="form1" method="post" action="Admin_Layout.asp">
  <table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
    <tr align="center" class="title"> 
      <td height="22" colspan="2"><strong> 
        <%if Action="Add" then%>
        添加新版面设计模板 
        <%else%>
        修改模板设置 
        <%end if%>
        </strong></td>
    </tr>
    <tr class="topbg"> 
      <td height="20" colspan="2"><strong>版面设计模板基本信息</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="40%"><strong>模板类型：</strong></td>
      <td><%if Action="Modify" then%>
        <input name="LayoutType" type="hidden" id="LayoutType" value="<%=rs("LayoutType")%>">
        <%end if%> <select name="LayoutType" id="LayoutType" <%if Action="Modify" then response.write "disabled"%>>
          <option value="1" <%if rs("LayoutType")=1 then response.write " selected"%>>首页模板</option>
          <option value="2" <%if rs("LayoutType")=2 then response.write " selected"%>>栏目模板</option>
          <option value="3" <%if rs("LayoutType")=3 then response.write " selected"%>>文章内容页模板</option>
          <option value="4" <%if rs("LayoutType")=4 then response.write " selected"%>>专题文章模板</option>
        </select></td>
    </tr>
    <tr class="tdbg"> 
      <td width="40%"><strong>版面设计模板名称：</strong></td>
      <td><%if Action="Modify" and rs("DesignType")=0 then%>
        <input name="LayoutName" type="hidden" id="LayoutName" value="<%=rs("LayoutName")%>">
        <%=rs("LayoutName")%>
        <%else%>
        <input name="LayoutName" type="text" id="LayoutName" value="<%if Action="Modify" then response.write rs("LayoutName")%>" size="50" maxlength="50">
        <%end if%> </td>
    </tr>
    <tr class="tdbg"> 
      <td><strong>模板文件名：</strong></td>
      <td><%if Action="Modify" and rs("DesignType")=0 then%>
        <input name="LayoutFileName" type="hidden" id="LayoutFileName" value="<%=rs("LayoutFileName")%>">
        <%=rs("LayoutFileName")%>
        <%else%>
        <input name="LayoutFileName" type="text" id="LayoutFileName" value="<%if Action="Modify" then response.write rs("LayoutFileName")%>" size="50" maxlength="100">
        <%end if%></td>
    </tr>
    <tr class="tdbg"> 
      <td width="40%"><strong>版面设计模板预览图：</strong></td>
      <td><%if Action="Modify" and rs("DesignType")=0 then%>
        <input name="PicUrl" type="hidden" id="PicUrl" value="<%=rs("PicUrl")%>">
        <%=rs("PicUrl")%>
        <%else%>
        <input name="PicUrl" type="text" id="PicUrl" value="<%if Action="Modify" then response.write rs("PicUrl")%>" size="50" maxlength="100">
        <%end if%></td>
    </tr>
    <tr class="tdbg"> 
      <td width="40%"><strong>设计者姓名：</strong></td>
      <td><%if Action="Modify" and rs("DesignType")=0 then%>
        <input name="DesignerName" type="hidden" id="DesignerName" value="<%=rs("DesignerName")%>">
        <%=rs("DesignerName")%>
        <%else%>
        <input name="DesignerName" type="text" id="DesignerName" value="<%=rs("DesignerName")%>" size="50" maxlength="30">
        <%end if%></td>
    </tr>
    <tr class="tdbg"> 
      <td width="40%"><strong>设计者Email：</strong></td>
      <td><%if Action="Modify" and rs("DesignType")=0 then%>
        <input name="DesignerEmail" type="hidden" id="DesignerEmail" value="<%=rs("DesignerEmail")%>">
        <%=rs("DesignerEmail")%>
        <%else%>
        <input name="DesignerEmail" type="text" id="DesignerEmail" value="<%=rs("DesignerEmail")%>" size="50" maxlength="100">
        <%end if%></td>
    </tr>
    <tr class="tdbg"> 
      <td width="40%"><strong>设计者主页：</strong></td>
      <td><%if Action="Modify" and rs("DesignType")=0 then%>
        <input name="DesignerHomepage" type="hidden" id="DesignerHomepage" value="<%=rs("DesignerHomepage")%>">
        <%=rs("DesignerHomepage")%>
        <%else%>
        <input name="DesignerHomepage" type="text" id="DesignerHomepage" value="<%=rs("DesignerHomepage")%>" size="50" maxlength="100">
        <%end if%></td>
    </tr>
    <tr align="center" class="tdbg"> 
      <td height="50" colspan="2"><input name="LayoutID" type="hidden" id="LayoutID" value="<%=LayoutID%>">
        <%if Action="Add" then%> <input name="Action" type="hidden" id="Action" value="SaveAdd"> 
        <input type="submit" name="Submit2" value=" 添 加 "> <%else%> <input name="Action" type="hidden" id="Action" value="SaveModify"> 
        <input type="submit" name="Submit2" value=" 保存修改结果 "> <%end if%> </td>
    </tr>
  </table>
</form>
<%
	rs.close
	set rs=nothing
end sub
%>
</body>
</html>
<%
sub SaveAdd()
	call CheckLayout()
	if FoundErr=True then exit sub
	
	sql="select top 1 * from Layout"
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	rs.addnew
	rs("IsDefault")=False
	rs("DesignType")=1
	call SaveLayout()
	rs.close
	set rs=nothing
	call WriteSuccessMsg("成功添加新的版面设计模板："& trim(request("LayoutName")))	
end sub

sub SaveModify()
	
	if LayoutID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定LayoutID</li>"
	else
		LayoutID=Clng(LayoutID)
	end if
	call CheckLayout()
	if FoundErr=True then exit sub
	
	sql="select * from Layout where LayoutID=" & LayoutID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的版面设计模板！</li>"
	else
		call SaveLayout()
		call WriteSuccessMsg("保存版面设计模板设置成功！")
	end if
	rs.close
	set rs=nothing	
end sub

sub SetDefault()
	if LayoutID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定LayoutID</li>"
		exit sub
	else
		LayoutID=Clng(LayoutID)
	end if
	conn.execute("update Layout set IsDefault=False where IsDefault=True and LayoutType=" & LayoutType)
	conn.execute("update Layout set IsDefault=True where LayoutID=" & LayoutID)
	call WriteSuccessMsg("成功将选定的模板设置为默认模板")
end sub

sub CheckLayout()
	if trim(request("LayoutName"))="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>模板名称不能为空！</li>"
	end if
	if trim(request("LayoutFileName"))="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>模板文件名不能为空！</li>"
	end if
	if trim(request("PicUrl"))="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>模板预览图地址不能为空！</li>"
	end if
	if trim(request("DesignerName"))="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>模板设计者姓名不能为空！</li>"
	end if
	if trim(request("DesignerEmail"))="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>模板设计者邮箱不能为空！</li>"
	end if
end sub

sub SaveLayout()
	rs("LayoutType")=LayoutType
	rs("LayoutName")=trim(request("LayoutName"))
	rs("LayoutFileName")=trim(request("LayoutFileName"))
	rs("PicUrl")=trim(request("PicUrl"))
	rs("DesignerName")=trim(request("DesignerName"))
	rs("DesignerEmail")=trim(request("DesignerEmail"))
	rs("DesignerHomePage")=trim(request("DesignerHomepage"))
	rs.update
end sub

sub DelLayout()
	if LayoutID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定LayoutID</li>"
		exit sub
	else
		LayoutID=Clng(LayoutID)
	end if
	sql="select * from Layout where LayoutID=" & LayoutID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的版面设计模板！</li>"
	else
		if rs("DesignType")=0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>不能删除系统自带的模板！</li>"
		elseif rs("IsDefault")=True then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>当前模板为默认模板，不能删除。请先将默认模板改为其他模板后再来删除此模板。</li>"
		else
			rs.delete
			rs.update
			dim trs
			set trs=conn.execute("select LayoutID from Layout where IsDefault=True and LayoutType=" & rs("LayoutType"))
			conn.execute("update ArticleClass set LayoutID=" & trs(0) & " where LayoutID=" & LayoutID)
			conn.execute("update Article set LayoutID=" & trs(0) & " where LayoutID=" & LayoutID)
			set trs=nothing
		end if
	end if
	rs.close
	set rs=nothing
	if FoundErr=True then exit sub
	call WriteSuccessMsg("成功删除选定的模板。并将使用此模板的栏目和文章改为使用默认模板。")	
end sub
%>
💿 文件大小 2009 K
👤 上传用户 pipinooad
📂 所属分类 DSP编程
🏷️ 相关标签

#网站 #工作室 #页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -