📄 editshop.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用

💻 ASP

字号:

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<%
if request("action")="save" then
    user_company=request("user_company")
    hw_content=request("hw_content")
    pic=request("pic")
  
        
sql="select * from tuijianshop where id="&request("id")&""
        rs.open sql,conn,3,3
        rs("user_company")=user_company
        rs("hw_content")=hw_content
        rs("pic")=pic
    rs.update
    response.write "<br>推荐商店修改成功"
    response.write "<br>"
    response.write "<a href=tuijianshop.asp>返回</a>"
    rs.close
    

else
%>


首页商店推荐设置
 <%   sql="select * from tuijianshop where id="&request("id")&""
    rs.open sql,conn,3,3
%>
<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="100%">
       <form method="POST" action="editshop.asp?action=save">
        <table border="0" width="100%" cellspacing="1">


          <tr> 
            <td width="100%">商店名称 
              <input type="text" name="user_company" size="20" class=input value="<%=rs("user_company")%>">
            </td>
          </tr>

          <tr> 
            <td width="100%">商店图片 
              <input type="text" name="pic" size="20" class=input value="<%=rs("pic")%>">最佳大小80*80
            </td>
          </tr>
          <tr> 
            <td width="100%">商品介绍</td>
          </tr>
          <tr> 
            <td width="100%"> 
              <textarea rows="9" name="hw_content" cols="77" class=input><%=rs("hw_content")%></textarea>
            </td>
          </tr><input type="hidden" name="id" size="20" class=input value="<%=request("id")%>">
<% rs.close%>
             
        </table>
        <p><input type="submit" value="提交修改" name="B1" class=input><input type="reset" value="全部重写" name="B2" class=input></p>
      </form>
      　 </td>
  </tr>
</table>

<%
end if
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -