music_add.asp

音乐类型的好网站

<!--#include file="conn.asp"-->
<title>歌曲添加</title>
<%
if session("logined") <> "Yes" Then
Response.Redirect "admin_login.asp"
Response.End
End IF
session("logined") = "Yes"
action=request("action")
url=request("url")
title=request("title")
tclass=request("class")
if action="add" Then
	if url="" or title="" or tclass="" Then
	    Response.Write "<font color='red'>提交的表单不完整，动作没有完成！</font>"
	else
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		Rs.Open "select * from basic where title='"&title&"'",Conn,1,3
		If Rs.Eof Then
			Rs.Addnew
			Rs("title")=title
			Rs("url")=url
			Rs("class")=tclass
			Rs("remark")="空"
			Rs("time")=now()
			Rs.Update
			Response.Write "<font color='red'>成功添加了一首名为 "&title&" 的歌曲！"
		Else
			Response.Write "<font color='red'>名为 "&title& " 的记录已存在！"
		End If
		Rs.Close	
	end if
end if
%>
<form action="music_add.asp" method="post">
<table><tr><th>添加记录表单</th></tr><tr>
<td>
歌曲标题：</td><td><input name="title" value='<%=title%>'></td></tr>
<tr><td>歌曲url：</td><td><input name="url" size="40" value='<%=url%>'></td></tr>
<tr><td>歌曲类别：</td><td><select name="class">
<%
Dim ttclass(4)
ttclass(0)="流行歌曲"
ttclass(1)="中文经典"
ttclass(2)="英文经典"
ttclass(3)="Flash MTV"
ttclass(4)="其他类别"
For i = 0 to Ubound(ttclass)
    def = ""
	if tclass=ttclass(i) then def=" selected"
	Response.Write "<option value='"&ttclass(i)&"'"&def&">"&ttclass(i)&"</option>"
Next
%>
</select></td></tr>
<tr><td colspan="2"><input type="submit"></td></tr>
<input name="action" value="add" type="hidden">
</form>
</table>
<br><br>
<table><tr>
<td><a href='list_db.asp' target="_blank"><b>管理数据库记录</b></a></td>
<td>&nbsp;&nbsp;</td>
<td></td>
</tr></table>