gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/WebIM/Data/Function.asp
<% Dim oConn,oRs Sub OutNode(name,value) Response.Write("<"&name&">") If Trim(value)<>"" Then Response.Write(Server.HtmlEncode(value)) End If Response.Write("</"&name&">") End Sub Sub DataBegin If IsObject(oConn) = True Then Exit Sub Set oConn = Server.CreateObject("Adodb.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../database/#WebIMdata.mdb") Set oRs = Server.CreateObject("Adodb.RecordSet") End Sub Sub DataEnd oConn.Close() Set oConn = Nothing End Sub Function GetSafeStr(str) GetSafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "") End Function Function GetFileType(path) m=split(path,"/") n=split(m(ubound(m)),".") GetFileType=trim(n(ubound(n))) End Function Function GetUserIdByEmail(email) GetUserIdByEmail = oConn.Execute("select userid from [user] where useremail = '"&email&"'")(0) End Function Function GetCustomNameById(fromid,toid) username = oConn.Execute("select username from [user] where userid = "&toid)(0) customname = "" If CInt(oConn.Execute("select count(*) from userfriend where friendid = "&toid&" and userid = "&fromid)(0)>0) Then customname = oConn.Execute("select customname from userfriend where friendid = "&toid&" and userid = "&fromid)(0) End If If Trim(customname)<>"" Then GetCustomNameById = customname Else GetCustomNameById = username End If End Function Function ParseDateTime(str) d = CDate(str) ParseDateTime = Year(d)&"/"&Month(d)&"/"&Day(d)&" "&Hour(d)&":"&Minute(d) End Function Function CutStr(str,n) If Len(str)>n Then CutStr = Left(str,n-3)&"..." Else CutStr = str End If End Function %>