📄 system.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 rel="stylesheet" href="css.css" type="text/css">
</head>
<%
if request("action")="save" then
    logo=request("logo")
    banner=request("banner")
    banner2=request("banner2")
    title=request("title")
   
    if title="" then
        errmsg=errmsg+"<br>"+"<li>系统名称不能为空"
        founderr=true
    end if
    if banner="" then
        errmsg=errmsg+"<br>"+"<li>顶部广告不能为空"
        founderr=true
    end if
   

   
    
    if logo="" then logo="img/no.jpg"
    
    if founderr=true then
        response.write errmsg
        response.write "<br>"
        response.write "<a href=system.asp>返回</a>"
        response.end
    else
       
        
        sql="select * from system"
        rs.open sql,conn,3,3
        rs("logo")=logo
        rs("banner")=banner
        rs("banner2")=banner2
        rs("title")=title
        rs.update
    end if
    response.write "系统参数设置成功"
    response.write "<p>"%>
    <%response.write "<br>"
    response.write "<a href=system.asp>返回</a>"
    rs.close
    

else
%>
<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="100%">
      <form method="POST" action="system.asp?action=save"  name="myform">
<%        sql="select * from system"
        rs.open sql,conn,3,3%>
        <table border="0" width="100%" cellspacing="1">
     
          <tr> 
            <td width="100%">设置系统名称 
              <input type="text" name="title" size="70" class=input value="<%=rs("title")%>">
            </td>
          </tr>
          <tr> 
            <td width="100%">系统LOGO地址 
              <input type="text" name="logo" size="70" class=input value="<%=rs("logo")%>">
            </td>
          </tr>
          <tr> 
            <td width="100%">系统顶部图片地址
              <input type="text" name="banner" size="70" class=input value="<%=rs("banner")%>">
            </td>
          </tr>
          <tr> 
            <td width="100%">系统底部图片地址
              <input type="text" name="banner2" size="70" class=input value="<%=rs("banner2")%>">
            </td>
          </tr>
        </table>
        <p><input type="submit" value="提交" name="B1" class=input><input type="reset" value="全部重写" name="B2" class=input></p>
      </form>
      　 </td>
  </tr>
</table>

<%rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -