📄 savearticle.asp

📁 这是一个点歌系统

💻 ASP

字号:

<!--#include file="security.asp"-->
<!--#include file="inc/articlechar.inc"-->
<!--#include file="articleconn.asp"-->
<%

Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
if request.form("images1")="" then 
response.write "错误提示:请输入音乐地址!"
response.end
end if
if request.form("singer")="" then 
response.write "错误提示:请输入歌手姓名!"
response.end
end if
%>
<%
images1=htmlencode2(request.form("images1"))
title=htmlencode2(request.form("title"))
singer=htmlencode2(request.form("singer"))
sql="select * from learning" 

rs.open sql,conn,3,2
rs.addnew
rs("typeid")=Request.Form("typeid")
rs("images1")=images1
rs("title")=title
rs("singer")=singer
rs("dateandtime")=date()
rs.update
rs.close
%><head>
</head>

<body bgcolor="#0099CC">
<div align="center">
  <table border="0" cellspacing="5" width="50%" bordercolorlight="#006cd9" 
bordercolordark="#FFFFFF" cellpadding="5" bgcolor="#FFFFFF">
    <tr bgcolor="#006cd9"> 
      <td width="100%" height="20" bgcolor="#0099CC"> 
        <p align="center"><font color="#FFFFFF"><b>添加成功</b></font> 
      </td>
    </tr>
    <tr>
      <td width="100%">
        <p align="left"><br>
          歌曲为： 
          <%response.write title%>
        </p>
<p align="center">是否继续添加？<br>
    <br>
    <a href="addarticle.asp">
    是</a>&nbsp;&nbsp; <a href="manage.asp">否</a><br>
    <br>
    </p>
        </td>
    </tr>
    </table>
</div>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -