dgsave.asp

宁波娱乐在线城市,丰富的内容版块

<!--#include file="../inc/conn2.asp"-->
<!--#include file="connmi.asp"-->
<!--#include file="../tools.asp"-->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        Response.write "对不起，您未注册！"
        Response.End
end if


dim lincept,lcontent,lmedianame,lurl
lincept=trim(Request.Form("incept"))
lcontent=trim(Request.Form("content"))
lmedianame=trim(Request.Form("medianame"))
lurl=Request.Form("url")

if lincept="" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('无接收人！');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
if lmedianame="" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入歌曲名！');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
if lurl="" or lurl="http://" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请正确输入音乐地址！');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
if lcontent="" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入祝福语！');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
if len(lcontent)>150 then '--------------判断名字
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('150个字足够了！');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
dim sql1
set rs=server.createobject("adodb.recordset")
sql1="select * from media" 
rs.open sql1,connm,3,2
rs.addnew
rs("sender")=Request.Cookies("NC")
rs("incept")=lincept
rs("sendtime")=now()
rs("content")=lcontent
rs("medianame")=lmedianame
rs("url")=lurl
rs.update
call senduser()
rs.close
set rs=nothing
connm.close
set connm=nothing

sub senduser()
dim sender,message,sendid
sender=Request.Cookies("NC")

set rs1=server.createobject("adodb.recordset")
strsql="select ID from HY where NC='"& sender & "'"
rs1.open strsql,conn,1,1
sendid=rs1("ID")
rs1.close
set rs1=nothing

message=""&sender&"为你点歌祝福，请到点歌台查收。"
sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
sql = sql & lincept & "',"& sendid &",'"& message & "',0,'"&ConvertDateTime(Now())&"',0)"
conn.execute(sql)
conn.close
set conn=nothing
end sub
response.write "<script>alert('成功发出！系统已向他（她）发出短消息通知。');window.close();</script>"
%>