| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

ASP技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·ASP如何获取真实IP地址
·解密ASP源代码
·Asp中五种连接数据库的方法
·ASP编程技巧大全[1]
·快速打造留言本教程[1]
·ASP中也能解压缩rar文件
·浅谈如何建立三层体系结构的ASP应用程序(2)
·浅谈如何建立三层体系结构的ASP应用程序(1)
·ASP编程技巧大全[2]
·用ASP发送邮件

站内搜索

一个基于WEB的QQ程序

  refresh.htm
  =========
  <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=../jy/face/1.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>
  好了,第一部分就到这里了!!

  用于处理xmlhttp请求的asp程序,看看时不是很简单啊!??
  =====
  <%on error resume next
  Response.ContentType="text/xml"
  if Request.ServerVariables("REQUEST_METHOD")="POST" then
  set req=Server.CreateObject("Microsoft.XMLDOM")
  req.async=false
  req.load(Request)
  set conn=server.CreateObject("adodb.connection")
  conn.Open "odbc","uid","password"
  sql="select uid,id,sex from uidinfo order by id desc"
  set rs=server.CreateObject("adodb.recordset")
  rs.Open sql,conn
  Response.Write "<?xml version=""1.0"" ?>"
  Response.Write "<mess>"
  if not rs.EOF then
  do while not rs.EOF
  Response.Write "<id>"&trim(rs("id"))&"</id><uid>"&trim(rs("uid"))&"</uid><sex>"&trim(rs("sex"))&"</sex>"
  rs.MoveNext
  loop
  else
  Response.Write "<id>k</id><uid></uid><sex></sex>"
  end if
  Response.Write "</mess>"
  if rs.State=1 then rs.Close
  set rs=nothing
  conn.Close
  set conn=nothing
  set req=nothing
  end if
  %>




相关文章
  • 精通PHP的十大要点
  • VB解决Unicode文本转换的问题
  • 使用xmlhttp查询域名是否被注的小程序
  • 用VB6实现中英文文本的私钥加密
  • 一组VB实用小程序
  • 用VB编写异步多线程下载程序
  • 屏保程序模板化完整源代码
  • VB中实现窗体自动隐藏
  • 用VB编写网络监控软件
  • VB到底为我们做了什么?
  • 键盘幽灵VB版
  • 用VB编写定时关闭计算机的程序
  • 用MCI命令做一个播放器
  • 使用VB在WIN2000下截获IP数据包
  • VB中字符串中文的问题
  • 用VB制作屏幕保护程序
  • VB枚举主机IP
  • 用VB编写一个弹出菜单类
  • 自己的IE——用VB制作浏览器
  • 使用插件功能扩展VB
  • 相关软件

  • VBScript编辑器源码  
  • 字体观察器FontViewer源码  
  • 自动壁纸更换器源码[第二部分]  
  • 自动壁纸更换器源码[第一部分]  
  • WINDOWS 3.0终端程序的C源码  
  • 一个取得 CPU 信息的程序源码  
  • 广告窗口终结者源码  
  • 下载整个网站程序ssnag与源码  
  • CGI邮件程序源码  
  • ISAPI留言簿源码  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有