editmoban.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 142 行
ASP
142 行
<%@ codepage ="936" %>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="101" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
'^^^
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<title></title>
<style type="text/css">
<!--
.STYLE1 {
color: #990000;
font-weight: bold;
}
.STYLE2 { color: #000000;
font-weight: bold;
}
-->
</style>
</head>
<%
Set fso = YXFSO
'保存模板----------------start-----------------------------------------
if Request.QueryString("no")="eshop" then
if request("b1")<>"" then
about = Request.Form("content1")
On Error Resume Next
Set html_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"about/index_temp.html"),True)
If Err Then
Response.Write("<br><br><font color=red>生成失败！ </font>注意该模版是否存在或网站的基本设置中的'网站所在文件夹'是否正确！ <a href='javascript:window.close();'>关闭</a>")
Response.End()
End If
html_save.Write about
html_save.Close
end if
end if
'保存模板----------------end -----------------------------------------
'--- 读出模版------start------------------------------------------------------------------------------------
On Error Resume Next
Set html_save = fso.OpenTextFile(Server.Mappath(HOPE_InstallDir&"about/index_temp.html"),1) '模版页面
html_content = html_save.ReadAll
html_content=html_content
%>
<body>
<table cellpadding="2" cellspacing="1" border="0" width="98%" class="tableBorder" align=center>
<tr align="center">
<th height=25 align="center"><span class="tableHeaderText"><strong>网站底部信息管理</strong></span> </tr>
</table>
<table width="98%" height="22" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#A2BBDD" bgcolor="#999999">
<tr>
<td width="90" height="25" align="center" bgcolor="#A2BBDD"><font color="red">→</font><font color="#FFFFFF"><b>生成静态页面</b></font></td>
<td width="90" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=about" target=_blank>关于我们</a></td>
<td width="72" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=shenming" target=_blank>法律声明</a></td>
<td width="81" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=link" target=_blank>友情连接</a></td>
<td width="81" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=contact" target=_blank>联系我们</a></td>
<td width="81" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=map" target=_blank>地图概要</a></td>
<td width="81" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=hezuo" target=_blank>合作代理</a></td>
<td width="81" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=kefu" target=_blank>客服中心</a></td>
<td width="84" align="center" bgcolor="#FFFFFF"><a href="html_page.asp?act=job" target=_blank>诚聘英才</a></td>
</tr>
</table>
<table width="98%" height="22" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#CBD6E7" bgcolor="#999999">
<tr>
<td height="25" align="center" bgcolor="#CBD6E7"><span class="STYLE1">修改栏目相关内容页面</span></td>
<td align="center" bgcolor="#FFFFFF"><a href="aboutus.asp">关于我们</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="sm.asp">法律声明</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="lianxi.asp">联系我们</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="map.asp">地图概要</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="hezuo.asp">合作代理</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="kefu.asp">客服中心</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="job.asp">诚聘英才</a></td>
</tr>
</table>
<table width="550" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#F6F6F6" ><div align="center"><br />关于我们，法律声明，联系我们，地图概要，合作代理，客服中心，诚聘英才的<span class="STYLE1">模板编辑窗口 </span></strong><br />
</div>
</td>
</tr>
<tr> <td align="center"> (提示:栏目名称：#HOPE_Aboutname#、栏目内容：#HOPE_Aboutus#)</td></tr>
<tr> <td>
<form method="POST" action="?no=eshop" name=myform>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="100%" height="252" align="center" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td bgcolor="#CCCCCC">
<textarea rows="25" name="content1" cols="100" ><%=html_content%></textarea>
</td>
</tr>
<tr align="center">
<td colspan=2 bgcolor="#F7F7F7"><br />
<br />
<input type=submit name=b1 value="提交" onClick="content1.value=eWebEditor1.getHTML()" />
<input type=reset name=b2 value="重填" /><br /><br />
</td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table>
<!-- 读出模版------end------------------------------------------------------------------------------------>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?