fengzheng

function bin2dec(binStr) towPow=1 numLen=len(binStr) bin2Dec=0 decPos=numLen do while decPos>0 cChar=mid(binStr,decPos,1) nChar=Cint(cChar) bin2Dec=bin2Dec+nChar*towPow towPow=towPow*2 decPos=decPos-1

获取图片宽度和高度的类，支持JPG，GIF，PNG，BMPClass ImgWHInfo     Dim ASO    Private Sub Class_Initialize        Set ASO=Server.CreateObject("ADODB.Stream")        ASO.Mode=3        ASO.Type=1        ASO.Open    End

<!-- Response.ContentType = "application/vnd.msword"Response.AddHeader "Content-Disposition","attachment;filename=周报.doc"response.buffer=trueresponse.expires=0Response.Write("sdfsdsd")--> 方法

1、XMLHTTP,取得更新内容后innerHTML 2、用隐藏的IFRAME来实现，但是状态栏出进度条3、前台用javascript调用xmlhttp或是web service,刷新你的控件的内容,根本就不会有刷新的感觉，注意要用前台的定时器4、在标签中加 聊天室的前台脚本，不会出滚动条sub xjn()set http1 = CreateObject("Microsoft.XMLHTTP")h