saveadd.asp

来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 104 行

ASP
104 行
字号 
<!--#include file="char.inc"-->
<!--#include file="conn.asp"-->
<%
title=htmlencode2(Trim(request.form("title")))
musicid=htmlencode2(Trim(request.form("musicid")))
myname=htmlencode2(Trim(request.form("myname")))
yourname=htmlencode2(Trim(request.form("yourname")))
face=htmlencode2(request.form("face"))
content=htmlencode2(request.form("content"))

if title="" or musicid ="" or myname="" or yourname="" or content="" then
Response.Write "<script language=javascript>alert('请填写完整歌曲名,链接地址,点歌者和受赠者等信息哦！');javascript:history.go(-1);</script>"
Response.End
end if

set rs=server.createobject("adodb.recordset")
sql="select * from basic"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("musicid")=musicid
rs("myname")=myname
rs("yourname")=yourname
rs("face")=face
rs("content")=content
rs.update
id=rs("id")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel=stylesheet type=text/css>
<title>点歌台-发送点歌</title>
<script>
function test(){
z=document.body.createTextRange();
z.moveToElementText(bb);
z.select();
}
</script>
<script language="javascript">
function clickone() {
alert('点歌请到相应歌曲播放页点 "点歌送此歌曲给朋友 "！')
return false;
}
</script>
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style></head>
<body leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<div align="center">

  <table width="430" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse">
	<tr>
		<td align="center" valign="top">
		<!--右-->
        <table width="430" height="29" border="0" cellpadding="5" cellspacing="0">
	        <tr>
	          <td align="right">&nbsp;</td>
	          <td align="center">&nbsp;</td>
          </tr>
	        <tr>
	          <td align="right">&nbsp;</td>
	          <td align="center">&nbsp;</td>
          </tr>
	        <tr>
	          <td align="right">&nbsp;</td>
	          <td align="center">&nbsp;</td>
          </tr>
	        <tr>
              <td align="right"><a href="index.asp"><img border="0" src="images/dgt.gif" width="186" height="47"></a></td>
              <td align="center"><a href="add.asp"><img border="0" src="images/dg.gif" width="86" height="22"></a></td>
          </tr>
        </table> 
		<table border="1" cellpadding="5" cellspacing="0" width="430" bordercolor="#EAE0C3" style="border-collapse: collapse">
			<tr>
				<td bgcolor="#F9F4E4">您点的歌曲是:<%=title%>&nbsp; 请把下面信息复制发给您的朋友,他点击后才能看到点歌!</td>  
			</tr>
			<tr>
				<td style="line-height: 150%" align="center" height="100">
				<font color="#FF0066" onMouseOver="test()" id="bb">HI，我给你点的歌：http://<%=Cstr(Request.ServerVariables("SERVER_NAME"))%>/dg/music.asp?id=<%=id%></font></td>
			</tr>
			<tr>
				<td bgcolor="#F9F4E4">您可以通过 QQ MSN Mail 论坛任何方式把链接发给他.</td>  
			</tr>
	    </table>
		<!--右-->
		</td>
	</tr>
</table>                                                                                                                

</div>
                                             
</body>
                                                             
</html>

saveadd.asp - 源码说明

本页面展示了「超炫电台程序开发了两个版本了」中的 saveadd.asp 源码文件，采用 ASP 编程语言编写，共 104 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与电台程序相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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