des.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 105 行

ASP

105 行

 <%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
 <!--#include file="../../inc/safe.asp"-->
 <!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: #0099CC;
	font-weight: bold;
}
.STYLE3 {color: #CC4A44}
.STYLE4 {color: #CE4942}
.STYLE5 {
	color: #0033FF;
	font-weight: bold;
}
-->
 </style>
  </head>

<%
'-更新竞价配置数据----------------------------
goo=Replace_Text(request("goo"))
 
des=request("content")

if goo<>"" then
 
set rsc=server.CreateObject("adodb.recordset")
sqlc="select top 1 * from yixiang_config_price "
rsc.open sqlc,conn,1,3
if not rsc.eof  then
  rsc("description")=des
rsc.update

rsc.close
end if
  
end if

'-------------------------


%>
<body>
<table cellpadding="1" cellspacing="1" border="0" width="100%" class="tableBorder" align="center">
    <tr align="center">
      <th height="25" align="center"><span class="tableHeaderText"><strong>竞价服务说明管理</strong></span> </th>
    </tr>
</table>
   <table cellpadding="0"   bordercolor="#EBF1FA" cellspacing="0" border="1" width="98%"  align="center">
     <tr ><td align="left"  bgcolor="#E9ECEF" ><a href="index.asp"><font color="red">竞价参数设置</font></a> </td>
 <td height="30" align="center" bgcolor="#E9ECEF" >  竞价服务使用说明(<font  color="#999999">用于展示说明竞价服务、帮助使用</font>)</td>
     </tr> 
	 <tr><td colspan="2" bgcolor="#000000" height="3"></td></tr>
   <% 
  descon="暂无信息！"
 	 	sql1="SELECT top 1  id, starttime, endtime, isopen, description FROM yixiang_config_price"
		Set rs1= Server.CreateObject("ADODB.Recordset") 
		rs1.Open sql1,conn
       if not  rs1.eof then 
     descon=rs1("description")
  		rs1.Close
		set rs1=Nothing
		end if
 	%>   
	<tr><td align="center"  colspan="2" >
	
	  <form   name="form1" method="post" action="des.asp"  >
     
     <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
 	 <tr><td align="center"  >
           <textarea name="content" style="display:none"><%=descon%></textarea>
		 <iframe ID="eWebEditor1"   src="../../editor/ewebeditor.asp?id=content&style=standard&originalfilename=d_originalfilename&savefilename=d_savefilename &savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="620" HEIGHT="500"></iframe>
   	</td></tr>
	<tr><td   bgcolor="#EFEFEF" height="6"></td></tr>
	<tr><td    align="center" height="40">
	<input type="submit" value=" 修 改 " name="goo" /></td>
 	 </tr>
	
 	</table></form>
   </td>    </tr>
</table>
  
   
  
  
  
   
</body>
</html>

des.asp - 源码说明

本页面展示了「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统」中的 des.asp 源码文件，采用 ASP 编程语言编写，共 105 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与JSP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?