首页 / ASP / ASP常用函数:getpy()

ASP常用函数:getpy()

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ASP常用函数:getpy()，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1867字，纯文字阅读大概需要3分钟。

内容图文

<%
'取字段数据每个汉字的拼音首字母

Function getpychar(char)
    tmp = 65536 + Asc(char)
    If(tmp>= 45217 And tmp<= 45252) Then
        getpychar = "A"
    ElseIf(tmp>= 45253 And tmp<= 45760) Then
        getpychar = "B"
    ElseIf(tmp>= 47761 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

Function getpy(Str)
    For i = 1 To Len(Str)
        getpy = getpy&getpychar(Mid(Str, i, 1))
    Next
End Function
%>

内容总结

以上是互联网集市为您收集整理的ASP常用函数:getpy()全部内容，希望文章能够帮你解决ASP常用函数:getpy()所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/384892.html

来源：【匿名】

【上一篇】ASP常用函数:Trace()【下一篇】ASP知识讲座四

更多 ►

【ASP常用函数:getpy()】教程文章相关的互联网学习教程文章

ASP常用函数:IIF()

用法: IIF(条件表达式,为真时返回值,为假时返回值) <% Function IIf(bExp1, sVal1, sVal2) If (bExp1) Then IIf = sVal1 Else IIf = sVal2 End If End Function %>

asp 采集程序常用函数分析

原理采集程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻采集程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目...

asp 小偷采集程序原理与常用函数方法

用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。一、事例下面就XMLHTTP在ASP中的应用做个简单说明 ...

Asp函数介紹(37个常用函数)第1/2页

1.函数array()　功能:创建一个数组变量　格式:array(list)　参数:list　为数组变量中的每个数值列,中间用逗号间隔　例子:　 <%　i　=　array　("1","2","3")　%>　结果:　i　被赋予为数组　 2.函数Cint()　功能:将一表达式/其它类型的变量转换成整数类型(int)　格式:Cint(expression)　参数:expression　是任何有效的表达式/其它类型的变量　例子:　 <%　 f　=　"234"　 response.write　cINT(f)　+　2　 %>　结果:　236...

asp常用函数集合，非常不错以后研究第1/4页

<% function loadtempletfile(byval path) on error resume next dim objstream set objstream = server.createobject("adodb.stream") with objstream .type = 2 .mode = 3 .open .loadfromfile server.mappath(path) if err.number <> 0 then err.clear response.write("预加载的模板[" & path & "]不存在!") response.end() ...

ASP常用函数:ArrayToxml

<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion) ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot)) If row = "" Then row = "row" For i = 0 To UBound(DataArray, 2) Set Node = ArrayToxml.createNode(1, row,...

ASP常用函数:ReplaceHTML

<% '去掉HTML标记 Public Function ReplaceHTML(Textstr) Dim Str, re Str = Textstr Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "<(.[^>]*)>" Str = re.Replace(Str, "") Set Re = Nothing ReplaceHTML = Str End Function %>

ASP常用函数:getpy()

ASP常用函数:Trace()

代码如下:<% '//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug ----// Function Trace(s) On Error Resume Next Response.Write(s & vbCrLf) Response.End() End Function %> 下面的是个修改升级版,还在测试中... 代码如下:<% '//---- 输入字符串并结束当前页面(调试用) ----// Function Trace(s) On Error Resume Next If IsArray(s) Then For i = 0 To UBound(s) ...

ASP常用函数:Delay()

代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s) Dim t = Now() While DateDiff("s", t, Now) < s Wend End Function %> 转载自：http://jorkin.reallydo.com/article.asp?id=224

ASP常用函数:CStrIP()

作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP) Dim lsResults Dim lnTemp Dim lnIndex For lnIndex = 3 To 0 Step -1 lnTemp = Int(anNewIP / (256 ^ lnIndex)) lsResults = lsResults & lnTemp & "." anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex)) Next lsResults = Left(lsResults, Len(lsResults) - 1) CStrIP = lsResults End Function %>

ASP常用函数:CLngIP()

作用:把IP地址转为长整型 <% Function CLngIP(ByVal asNewIP) Dim lnResults Dim lnIndex Dim lnIpAry lnIpAry = Split(asNewIP, ".", 4) For lnIndex = 0 To 3 If Not lnIndex = 3 Then lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex)) End If lnResults = lnResults + lnIpAry(lnIndex) Next CLngIP = lnResults End Function %>

ASP常用函数:XMLEncode

输出RSS和XML时经常用到,和HTMLEncode还不完全一样原理:Character Converted To" " & &< <> > 代码<%Function XMLEncode(byVal sText) sText = Replace(sText, "&" , "&") sText = Replace(sText, "<" , "<") sText = Replace(sText, ">" , ">") sText = Replace(sText, "" , "") sText = Replace(sText, """", """) XMLEncode = sTextEnd Function%>还有个:<%Public Function XmlEncode(ByVal strText As Stri...

[转]ASP常用函数:TimeZone

功能:获取服务器所在时区代码如下:<% Function TimeZone() Set oShell = CreateObject("WScript.Shell") atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _ "Control\TimeZoneInformation\ActiveTimeBias" TimeZone = - oShell.RegRead(atb) / 60 End Function %>

ASP - 技术教程分类

ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部

ASP - 最热教程

查看ASP详细错误提示信息的图文设置方法 asp实现本周的一周时间列表的代码 asp取得数组中的最大值的方法 ASP实现URL编码 asp中把数据导出为excel的2种方法 ASP模拟POST请求异步提交数据的方法 asp 获取access系统表，查询等操作代码 asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些 ASP常用源代码的总结（下）

首页 / ASP / ASP常用函数:getpy()

ASP常用函数:getpy()

内容导读

内容图文

内容总结

内容备注

内容手机端

【ASP常用函数:getpy()】教程文章相关的互联网学习教程文章

ASP常用函数:IIF()

asp 采集程序常用函数分析

asp 小偷采集程序原理与常用函数方法

Asp函数介紹(37个常用函数)第1/2页

asp常用函数集合，非常不错以后研究第1/4页

推荐ASP中VBScript常用函数

ASP常用函数:ArrayToxml

ASP常用函数:ReplaceHTML

ASP常用函数:getpy()

ASP常用函数:Trace()

ASP常用函数:Delay()

ASP常用函数:CStrIP()

ASP常用函数:CLngIP()

ASP常用函数:XMLEncode

[转]ASP常用函数:TimeZone

ASP - 相关标签

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程