⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 add.asp

📁 超炫电台程序开发了两个版本了
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加</title>
<style type="text/css">
<!--
.style2 {color: #000000}
input {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	font-style: normal;
	line-height: normal;
	color: #006600;
	border: #000000 1px solid;
}

-->
</style>
</head>

<body><center>
<script language="javascript">
function checkform(){
if(document.form1.m_title.value==""){
alert("歌曲名不能为空!")
document.form1.m_title.focus()
return false
}
else if(document.form1.m_name.value==""){
alert("歌手名不能为空!")
document.form1.m_name.focus()
return false
}
else if(document.form1.m_url.value==""){
alert("连接地址不能为空!")
document.form1.m_url.focus()
return false
}
}
</script>
<%if request.form("sub")="sub"  then
m_title=trim(request.form("m_title"))
m_name=trim(request.form("m_name"))
m_url=trim(request.form("m_url"))
if m_title="" or m_name="" or m_url="" then
response.Write("不能为空")
response.End()
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from yd_music"
rs.open sql,conn,3,3
rs.addnew
rs("m_title")=m_title
rs("m_name")=m_name
rs("m_url")=m_url
rs("m_time")=date()
rs("m_hits")=0
rs("yan")="no"
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing


%>
<meta http-equiv="refresh" content="5;URL=index.asp">

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="62%" border="0" align="center">
  <tr>
    <td align="center"><p> <img src="img/mouse.gif" width="32" height="32"> 
        <img src="img/loading.gif" width="94" height="27"><br>
        <br>
        添加成功 !</p>
      <p>5秒中后自动 <font color="#FF0000"><a href="index.asp">返回首页</a>&nbsp;&nbsp;<font color="#FF0000"><a href="add.asp">继续添加</a></font></p></td>
  </tr>
</table>
<%response.End()
end if
end if
%>
  <form name="form1" method="post" action="add.asp" onSubmit="return checkform()">
    <table width="500" height="194" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
      <tr align="center" bgcolor="#FFFFFF">
        <td height="26" colspan="2"><span class="style2">添加歌曲</span></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="147" align="right">歌曲:</td>
        <td width="353" align="left"><input name="m_title" type="text" id="m_title" size="30" maxlength="50"></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td align="right">歌手:</td>
        <td align="left"><input name="m_name" type="text" id="m_name" size="20" maxlength="20"></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td align="right">视听地址:</td>
        <td align="left"><input name="m_url" type="text" id="m_url" size="40"></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF">
        <td colspan="2"><input type="submit" name="Submit" value="提交">  
		<input type="hidden" name="sub" value="sub">  
        <a href="index.asp">返回</a></td>
      </tr>
    </table>
  </form>
</center>

</body>
</html>

⌨️ 快捷键说明

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