📄 indextempmanage.asp
字号:
<!--#include file = conn.asp-->
<!--#include file = Fsmanage/admin_Checkmana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("templeti")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
set rs = server.createobject("adodb.recordset")
sql = "select * from Templet where TempletType='indext'"
rs.open sql,conn,1,3
if request("action")="modify" then
rs("TempletName")=request("TempletName")
rs("Templetcontent")=request("templetcontent")
rs("TempletType")="indext"
rs.update
Response.write"<script>alert(""首页模板修改成功 "&Copyright&" "");location.href=""indextempmanage.asp?action=index"";</script>"
Response.end
end if
select case Request("action")
case "index"
call main()
case "special"
call special()
case "ssave"
call spsave()
case "Photo"
call Photo()
case "psave"
call phsave()
end select
%>
<LINK href=FsManage/css/css.css rel=stylesheet>
<body bgcolor="#FFFFFF" topmargin="10">
<%sub main()%>
<form action="?action=modify" method="post" name="form" id="form">
<table width="719" border="0" cellspacing="0" cellpadding="2" align="center" bgcolor="#7ED3A7">
<tr bgcolor="#FFFFFF">
<td valign="top"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td width="992" height="26" bgcolor="#FFFFFF"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="FsManage/images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#FFFFFF"><strong><font color="#000000">首页模板管理
</font></strong></font></b></div></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="83" bgcolor="#F7FFF4">首页标签：<br>
导航：[navigation] 滚动新闻：[marquee] 今日统计：[tongji] 新闻搜索：[newssearch]
今日推荐：[recommendnews]<br>
今日最新[Lastnews] 最新图片：[DHangPic] 专题：[special] 点击排行(焦点新闻)[topnews]
<br>
新闻导读:[Dnews]
<hr size="1" noshade>
<font color="#FF0000">大类标签：</font><br>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select * from newsclass where depth=0 order by RootID asc,orders asc"
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
response.Write(""&rssmallclass("classcn")&"：["&rssmallclass("classen")&"] ")
rsSmallClass.movenext
wend
rsSmallClass.Close
%> <br>
<font color="#FF0000">小类标签：</font><br>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select * from newsclass where child=0 order by RootID asc,orders asc"
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
response.Write(""&rssmallclass("classcn")&"：["&rssmallclass("classen")&"] ")
rsSmallClass.movenext
wend
rsSmallClass.Close
%>
</td>
</tr>
<tr valign="top">
<td height="296" bgcolor="#E3FFD9">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<div align="left"> 模板名称：
<input name="TempletName" type="text" id="TempletName" value="<%=rs("TempletName")%>">
<textarea name="TempletContent" cols="100" rows="20" id="TempletContent"><%=rs("TempletContent")%></textarea>
<br>
<b><font color="#FFFFFF"><strong><font color="#000000">
<input type="submit" name="Submit" value="修改" class=Anbutc>
<br>
<br>
</font></strong></font></b><font color="#FFFFFF"><font color="#000000">Ps:如果你设置调用的新闻数量，请这样操作：信息管理--栏目管理-相应栏目修改，设置即可。</font></font>
模板内容不能超过<font color="#FF0000">100k(access)</font></div>
</div></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%end sub%>
<tr bgcolor="#FFFFFF" valign="middle" align="center">
<td height="62" bgcolor="#F3F8FC"> </td>
</tr>
<%
sub special()
set rss = server.createobject("adodb.recordset")
sqls = "select * from Templet where TempletType='speciali'"
rss.open sqls,conn,1,3
%>
<form name="form1" method="post" action="?action=ssave">
<table width="719" border="0" cellspacing="0" cellpadding="2" align="center" bgcolor="#7ED3A7">
<tr bgcolor="#FFFFFF">
<td valign="top"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td width="992" height="26" bgcolor="#FFFFFF"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="FsManage/images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#FFFFFF"><strong><font color="#000000">专题首页模板管理
</font></strong></font></b></div></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="62" bgcolor="#F7FFF4">专题标签：<br>
导航：[navigation] 新闻搜索：[newssearch] <br>
今日最新[Lastnews] 专题列表：[special] 点击排行(焦点新闻)[topnews] <br>
<hr size="1" noshade>
</td>
</tr>
<tr valign="top">
<td height="296" bgcolor="#E3FFD9"> <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<div align="left"> 模板名称：
<input name="TempletName" type="text" id="TempletName" value="<%=rss("TempletName")%>">
<textarea name="templetcontent" cols="100" rows="20" id="templetcontent"><%=rss("TempletContent")%></textarea>
<br>
<b><font color="#FFFFFF"><strong><font color="#000000">
<input type="submit" name="Submit2" value=" 修 改 " class=Anbutc>
<br>
<br>
</font></strong></font></b><font color="#FFFFFF"><font color="#000000">Ps:如果你设置调用的新闻数量，请这样操作：信息管理--栏目管理-相应栏目修改，设置即可。</font></font>
模板内容不能超过<font color="#FF0000">100k(access)</font> </div>
</div></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%
set rss=nothing
end sub%>
<%sub photo()
set rsp = server.createobject("adodb.recordset")
sqlp = "select * from Templet where TempletType='photo'"
rsp.open sqlp,conn,1,3
%>
<form name="form1" method="post" action="?action=psave">
<table width="719" border="0" cellspacing="0" cellpadding="2" align="center" bgcolor="#7ED3A7">
<tr bgcolor="#FFFFFF">
<td valign="top"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td width="992" height="26" bgcolor="#FFFFFF"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="FsManage/images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#FFFFFF"><strong><font color="#000000">图片首页模板管理
</font></strong></font></b></div></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="83" bgcolor="#F7FFF4">专题标签：<br>
导航：[navigation] 今日统计：[tongji] 新闻搜索：[newssearch] 今日推荐：[recommendnews]<br>
今日最新[Lastnews] 专题：[special] 点击排行(焦点新闻)[topnews] 图片分类:[pclass]<br>
<hr size="1" noshade>
<font color="#FF0000">图片大类标签：</font><br>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select * from newsclass where depth=0 order by RootID asc,orders asc"
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
response.Write(""&rssmallclass("classcn")&"：["&rssmallclass("classen")&"] ")
rsSmallClass.movenext
wend
rsSmallClass.Close
%>
<br>
<font color="#FF0000">图片小类标签：</font><br>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select * from newsclass where child=0 order by RootID asc,orders asc"
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
response.Write(""&rssmallclass("classcn")&"：["&rssmallclass("classen")&"] ")
rsSmallClass.movenext
wend
rsSmallClass.Close
%>
</td>
</tr>
<tr valign="top">
<td height="296" bgcolor="#E3FFD9"> <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<div align="left"> 模板名称：
<input name="TempletName" type="text" id="TempletName3" value="<%=rsp("TempletName")%>">
<textarea name="TempletContent" cols="100" rows="20" id="textarea2"><%=rsp("TempletContent")%></textarea>
<br>
<b><font color="#FFFFFF"><strong><font color="#000000">
<input type="submit" name="Submit22" value="修改" class=Anbutc>
<input name="action" type="hidden" id="action3" value="Photo">
<br>
<br>
</font></strong></font></b><font color="#FFFFFF"><font color="#000000">Ps:如果你设置调用的新闻数量，请这样操作：信息管理--栏目管理-相应栏目修改，设置即可。</font></font>
模板内容不能超过<font color="#FF0000">100k(access)</font> </div>
</div></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%end sub%>
</body>
</html>
<%
sub spsave()
set rsss = server.createobject("adodb.recordset")
sqlss = "select * from Templet where TempletType='speciali'"
rsss.open sqlss,conn,1,3
rsss("TempletName")=request("TempletName")
rsss("Templetcontent")=request("templetcontent")
rsss("TempletType")="speciali"
rsss.update
set rsss=nothing
Response.write"<script>alert(""专题首页模板修改成功 "&Copyright&" "");location.href=""javascript:history.back()"";</script>"
Response.end
end sub
sub phsave()
set rssp = server.createobject("adodb.recordset")
sqlsp = "select * from Templet where TempletType='photo'"
rssp.open sqlsp,conn,1,3
rssp("TempletName")=request("TempletName")
rssp("Templetcontent")=request("templetcontent")
rssp("TempletType")="photo"
rssp.update
set rssp=nothing
Response.write"<script>alert(""图片首页模板修改成功 "&Copyright&" "");location.href=""javascript:history.back()"";</script>"
Response.end
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -