2007年12月_fionahd

12月 11月 10月 09月

转载延时

Function Sleep(n) 单位秒s Dim StartTime StartTime = Timer Do : Loop Until Timer>n+StartTimeEnd Function

2007-12-18 14:02:00 401

转载 asp图片写入数据库

% response.buffer=true dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) & chrB(10) divider=leftB(fo

2007-12-12 12:53:00 515

转载一个很好的效果，隐藏表格

html> ahead> title>隐藏表格title> meta http-equiv="Content-Type" content="text/html; charset=gb2312"> style type="text/css">... td {...}{ font-size: 12px; line-height: 150%} --> style> script language="

2007-12-12 11:47:00 537

转载直接下载数据库中的二进制文件

response.AddHeader "Content-Length",rs("nr").ActualSize response.AddHeader "Content-Disposition", "attachment; filename=" & rs("wj") 文件名 response.contentType = "application/x-msdownload

2007-12-12 11:42:00 1261

转载 asp 二进制字符串转换为普通字符串

Function sTb(vin) Const adTypeText = 2 Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") With BytesStream .Type = adTypeText .

2007-12-12 11:33:00 2666