hope_said.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下:管理员」· ASP 代码 · 共 94 行
ASP
94 行
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% data_path="../../" 'ACC连接数据库路径,对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<link rel="stylesheet" type="text/css" href="../css/style.css">
<%
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)="08" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
if Request.QueryString("no")="eshop" then
set rs=server.createobject("adodb.recordset")
sql="select * from [yixiang_main]"
rs.open sql,conn,3,3
For i = 1 To Request.Form("content1").Count
about = sContent & Request.Form("content1")(i)
About=replace(About,"'","'")
Next
rs("yixiang_wt")=About
about=rs("yixiang_wt")
rs.update
rs.close
filename=request.ServerVariables("PATH_INFO")
response.redirect filename
end if
sql="select * from yixiang_main"
Set rs_home= Server.CreateObject("ADODB.Recordset")
rs_home.open sql,conn,1,1
if not rs_home.eof then
about=rs_home("yixiang_wt")
else
about="暂无说明"
end if
%>
<body>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25">
<div align="center"><strong>委托说明</strong></div></td>
</tr>
<tr>
<form method="POST" action="?no=eshop" name=myform>
<td><table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td height="10" colspan="2"> </td>
</tr>
<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>
<INPUT type="hidden" name="content1" value='<%=about%>'>
<iframe ID="eWebEditor1" src="../../editor/ewebeditor.asp?id=content1&style=standard&originalfilename=d_originalfilename &savefilename=d_savefilename &savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="617" HEIGHT="450"></iframe>
</TD>
</TR>
<TR align="center">
<TD colspan=2>
<INPUT type=submit name=b1 value="提交" onClick="content1.value=eWebEditor1.getHTML()">
<INPUT type=reset name=b2 value="重填">
</TD>
</TR>
</TABLE>
</td>
</tr>
</table></td></form>
</tr>
</table>
</body>
<!--#include file="../copy.asp"-->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?