📄 addshop.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>
  <%
                sql="select * from member where user_company='"&request("user_company")&"'"
                rs.open sql,conn,3,3
                if rs.eof then
                response.write "该商店没有存在与数据库中，请务必保证推荐商店已经存在与数据库库中"
                response.end
                end if
                rs.close%>
<%
    user_company=request("user_company")
    hw_content=request("hw_content")
    pic=request("pic")
    if hw_content="" then
        errmsg=errmsg+"<br>"+"<li>商店介绍不能为空"
        founderr=true
    end if
    if user_company="" then
        errmsg=errmsg+"<br>"+"<li>商店名称不能为空"
        founderr=true
    end if   
    if pic="" then
        errmsg=errmsg+"<br>"+"<li>商店图片不能为空"
        founderr=true
    end if      
    if founderr=true then
        response.write errmsg
        response.write "<br>"
        response.write "<a href=tuijianshop.asp>返回</a>"
        response.end
    else  
sql="select * from tuijianshop"
        rs.open sql,conn,3,3
        rs.addnew
        rs("user_company")=user_company
        rs("hw_content")=hw_content
        rs("pic")=pic
    rs.update
    response.write "添加新的推荐商店成功"
    response.write "<br>"
    response.write "<a href=tuijianshop.asp>返回</a>"
    rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -