📄 addnews.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用
💻 ASP
字号:
<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"--><!--#include file="code.asp"-->
<!--#include file="char.asp"-->
<head>
<link rel="stylesheet" href="css.css" type="text/css">
</head>

        <%
                sql="select * from member where user_name='"&user&"'"
                rs.open sql,conn,3,3
                if rs.eof then
                    %>
             
                <%else%>

                <%
                user_company=rs("user_company")
                end if
                rs.close%>
                

<%

if request("action")="save" then
    newsclass_id=trim(request("newsclass_id"))
    news_title=trim(request("news_title"))
    news_content=trim(request("news_content"))
    if newsclass_id="" or news_title="" or news_content="" then
        response.write "输入数据不能为空"
        response.write "<br>"
        response.write "<a href=addnews.asp>返回</a>"
    else
        news_title=server.htmlencode(news_title)
news_content=htmlencode2(request("news_content"))

        sql="select * from news"
        rs.open sql,conn,3,3
        rs.addnew
        rs("news_title")=news_title
        rs("user_company")=user_company
        rs("news_content")=news_content
        rs("newsclass_id")=newsclass_id
        rs.update
        rs.close
        response.write "新闻添加完成"
        response.write "<br>"
        response.write "<a href=addnews.asp>返回"
    end if



else%>
<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="100%">
      <form method="POST" action="addnews.asp?action=save" name=myform>
        <table border="0" width="100%" cellspacing="1">
          <tr>
            <td width="100%">新闻类型<select size="1" name="newsclass_id">
              <%
              sql="select * from newsclass"
              rs.open sql,conn,3,3
              if rs.eof then
              else
              do while not rs.eof%>
              <option value="<%=rs("newsclass_id")%>"><%=rs("newsclass_name")%></option>
              <%rs.movenext
              loop
              end if
              rs.close
              %>
              </select></td>
          </tr>
          <tr>
            <td width="100%">新闻标题<input type="text" name="news_title" size="20" class=input></td>
          </tr>
         <tr>
            <td width="100%">新闻内容&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>支持HTML</font></td>
          </tr>
          <tr>
            <td width="100%"><textarea rows="14" name="news_content" cols="79" class=input></textarea></td>
          </tr>
        </table>
        <p><input type="submit" value="提交" name="B1" class=input><input type="reset" value="全部重写" name="B2" class=input></p>
      </form>
      <p>　</td>
  </tr>
</table>
<%end if
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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