zmaplec_blog

asp 中文 unicode

2012-03-03T20:28:54+08:00

'//转换中文为unicode
function URLEncoding(vstrIn)

dim i
dim strReturn,ThisChr,innerCode,Hight8,Low8

strReturn = ""
for i = 1 to Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF then
strReturn = strReturn & ThisChr
else
innerCode = Asc(ThisChr)
If innerCode < 0 then
innerCode = innerCode + &H10000
end If
Hight8 = (innerCode and &HFF00)\ &HFF
Low8 = innerCode and &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
end If
next

URLEncoding = strReturn

end function

'//转换unicode到正常文本
function bytes2BSTR(vIn)
dim i
dim strReturn,ThisCharCode,nextCharCode

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

function getText(o,url)

dim oreq

on error resume next

if o is nothing then
'//创建XMLHTTP对象
set oreq = CreateObject("MSXML2.XMLHTTP")
else
set oreq = o
end if

oreq.open "get",url,false
oreq.send

if oreq.status = 200 or oreq.status = 0 then
getText = bytes2BSTR(oReq.responseBody)
else
getText = ""
end if

end function
详细出处参考：http://www.jb51.net/article/1435.htm

删除重复

2011-09-23T11:11:14+08:00

=IF(A2=A1,"重复","")

sqlserver中替换字符串

2011-09-20T11:59:52+08:00

/*
更新图片目录,
!*!*!*!注意:news_content必须改为ntext类型,为text类型时会有内部错误,这是个bug
replace替换字段为text或者ntext时,必须转换类型后才能替换
*/
update news_info set
news_content=replace(cast(news_content as varchar(8000)),'/uploadfile/','/newsImages/')

真不喜欢恋爱

2011-09-10T23:07:28+08:00

碰到一个你喜欢却不喜欢你的人真是一大杯具
真的快对感情不报什么希望了
很郁闷一直很郁闷

删除和查找今飞的重复轮毂

2011-07-30T16:29:51+08:00

删除今飞的重复记录
Delete wheeldetaillist
FROM wheeldetaillist t
Where EXISTS
          (Select 1
         FROM wheeldetaillist AS a INNER JOIN
               wheellist AS b ON a.wheelid = b.wheelid AND b.fromtable = 1 AND
               a.state = 0 AND b.state = 0
         Where wheeldetailname = t .wheeldetailname AND parahole = t .parahole AND
               parapcd = t .parapcd AND wheeldetailid < t .wheeldetailid)

查找今飞的复合孔轮毂
Select a.WheelDetailName, COUNT(a.WheelDetailName) AS Expr1
FROM dbo.WheelDetailList a INNER JOIN
      dbo.WheelList b ON a.WheelID = b.WheelID
Where (b.FromTable = 1) AND (a.State = 0) AND (b.State = 0)
GROUP BY a.WheelDetailName
orDER BY expr1 DESC

防止sql注入，删除xp_cmdshell

2011-07-20T14:46:08+08:00

在网上的多篇文章中，看到类似如下的说明：

如果你不需要扩展存储过程xp_cmdshell请把它去掉。使用这个SQL语句：
use   master
sp_dropextendedproc   'xp_cmdshell '
如果你需要这个存储过程，使用这个SQL语句可以恢复回来：
sp_addextendedproc   'xp_cmdshell ',   'xpsql70.dll '

复制网页不能复制的代码

2010-12-18T10:11:39+08:00

javascript:alert(document.onselectstart = document.oncontextmenu= document.onmousedown = document.onkeydown= function(){return true;});

marquee 上下滚动

2010-12-08T20:51:21+08:00

首先让我们认识这个标签，它是成对出现的标签，首标签和尾标签之间的内容就是滚动内容。标签的属性主要有behavior、bgcolor、direction、width、height、hspace、vspace、loop、scrollamount、scrolldelay等，它们都是可选的。

behavior属性

behavior属性的参数值为alternate、scroll、slide中的一个，分别表示文字来回滚动、单方向循环滚动、只滚动一次，需要注意的是：如果在标签中同时出现了direction和behavior属性，那么scroll和slide的滚动方向将依照direction属性中参数的设置。

我来回滚动
我单方向循环滚动我改单方向向上循环滚动我只滚动一次
我改向上只滚动一次了
bgcolor属性文字滚动范围的背景颜色，参数值是16进制（形式：#AABBCC或#AA5566等）或预定义的颜色名字（如red、yellow、blue等）。如下所示：我的背景色是红色的

direction属性

文字滚动的方向，属性的参数值有down、left、right、up共四个单一可选值，分别代表滚动方向向下、向左、向右、向上。如下所示：

我向右滚动

我向下滚动

width和height属性

width和height属性的作用决定滚动文字在页面中的矩形范围大小。width属性用以规定矩形的宽度，height属性规定矩形的高度。这两个属性的参数值可以是数字或者百分数，数字表示矩形所占的（宽或高）像素点数，百分数表示矩形所占浏览器窗口的（宽或高）百分比。如下所示：

我宽300像素，高30像素。
hspace和vspace属性

这两个属性决定滚动矩形区域距周围的空白区域.

我矩形边缘水平和垂直距周围各10像素。

我矩形边缘水平和垂直距周围各50像素。
loop属性

loop属性决定滚动文字的滚动次数，缺省是无限循环。参数值可以是任意的正整数，如果设置参数值为-1或infinite时将无限循环。如下所示：

我滚动2次。
我无限循环滚动。

我无限循环滚动。

scrollamount和scrolldelay属性

这两个属性决定文字滚动的速度（scrollamount）和延时（scrolldelay），参数值都是正整数。如下所示：

我速度很快.

我慢了些。
我小步前进。
我大步前进。
最后说一下align属性，这个属性决定滚动文字位于距形内边框的上下左右位置。您也可以将和之间的内容替换为图像或其它对象等

解决在 IIS 6.0 中，无法上传大容量文件的办法

2010-02-27T11:57:53+08:00

1、先在服务里关闭 iis admin service 服务。
2、找到 windows\system32\inetsrv\ 下的 metabase.xml 文件。
3、用纯文本方式打开，找到 ASPMaxRequestEntityAllowed 把它修改为需要的值（默认为：204800，即：200K）。
4、存盘，然后重启 iis admin service 服务。

可怜的猫动刀子了

2009-10-26T19:33:45+08:00