ASP中的全角和半角之间的转化
来源：asp之家 发布时间：2008-06-06 13:34:00
标签：全角,半角,换行,函数,asp
ASP中的全角和半角转化函数，使用方法，传入要转换的字符给str即可，flag设置要转换的类型。
<％
Function DBC2SBC(Str, flag)
rem 全角半角转换函数
rem flag=-1时进行半角转全角
rem flag=0时进行半角全角互转
rem flag=1时进行全角转半角
Dim i, sStr
If Len(Str)<= 0 Then Exit Function
DBC2SBC = ""
For i = 1 To Len(Str)
sStr = Asc(Mid(Str, i, 1))
Select Case flag
Case -1
If sStr>0 And sStr<= 125 Then
DBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) -23680)
Else
DBC2SBC = DBC2SBC & Mid(Str, i, 1)
End If
Case 0
If sStr>0 And sStr<= 125 Then
DBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) -23680)
Else
DBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) + 23680)
End If
Case 1
If sStr<0 Or sStr>125 Then
DBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) + 23680)
Else
DBC2SBC = DBC2SBC & Mid(Str, i, 1)
End If
End Select
Next
End Function
％>
测试代码：
key="关键词：asp之家 www.aspxhome.com"
response.write "<b>"&key&"</b>"
response.write "<br>半角转全角： "&DBC2SBC(key,-1)
response.write "<br>半角全角互转： "&DBC2SBC(key,0)
response.write "<br>全角转半角： "&DBC2SBC(key,1)
输入：
0
投稿猜你喜欢
这个小程序可以自己设定行数和列数进行图片切割import osfrom PIL import Imagedef splitimage(src- Sqlserver 获取每组中的第一条记录在日常生活方面，我们经常需要记录一些操作，类似于日志的操作，最后的记录才是有效数据，而且可能它们属
- 概述在实践中，我们发现上述的代码重复率非常高，新增和修改都费力，并且是没技术含量的体力活。 但又必须要这样做，不适合以公共函数的形式重用，为
- asp.net MVC中Action参数不只是一些基本类型，也支持实体参数。那么从客户端传来的数据如何映射或转换成实体对象呢？就是通过实体绑
- 本文实例讲述了PHP基于cookie与session统计网站访问量并输出显示的方法。分享给大家供大家参考，具体如下：<?php$f_o
- python txt中的文件,逐行读取并且每行赋值给变量最近想做自动化，想到可能会用到很多账号密码，所以想到了用参数化，但是一个用户，一个密
- jTopo 帮助说明网站http://www.jtopo.com/index.html使用例子：http://www.jtopo.com/d
- 运行效果完整代码from tkinter import *from tkinter.filedialog import *from tkin
- 前言：K8s也提供API接口，提供这个接口的是管理节点的apiserver组件，apiserver服务负责提供HTTP API，以便用户、其
- 一、导入库import randomimport time二、注册用户我们用变量与input实现name = str(input('
- 在之前的一篇文章 Python利用 AIML 和 Tornado 搭建聊天机器人微信订阅号 中用 aiml 实现了一个简单的英文聊天机器人订
- windows环境下python2.7 脚本指定一个参数作为要检索的字符串例如： >find.py ./ hello# coding=
- 1.建表脚本1.1.建表DROP TABLE IF EXISTS `sys_region`;CREATE TABLE `sys_region
- 同志们，经过不懈的努力，查了各种文档，终于鼓捣出了一个稍微像样一点的node项目，当然如果直接拿去项目里用，这个demo还太简单，毕竟一个完
- 本文实例为大家分享了利用python和OpenCV实现图像拼接，供大家参考，具体内容如下python+OpenCV实现image stitc
- 我们提倡无论何时都尽可能地使用CSS,这样我们更容易取得成功.现在浏览器对CSS的支持已经非常好,肯定足以让你用来控制你的网页布局与排版.但
- 1 开通云上的mysql经过询价，我发现阿里云的数据库是比较便宜的，新人购买非常划算。对于爱学习的博主来说，果断购买一个。按照操作指引购买后
- 前言今天，一起用 Python 来理一理红楼梦里的那些关系不要问我为啥是红楼梦，而不是水浒三国或西游，因为我也鉴定的认为，红楼才是无可争议的
- 惊现！表面下的隐藏信息——浅谈信息可视化1910年，病卧床上的魏格那（德国气象学家，以“大陆漂移学说”闻名），无意地注视着墙上的世界地图……
- Go 搭建一个简单 WebSocket 服务端代码例子 test.go, 如下：package mainimport ( "fmt
