|
|
域名空间 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>asp专区>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
一个基于web的QQ程序 1（xml+asp）http://www.iyit.net 日期：2006-6-7 10:49:59 来源：不详 点击： |
========= <HTML> <HEAD> <title>在线QQ</title> <link rel="stylesheet" type="text/css" href="forum.css"> </HEAD> <BODY onload=online() scroll=no topmargin="0" leftmargin="0" style="background-color: #8482C6; color: #FFFFFF; border: 2 solid #FFFFFF; padding: 0"> <marquee><font color=black>如果关闭此窗口将失去在线QQ功能！</font></marquee> <!--嘿嘿！！这里引用了ZEE的转换代码，用于解决无法显示汉字的，本来还有一段的不过在俺用的时候，发现加上那一段就不行了，所以去掉了，有兴趣的朋友可以到精华区去找一下zee的文章 --> <script language="vbscript"> Function bytes2BSTR(vIn) strReturn="" For i=1 To LenB(vIn) ThisCharCode=AscB(MidB(vIn,i,1)) If ThisCharCode<&H80 Then strReturn=strReturn&Chr(ThisCharCode) Else NextCharCode=AscB(MidB(vIn,i+1,1)) strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode)) i=i+1 End If Next bytes2BSTR=strReturn End Function </script> <!--汉字转换函数结束 --> <script language="javascript"> var lengt=0; <!--消除右键功能--> function no(){ alert("不支持右键！"); self.event.returnValue=false; } <!--弹出QQ对话框，见后面--> function sqq(uid,id){ window.open("sqq.asp?id="+id+"&uid="+uid,"_blank","width=400,height=180"); } <!--关键的函数，用于显示在线的会员--> function online(){ var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlhttp.open("post","online.asp",false); xmlhttp.send(); var xmldom=new ActiveXObject("Microsoft.XMLDOM"); xmldom.async=false; body=bytes2BSTR(xmlhttp.responseBody); xmldom.loadXML(body); if(xmldom.parseError.errorCode!=0){ window.open("refresh2.asp","_self");<!--为了防止有些用户不支持xml，所以用了一个备用的asp版的--> return } else{ var uid=xmldom.documentElement.selectNodes("uid"); var id=xmldom.documentElement.selectNodes("id"); var sex=xmldom.documentElement.selectNodes("sex"); var xx=""; lengt=uid.length; for(var i=0;i<lengt;i++){ var im=""; if(id(0).text!="k") im="<img src="http://www.iyit.net/Files/BeyondPic/2006-6/7/066710495972804.gif" width=12 height=12>"; xx=xx+im+"<font color=red onclick=sqq('"+uid(i).text+"','"+id(i).text+"') style='cursor:hand' title='"+sex(i).text+"'>"+uid(i).text+"</font><br>"; } disonline.innerHTML=xx; window.setTimeout("online()",3000); } } </script> <!--这个"resfresh4.asp"是用于当有自己的信息时弹出QQ对话框用的--> <iframe src="refresh4.asp" width=0 height=2 marginwidth=0 marginheight=0 frameborder=0> </iframe> <input type=button value=" 在线网友：" class=ddyinput2> <div id=disonline style="height:230;overflow: auto"></div><br> <!--这里用到了scriptlet技术，你也可以试一下，和include差不多--> <OBJECT data=i11.htm height=14 style="HEIGHT: 93px; WIDTH: 770px" type=text/x-scriptlet width=14 VIEWASTEXT></OBJECT> </BODY> </HTML> 好了，第一部分就到这里了！！ 编辑：黑鹰 [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：利用ASP生成EXECL文档 下一篇：产生密码，记录到数据库，然后发送给用户。 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 最新更新 | 热点排行 | 推荐新闻 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 友情链接 | ||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术