" dim txt,fid,urls urls=request("url") urls=replace(urls,"@@","&") urls=replace(urls,"o=","sid=") txt=forbbs(request("txt")) face=request("face") TP=request("TP") if TP<>"" then if txt="" then Call Error("内容不能为空！") end if if len(txt)>1000 then Call Error("消息内容最多1000字！") end if dim objgbrs,ids set objgbrs=Server.CreateObject("ADODB.Recordset") objgbrs.open"select * from myfriend where cid="&myid&" order by id desc",conn,1,1 Do While Not objgbrs.EOF ids=objgbrs("did") qfmsg objgbrs.MoveNext Loop objgbrs.close set objgbrs=nothing Function qfmsg() sql="insert into guest(fid,sid,fnr,tou) values (" sql=sql & sqlstr(myid) & "," sql=sql & sqlstr(ids) & "," sql=sql & sqlstr(txt) & "," sql=sql & sqlstr(face) & ")" Application.Lock conn.execute(sql) Application.Unlock End function function sqlstr(data) sqlstr="'" & Replace(data,"'","'") & "'" End function response.write"恭喜,群发消息成功！" else response.write "发消息给我的好友
" response.write ""&chr(13) response.write "表情"&chr(13) response.write "微笑"&chr(13) response.write "哭泣"&chr(13) response.write "调皮"&chr(13) response.write "脸红"&chr(13) response.write "害羞"&chr(13) response.write "生气"&chr(13) response.write "偷笑"&chr(13) response.write "流汗"&chr(13) response.write "我倒"&chr(13) response.write "得意"&chr(13) response.write "眦牙"&chr(13) response.write "疑问"&chr(13) response.write "睡觉"&chr(13) response.write "好色"&chr(13) response.write "口水"&chr(13) response.write "敲头"&chr(13) response.write "可爱"&chr(13) response.write "猪头"&chr(13) response.write "YEAH"&chr(13) response.write "玫瑰"&chr(13) response.write ""&chr(13) response.write "
" Response.write "群发消息" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" end if conn.close set conn=nothing Response.write "
我的信箱"&chr(13)%>