📄 admin_block.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<!--#include file = "admin_CheckMana.asp"-->
<%
if EnoughPopedom("block")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32)," ")
fString = Replace(fString, CHR(9)," ")
fString = Replace(fString, CHR(34),""")
fString = Replace(fString, CHR(39),"'")
fString = Replace(fString, CHR(10),"<BR>")
fString = Replace(fString, CHR(13),"<BR>")
HTMLEncode = fString
end if
end function
%>
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="css/css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<table width="98%" border="0" align="center" cellspacing="2">
<tr>
<td class="b1" valign="top">
<%
dim isedit
select case request("action")
case "saveadd"
call SaveAdd()
case "modify"
call SaveModify()
case "edit"
isEdit=True
call myform()
case "add"
call myform1()
case "del"
call del()
end select
sub del()
conn.execute("delete from block where id="&Trim(Request.QueryString("ID")))
Response.write"<script>alert(""删除成功 "");location.href=""Admin_block.asp"";</script>"
Response.end
end sub
sub SaveModify()
set rs=server.createobject("adodb.recordset")
sql="select * from block where jsname = '"&request.Form("jsname")&"'"
rs.open sql,conn,1,3
rs("jsname")=request.form("jsname")
rs("jstitle")=request.form("jstitle")
rs("content")=request.form("content")
rs("DateTime")=now()
rs("BiaoQian")=request.form("BiaoQian")
rs.update
rs.close
set MyFile=Server.CreateObject("Scripting.FileSystemObject")
Set block1=MyFile.CreateTextFile(Server.MapPath("..")&"\Otherjs\Blockjs\"&trim(request.Form("jsname"))&".js")
str1="document.write('"
str1 = str1 & ""&HTMLEncode(request.form("content"))&""
str1=str1 & "')"
block1.write str1
set rs=nothing
Response.write"<script>alert(""修改成功 "");location.href=""Admin_block.asp"";</script>"
Response.end
end sub
sub SaveAdd()
set rs1 = server.createobject("adodb.recordset")
rs1.source = "select * from block where jsname = '"&request.Form("jsname")&"' "
rs1.open rs1.source,conn,1,1
if not rs1.eof then
Response.write"<script>alert(""名称已经存在！请重新录入 "");location.href=""javascript:history.back()"";</script>"
Response.end
end if
rs1.close
set MyFile=Server.CreateObject("Scripting.FileSystemObject")
set rs=server.createobject("adodb.recordset")
sql="select * from block where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("jsname")=request.form("jsname")
rs("jstitle")=request.form("jstitle")
rs("content")=request.form("content")
rs("DateTime")=now()
rs("BiaoQian")=request.form("BiaoQian")
rs.update
rs.close
set rs=nothing
Set block=MyFile.CreateTextFile(Server.MapPath("..")&"\Otherjs\Blockjs\"&trim(request.Form("jsname"))&".js")
str="document.write('"
str = str & ""&HTMLEncode(request.form("content"))&""
str=str & "')"
block.write str
Response.write"<script>alert(""添加成功 "");location.href=""Admin_block.asp"";</script>"
Response.end
end sub
'=================================
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9BDBBA" class="tableBorder">
<tr bgcolor="#F7FFF4" class="tdbg1">
<td colspan="6"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="../Fsmanage/images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>块管理 </strong><a href="?action=add"><font color="#FF0000">添加块</font></a> 系统块管理</div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#DFFFD2" class="tdbg1">
<td width="117"> <div align="center">ID</div></td>
<td width="197" bgcolor="#DFFFD2"><div align="center">标签</div></td>
<td width="197" bgcolor="#DFFFD2">js英文名称(点击编辑)</td>
<td width="270" bgcolor="#DFFFD2"> <div align="center">js说明</div></td>
<td width="204"> <div align="center">预览</div></td>
<td width="143"> <div align="center">编辑</div></td>
</tr>
<% Set Rs=server.createobject("adodb.recordset")
sql="select * from block "
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof
%>
<tr bgcolor="#F7FFF4" class="tdbg2">
<td align="center"><%=rs("ID")%></td>
<td bgcolor="#F7FFF4"><div align="center">[<%=rs("BiaoQian")%>]</div></td>
<td bgcolor="#F7FFF4"><a href="?action=edit&id=<%=rs("id")%>"><%=rs("jsName")%></a></td>
<td bgcolor="#F7FFF4"><div align="center"><%=rs("jstitle")%></div></td>
<td align="center"><a href="Admin_BlockRead.asp?id=<%=rs("id")%>" target="_blank">预览</a>
</td>
<td>
<%
Response.Write(" （<a href=""?action=edit&id="&rs("id")&""">修改</a> | ")
Response.Write("<a href=""?action=del&id="&rs("id")&""">删除</a> ）")
%>
</td>
</tr>
<% rs.movenext
loop
else
Response.Write("<tr><td colspan=""2"" bgcolor=""#FFFFFF"">没有找到任何记录！</td></tr>")
end if
rs.close
Set Rs=nothing %>
</table>
<%
'================================
sub myform()
set rs=server.createobject("adodb.recordset")
sql = "select * from block"
rs.open sql,conn,1,1
%>
<form action="?action=modify" method="post" name="myform" id="myform">
<TABLE width="525" height="27"
border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="149" > <TABLE cellSpacing=0
cellPadding=0 width="525" border=0>
<TBODY>
<TR>
<TD width="47" valign="top"><div align="right"></div></TD>
<TD width="560" height="18"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td bgcolor="#F7FFF4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><strong><font color="#990000">块操作</font></strong><font color="#990000"><strong> </strong></font></b><a href="?"><font color="#FF0000">管理块</font></a></div></td>
</tr>
</table>
<table width="470" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td bgcolor="#F7FFF4"><div align="right">文件名：
</div></td>
<td bgcolor="#F7FFF4"><input name="jsname1" Disabled type="text" id="jsname1" value="<% if isedit then response.write trim(rs("jsname"))%>" size="10">
<input name="jsname" type="hidden" id="jsname3" value="<% if isedit then response.write trim(rs("jsname"))%>" size="10">
<strong>.js </strong>请用英文 标签代码:
<input name="BiaoQian" type="text" id="BiaoQian" value="<% if isedit then response.write trim(rs("BiaoQian"))%>" size="10">
</td>
</tr>
<tr>
<td bgcolor="#F7FFF4"><div align="right">说 明：</div></td>
<td bgcolor="#F7FFF4"><input name="jstitle" type="text" id="jstitle" value="<% if isedit then response.write trim(rs("jstitle"))%>" size="45"></td>
</tr>
<tr>
<td width="62" bgcolor="#F7FFF4"><div align="right">HTML内容:</div></td>
<td width="392" bgcolor="#F7FFF4">
<textarea name="content" cols="50" rows="10" id="content"><% if isedit then response.write trim(rs("content"))%></textarea></td>
</tr>
<tr>
<td bgcolor="#F7FFF4"> </td>
<td bgcolor="#F7FFF4">说 明： HTML内容中必须使用绝对路径或者网络路径</td>
</tr>
<tr>
<td bgcolor="#F7FFF4"> </td>
<td bgcolor="#F7FFF4"><input type="submit" name="Submit" value="完 成" class=Anbutc>
<input type="reset" name="Submit2" value="重 置" class=Anbutc>
<input name="action" type="hidden" id="action" value="add"></td>
</tr>
</table>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</table>
</form>
<%
end sub
sub myform1()
%>
<form action="?action=saveadd" method="post" name="myform" id="myform">
<TABLE width="525" height="27"
border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="149" > <TABLE cellSpacing=0
cellPadding=0 width="525" border=0>
<TBODY>
<TR>
<TD width="47" valign="top"><div align="right"></div></TD>
<TD width="560" height="18"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td bgcolor="#F7FFF4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><strong><font color="#990000">块操作</font></strong><font color="#990000"><strong> </strong></font></b><a href="?"><font color="#FF0000">管理块</font></a></div></td>
</tr>
</table>
<table width="470" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td bgcolor="#F7FFF4"><div align="right">文件名：
</div></td>
<td bgcolor="#F7FFF4"><input name="jsname" type="text" id="jsname" size="10">
<strong>.js </strong>请用英文 标签代码:
<input name="BiaoQian" type="text" id="BiaoQian" size="10">
</td>
</tr>
<tr>
<td bgcolor="#F7FFF4"><div align="right">说 明：</div></td>
<td bgcolor="#F7FFF4"><input name="jstitle" type="text" id="jstitle" size="45"></td>
</tr>
<tr>
<td width="62" bgcolor="#F7FFF4"><div align="right">HTML内容:</div></td>
<td width="392" bgcolor="#F7FFF4"><textarea name="content" cols="50" rows="10" id="content"></textarea>
</td>
</tr>
<tr>
<td bgcolor="#F7FFF4"> </td>
<td bgcolor="#F7FFF4">说 明： HTML内容中必须使用绝对路径或者网络路径</td>
</tr>
<tr>
<td bgcolor="#F7FFF4"> </td>
<td bgcolor="#F7FFF4"><input type="submit" name="Submit" value="完 成" class=Anbutc>
<input type="reset" name="Submit2" value="重 置" class=Anbutc>
<input name="action" type="hidden" id="action" value="add"></td>
</tr>
</table>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</table>
</form>
<%end sub%>
</td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -