取得中文句子头一个字的大写拼音字母
<%
'******************************
'函数:getpychar(char)
'参数:char,任意中文字符或句子
'作者:阿里西西
'日期:2007/7/15
'描述:取得中文句子头一个字的大写拼音字母
'示例:getpychar("欢迎访问阿里西西")
'******************************
Function getpychar(char)
Dim tmp
tmp=65536+Asc(char)
If(tmp>=45217 And tmp<=45252) Then
getpychar= "A"
ElseIF(tmp>=45253 And tmp<=45760) Then
getpychar= "B"
ElseIF(tmp>=45761 And tmp<=46317) Then
getpychar= "C"
ElseIF(tmp>=46318 And tmp<=46825) Then
getpychar= "D"
ElseIF(tmp>=46826 And tmp<=47009) Then
getpychar= "E"
ElseIF(tmp>=47010 And tmp<=47296) Then
getpychar= "F"
ElseIF(tmp>=47297 And tmp<=47613) Then
getpychar= "G"
ElseIF(tmp>=47614 And tmp<=48118) Then
getpychar= "H"
ElseIF(tmp>=48119 And tmp<=49061) Then
getpychar= "J"
ElseIF(tmp>=49062 And tmp<=49323) Then
getpychar= "K"
ElseIF(tmp>=49324 And tmp<=49895) Then
getpychar= "L"
ElseIF(tmp>=49896 And tmp<=50370) Then
getpychar= "M"
ElseIF(tmp>=50371 And tmp<=50613) Then
getpychar= "N"
ElseIF(tmp>=50614 And tmp<=50621) Then
getpychar= "O"
ElseIF(tmp>=50622 And tmp<=50905) Then
getpychar= "P"
ElseIF(tmp>=50906 And tmp<=51386) Then
getpychar= "Q"
ElseIF(tmp>=51387 And tmp<=51445) Then
getpychar= "R"
ElseIF(tmp>=51446 And tmp<=52217) Then
getpychar= "S"
ElseIF(tmp>=52218 And tmp<=52697) Then
getpychar= "T"
ElseIF(tmp>=52698 And tmp<=52979) Then
getpychar= "W"
ElseIF(tmp>=52980 And tmp<=53640) Then
getpychar= "X"
ElseIF(tmp>=53689 And tmp<=54480) Then
getpychar= "Y"
ElseIF(tmp>=54481 And tmp<=62289) Then
getpychar= "Z"
Else '如果不是中文,则不处理
getpychar=char
End If
End Function
%>
asp 取得中文句子头一个字的大写拼音字母的函数
时间: 2024-08-04 10:59:49
asp 取得中文句子头一个字的大写拼音字母的函数的相关文章
asp 取得中文句子头一个字的大写拼音字母的函数_应用技巧
取得中文句子头一个字的大写拼音字母<% '****************************** '函数:getpychar(char) '参数:char,任意中文字符或句子 '作者:阿里西西 '日期:2007/7/15 '描述:取得中文句子头一个字的大写拼音字母 '示例:getpychar("欢迎访问阿里西西") '****************************** Function getpychar(char) Dim tmp tmp=65536+Asc
Response 对象 错误 &#039;ASP 0156 : 80004005&#039; HTTP 头错误
有些ASP页面第一次打开的时候会出现Response 对象 错误 'ASP 0156 : 80004005' HTTP 头错误,但刷新后又正常了,解决方法如下: Response.Buffer = True '应该是这行,去掉就ok '如果还不行就把 代码如下 复制代码 Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-
分享:ASP.NET中文手册
问题描述 ASP.NET中文手册 解决方案 解决方案二:没一个回帖,郁闷ing...解决方案三:呵呵,看來大家很現實.你應該發分,就有人跟帖了解决方案四:看了一下目录,怎么像是ASP.NET1.0或者1.1版本的?解决方案五:瞧瞧再说解决方案六:vb?!解决方案七:怎么没解压码到网站上也找不到解决方案八:非常感谢,密码想想也知道是www.wefine.net,不用去网上查了解决方案九:楼上说的对.
asp页面提示Response 对象 错误 ASP 0156 : 80004005 HTTP 头错误
其实这类问题就是因为缓存问题,大家可以参考下面的方法解决: 有些ASP页面第一次打开的时候会出现Response 对象 错误 'ASP 0156 : 80004005' HTTP 头错误,但刷新后又正常了,解决方法如下 复制代码 代码如下: Response.Buffer = True '应该是这行,去掉就ok '如果还不行就把 Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Res
Asp.net中固定位数用零补齐的函数
Asp.net中固定位数用零补齐的函数(已解决,示例)! 在开发当中,出现编号实现8位数,但需要用0补齐.如:123,表示:0000123. 实例如下: decimal aaa = 123; // 数值型 string bbb = aaa.ToString(); // 转换为字符 bbb = bbb.PadLeft(7, '0'); // 共7位,之前用0补齐 response.write(bbb ); decimal aaa = 123; // 数值型 string bbb = aaa
javascript-请问asp.net后台怎么调用前台写好的JavaScript函数
问题描述 请问asp.net后台怎么调用前台写好的JavaScript函数 前台 <script type="text/javascript"> $(".btn").click(function(){ is_hide(); }) function is_hide(){ $(".alert").animate({"top":"-40%"}, 300) } function is_show(){ $
获得ASP的中文日期字符串
中文|字符串|字符串 我 们 通 常 需 要 在 WEB 页 面 上 写 上 当 前 的 日 期 , 可 能 使 用 客 户 端 script , 或 者 使 用 ASP . 使 用 ASP 的 一 个 特 点 是 , 它 产 生 的 效 果 看 起 来 是 静 态 的 页 面 ,但 实 际 上 它 是 动 态 生 成 的 . 如 果 你 希 望 用ASP 显 示 一个 中 文 的 日 期 , 则 需 要 转 化 一 下 . 下 面 是 用 来 转 化 的 函 数 及 其 调
将小写金额转换为中文大写的SQL函数
大写|函数|金额|小写|中文|转换 CREATE FUNCTION [dbo].[f_num_chn] (@num numeric(14,2))RETURNS varchar(100) WITH ENCRYPTIONASBEGIN--版权所有:pbsql DECLARE @n_data VARCHAR(20),@c_data VARCHAR(100),@n_str VARCHAR(10),@i int SET @n_data=RIGHT(SPACE(14)+CAST(CAST(ABS(@n
ASP支持中文的无组件文件上传
文件名:upload.inc 说明:支持中文的无组件文件上传ASP函数,由于ASP不支持二进制写入文件,所以存成文件时必须使用组件,本函数只提供截取上传文件的数据,可以写入到数据库. <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> Function GetUpload(FormData) Dim DataStart,DivStr,DivLen,DataSize,FormFieldData '分隔标志串(+CRLF) DivStr = LeftB(FormData