📄 admin_jsmanage.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("jsm")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
Set fso=Server.CreateObject("scripting.FileSystemObject")
Sub DelJS(FileName)
if fso.FileExists(Server.Mappath("htm")&"\JS\"&FileName&".js") then
fso.DeleteFile(Server.Mappath("htm")&"\JS\"&FileName&".js")
end if
if fso.FileExists(Server.Mappath("htm")&"\TOPjs\"&FileName&".js") then
fso.DeleteFile(Server.Mappath("htm")&"\TOPjs\"&FileName&".js")
end if
if fso.FileExists(Server.Mappath("htm")&"\JS\"&FileName&".htm") then
fso.DeleteFile(Server.Mappath("htm")&"\JS\"&FileName&".htm")
end if
End SUb
Sub addjss()
if request.form("JSNameCN")="" or request.form("JSNameEN")="" then Call Wran("JS中文名称或者英文名称不能为空")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from JS where JSNameCN='"&replace(request.form("JSNameCN"),"'","''")&"' or JSNameCN='"&replace(request.form("JSNameEN"),"'","''")&"'"
rs.open sql,conn,3,3
if not rs.eof then Call Wran("JS中文名称或者英文名称与现存的JS重名")
rs.addnew
rs("JSNameCN")=replace(request.form("JSNameCN"),"'","''")
rs("JSNameEN")=replace(request.form("JSNameEN"),"'","''")
rs("Type")=request.form("Type")
if request.form("Type")="文字新闻" then
rs("IndexCount")=request.form("IndexCount1")
else
rs("IndexCount")=request.form("IndexCount")
rs("PhotoCSS")=request.form("PhotoCSS")
if request.form("PhotoCSS")="CSS2" then rs("Depict")=request.form("Depict")
rs("PicWi")=request.form("PicWi")
rs("PicHi")=request.form("PicHi")
end if
rs.update
rs.close
set rs=nothing
fso.CreateTextFile(Server.Mappath("htm")&"\JS\"&replace(request.form("JSNameEN"),"'","''")&".js")
response.redirect"admin_JSManage.asp"
End Sub
Sub MoJS()
set rs=Server.CreateObject("adodb.recordset")
sql="select * from JS where ID="&request.form("ID")
rs.open sql,conn,3,3
if request.form("Type")="文字新闻" then
rs("IndexCount")=request.form("IndexCount1")
else
rs("IndexCount")=request.form("IndexCount")
rs("PicWi")=request.form("PicWi")
rs("PicHi")=request.form("PicHi")
rs("Depict")=request.form("Depict")
end if
rs.update
rs.close
set rs=nothing
response.redirect"admin_JSManage.asp"
End Sub
Sub Wran(content)
%>
<script>
history.back()
alert("<%=content%>")
</script>
<%
response.end
End Sub
%>
<% if request.form("o")="DEL" then
num=request.form("JSNameEN").count
for i=1 to num
set rs2=Server.CreateObject("adodb.recordset")
sql2="select JSNameCN from JS Where JSNameEN='"&request.form("JSNameEN")(i)&"'"
rs2.open sql2,conn,1,3
JSNameCN=rs2("JSNameCN")
rs2.close
set rs2=nothing
conn.execute("delete from js where JSNameEN='"&request.form("JSNameEN")(i)&"'")
conn.execute("delete from JSFile where JSName='"&JSNameCN&"'")
DelJS(request.form("JSNameEN")(i))
next
end if
set rs=Server.CreateObject("adodb.recordset")
sql="select * from JS order by Date Desc"
rs.open sql,conn,1,1
%>
<body bgcolor="#FFFFFF">
<form name="form" method="POST" action="">
<p> </p>
<table width="93%" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#7ED3A7">
<tr bgcolor="#F7FFF4">
<td height="25" colspan="7" align="center" valign="middle">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="0">已建立的JS列表</font><font color="#FFFFFF"><b><font color="#FF0000"> </font></b></font><b>[</b></b><font color="#FFFFFF"><font color="#FF0001"><a href="admin_JSAdd.asp"><font color="#000000">创建新的JS</font></a></font></font><b><b>]</b></b></div></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#F7FFF4" align="center">
<td width="82" valign="middle"><b>删除</b></td>
<td width="84" height="27" valign="middle"><b>JS中文名称 </b></td>
<td width="88" height="27" valign="middle"><b>JS英文名称</b></td>
<td width="61" height="27" valign="middle"><b>JS类型</b></td>
<td width="116" height="27" valign="middle"><b>创建日期</b></td>
<td width="77" height="27" valign="middle"><b>JS管理</b></td>
<td width="51" height="27" valign="middle"><b>修改</b></td>
</tr>
<% while not rs.eof %>
<tr bgcolor="#F7FFF4" align="center">
<td width="82" valign="middle">
<input type=checkbox name=JSNameEN value=<%=rs("JSNameEN")%>></td>
<td width="84" height="25" valign="middle" bgcolor="#F7FFF4"><%=rs("JSNameCN")%>
</td>
<td width="88" height="25" valign="middle"><%=rs("JSNameEN")%> </td>
<td width="61" height="25" valign="middle"><%=rs("Type")%> </td>
<td width="116" height="25" valign="middle"><%=rs("Date")%> </td>
<td width="77" height="25" valign="middle"><a href="admin_JSDel.asp?JSNameCN=<%=rs("JSNameCN")%>&Type=<%=rs("Type")%>&PhotoCSS=<%=rs("PhotoCSS")%>">管理
</a> </td>
<td height="25" valign="middle"><a href=admin_JSModify.asp?ID=<%=rs("ID")%>>修改</a>
</td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
<tr bgcolor="#F7FFF4">
<td colspan=8 align=left>
<div align="center"><a href=admin_JSAdd.asp><b></b></a>
</div>
<input type=hidden value=DEL name=o>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)">
选中所有
<input type=submit value=删除 onclick="return Del()">
</td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -