|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;函数|汉字|精髓<SCRIPTLANGUAGE=vbscript>
<!--
供应者:小白
接洽办法:
E-mail:xiaobai@17560.net
functiongetpychar(char)
tmp=65536+asc(char)
if(tmp>=45217andtmp<=45252)then
getpychar="A"
elseif(tmp>=45253andtmp<=45760)then
getpychar="B"
elseif(tmp>=47761andtmp<=46317)then
getpychar="C"
elseif(tmp>=46318andtmp<=46825)then
getpychar="D"
elseif(tmp>=46826andtmp<=47009)then
getpychar="E"
elseif(tmp>=47010andtmp<=47296)then
getpychar="F"
elseif(tmp>=47297andtmp<=47613)then
getpychar="G"
elseif(tmp>=47614andtmp<=48118)then
getpychar="H"
elseif(tmp>=48119andtmp<=49061)then
getpychar="J"
elseif(tmp>=49062andtmp<=49323)then
getpychar="K"
elseif(tmp>=49324andtmp<=49895)then
getpychar="L"
elseif(tmp>=49896andtmp<=50370)then
getpychar="M"
elseif(tmp>=50371andtmp<=50613)then
getpychar="N"
elseif(tmp>=50614andtmp<=50621)then
getpychar="O"
elseif(tmp>=50622andtmp<=50905)then
getpychar="P"
elseif(tmp>=50906andtmp<=51386)then
getpychar="Q"
elseif(tmp>=51387andtmp<=51445)then
getpychar="R"
elseif(tmp>=51446andtmp<=52217)then
getpychar="S"
elseif(tmp>=52218andtmp<=52697)then
getpychar="T"
elseif(tmp>=52698andtmp<=52979)then
getpychar="W"
elseif(tmp>=52980andtmp<=53640)then
getpychar="X"
elseif(tmp>=53689andtmp<=54480)then
getpychar="Y"
elseif(tmp>=54481andtmp<=62289)then
getpychar="Z"
else假如不是中文,则不处置
getpychar=char
endif
endfunction
functiongetpy(str)
fori=1tolen(str)
getpy=getpy&getpychar(mid(str,i,1))
next
endfunction
d="20002汉字我喜好"
msgboxgetpy(d)
//-->
</SCRIPT>
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|