一、 成功的人，在成功前是在正确的时间做了正确的事情；在正确的时间里做错误的事情那或错误的时间做正确的事情叫白做，在错误的时间里做错误的事情那肯定失败。 二、 从小妈妈就说：多吃无味，少吃则多味，所以永远都要做求大于供的事情，不要做供大于求的事情。 三、 无知者无畏，所以大多数企业家是低教育者，而高素质教育者只有服务于低教育者。 四、 做事要先做人，那是成功以后说的，在成功以前，肯定还是要先做事，不通过做事，别人怎么会知道你做人怎么样呢？ 五、 孩子是自己的好，老婆是别人的好，这句话是错误的，因为这不利于和谐社会，再说，你失败以后很有可能还得靠老婆来帮你度过一段痛苦的时间； 六、 请善待你的经销商，因为你想叫更多的人来买你的产品，首先要有更多的人愿意卖你的产品； 七、 老板喜欢能干的员工，但只是局限于按老板意愿干活的员工，哪怕老板是错误的指示，你也得把它干正确了，要有电脑的自动修复功能者，才是能人。 八、 老板最喜欢的人永远都是没有什能力而又很忠诚的员工，因这样才能带的出去，带出去了显得老板自己更有能力，就好象一个美女一定不愿意和另一个美女上街的道理一样； 九、 做大事靠德，做小事凭智，这句话肯定是误导，马克思都说过资本的原始积累是赤裸裸、血淋淋的吗，所以应该改成：做小事靠“狠”，做大事靠“智”； 十、 赚小钱靠勤快，做大事靠天，这句话实在。]]>http://www.lovemx.com/blog/default.asp?id=884<![CDATA[ASP防采集的代码]]>醋醋狗http://www.lovemx.com/blog/hncucugo@yahoo.com.cn2008-07-31T12:46:07+08:002008-07-31T12:46:07+08:00一，防复制粘贴： <% '作用:文字防复制乱码 函数 'Date:2006-3-6 '作者:blue2004 '参数str 为原文,str1作者也是你自己,reslut产生乱码的种子 Function ReadToCode(str,Str1,result) dim name dim i,j,k If isnull(str) then ReadToCode="" Exit Function End If Randomize k=instr(str,"</P>") Do while k>0 result="" for i=0 to 19 j=Int(128 * Rnd)+1 if j=60 or j=62 then j=j+1 end if result =result&chr(j) ' 产生随机数。 next result="<span style='DISPLAY: none'>"&result&"</span>" str=replace(str,"</p>",result&"<'/p>",1,1) k=instr(str,"</p>") loop str=replace(str,"<'/p>","</p>")
k=instr(str,"<br>") Do while k>0 result="" for i=0 to 19 j=Int(128 * Rnd)+1 if j=60 or j=62 then j=j+1 end if result =result&chr(j) ' 产生随机数。 next result="<span style='DISPLAY: none'>"&result&"</span>" str=replace(str,"<br>",result&"<'br>",1,1) k=instr(str,"<br>") loop str=replace(str,"<'br>","<br>") ReadToCode=str&"<div align=right style='color=gray'>[版权归原作者及"&Str1&"共同拥有，转载请注明出处]</div>" End Function
Dim a a="嘿嘿，一篇<br>不错的好<p>文章哦</P><br><P>我艹，版权所有。</p>"
'Only For Test response.write (a)
Dim b '为配合转换,字符串ａ的大小都替换成小写 b=ReadToCode(LCase(a),"blue2004","www.net.cn")
'Output response.write b %> 二、防采集 防止网站内容被人小偷和采集的ASP代码
<% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then response.Cookies("AppealCount")=1 AppealCount=1 response.cookies("AppealCount").expires=dateadd("s",60,now()) Else response.Cookies("AppealCount")=AppealCount+1 response.cookies("AppealCount").expires=dateadd("s",60,now()) End If if int(AppealCount)>int(AppealNum) then response.write "抓取很累，歇一会儿吧！" response.end End If %> ]]>http://www.lovemx.com/blog/default.asp?id=883<![CDATA[几个清爽的配色方案]]>醋醋狗http://www.lovemx.com/blog/hncucugo@yahoo.com.cn2008-07-26T09:53:27+08:002008-07-26T09:53:27+08:00
]]>http://www.lovemx.com/blog/default.asp?id=872<![CDATA[整理几个sql语句]]>醋醋狗http://www.lovemx.com/blog/hncucugo@yahoo.com.cn2008-06-16T17:01:36+08:002008-06-16T17:01:36+08:00挺有用的。 1、删除重复的记录只保留最大id的一条 delete from 表名 where ID not in (Select MAX(ID) AS mid FROM 表名 GROUP BY 条件)
2、得到二级分类表，并且算出期下级分类的数量 Select 二级分类表.Typeid, 二级分类表.Typename, COUNT(三级分类表.typeid_2) AS Expr1 FROM 三级分类表 right join 二级分类表 ON 二级分类表.Typeid = 三级分类表.typeid GROUP BY 二级分类表.Typeid, 二级分类表.Typename, 二级分类表.SortId HAVING (二级分类表.SortId = @id)
3、找出数据表中某字段为0的数据然后将所有数据更新为1-9的随机数
DECLARE @forId varchar(50) DECLARE id_cursor cursor for select id from lovemx where cucugo = 0 OPEN id_cursor fetch next from id_cursor into @forId while @@fetch_status = 0 BEGIN print @forId
DECLARE @num Int
Select @num = CAST((RAND()+0.1) * 9 AS bigint) --lovemx.com fetch next from id_cursor into @forId --print @num update lovemx set cucugo = @num where id=@forId END close id_cursor deallocate id_cursor]]>http://www.lovemx.com/blog/default.asp?id=870
HTML代码
程序代码