职场专家一致表示：“当然要答应！”职场专家指出，既然来上班了，在工作时间内，你的时间跟人就算是公司的，遇到主管主动找你吃饭，有什么好拒绝的？即使你认为主动找你吃饭的主管很讨人厌、令你倒胃口，但仍应该要说服自己答应主管的邀约！这是为什么呢？职场专家说，其实跟主管一起吃午餐，有以下两个好处：一是可以藉此机会跟主管联络感情、建立形象。

二是可以进入公司核心内，趁机多了解公司内部事情。

分类:运营&策划 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 192

人在职场必看语录

作者:【三石】日期:2009-10-30

日子毒药

有一些东西，被我称为日子毒药，像面试前突然被勾破的丝袜，浪漫晚餐时哽在喉咙里的硬牛肉，和男朋友同车时气味不好的出租司机，跳舞时突然脱落的扣子，进公司的早上就被老板训斥，演讲后有人提醒你拉链没拉，或者重要谈判前和停车场看门人的口角。这些或长或短，或大或小的事，冷不丁地出现，足以毒杀你一整天的好心情。

上司

上司这种东西就是上帝派来“苦其心志，劳其筋骨”的，而来自上司的苦与劳，是否是天将降大任于斯人的前兆，我不得而知，但必然充满着整个打工生涯，更有甚者，他们像躲在不让转弯车道的转弯处的警察一样，总是在你最没防备的时候伏击你。

分类:运营&策划 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 191

职位的进阶需要什么?

作者:【三石】日期:2009-10-30

带着这个问题，我们采访了一些CEO、CIO、老板和猎头。以下就是特别为您总结的10条创造和利用职业机会的规则。

1 业务第一，技术第二

保险集团Chubb公司的CIO June Drewry说：“企业中没有‘IT项目’，只有具有IT组成部分的业务项目。”IT员工中介公司Sapphire Technologies应用开发高级经理Ray Howell说，取得职业成功最重要的规则是：如果想沿企业职务阶梯上升，就必须首先像业务人员那样思考，然后再像技术人员那样思考。

Howell说：“技术人员必须从业务角度审视IT项目。在讨论技术项目的会议上，能够设身处地为财务和销售人员着想，从他们的角度看问题，这会更快速地找到解决办法。

分类:运营&策划 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 186

本人搜集的淘宝排名规则

作者:【三石】日期:2009-10-22

淘宝的排名规则对淘宝卖家提高产品销量起着至关重要的作用。经常也有朋友问道，是否研究过淘宝的seo？知道淘宝的站内优化怎么操作吗？

如何让自己的产品在淘宝的站内搜索排名靠前？怎么样让发布的产品能够在同类产品的名靠前？怎么样让别人找到你的产品？针对这些问题总结如下，也希望通过这篇文章朋友们可以对淘宝的排名规则有个简单的了解。

1. 在淘宝首页搜索“宝贝”的默认显示结果为“人气”搜索结果。人气是综合卖家信用、好评率、累计本期售出量、30天售出量、宝贝浏览量、收藏人气等因素来竞排的。

2. 在淘宝首页搜索“店铺”的默认显示结果为“信誉”搜索结果，即以卖家信用等级从高到低排序。

3. 在淘宝社区各板块的网页右上角搜索结果为“人气”搜索结果。

4. 在淘宝首页左上角“我要买”的默认搜索结果，与售出量、浏览量、价格、卖家好评率、先行赔付、所在地、商品页面的排版布局和关键字频率、次数等因素基本无关。

关于影响淘宝排名靠前的几点原因：

1.根据产品的上架时间的长短。

2.根据搜索的关键字排名。

3.根据搜索的条件不同排名也不同，比如：价格，信用，保障，所在地。

4.根据淘宝客服给予的优惠。

5.根据产品本身的标题是否够亮，所以大家要标题要推陈出新！

6.找好货源（好的货源就是成功的一半）;

7.拍好图片（漂亮的图片是活广告）;

8.资料整理;

9.熟悉在淘宝上买卖的各种操作;

10.你的目标在哪里;

11.利用好橱窗推荐位和店铺推荐（活广告位）;

12.利用好店铺留言和公告栏（活广告位）;

13.注意宝贝的发布时间（不要同时发布宝贝）;

14.黄金时段：每天都有上架宝贝，每隔30分钟发布一个，黄金时段（15：00—17：30和20：00—22：30）买家最多，则是每20分钟发布一个。而由于手链和耳环类的宝贝数量不多，只发布在每天的黄金时段

15.发布7天时间

16.好的服务决定店铺信誉

17.查找相关词

18.保持旺旺在线（在线时间长）

19.促销可带来人气（特价、一元拍、清仓特卖、买一送一等）

20.您的广告做了吗？

21.积极主动的精神哦，天上不会掉馅饼！

22.充分使用宝贝标题（30字以内）

23.第一页看到人气超高的宝贝

24.按时间排序（结束时间越短，排列越前）

25.如何让更多的人知道我的店铺

1）、今天您回帖了吗？

2）、您写过原创帖、转帖过吗？

3）、您有参加过论坛的各种活动吗？

4）、淘宝首页的广告位您抢过吗？

26.你有注意到你的空间的作用了吗？

27.知道网上什么时候成交量最大吗？

　　早上9点12点，下午2点到5点，晚上8点到10点！所以我建议你宝贝发布的时间在早上12点，下午5点，或者晚上的10点。

28.旺铺（有费用）

29.入淘宝直通车（有费用）

30.宝贝发布的技巧

1.建议您不要同时发布宝贝，最好分三次发布！这是为什么呢？听我讲讲理由！大伙都知道，淘宝里的宝贝排列是离结束时间越近，排的位置越靠前！如果您宝贝同时发布的话，也就是说这个星期只有一天您的宝贝是排在最前面！分三次隔天发布，那你一个星期就有三次机会了！就想你一样为什么宝贝发布的时间不是14天而是7天那！同样的理由嘛！选择上架时间越短越好，查商品的时候　默认排序就是按时间算得　赶紧看看行不行吧～呵呵，这样还不够，我们还需加点什么！

2，宝贝的发布时间也得最好在一个时间段！知道网上什么时候成交量最大吗？是早上9点12点，下午2点到5点，晚上8点到10点！所以我建议你宝贝发布的时间在早上12点，下午5点，或者晚上的10点！呵呵！这样在人最多的时候，你的宝贝排在前面！那你的宝贝浏览量就高了！，因此成交量也会高的！

办法二：橱窗推荐位的使用

1.推荐的时候也有诀窍的！你不是把宝贝分成三次，记住第一批推荐第二批的宝贝，第二批推荐第三批的宝贝，第三批推荐第一批宝贝！(解释一下,要等第一批宝贝自动下架后才把推荐位给第二批),我的宝贝都是这么干的！嘿嘿！~~可以增加你每个宝贝的浏览量！比方说当你第一批宝贝快结束的时候排在前面，那第一批推荐的宝贝也就附带着排到了前面,说的夸张一点，你的所有宝贝7天都排前面！

2，宝贝分成三次还有个好处！淘宝都会送每个卖家几个推荐位嘛！给新手的推荐一般5个橱窗位置，可是宝贝多啊，到底给谁呢？这里要清楚一点，橱窗推荐只对离宝贝结束时间2天以下才有用，所以嘛~呵呵你就该知道宝贝分成三次，位置该给谁了吧！呵呵当然给快要结束的那一批了！我想想5到20个的位置足够了吧（4心以下卖家）！呵呵...推荐位是很难的弄到的,我的两件物品都上了推荐位浏览量确实高了好多~但是多数买家还是喜欢买价格比较低的商品所以价格优势不能少.

3，很多你认为既便宜又有特点的商品一定要排在店铺推荐位上,这就是发帖回帖的好处了~

我经常会看到一些卖家的个人签名而点开他的店铺,哪怕不买但至少给他提高了浏览量,因为时间价格人气高的商品永远是大家搜索的关键词~

总结：淘宝里的宝贝排列的前后顺序是:

1.有橱窗推荐的宝贝比没有橱窗推荐的宝贝排在前面(在都有橱窗推荐的情况下按照宝贝剩余的时间多少排列)

2.都没有橱窗推荐情况下按照宝贝剩余的时间多少排列,时间越短排列越前.

大家说说橱窗推荐位重不重要,卖家可以参加"消费者保障计划"可以获得5个永久的推荐位哦

宝贝标题的使用技巧

要充分使用宝贝标题，淘宝规定宝贝标题不得超过30个字，要充分利用这30个关键字，把宝贝名称除外还有20个字左右可以用，怎么用呢，写大家常用的搜索关键词，也可以把产品的功用和你的促销活动写进去，举个例子，“纳瑞仕舒畅胶囊通便排毒治便密买二送价值10元的30粒芦荟一瓶”其实“通便”和“治便密”是一样的意思，但是别人搜索2个词中的任何一个都有机会找到这个宝贝，这样就可以提高自己宝贝的浏览量。

30.竞价排名是要钱的！！！

31.得加入旺铺\消保应该机会也多些.

对于卖家来说,要让自己的宝贝成为人气宝贝,发布宝贝的时候一定要选择好宝贝的分类!

然后,我发现有搜索出来的人气宝贝并不是默认的第一页,WHY?

因为卖的好并不能说明是最好的卖家,卖的好的宝贝就会排在第一页.但是有的人气宝贝默认的是第2页或者第3页....

这个主要是参考销售额好评信誉度

这个意思应该不用我多说,销售额高并且好评率高的店铺的宝贝肯定就是搜索默认的页面了.

例如你的宝贝卖出了,卖出的同时又有好评,那么人气宝贝就默认到这里.店铺的信誉其实不是最关键,但是好评是非常关键的!

其次,人气宝贝和点击率没有太大的关系,昨天之内我拿了我一个宝贝来测试,点击率刷到该分类最多,但是排名依然没有太大变化!所以想刷点击率的人注意了,这个是徒劳的!

看一下测试~~~

对我店里面的三件有多次成交记录的商品进行刷浏览量，但事实上并没有任何的异样。依然是没有排名变化。经过认真分析各项数据后，其中是成交好评，同一产品交易额，个人信誉度依次占主导地位。

●●●面对人气宝贝要做到的是:

不要频繁更新你的宝贝!例如修改宝贝描述修改价格之类的.因为修改过后你宝贝的销售量会归0.

要选择好宝贝的分类!很多人说自己的宝贝同样是销售量很好,但是就是排不上号,就是因为这个原因哦!

不要打价格战!要用科学的方式来对待销售,人气宝贝排名跟你店铺的销售额是有关系的!请牢记.

完善你的售后服务,争取更多回头客!推出新的产品,需要老顾客的支持才能得到更多的新顾客,加油把售后做到第一!

细心发现淘宝的规则~什么事情都是有规则可循的~

用心经营你的店铺!这个才是关键!

●●●对于才开店的卖家:

请让你的朋友亲戚到你店铺里面购买商品~最好购买同一件,这样可以累计你的资本!

对于店铺,请不要局限于淘宝的推荐和宣传,宣传方式很多.淘宝只是提供了一个交易平台,我们摆正心思.网络如此大,不仅仅是淘宝的推荐可以带来成交量.

●●●作为买家:

淘宝如此之举其实也是想加强优胜劣汰,因为现在淘宝现在虽然搜索的宝贝数量多,但是对于买家来说有效信息真的不算多,对于橱窗推荐,和利用价格来排名的方式很多时候都不怎么管用.比如我想买项链,我要买外观是心型的项链.但是搜索出来的不一定都是外观是心型的项链.但是可以利用人气宝贝里面展示的宝贝,看到自己喜欢的类型的项链,并且把名字编号记住,然后再用价格搜索.这样可以更好的找到自己喜欢的同款式并且价格又低的宝贝!

●●●人气宝贝的看法:

其实人气宝贝采用的计算方法还是很科学的,只是现在才出来,大家不太适应而已.其实这样可以避免很多人打价格战,或者用质量低劣的低价产品来炒作信誉.希望大家能够支持这个新生物的出现,我想淘宝的出发点是为了让淘宝的交易市场更加有秩序,让那些炒作信用的人不能生存.作为想认真在淘宝做下去的人,我们应该支持淘宝完善这个功能,不要一味的嫌弃这个东西.东西都是发展的,现在才推出的阶段,肯定有不足之处.

分类:运营&策划 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 252

几种常见的点击复制代码的汇总……

作者:【三石】日期:2009-09-25

1.点击复制标题和地址的代码:
<title>标题</title>
<input type="button" name="Submit" onClick=’copyToClipBoard()’ value="/blog/复制专题地址，传给QQ/MSN上的好友">
<script language="java script">
function copyToClipBoard(){

分类:程序开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 339

解决ASP UTF-8页面乱码+GB2312转UTF-8 +生成UTF-8格式的文件(编码)

作者:【三石】日期:2009-09-13

最好的方法：
先说一下基本的东西：
<%@ codepage=65001%>UTF-8
<%@ codepage=936%>简体中文
<%@ codepage=950%>繁体中文
<%@ codepage=437 %>美国/加拿大英语
<%@ codepage=932 %>日文
<%@ codepage=949 %>韩文
<%@ codepage=866 %>俄文
codepage指定了IIS按什么编码读取传递过来的串串（表单提交，地址栏传递等）。
出乱码的原因也就是网站要整合的时候模块编码不相同引起的。
就像我的博客相同，整合的时候都会出这个问题，因为BLOG是Utf-8的，
近来很多网友都在为这个问题咨询，我尝试了很多种方法。
最方便的方法如下：
不要转换任何模块网页的编码该utf-8的还是utf-8，该Gb22312的还是Gb2312
在Utf-8模块的包文档（如conn.asp，但是要注意conn.asp必须是在第一行调用）最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
在GB2312模块的包文档最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
其他编码的类推。
ASP中汉字与UTF-8的互相转换
'=============汉字转换为UTF-8==================
function chinese2unicode(Str)
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
next
chinese2unicode = Str_unicode
end function

'=============UTF-8转换为汉字==================
function UTF2GB(UTFStr)
for Dig=1 to len(UTFStr)
if mid(UTFStr,Dig,1)="%" then
if len(UTFStr) >= Dig+8 then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
next
UTF2GB=GBStr
end function

function ConvChinese(x)
A=split(mid(x,2),"%")
i=0
j=0
for i=0 to ubound(A)
A(i)=c16to2(A(i))
next
for i=0 to ubound(A)-1
DigS=instr(A(i),"0")
Unicode=""
for j=1 to DigS-1
if j=1 then
A(i)=right(A(i),len(A(i))-DigS)
Unicode=Unicode & A(i)
else
i=i+1
A(i)=right(A(i),len(A(i))-2)
Unicode=Unicode & A(i)
end if
next
if len(c2to16(Unicode))=4 then
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
else
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
end if
next
end function
function c2to16(x)
i=1
for i=1 to len(x) step 4
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
next
end function
function c2to10(x)
c2to10=0
if x="0" then exit function
i=0
for i= 0 to len(x) -1
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
next
end function
function c16to2(x)
i=0
for i=1 to len(trim(x))
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
do while len(tempstr)<4
tempstr="0" & tempstr
loop
c16to2=c16to2 & tempstr
next
end function
function c10to2(x)
mysign=sgn(x)
x=abs(x)
DigS=1
do
if x<2^DigS then
exit do
else
DigS=DigS+1
end if
loop
tempnum=x
i=0
for i=DigS to 1 step-1
if tempnum>=2^(i-1) then
tempnum=tempnum-2^(i-1)
c10to2=c10to2 & "1"
else
c10to2=c10to2 & "0"
end if
next
if mysign=-1 then c10to2="-" & c10to2
end function
GB2312转UTF-8
'个人代码风格注释（变量名中第一个小写字母表表示变量类型）
'i:为Integer型;
's:为String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i
iHexNum = Trim(a_iNum)
If iHexNum = "" Then
Exit Function
End If
sResult = ""
If (iHexNum < 128) Then
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) Then
sResult = ChrB(&H80 + (iHexNum And &H3F))
iHexNum = iHexNum \ &H40
sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
ElseIf (iHexNum < 65536) Then
sResult = ChrB(&H80 + (iHexNum And &H3F))
iHexNum = iHexNum \ &H40
sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
iHexNum = iHexNum \ &H40
sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
End If
U2UTF8 = sResult
End Function
Function GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i
sGB = Trim(a_sStr)
iLen = Len(sGB)
For i = 1 To iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)
If (iTemp>127 or iTemp<0) Then
iUnicode = AscW(sTemp)
If iUnicode<0 Then
iUnicode = iUnicode + 65536
End If
Else
iUnicode = iTemp
End If
sResult = sResult & U2UTF8(iUnicode)
Next
GB2UTF = sResult
End Function
'调用方法
Response.BinaryWrite(GB2UTF("中国人"))

asp UTF-8 乱码问题的解决方法小结
这里整理下asp页面下出现乱码的问题，好多ajax读取的数据出现乱码的解决方法，asp.net,php等语言的乱码，解决原理都是一样的。
这个是网页编码的问题。中文一般采用的是gb2312这样的话显示中文基本上不会出现乱码。但是有时候我们用的是一种国际上通用的utf-8格式。如果utf-8格式人不是很了解的话是容易出现乱码的。
有许多朋友问过我,为什么在ASP里指定了codepage为65001还经常显示乱码.才子在这里将这个问题详细解释一下,以免很多朋友再走弯路,甚至排斥UTF-8.
asp网页utf8乱码如果你还不知道UTF-8是什么东东,那才子建议你先去搜索一下UTF-8的相关资料吧.
UTF-8编码之所以被越来越多的人接受甚至喜欢,肯定是有道理的,在WEB2.0盛行的今天,在大谈多浏览器兼容的同时,不得不想到字符编码不同所造成的乱码现象同样需要得到很好的处理.....
在N年以前,IE6以下的所有版本,只要没有安装相应的字库,访问相关的页面都是会乱码的,例如,我是IE5 (Windows2000默认) 的版本,在没有安装IE繁体字库的情况下,访问任何繁体页面的网站都是会乱码的,当然前提是该页面采用了BIG5的Charset,而UTF-8作为一种国际编码就能很好的处理该问题,只要将页面存为UTF-8编码格式,再在页面上将codepage及charset全部定义为utf-8就可以在任何客户端浏览器中显示出完全正确的内容,完全不会乱码......
好了,才子这里以ASP页面为例,以一个实例来看具体操作吧:
在这才子推荐用Editplus来写代码,才子也专门写过一篇Editplus的使用教程,有兴趣的朋友可以点击这里去看看.
打开新建一个ASP页面,相信玩ASP的朋友都会留意到,许多下载的源码里,页面最上方一般都有一句:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
前面的language应该不用多说了,vbscript就是ASP默认的脚本语言,其实完全可以不用写,写了好像还会影响页面执行效率,在这里我们先不讨论这个问题. 后面的codepage就是关键了,目的就是告诉浏览器,此页面是何种编码,936代表是简体中文,而950代表繁体中文,65001就是我们今天说的 UTF-8编码了.我们将936改成65001,整句如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
再加上输出几个中文字看看能不能正确显示吧.
<%
Response.Write "第一次测试UTF-8页面"
%>
OK,直接点击"保存",执行这个页面看看,如果不出意外,大家可能看到显示出的是 "一尾UTF-8页" 这几个字,中文有乱码的现象,什么原因呢?
OK,请大家再点击最上面的 "文件" 菜单,选择"另存为",最下面一行有个编码,默认应该是ANSI的,请大家点下拉框,选择UTF-8,再点保存,再执行试试看,如果不出意外,乱得更厉害了,呵呵,晕了吧.别急,想想原因,因为我们做的页面是HTML返回的,以前我们写HTML时,看到body前面,也就是head里都有一句meta,应该是这样的:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
也就是指定页面以gb2312编码返回结果,一定要写在有返回结果输出的前面.大家都知道gb2312是简体中文吧,我们今天说的是UTF-8编码,我们就将gb2312改成UTF-8吧,全部代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
Response.Write "第一次测试UTF-8页面"
%>
再执行看看,嗯,这次正常显示了吧.......
asp网页utf8乱码结论:采用UTF-8编码,除了要将文件另存为UTF-8格式之外,还需要同时指定codepage及charset.
保证asp叶面一定不会出现乱码的代码应该是这样的：
（假定是UTF-8的叶子）
<%@ CODEPAGE=65001 %>
<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
可以建立公共文件code.asp，所有页面都包含这个编码指定.
Asp生成UTF-8格式的文件(编码)
ASP中操作UTF-8格式的文件
注意：这里说的ASP可不是ASP.net。
ASP由于是一种古老的语言，它的一些功能对UTF-8支持非常差。
比如，你想生成一个UTF-8格式的文件，使用常用的 Scripting.FileSystemObject 对象就不行。
Scripting.FileSystemObject 对象创建文件的函数，是下面方式：
FileSystemObject.CreateTextFile(filename[,overwrite[,unicode]])
其中的 unicode 属性是这样描述的：
可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。
我们是无法用这个函数来创建UTF-8格式文件的。
这时候，我们可以使用 ADODB.Stream 对象，使用方法见下面：
以下是引用片段：
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=str
.SaveToFile server.mappath("/sitemap.xml"),2
.Close
End With
Set objStream = Nothing
附：
ASCII 、Unicode 、 UTF-8 介绍：
ASCII 是一种字符集,包括大小写的英文字母、数字、控制字符等，它用一个字节表示，范围是 0-127。
由于 ASCII 表示的字符非常有限，各个国家或者地区在此基础上提出了自己的字符集，比如在中国应用非常广泛的 GB2312，它为汉字提供了编码，用两个字节表示。
这些字符集之间互不兼容，相同的数字可能表示不同的字符，为信息交流带来了麻烦。
Unicode 是一种字符集,它将世界上的所有字符映射成一个唯一的数字(code point)，比如字母 a 对应的数字 0x0041。目前 Unicode 还处于发展中，它所包容的字符越来越多。
在将 Unicode 表示的字符进行存储时，还需要一定的编码方式，比如 UCS-2，它用两个字节来表示 Unicode 编码的字符。而 UTF-8 是 Unicode 字符集的另外一种编码方式，它是变长度的，最多 6 个字节，小于 127 的字符用一个字节表示，与 ASCII 字符集的结果一样，因而具有非常好的兼容性，ASCII 编码下的英语文本不需要修改就可以当作 UTF-8 编码进行处理，应用非常广泛。
完整示例：
'================================================
'函数名：CreatedTextFiles
'作用：创建文本文件
'参数：filename ----文件名
' body ----主要内容
'================================================
Public Function CreatedTextFiles(ByVal FileName, ByVal body)
On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
Dim oStream
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 2 '设置为可读可写
oStream.Mode = 3 '设置内容为文本
oStream.Charset = "UTF-8"
oStream.Open
oStream.Position = oStream.Size
oStream.WriteText body
oStream.SaveToFile FileName, 2
oStream.Close
Set oStream = Nothing
If Err.Number <> 0 Then Err.Clear
End Function

分类:程序开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 334

新浪博客HtmlEditor在线编辑器已修BUG 使用方法

作者:【三石】日期:2009-09-13

转载时请注明来源 修改者：mawendong 提取者：不详源代码开发者：sina某技术员

原来公司网站系统中用的是eWebEditor编辑器，我个人也在两年前用过，后来发现fckeditor，就用fckeditor。
最近因开发需要在网上搜索editor,发现国内有技术朋友提取了新浪博客编辑器，外观与功能都不错，加载的速度也很快.相比eWebEditor 与 fckeditor 是要快好多,eWebEditor 与 fckeditor 加载速度慢和它们本身功能多是有原因的。做开发的朋友可以根据实际需要来选择。新浪博客HtmlEditor在线编辑器在网络上下载到得代码中没有使用说明,给很多新手朋友带来使用障碍。我持着共享的态度，将使用方法写出来。在原有的代码基础上做了上传图片代码的改进。网上有PHP和asp两个版本，我只对asp版本做了使用的改进。

添加时

程序代码

编辑时

程序代码

核心部分<%=Server.HtmlEncode(rs("content"))%>
Server.HtmlEncode()
请注意<iframe></iframe>中的文件路径

下载文件点击下载SinaEditor_ASP版
 点击下载SinaEditor_PHP版

针对上传图片的改进，修改Edit\editor\目录下UpLoadClass.asp文件。
在65行附近找到
m_SavePath = "/UpLoadFile/"
替换如下的

程序代码

        'm_SavePath = "/UpLoadFile/"  ' 默认
        '-------------------------------------
        '以下是修改后按年月日分级目录存放
        '例如/UpLoadFile/2008/8/28/ 可根据实际需求设置存放目录级结构一般用/UpLoadFile/2008/8/
        '可根据实际需求设置存放目录级结构
        ' 一般用二级   例如/UpLoadFile/2008/8/
        ' 海量级用三级例如/UpLoadFile/2008/8/28/

        m_SavePath0 = "/UpLoadFile/"
        m_SavePath1 = year(now())&"/"
        m_SavePath2 = month(now())&"/"
        m_SavePath3 = day(now())&"/"

        '生成目录开始
        '主目录
        Set fso = createObject("Scripting.FileSystemObject")
        if not fso.folderexists(Server.MapPath(m_SavePath0)) then
        fso.createFolder (Server.MapPath(m_SavePath0))
        Set fout = fso.CreateTextFile(server.mappath(m_SavePath0&"default.html"))
        fout.WriteLine "<meta http-equiv=Refresh content='1; URL=/'>您访问的页面不存在!"
        end if
        set fout=nothing
        set fso=nothing
        '年目录
        Set fso = createObject("Scripting.FileSystemObject")
        if not fso.folderexists(Server.MapPath(m_SavePath0&m_SavePath1)) then
        fso.createFolder (Server.MapPath(m_SavePath0&m_SavePath1))
        Set fout = fso.CreateTextFile(server.mappath(m_SavePath0&m_SavePath1&"default.html"))
        fout.WriteLine "<meta http-equiv=Refresh content='1; URL=/'>您访问的页面不存在!"
        end if
        set fout=nothing
        set fso=nothing
        '月目录
        Set fso = createObject("Scripting.FileSystemObject")
        if not fso.folderexists(Server.MapPath(m_SavePath0&m_SavePath1&m_SavePath2)) then
        fso.createFolder (Server.MapPath(m_SavePath0&m_SavePath1&m_SavePath2))
        Set fout = fso.CreateTextFile(server.mappath(m_SavePath0&m_SavePath1&m_SavePath2&"default.html"))
        fout.WriteLine "<meta http-equiv=Refresh content='1; URL=/'>您访问的页面不存在!"
        end if
        set fout=nothing
        set fso=nothing
        '生成目录结束
        m_SavePath = m_SavePath0&m_SavePath1&m_SavePath2  '
        '-------------------------------------

转载时请注明来源 修改者：mawendong 提取者：不详源代码开发者：sina某技术员

分类:程序开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 356