📄 admin_template.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
<tr>
<td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td>
<td class="b1" valign="top">
<%
if not isnull(cUserName) and cUserName<>"" then
if chkMaster(cUserName) then
dim isedit
select case request("action")
case "add"
call SaveAdd()
case "modify"
call SaveModify()
case "edit"
isEdit=True
call myform()
case "news"
isEdit=False
call myform()
case "del"
call del()
case "isActive"
call isActive()
case else
call Viewlist()
end select
sub del()
conn.execute("delete from SoftDown_Template where id="&Trim(Request.QueryString("ID")))
call Viewlist()
end sub
sub isActive()
conn.execute("update SoftDown_Template set isActive=0")
conn.execute("update SoftDown_Template set isActive=true where ID="&Trim(Request.Form("isActive")))
call Viewlist()
end sub
sub SaveModify()
set rs=server.createobject("adodb.recordset")
sql="select * from SoftDown_Template where ID="&request.form("ID")
rs.open sql,conn,1,3
rs("TemplateName")=checkstr(Trim(request.form("TemplateName")))
rs("Header")=FormDecode(Trim(Request.Form("Header")))
rs("Footer")=FormDecode(Trim(Request.Form("Footer")))
rs("Normal_htm")=FormDecode(Trim(Request.Form("Normal_htm")))
rs("Default_htm")=FormDecode(Trim(Request.Form("Default_htm")))
rs("SoftList_htm")=FormDecode(Trim(Request.Form("SoftList_htm")))
rs("SoftView_htm")=FormDecode(Trim(Request.Form("SoftView_htm")))
rs("Article_Head")=FormDecode(Trim(Request.Form("Article_Head")))
rs("Article_foot")=FormDecode(Trim(Request.Form("Article_foot")))
rs("Article_default")=FormDecode(Trim(Request.Form("Article_default")))
rs("Article_List")=FormDecode(Trim(Request.Form("Article_List")))
rs("Article_View")=FormDecode(Trim(Request.Form("Article_View")))
rs.update
rs.close
set rs=nothing
msgtitle="保存修改"
msginfo="<li>修改模板成功!<li><a href=""Admin_Template.asp"" class=""ArticleList"">返回模板列表</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
sub SaveAdd()
set rs=server.createobject("adodb.recordset")
sql="select * from SoftDown_Template where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("TemplateName")=checkstr(Trim(request.form("TemplateName")))
rs("Header")=Trim(Request.Form("Header"))
rs("Footer")=Trim(Request.Form("Footer"))
rs("Normal_htm")=Trim(Request.Form("Normal_htm"))
rs("Default_htm")=Trim(Request.Form("Default_htm"))
rs("SoftList_htm")=Trim(Request.Form("SoftList_htm"))
rs("SoftView_htm")=Trim(Request.Form("SoftView_htm"))
rs("Article_Head")=Trim(Request.Form("Article_Head"))
rs("Article_foot")=Trim(Request.Form("Article_foot"))
rs("Article_default")=Trim(Request.Form("Article_default"))
rs("Article_List")=Trim(Request.Form("Article_List"))
rs("Article_View")=Trim(Request.Form("Article_View"))
rs("isActive")=0
rs.update
rs.close
set rs=nothing
msgtitle="添加模板"
msginfo="<li>添加模板成功!<li><a href=""Admin_Template.asp"" class=""ArticleList"">返回模板列表</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
'=================================
sub ViewList()
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<tr class="tdbg1">
<th>模板名称 [<a href="Admin_Template.asp?action=news" class="ArticleList">添加新模板</a>]</th>
<th width="90">是否默认模板</th>
</tr>
<form action="Admin_Template.asp" method="post" name="viewlist">
<% Set Rs=server.createobject("adodb.recordset")
sql="select ID,TemplateName,isActive from SoftDown_Template "
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof
%>
<tr class="tdbg2">
<td>
<% Response.Write(rs("TemplateName"))
Response.Write(" （<a href=""Admin_Template.asp?action=edit&id="&rs("id")&""" class=""ArticleList"">修改模板</a> | ")
Response.Write("<a href=""Admin_Template.asp?action=del&id="&rs("id")&""" class=""ArticleList"">删除模板</a> ）")
%>
</td>
<td>
<input name="isActive" type="radio" value="<% =rs("ID") %>" <% if rs("isActive") then Response.Write(" checked") %>></td>
</tr>
<% rs.movenext
loop
else
Response.Write("<tr><td colspan=""2"" bgcolor=""#FFFFFF"">目前还没有模板</td></tr>")
end if
rs.close
Set Rs=nothing %>
<tr class="tdbg2">
<td align="right">当前系统默认使用模板只能选择一个</td>
<td>
<input type="submit" name="Submit3" value="设置为默认">
<input type="Hidden" name="action" value="isActive"></td>
</tr>
</form>
</table>
<%
end sub
'================================
sub myform
if isedit then
set rs=server.createobject("adodb.recordset")
sql = "select * from SoftDown_Template where id="&Trim(Request.QueryString("id"))
rs.open sql,conn,1,1
msgTitle="修改模板"
else
msgTitle="添加模板"
end if
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<form action="Admin_Template.asp" method="post" name="myform">
<tr>
<th colspan="2" class="tdbg1">
<% if isedit then
Response.Write("<input type=""Hidden"" name=""action"" value=""modify"">")
Response.Write("<input type=""Hidden"" name=""ID"" value="""&Trim(Request.QueryString("id"))&""">")
else
Response.Write("<input type=""Hidden"" name=""action"" value=""add"">")
end if
Response.Write(msgTitle)
%>
</th>
</tr>
<tr class="tdbgleft">
<td>模板名称</td>
<td >
<input name="TemplateName" type="text" id="TemplateName" class="bian1" value="<% if isedit then
response.write trim(rs("TemplateName"))
end if %>"> </td>
</tr>
<tr class="tdbgleft">
<td><u>下载系统页面头部</u><br>
软件下载系统页面的头部模板</td>
<td>
<textarea name="Header" cols="70" rows="7" class="bian1" id="Header"><% if isedit then Response.Write(FormEncode(rs("Header"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>下载系统页面底部</u><br>
软件下载系统页面的底部模板</td>
<td>
<textarea name="Footer" cols="70" rows="7" class="bian1" id="Footer"><% if isedit then Response.Write(FormEncode(rs("Footer"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>常规页面</u><br>
用在分类、排行榜、最近更新等页面的模板</td>
<td>
<textarea name="Normal_htm" cols="70" rows="7" class="bian1" id="Normal_htm"><% if isedit then Response.Write(FormEncode(rs("Normal_htm"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>默认首页</u><br>
下载系统默认首页的模板，即：default.html</td>
<td>
<textarea name="Default_htm" cols="70" rows="7" class="bian1" id="Default_htm"><% if isedit then Response.Write(FormEncode(rs("Default_htm"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>软件分类列表页模板</u></td>
<td>
<textarea name="SoftList_htm" cols="70" rows="7" class="bian1" id="SoftList_htm"><% if isedit then Response.Write(FormEncode(rs("SoftList_htm"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>软件详细信息页模板</u><br>
</td>
<td>
<textarea name="SoftView_htm" cols="70" rows="7" class="bian1" id="SoftView_htm"><% if isedit then Response.Write(FormEncode(rs("SoftView_htm"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>文章系统页面头部模板</u></td>
<td>
<textarea name="Article_Head" cols="70" rows="7" class="bian1"><% if isedit then Response.Write(FormEncode(rs("Article_Head"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>文章系统页面底部模板</u></td>
<td>
<textarea name="Article_foot" cols="70" rows="7" class="bian1"><% if isedit then Response.Write(FormEncode(rs("Article_foot"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>文章系统默认首页模板</u></td>
<td>
<textarea name="Article_default" cols="70" rows="7" class="bian1"><% if isedit then Response.Write(FormEncode(rs("Article_default"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>文章列表页面模板</u></td>
<td>
<textarea name="Article_List" cols="70" rows="7" class="bian1"><% if isedit then Response.Write(FormEncode(rs("Article_List"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td><u>文章内容显示页面模板</u></td>
<td>
<textarea name="Article_View" cols="70" rows="7" class="bian1"><% if isedit then Response.Write(FormEncode(rs("Article_View"))) %></textarea>
</td>
</tr>
<tr class="tdbgleft">
<td align="center"> </td>
<td>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table>
<%
if edit then rs.close:set rs=nothing
end sub %>
<%
else
msgtitle="用户管理"
msginfo="<li>操作错误，你不是系统管理员，没有权限进行此项操作！</li>"
call Sysmsg(msgtitle,msginfo)
end if
else
msgtitle="用户管理"
msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"">点此登录系统</a><li><a href=""./"">返回频道首页</a></li>"
call Sysmsg(msgtitle,msginfo)
end if %>
</td>
</tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<%
function FormEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
FormEncode = fString
end if
end function
function FormDecode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
FormDecode = fString
end function
CloseDatabase %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -