can anyone help me please? - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

can anyone help me please?

DevelopmentDevelopment Posts: 222Member
Hello I have a ASP script that I will like converted in to php can anyone help me please

here is the code :

[code]
<%
On Error Resume Next
CreateLink
Function CreateLink()
If Not IsObject(Application("Info")) Then
Set Application("Info") = Server.CreateObject("pro.Information")
' ServerName, ChatPort, Account, Password
Application("Info").LogonSettings "localhost", 6667, "admin", "eden" ' This information will need to be changed
End If
If Not IsObject(Application("Serv")) Then
Set Application("Serv") = Server.CreateObject("pro.Services")
' ServerName, RemotePort, Account, Password
Application("Serv").LogonSettings "localhost", 7100, "admin", "eden" ' This information will need to be changed
End If
End Function

Function ChannelsInFrame()
Dim Data
Dim LineData
Data = Application("Info").ColorToText(Application("Info").Channels)
ChannelsInFrame = "<table border=1>Channel NameMembersTopic"
Do Until InStr(1, Data, Chr(10), 0) = 0
LineData = Mid(Data, 1, InStr(1, Data, Chr(10), 0) - 1)
If Mid(LineData, Len(LineData), 1) = Chr(13) Then LineData = Mid(LineData, 1, Len(LineData) - 1)
Data = Mid(Data, InStr(1, Data, Chr(10), 0) + 1, Len(Data))
ChannelsInFrame = ChannelsInFrame & "" & Application("Info").MsgBreak(CStr(LineData), 1) & "" & Application("Info").MsgBreak(CStr(LineData), 2) & "" & Application("Info").MsgBreak(CStr(LineData), 3, True) & ""
Loop
ChannelsInFrame = ChannelsInFrame & ""
End Function

Function NicknamesInFrame()
Dim Data
Dim LineData
Data = Application("Info").ColorToText(Application("Info").UsersInChannels)
NicknamesInFrame = ""
Do Until InStr(1, Data, Chr(10), 0) = 0
LineData = Mid(Data, 1, InStr(1, Data, Chr(10), 0) - 1)
If Mid(LineData, Len(LineData), 1) = Chr(13) Then LineData = Mid(LineData, 1, Len(LineData) - 1)
Data = Mid(Data, InStr(1, Data, Chr(10), 0) + 1, Len(Data))
NicknamesInFrame = NicknamesInFrame & ""
Loop
NicknamesInFrame = NicknamesInFrame & "
NicknameReal NameChannel
" & Application("Info").MsgBreak(CStr(LineData), 1) & "" & Application("Info").MsgBreak(CStr(LineData), 3, True) & "" & Application("Info").MsgBreak(CStr(LineData), 2) & "
"
End Function%>

<%=Application("Info").ServerName%>

There are <%=Application("Serv").VisibleCount%> users and <%=Application("Serv").InvisibleCount%> invisible on <%=Application("Serv").GlobalServersCount%> servers

<%=Application("Serv").OperatorsCount%> operator(s) online

<%=Application("Serv").UnknownCount%> unknown connection(s)

<%=Application("Serv").ChannelsCount%> channels formed

I have <%=Application("Serv").LocalCount%> clients and <%=Application("Serv").LocalServersCount%> servers


Current local users: <%=Application("Serv").LocalCount%>  Max: <%=Application("Serv").LocalMaxCount%>

Current global users: <%=Application("Serv").GlobalCount%>  Max: <%=Application("Serv").GlobalMaxCount%>

Message of the day

<%=Application("Info").ReplaceCRLF(Application("Info").ColorToText(Application("Info").MOTD))%>

<%=ChannelsInFrame%>

<%=NicknamesInFrame%>

[/code]

thanks for talking the time to read this :)

yours
Slewis
Sign In or Register to comment.