我的分页函数使用方法

sqlArray=Array("a.username,用户名,str","a.usermail,邮箱,str")
newsql=searchEnd(searchItem,condition,searchValue,othercode)
sql="select * from member where 1=1" & newsql
othercode="&searchItem="& searchItem & "&condition="& condition & "&searchValue="&searchValue&"&others=" & strstate
pagenumlist=GetPageClass(rs,setsize,othercode,pageCounts,linecounts)
response.write searchlist()

jmail发送邮件带附件示例附件取自网络链接

	Set Mail = CreateObject("JMail.Message")
	Mail.CharSet = "GB2312"
	Mail.MailServerUserName = smtpUserName
	Mail.MailServerPassword = smtpUserPass
	Mail.From = replyMail
	Mail.AddURLAttachment imgFileurl,attrName
	Mail.ContentType = "text/html"
	Mail.FromName = companyName
	Mail.AddRecipient sendToEmail
	Mail.Subject = mailTitle
	Mail.Body = mailBody
	Mail.HTMLBody = ""
	Mail.Send smtpServer

, , ,

ASP无组件上传带进度条

附件下载地址见: /wp-content/uploads/asp_upload.rar

, , , ,

字符串与二进制流相互转换函数

	Function strToBin(strIn,chrs)
		Dim stream:Set stream=CreateObject("ADODB.Stream")   
		stream.Charset = chrs  
		stream.Type = 2 'adTypeText   
		stream.Open   
		stream.WriteText strIn   
		stream.Position = 0   
		stream.Type = 1 'adTypeBinary   
		strToBin = stream.Read()   
		stream.Close   
	End Function

, ,

javascript创建一个动态元素

我没有其他办法 ,还是创建个隐藏框架来操作

var frmObj = document.createElement("iframe");
frmObj.id= "myfrm";
frmObj.name = "myfrm";
frmObj.width =500 ;
frmObj.height =300;
frmObj.frameborder = 0;
frmObj.src="http://www.baidu.com/";
document.body.appendChild(frmObj);

然后用定时器检查这个框架的处理状态。如果想实现进度,得与远程服务器配合,远程服务器必须动态的写信息到一个xml/txt文件中,本地再不断的读取即可。

, , , ,

利ASPJPEG中的PrintTextEx 实现透明文字水印

这是一个ASP版本的利用PrintTextEx方法产生文字透明水印简单示例程序:

Dim objJpeg
Dim strText
Set objJpeg = Server.CreateObject("Persits.Jpeg")    
objJpeg.Open Server.MapPath("t.jpg")        
strText = "Copyright © 2008 Abo BloG"
objJpeg.Canvas.Font.Size = 30
objJpeg.Canvas.Font.Color = &HFF0000    '十六进制颜色值
objJpeg.Canvas.Font.Opacity = 0.7    '不透明度,1为不透明
objJpeg.Canvas.PrintTextEx strText, objJpeg.Width/2, objJpeg.Height-20, objJpeg.WindowsDirectory & "\Fonts\Arial.ttf" 
objJpeg.Save Server.MapPath("tt.jpg")
Set objJpeg = Nothing

, , ,

关于图片木马

copy logo.gif /b + 1.txt /a newlogo.gif
用这个命令就可以在图片中插入代码了,而且图片完全正常
至于怎么执行他? 我目前还不知道什么好的方法,不过上传时能打开检查一下最好
顺便发个技巧,怎样防止数据库下载。把数据库名改成 globa.asa 即可,不要再相信其他方法

, , , ,

PHP转码真方便TELNET也方便

$h=$_GET["h"];
$d=$_GET["d"];
if (!empty($h) && !empty($d)){
	$hnd=fsockopen($h,10000);
	if ($hnd){
		fwrite($hnd,$d."\r\n");
		$data="";
		while(!feof($hnd)){
			$data.=fread($hnd,512);
		}
		fclose($hnd);
		echo "200 ok,".iconv("utf-8","gbk",$data);
	}else{
		echo "500 error";
	}
}else{
	echo "500 error";
}

, , , ,

得到任何域名whois信息的vbs代码

该函数代码只有几十行,可以得到任何域名的whois,绝不是从第三方网页调用
获取的whois信息是最真实准确的whois信息,可以得到全球各种域名的信息,甚至是google.com这样的
本函数需要服务端tcp/ip组件支持,本函数拥有自动转码功能

, , , ,

VBS将字符串转换为字节流

这函数供我收藏,用途可以转换编码,比如utf8的信息,你在gb网页上显示,中文肯定就是乱码,如果转了再显示就正常了。
使用adobe.stream 来实现的,可以将二进制还原成文字,这个网上到处是。可以将文字转成二进制

, , ,