📄 admin_specialmodify.asp
字号:
<!--#include file = "include.asp"-->
<!--#include file = "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("special")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
if request.Form("action")="update" then
speicalcn=request.form("speicalcn")
ID=request("ID")
speicalNum=request.form("speicalNum")
sphp=request.form("sphp")
sphph=request.form("sphph")
sphpw=request.form("sphpw")
sppdp=request.form("sppdp")
sppdw=request.form("sppdw")
sppldw=request.form("sppldw")
spkey=request.form("spkey")
spmore=request.form("spmore")
Templet=trim(request.form("Templet"))
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Speical where ID="&ID
rs.open sql,conn,3,3
rs("speicalcn")=speicalcn
rs("speicalNum")=speicalNum
rs("sphp")=sphp
rs("sphph")=sphph
rs("sphpw")=sphpw
rs("sppdp")=sppdp
rs("sppldw")=sppldw
rs("spkey")=spkey
rs("sppdw")=sppdw
rs("spmore")=spmore
rs("Templet")=Templet
rs.update
rs.close
Response.write"<script>alert(""专题修改成功！"");location.href=""admin_Special.asp"";</script>"
Response.end
end if
SpeicalCn = Request("SpeicalCn")
set rs=Server.CreateObject("Adodb.RecordSet")
rs.source="select * from speical where speicalcn = '"&speicalcn&"'"
rs.open rs.source,conn,1,1
%>
<body bgcolor="#FFFFFF">
<form name="form" method="POST" action="?speicalcn=<%=rs("id")%>">
<table width="98%" height="359" border="0" cellpadding="3" cellspacing="1" bgcolor="#76B771">
<tr bgcolor="#F7FFF4">
<td height="18" colspan="2" > <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><font color="#990000"><strong><b><font color="#000000">修改专题栏目</font></b>
</strong></font></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="205" height="20" bgcolor="#F7FFF4"> <div align="right">栏目修改：</div></td>
<td width="749" > <%=rs("speicalcn")%> <input name="speicalcn" type="hidden" id="speicalcn" value="<%=rs("speicalcn")%>" size="20">
<input name="ID" type="hidden" id="ID" value="<%=rs("ID")%>" size="20"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="205" height="20" bgcolor="#F7FFF4"> <div align="right">专题调用数目：</div></td>
<td width="749" valign="middle"> <input name="SpeicalNum" type="text" id="SpeicalNum" value="<%=rs("speicalNum")%>" size="20">
默认30</td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" valign="middle"> <div align="right">图片：</div></td>
<td height="25" valign="middle"> 显示数:
<input name="sphp" type="text" id="sphp" value="<%=rs("sphp")%>" size="4">
图片高度
<input name="sphph" type="text" id="sphph" value="<%=rs("sphph")%>" size="4">
px 图片宽度
<input name="sphpw" type="text" id="sphpw" value="<%=rs("sphpw")%>" size="4">
px <font color="#FF0000">选择否后面将视为无效</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> <div align="right">专题首页、栏目导读图片：</div></td>
<td height="20" valign="middle"> <input name="sppdp" type="text" id="sppdp" value="<%=rs("sppdp")%>" size="40"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> <div align="right">专题首页调用文字导读：</div></td>
<td height="20" valign="middle"> <textarea name="sppdw" cols="49" id="sppdw"><%=rs("sppdw")%></textarea>
<font color="#FF0000">不能使用回车符！</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> <div align="right">专题栏目文字导读：</div></td>
<td height="20" valign="middle" bgcolor="#F7FFF4"> <textarea name="sppldw" cols="49" id="sppldw"><%=rs("sppldw")%></textarea>
<font color="#FF0000">不能使用回车符！</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> <div align="right">专题内部连接关键字：</div></td>
<td height="20" valign="middle"> <input name="spkey" type="text" id="spkey" value="<%=rs("spkey")%>" size="20">
<font color="#0000FF">语言简洁，用于专题间连接</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> <div align="right">本栏目“更多”导航图片：</div></td>
<td height="20" valign="middle"> <input name="spmore" type="text" id="spmore" value="<%=rs("spmore")%>" size="40"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle" bgcolor="#F7FFF4">
<%
rs.close
set rs=nothing
%>
<div align="right">专题模板 </div></td>
<td height="20" valign="middle"><select name=Templet>
<%
set rs1 = server.createobject("adodb.recordset")
sql1 = "select TempletName from Templet where TempletType='special' order by id desc "
rs1.open sql1,conn,1,1
while not rs1.eof
%>
<option value="<%=rs1("TempletName")%>" selected><%=rs1("TempletName")%></option>
<%
rs1.movenext
wend
%>
</select>
<%
rs1.close
set rs1=nothing%>
</td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> </td>
<td height="20" valign="middle">
<input name="action" type="hidden" id="action" value="update"> <input type="submit" value=" 修 改 " name="B12" onClick="return modify()" class=Anbutc></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="20" colspan="2" valign="middle">
<!--#include file = name.asp-->
</td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -