📄 webupdate.asp

📁 一套很早的多用户电子商务程序

💻 ASP

字号:

<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<!--#include file="check_user.asp"-->
<%
P_shop=request.cookies("sp_name")
up=request("up")
if P_shop="" or up="" then
response.redirect "messagebox.asp?msg=操作有误"
response.end()
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from shop where shop_name1='"&p_shop&"' "
rs.open sqltext,conn,3,3

select case up
case "lnc"
   tit="公司简介页面编辑"
   neirong=rs("P_about")
case "help"
   tit="购物帮助介页面编辑"
   neirong=rs("Enterprises")   				   				   				   
case else
   response.write "连接有误"
   response.End()
end select
rs.close:set rs=nothing
conn.close				   				
%>

<html>
<head>
<STYLE>BODY {
	FONT-SIZE: 10pt
}
TD {
	FONT-SIZE: 10pt; LINE-HEIGHT: 150%
}
A {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: underline
}
</STYLE>
<script language="javascript"></script>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body background="../pic/user/bg.jpg" leftmargin="0" topmargin="0">
<form name="form1" method="post" action="test.asp">
  <table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="44"><div align="center"><strong><font color="#0000FF"><%=tit%></font></strong></div></td>
    </tr>
    <tr> 
      <td> <div align="center"> 
          <INPUT type="hidden" name="neirong" value="<%=Server.HTMLEncode(neirong)%>">
          <IFRAME ID="eWebEditor1" SRC="../webedit/ewebeditor.asp?id=neirong&style=standard_blue" FRAMEBORDER="0" SCROLLING="no" WIDTH="650" HEIGHT="450"></IFRAME>
		  <INPUT type="hidden" name="up" value="<%=up%>">
        </div></td>
    </tr>
    <tr> 
      <td height="35"> <div align="center"> 
          <input type="submit" name="Submit" value="确认提交">
        </div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -