北京网站设计网页设计在网页调用 WINDOWS 控件两例_网站制作 -网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

网页制作
 网页设计Kesion cms 3.0部份标签说明集合
 北京网站制作CSS规范闭合浮动元素介绍
 北京网页设计Dreamweaver网页中实用制作技巧
 北京网站建设Dreamweaver构建Blog(7):用户登录的实现2
北京网站设计添加网页背景音乐
 网站建设制作简单实用的FLASH导航菜单（1）
网站制作Flash视频教程：5.4 MTV制作
 网站建设Flash视频教程：1.7 线条工具
 网站制作dreamweaver mx教程一:Dreamweaver MX中文版简介

品牌理念

北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!

友好连接

文章搜索

你的位置：首页 >> 网站制作 >> 北京网站设计网页设计在网页调用 WINDOWS 控件两例

北京网站设计网页设计在网页调用 WINDOWS 控件两例

作者：北京网站建设日期：2008-03-27 06:03:35 来源： http://www.qt-net.com

资深北京网站建设公司企通互联,专业致力于北京网站建设,北京网站制作,北京网站设计,北京网页设计领域,千余网站建设案例，公司拥有国内一流的网站建设、网站制作、网页设计团队，如果您已经有网站的,看看我们精美的网站建设案例也无妨.北京网站建设网址：http://www.qt-net.com =======================================================================================

一、这个是netmting的例子北京网站设计

<html>北京网站制作
<head>企通互联
<title>OCX</title>企通互联
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">企通互联
<script language="JavaScript">北京网页设计
var flag=true北京网站制作
function showall(){企通互联
alist = new Array();北京网站制作
newocx();北京网站建设
list1.value = "";网站制作
list2.value = "";北京网站建设
list1.value = ocxtype.outerHTML;北京网页设计
j = 0;www.qt-net.com
for (i in ocxtype) 网站制作网站制作
{企通互联
  alist[j] = i;北京网站建设
  j++;北京网站制作
}网站设计
for (i = 0; i < alist.length; i++)北京网站设计
  for (j = (alist.length-1); j > 0; j--)北京网站设计
  {企通互联
   if (alist[j] < alist[j-1])企通互联
   {网站设计
    temps = alist[j];网站制作
    alist[j] = alist[j-1];网站制作
    alist[j-1] = temps;    北京网站建设
   }网站设计
  }www.qt-net.com
for (i = 0; i < alist.length; i++)网站建设
  list2.value += alist[i] + "\ ";企通互联
alert("共有 "+alist.length+" 个属性方法")www.qt-net.com
}网站设计
function newocx()网站设计
{www.qt-net.com
ocxfield.innerHTML = "<OBJECT ID='ocxtype' WIDTH='0px' HEIGHT='0px'" +网页设计
    "CLASSID='CLSID:" + ocxid.value + "'></OBJECT>";企通互联
}北京网站制作
</script>北京网站制作
</head>

<div align="center">北京网页设计
<p>classid 北京网站建设
    <input type="text" id="ocxid" style="width:400" value="F3A614DC-ABE0-11d2-A441-00C04F795683" onchange="jscript:flag=true">北京网页设计
    <input type="button" id="look" value="查看" onclick="showall()">www.qt-net.com
</p>www.qt-net.com
<table width="75%" border="1">网站设计
    <tr>北京网站设计
      <td height="24"> 北京网站建设
        <div align="center">html中的写法</div>www.qt-net.com
      </td>网站建设
      <td height="24"> 北京网页设计
        <div align="center">OCX中的属性事件</div>网站设计
      </td>企通互联
    </tr>北京网站建设
    <tr> 网页设计
      <td> 网页设计
        <textarea id="list1" style="width: 500px; height: 400px;" readonly></textarea>www.qt-net.com
      </td>网站制作
      <td> 网站设计
        <textarea id="list2" style="width:250px; height:400px;" readonly></textarea>北京网站制作
      </td>企通互联
    </tr>网站设计
</table>北京网站制作
</div>网站设计
<div id="ocxfield">企通互联
</div>网页设计
</body> 企通互联网站建设
</html>

二、网页设计

function ShowElement(element) { www.qt-net.com
element.style.display=""; 网站制作
document.msn.offline.value="ON"; 北京网站建设
} 北京网站制作
function HideElement(element) { 北京网站设计
//rowShow.style.visibility="hidden"; 北京网站建设
element.style.display="none"; 北京网页设计
document.msn.offline.value="OFF"; 网站建设
}

function ShowHide(element) { 网站设计
if (document.msn.offline.value=="ON") { www.qt-net.com
HideElement(element); 网站设计
} 北京网站建设
else { 北京网站建设
ShowElement(element); 北京网站建设
}

} www.qt-net.com
</script> 北京网站设计
<style type="text/css"> 网站制作
 www.qt-net.com
</style> 网站设计
</head>

<body bgcolor="#FFFFFF" text="#000000" vlink="##3D55C4" onclick="(mUser.innerHTML)"> www.qt-net.com
<table cellpadding="1" cellspacing="1" bgcolor="#3D55C4" width="150" id="abc"> 北京网站制作
<script language="VBScript" id="mcvbs">北京网页设计
' this script is loosely based on the original script from Microsoft. 网站设计
' Various flags and such for god-knows what... www.qt-net.com
Dim A_ 企通互联
A_=False www.qt-net.com
Dim B_,C_,D_ 北京网站设计
B_=False 网站建设
C_=False 企通互联
D_=False 网站建设
Dim E_,F_,G_ 网页设计
E_=False 北京网站制作
F_=False 网站设计
G_=3000 ' Ooohhh! I know what this is! This is the amount of milliseconds for refresh 北京网站建设
Dim H_(),I_ ' H_() is an object array of users. This is also the cache 网站制作
I_=0 北京网站制作
' Variables for different links to different images representing state in Messenger... I think 企通互联
Dim J_,K_,L_,M_,N_,O_,P_,OffL 网站制作
J_="<OBJECT classid="""&"clsid:FB7199AB-79BF-11d2-8D94-0000F875C541"""&" codeType=application/x-oleobject id=MsgrApp width=0 height=0></OBJECT>" www.qt-net.com
K_="<font class=""small"">" 北京网页设计
M_="<img align=absbottom width=16 height=17 border=0 src=" 网页设计
L_="<br><b> <a href=""vbscript:op(-1)"" class=""color""><img src='msn_icons/msn_ppl.gif' border='0' alt=''>"&" Sign in now... "&"</a></b>" 网页设计
N_=M_&"msn_icons/online1.gif"&" ALT="""&"Online"&""">" 北京网页设计
O_=M_&"msn_icons/busy1.gif"&" ALT="""&"Busy"&""">" 北京网站设计
P_=M_&"msn_icons/idle1.gif"&" ALT="""&"Away"&""">" 网站建设
'Added by JH 北京网站制作
OffL = M_&"msn_icons/offline1.gif"&" ALT="""&"Offline"&""">" www.qt-net.com
M_="<img align=absbottom width=16 height=17 border=0 src=" 网页设计
Dim Q_ www.qt-net.com
Q_=False 北京网页设计
Dim ttl 企通互联
ttl=0 网页设计
' added arrays for online and offline contacts 北京网站制作
Dim OnA() ' online contacts 北京网站建设
Dim OffA() ' offline contacts 北京网页设计
' counters for amount of online and offline 北京网站设计
Dim OnCtr 北京网站制作
OnCtr=0 www.qt-net.com
Dim OffCtr 北京网站设计
OffCtr=0 www.qt-net.com
' Online/Offline?

Sub DrawInitialState 北京网站建设
On Error Resume Next 网页设计
Dim R_ 网页设计
R_=MsgrObj.LocalState 网站设计
If Err Then 网站设计
A_=False 北京网站设计
Else 网站设计
A_=True 北京网站制作
End If 网站制作
Err.Clear 北京网站制作
If A_=True Then 北京网站设计
document.all.getmsgr.style.display="none" 北京网站制作
DrawContacts www.qt-net.com
Else 北京网站建设
document.all.getmsgr.style.display="block" www.qt-net.com
End If 网站制作
End Sub

Function HasMsgrApp() 网站设计
appload.innerHTML = J_ 北京网站设计
On Error Resume Next 企通互联
Dim R_ 企通互联
Set R_=MsgrApp 网站制作
If Err.description="" Then 北京网页设计
HasMsgrApp=True 网页设计
Else 网站建设
HasMsgrApp=False 网页设计
End If 网站设计
Err.Clear 北京网站设计
End Function

Sub RefreshMC() www.qt-net.com
If A_ Then www.qt-net.com
If C_ Then 北京网站建设
D_=True 网页设计
Else 网站制作
D_=False 网站设计
DrawContacts 网站建设
SetRefreshTimer 北京网站设计
End If 企通互联
End If 北京网站制作
End Sub

Sub SetRefreshTimer() www.qt-net.com
If Not C_ Then 网站建设
C_=True 网站设计
setTimeout "DoRefresh",G_,"VBScript" 网页设计
End If 网页设计
End Sub

Sub DoRefresh() 企通互联
C_=False 网页设计
If D_ Then 北京网站制作
RefreshMC 北京网站设计
End If 网站制作
End Sub

Sub DrawContacts www.qt-net.com
'******************************************************************** 网站制作
' Modified by JH 北京网站制作
' DrawContacts: 网页设计
' 企通互联
On Error Resume Next 北京网站设计
' new list of contacts to iterate thru 网站建设
' ctr for list loop 网站建设
Dim i 北京网站建设
i = 0 企通互联
' strings for output 北京网站制作
Dim z, zz 网页设计
z="" 网站制作
zz="" 北京网站建设
' for div visibility www.qt-net.com
Dim mU,mO,msgL,noneL,notOn,onli 网站设计
mU="none" 网站制作
mO="none" 网站制作
msgL="none" 北京网站建设
noneL="none" 北京网站建设
notOn="block" 网页设计
onli="block" 北京网站制作
If E_ Then 北京网站建设
mcClearCache 企通互联
End If 网站制作
' The heart of the matter 北京网站设计
If MsgrObj.LocalState And 2 Then 网站建设
'Online 北京网站制作
If Not F_ Then 北京网站设计
mcLoadCache 北京网站制作
End If 网页设计
If I_>0 Then 网站建设
For i = 0 To ttl www.qt-net.com
select case H_(i).State 网页设计
case 1 网页设计
OffCtr = OffCtr + 1 企通互联
case else 北京网页设计
OnCtr = OnCtr + 1 网站建设
end select 网页设计
Next 北京网站设计
ReDim OnA(OnCtr) 网站制作
ReDim OffA(OffCtr) 网页设计
OnCtr = 0 北京网站建设
OffCtr = 0 北京网站制作
' loop to get FriendlyNames of contacts and put them in their respective arrays 北京网站建设
For i = 0 To ttl 网站制作
If H_(i).State=1 then 企通互联
Set OffA(OffCtr)=H_(i) www.qt-net.com
OffCtr = OffCtr + 1 企通互联
Else 北京网站建设
Set OnA(OnCtr) = H_(i) 网站建设
OnCtr = OnCtr + 1 网页设计
End If 北京网站建设
Next 北京网站设计
' sort online users 北京网站设计
SortUsers2 0,OnCtr-1,True 北京网站建设
For i = 0 to OnCtr-1 www.qt-net.com
Dim onl 网站建设
Dim h 网站制作
onl="" www.qt-net.com
h="" 企通互联
h = " href='VBScript:op(" & i & ")'" 网页设计
onl = fixName(OnA(i).FriendlyName,17) 北京网站建设
z = z & "<a" & h & " class=""color"">" & getStateImage(OnA(i).State) & "</a> " & "<a " & h & " title=""" 网站制作
z = z & "Send an instant message to " & onl & "." 网站设计
z = z & """ class=""color"">" & K_ & onl 网站建设
z = z & "</font></a><br>" 北京网页设计
Next www.qt-net.com
' sort offline users 北京网站建设
SortUsers2 0,OffCtr-1,False 网站制作
For i = 0 to OffCtr-1 北京网站建设
Dim ofn 网站制作
ofn="" 网站设计
ofn = fixName(OffA(i).FriendlyName,17) 北京网页设计
zz = zz & getStateImage(OffA(i).State) & " " 北京网页设计
zz = zz & K_ & ofn & "<br>" 网站建设
Next 北京网站设计
if OnCtr > 0 Then 网站制作
mU="block" 北京网站设计
mO="block" 企通互联
document.all.mUser.innerHTML=z 网页设计
document.all.mOff.innerHTML=zz www.qt-net.com网站建设
else 北京网站设计
mU="block" 网站建设
mO="block" 网站制作
document.all.mUser.innerHTML="<font class=""small"">None</font>" 北京网站建设
document.all.mOff.innerHTML=zz 网站制作
end if 网站制作
Else 企通互联
noneL="block" 北京网站设计
document.all.noneol.innerHTML=K_&"Your contact list is empty. <br><a href=vbscript:op(-2) class=""color"">Add contacts to your list.</a>"&"</font>" 网站建设
end if 北京网页设计
Else 企通互联
If MsgrObj.LocalState=256 Or MsgrObj.LocalState=512 Then 网页设计
msgL="block" 网站设计
notOn="none" 企通互联
onli="none" 北京网站制作
B_ = True 网站制作
document.all.statu.innerHTML = "<br> <img src='msn_icons/msn_ppl.gif' border='0' alt=''> <b>Connecting...</b></div>" 企通互联
Else 企通互联
msgL="block" www.qt-net.com
notOn="none" 北京网站设计网站建设
onli="none" 北京网站制作
if Not B_ Then 网页设计
document.all.statu.innerHTML = L_ 网站设计
End If 网站建设
End If 企通互联
End If 网站建设
document.all.Online.style.display=onli 网页设计
document.all.mUser.style.display=mU 网页设计
document.all.notOnline.style.display=notOn 网页设计
document.all.mOff.style.display=mO www.qt-net.com
document.all.msgrlogon.style.display=msgL 北京网站制作
document.all.noneol.style.display=noneL 企通互联
End Sub

Sub mcClearCache 网站设计
I_=0 网站设计
Erase H_ www.qt-net.com
Erase OnA 企通互联
Erase OffA 网站建设
F_=False 企通互联
E_=False 网站制作
D_=True 网站建设
End Sub

Sub mcLoadCache 网页设计
Dim BB_

Set BB_=MsgrObj.List(0)

Dim CB_ 网页设计
CB_=0 网站设计
Dim DB_ 网站设计
DB_=BB_.Count 北京网页设计
ttl=DB_ -1 企通互联
Redim H_(DB_) 网站制作
For Each u In BB_ 北京网站设计
Set H_(CB_)=u 北京网页设计
CB_=CB_+1 北京网站建设
Next 网页设计
I_=CB_ 网页设计
SortUsers 0,I_-1 www.qt-net.com
F_=True 网站建设
End Sub

' Added by JH 网站建设
' Sorts Online/Offline users www.qt-net.com
Sub SortUsers2(EB_,FB_,IsOn) 北京网站设计北京网页设计
Dim GB_ www.qt-net.com
if(IsOn) then 企通互联
if FB_>EB_ then 网站建设
GB_=ptnOn(EB_,FB_) 网站建设
SortUsers2 EB_,GB_-1,True 网站建设
SortUsers2 GB_+1,FB_,True 北京网页设计
end if 网站设计
else 北京网页设计
if FB_>EB_ then 网站设计
GB_=ptnOff(EB_,FB_) www.qt-net.com
SortUsers2 EB_,GB_-1,False 企通互联
SortUsers2 GB_+1,FB_,False www.qt-net.com
end if 网站制作
end if 网站建设
End Sub

Sub SortUsers(EB_,FB_) 网站制作
Dim GB_ 网页设计
if FB_>EB_ then 网站制作
GB_=ptn(EB_,FB_) 网站设计
SortUsers EB_,GB_-1 北京网站设计
SortUsers GB_+1,FB_ 北京网页设计
end if 北京网页设计
End Sub

' Added by JH 企通互联
' 北京网页设计
Function ptnOn(EB_,FB_) 北京网站建设
Dim HB_,tmp 企通互联
Randomize 北京网站制作
HB_=Int(Rnd()Mod(FB_-EB_+1))+EB_ 网站建设
Set tmp=OnA(HB_) 北京网站制作
Set OnA(HB_)=OnA(EB_) 网站制作
Set OnA(EB_)=tmp 北京网页设计
Dim a,b 企通互联
a=EB_ 北京网站建设
b=FB_ www.qt-net.com
While b>a 北京网站设计
If StrComp(OnA(b).FriendlyName,tmp.FriendlyName,1)>=0 Then 北京网页设计
b=b-1 企通互联
Else 北京网站制作
Set OnA(a)=OnA(b) 网站建设
Set OnA(b)=OnA(a+1) 北京网站设计
Set OnA(a+1)=tmp 网站建设
a=a+1 网页设计
End If 网站设计
Wend 网站建设
ptnOn=a 北京网站制作
End Function

' Added by JH 北京网站建设
' 网站设计
Function ptnOff(EB_,FB_) 网页设计
Dim HB_,tmp 北京网站设计
Randomize 企通互联
HB_=Int(Rnd()Mod(FB_-EB_+1))+EB_ 企通互联
Set tmp=OffA(HB_) 网站制作
Set OffA(HB_)=OffA(EB_) www.qt-net.com
Set OffA(EB_)=tmp 企通互联
Dim a,b 北京网站建设
a=EB_ 网站制作
b=FB_ 网站建设
While b>a www.qt-net.com
If StrComp(OffA(b).FriendlyName,tmp.FriendlyName,1)>=0 Then 网页设计
b=b-1 网站设计
Else 网站制作
Set OffA(a)=OffA(b) 北京网站制作
Set OffA(b)=OffA(a+1) www.qt-net.com
Set OffA(a+1)=tmp 网页设计
a=a+1 网站制作
End If 网页设计
Wend 北京网站制作
ptnOff=a 北京网站建设
End Function

SUB MsgrObj_OnLocalStateChangeResult(ByVal hr,ByVal mLocalState,pService) 北京网站建设北京网站建设
If 0=hr And Err.description="" And A_ Then 北京网站建设
If mLocalState=256 Or mLocalState=512 Then 企通互联
B_=True 北京网站制作
document.all.statu.innerHTML="Signing in..." 网页设计
ElseIf mLocalState=1024 Then 网页设计
B_=True 北京网站设计
document.all.statu.innerHTML="Signing out..." 北京网站设计
ElseIf mLocalState=1 then 北京网页设计
B_=True 网页设计
document.all.statu.innerHTML=L_ 北京网站建设
End If 北京网站制作
RefreshMC 北京网站制作
End If 网页设计
END SUB

SUB MsgrObj_OnUserStateChanged(pUser,ByVal mPrevState,pfEnableDefault) 北京网页设计
'If Err.description="" Then 北京网站制作
mcClearCache 网站制作
B_=False 网站设计
RefreshMC 网站设计
'End If 北京网站制作
END SUB

SUB MsgrObj_OnListRemoveResult(ByVal hr,ByVal MLIST,ByVal pUser) 北京网站制作
If 0=hr And 0=MLIST And Err.description="" Then www.qt-net.com
E_=True 网页设计
RefreshMC 网页设计网页设计
End If 网站制作
END SUB

SUB MsgrObj_OnListAddResult(ByVal hr,ByVal MLIST,ByVal pUser) 网页设计
If 0=hr And 0=MLIST And Err.description="" Then 网站建设
E_=True 网站制作
RefreshMC 北京网页设计
End If 北京网页设计
END SUB

SUB MsgrObj_OnLogonResult(ByVal hr,ByVal pService) 网页设计
If 0=hr And Err.description="" Then 北京网站设计
mcClearCache 企通互联
B_=False 北京网站制作
RefreshMC 北京网站制作
Else 北京网站制作
mcClearCache 北京网站制作
B_=False 北京网页设计
RefreshMC 北京网站建设
End If 企通互联
END SUB

SUB MsgrObj_OnLogoff() 北京网站建设
mcClearCache 网站制作
B_=False 北京网站设计
RefreshMC www.qt-net.com
END SUB

SUB MsgrObj_OnAppShutdown() 北京网站制作
RefreshMC 北京网页设计
END SUB

北京网页设计
' Launches chat window for a given user, or 企通互联
' launches the logon window, or simply brings up 网站建设
' Messenger to show all contacts. 网站设计
Function op(n) 北京网站设计
If HasMsgrApp Then 网站制作
If n>=0 Then 北京网站设计
document.all.mctrack.src="P/6/" 北京网站制作
On Error Resume Next 北京网站制作
MsgrApp.LaunchIMUI OnA(n) 企通互联
ElseIf-1=n Then 企通互联
MsgrApp.LaunchLogonUI www.qt-net.com
Else 网站设计北京网站设计
MsgrApp.Visible=1 北京网站设计
End If 北京网站建设
End If www.qt-net.com
End Function

Function htmlesc(str) 网页设计
str=Replace(str,"&","&") 北京网站建设
str=Replace(str,"<","<") 网站建设
htmlesc=Replace(str,">",">") 北京网站制作
End Function

Function fixName(s,max) 网站设计
If Len(s)>max Then 网页设计
s=Left(s,max-2)&"..." 北京网页设计
End If www.qt-net.com
fixName=htmlesc(s) 北京网站制作
End Function

Function getStateImage(t) 网站制作
Select Case t 企通互联
Case 1 网站制作
getStateImage=OffL 'Offline 北京网站制作
Case 2 www.qt-net.com
getStateImage=N_ 'Online 网站建设
Case 10 网站制作
getStateImage=O_ 'Busy 网站建设
Case 14 北京网页设计
getStateImage=P_ 'BRB 网站制作
Case 18 北京网站制作
getStateImage=P_ 'Away www.qt-net.com
Case 34 北京网站制作
getStateImage=P_ 'Away... as well....... 网站建设
Case 50 网站建设
getStateImage=O_ 'On The Phone 网页设计
Case 66 企通互联
getStateImage=O_ 'Out To Lunch 北京网页设计
End Select 北京网站设计
End Function 网站建设
</script>

<tr bgcolor="#3D55C4"> www.qt-net.com
<td class="small"> 北京网站制作
<div class="small" align=center id="msngrheading" style="width:100%; color: #eff7ff; background-color:#3D55C4; padding:3px; padding-left:0px;"><b>MSN Messenger</b></div>

</td> 网站制作
</tr> www.qt-net.com
<tr> 网站建设
<td bgcolor="#EFF7FF" class="small"> 北京网站建设
<div id="getmsgr" class="small" align=center style="DISPLAY:none;color:#000000;"><br>Download<br><a href="Windows'>http://messenger.msn.com/">Windows Messenger</a> 北京网站建设
<img id="mctrack" height="1" alt width="1"> 网站建设
</div> 网站设计
<div id="msgrlogon" class="small" style="DISPLAY:none"> 北京网页设计
<div id="statu" class="small" style="color:#000000"></div> 网页设计
</div> www.qt-net.com
 网站制作
<div id="Online" class="small" style="DISPLAY:none;color:#000000"></div> 企通互联
<div id="noneol" class="small" style="DISPLAY:none;color:#000000"></div> 北京网站制作
<div id="mUser" class="small" style="DISPLAY:none;color:#000000"></div> 北京网站建设
<br> 北京网站建设
 www.qt-net.com
<div id="notOnline" class="small" style="DISPLAY:none;color:#000000">北京网站制作
<b><a href="javascript:void(null)" onclick="ShowHide(mOff)" class="small"><img border="0" src="msn_icons/icon_messenger6.gif" WIDTH="16" HEIGHT="16"> Buddies offline</a></b> 网站制作
</div> 网站建设
<div id="mOff" class="small" style="DISPLAY:none; color:#000000"></div> 北京网站建设
<span id="appload" class="small" style="DISPLAY: none"></span> 北京网站建设
</td> 北京网站设计
<form name="msn"> 北京网站建设
<input type="hidden" value="ON" name="offline"> 北京网站设计
</form> www.qt-net.com
</tr> 网页设计
</table> 企通互联
<br>

网站设计

北京网站设计

字体：【大】【中】【小】

上一篇：北京网页设计MSAgent 详细解说(一)

下一篇：www.qt-net.comDreamweaver MX打造弹出“向导”

这是一个与众不同的品牌，企通互联只专注于网站建设领域！中小型企业网站建设最佳合作伙伴！网站建设咨询热线：010-65587978/77/76/75!

网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

http://www.qt-net.com 网站建设咨询热线：010-65587978/77/76/75

相关文章

品牌理念

友好连接

文章搜索

北京网站设计网页设计在网页调用 WINDOWS 控件两例