gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/WebIM/Data/Service.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file = "config.asp"--> <!--#include file = "function.asp"--> <!--#include file = "cmd.asp"--> <!--#include file = "md5.asp"--> <% Response.Expires = -1 Response.ContentType = "text/xml" Response.Charset="utf-8" Call DataBegin() t = Request.QueryString("t") Select Case CInt(t) Case 0'登陆 email = GetSafeStr(Request.Form("email")) pass = GetSafeStr(Request.Form("pass")) us = Request.Form("us") num = 0 'If (email="" Or pass="") Then If (email="") Then num = 4 Else Call DataBegin() Set oRs = Server.CreateObject("Adodb.RecordSet") sql = "select * from [user] where useremail = '"&email&"'" oRs.Open sql,oConn,1,3 If Not(oRs.Bof Or oRs.Eof) Then 'If MD5(pass) = oRs("UserPass") Then Session("userid") = oRs("userid") Session("username") = oRs("username") Session("useremail") = oRs("useremail") Session("userpower") = oRs("userpower") Randomize ranNum = Int(90000*Rnd)+10000 Session("syscode") = ranNum num = 1 oRs("syscode") = ranNum oRs.Update Call UpdateUserOnlineTime(Session("userid")) Call UpdateUserProfile(oRs("userid"),"","","",us) 'Else ' num = 2 'End If Else num = 2 End If End If Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>") Response.Write("<result>") Response.Write("<num>"&num&"</num>") Response.Write("<code>"&ranNum&"</code>") Response.Write("</result>") Case 1'email是否可用 num = oConn.ExeCute("select count(*) from [user] where useremail = '"&GetSafeStr(Request.Form("email"))&"'")(0) Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>") Response.Write("<result>") Response.Write("<num>"&num&"</num>") Response.Write("</result>") Case 2'注销 Call UpdateUserOnlineTime(Session("userid")) Call UpdateUserProfile(Session("userid"),"","","",7) Session("userid") = "" Session("username") = "" Session("useremail") = "" Session("syscode") = "" Case 3'发送消息 fromid = GetSafeStr(Request.Form("from")) toid = GetSafeStr(Request.Form("to")) msgcontent = GetSafeStr(Request.Form("content")) typeid = GetSafeStr(Request.Form("type")) oConn.Execute("insert into usermsg (fromid,toid,msgcontent,typeid,msgaddtime) values ('"&fromid&"','"&toid&"','"&msgcontent&"','"&typeid&"','"&Now()&"')") Case 4'修改本人在线状态 username = GetSafeStr(Request.Form("username")) usersign = GetSafeStr(Request.Form("usersign")) userface = GetSafeStr(Request.Form("userface")) userstatus = GetSafeStr(Request.Form("userstatus")) Call UpdateUserProfile(Session("userid"),username,usersign,userface,userstatus) Case 5'接受添加好友请求 toid = GetSafeStr(Request.Form("to")) Call AddFriend(Session("userid"),toid) Case 6'删除好友 toid = GetSafeStr(Request.Form("to")) Call DelFriend(Session("userid"),toid) Case 7'屏蔽好友 toid = GetSafeStr(Request.Form("to")) isblock = GetSafeStr(Request.Form("s")) oConn.Execute("update userfriend set isblocked = "&isblock&" where userid = "&Session("userid")&" and friendid = "&toid) Case 8'修改好友昵称 toid = GetSafeStr(Request.Form("to")) customname = GetSafeStr(Request.Form("n")) oConn.Execute("update userfriend set customname = '"&customname&"' where userid = "&Session("userid")&" and friendid = "&toid) Case 9'创建新组 groupname = GetSafeStr(Request.Form("n")) If CInt(oConn.Execute("select count(*) from usergroup where groupname='"&groupname&"' and (userid=-1 or userid="&Session("userid")&")")(0))<1 Then'是否分组 oConn.Execute("insert into usergroup (userid,groupname) values ("&Session("userid")&",'"&groupname&"')") End If Case 10'删除组 gid = GetSafeStr(Request.Form("id")) oConn.Execute("update userfriend set groupid=1 where userid = "&Session("userid")&" and groupid="&gid) oConn.Execute("delete from usergroup where id="&gid&" and userid="&Session("userid")) Case 11'修改组 gid = GetSafeStr(Request.Form("id")) groupname = GetSafeStr(Request.Form("n")) oConn.Execute("update usergroup set groupname='"&groupname&"' where id="&gid&" and userid="&Session("userid")) Case 12'修改好友分组 id = GetSafeStr(Request.Form("id")) gid = GetSafeStr(Request.Form("gid")) oConn.Execute("update userfriend set groupid="&gid&" where userid = "&Session("userid")&" and friendid="&id) Case Else Call DataEnd() Response.End() End Select Call DataEnd() %>