您正在使用IPV4(18.205.176.39)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]文明驾车我带头,文明行路我带头,礼貌让座我带头       深圳小产权房      

【腾讯云】热门云产品首单特惠秒杀,2核2G云服务器45元/年      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 儿童节 15
2022年 端午节 17
2023年 元 旦 229
2023年 春 节 250
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
把中文转换为UNICODE
内容摘要: %functionunicode(str)dimi,j,c,i1,i2,u,fs,f,punicode=''p=''fori=1tolen(str)c=mid(str,i,1)j=ascw(c)ifj0thenj=j+65536endififj=0andj=128thenifp='c'thenunicode=''unicodep='e'endifunicod......
<%

functionunicode(str)

dimi,j,c,i1,i2,u,fs,f,p

unicode=""

p=""

fori=1tolen(str)

c=mid(str,i,1)

j=ascw(c)

ifj<0then

j=j+65536

endif

ifj>=0andj<=128then

ifp="c"then

unicode=""&unicode

p="e"

endif

unicode=unicode&c

else

ifp="e"then

unicode=unicode&""

p="c"

endif

unicode=unicode&"&#"&j&";"

endif

next

endfunction

functioncutline(str,linelen)

dimi,j,c,k

cutline=""

j=0

fori=1tolen(str)

c=mid(str,i,1)

ifasc(c)<0orasc(c)>127then

k=2

else

ifasc(c)<32then

k=0

ifasc(c)=13then

j=0

cutline=cutline+"<br/>"+c

c=""

endif

else

k=1

endif

endif

j=j+k

ifj>linelen*2then

cutline=cutline+"<br/>"+vbCrlf+c

j=k

else

cutline=cutline+c

endif

next

endfunction

functionconvertsymbol(sStr)

dimi,c

convertsymbol=""

fori=1tolen(sStr)

c=mid(sStr,i,1)

ifc=">"then

convertsymbol=convertsymbol&">"

elseifc="<"then

convertsymbol=convertsymbol&"<"

elseifc="'"then

convertsymbol=convertsymbol&"'"

elseifc=""""then

convertsymbol=convertsymbol&"""

elseifc="&"then

convertsymbol=convertsymbol&"&"

elseifc="$"then

convertsymbol=convertsymbol&"$$"

else

convertsymbol=convertsymbol&c

endif

next

endfunction

functionconvertstring(sStr)

dimstrtemp,asctemp,c

strtemp=""

fori=1tolen(sStr)

c=mid(sStr,i,1)

asctemp=ascw(c)

if(asctemp>47andasctemp<58)or(asctemp>64andasctemp<91)or(asctemp>96andasctemp<123)then

strtemp=strtemp&c

endif

next

convertstring=Lcase(strtemp)

endfunction

%>

上一篇:在ASP里显示进度条 下一篇:把URL和邮件地址转换为超级链接
发布日期:2022/4/11
手机扫二维码直达本页
发布时间:12:26:24
点击:432
录入:壹家怡园
相关文章
Baidu

YiJiaCMS 6.2.1.220509(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022