ASP的自定义函数[1]

Kiyo • • ASP • 30 阅读

Rem 汉字判断
function isChinese(para)
on error resume next
dim str
dim i
if isNUll(para) then 
isChinese=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isChinese=false
exit function
end if
for i=1 to len(str)
c=asc(mid(str,i,1))
if c>=0 then 
isChinese=false 
exit function
end if
next
isChinese=true
if err.number<>0 then err.clear
end function
%>

 

如：
if not isChinese(request("name")) then
errmsg=errmsg+"
"+"

  • 用户名应为汉字"
    founderr=true
    else
    username=trim(request("name"))
    end if

     

    这样更简单
    for(i=0;i char=realname.charCodeAt(i); 
    if(!(char>255)){ 
    alert("真实姓名应为汉字!");
    userform.realname.focus();
    return false;
    }
    }

    --------------------------------------------------------------------------------

    -- 
    替换指定文件内字符串的函数
    <%
    function FSOlineedit(filename,Target,String)
    Dim objFSO,objCountFile,FiletempData
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
    FiletempData = objCountFile.ReadAll
    objCountFile.Close
    FiletempData=Replace(FiletempData,Target,String)
    Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
    objCountFile.Write FiletempData 
    objCountFile.Close
    Set objCountFile=Nothing
    Set objFSO = Nothing
    End Function
    response.write FSOlineedit("test.txt","世界","明天是一个好天去")
    %>
    --------------------------------------------------------------------------------

    -- 
    获取中文字符串拼音首字母串的函数
    <%

    response.write ""
    if request.form("content")="" then
    response.write "

    __

    "
    else
    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>=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
    function getpy(str)
    for i=1 to len(str)
    getpy=getpy&getpychar(mid(str,i,1))
    next
    end function
    content=request.form("content")
    response.write "

    "&getpy(content)&chr(10)
    response.write "

    返回"
    end if
    %>

    --------------------------------------------------------------------------------

    • 版权声明：
    作者：Kiyo
    链接：https://www.wkiyo.cn/html/2008-01/i135.html
    来源：Kiyo's space
    文章版权归作者所有，未经允许请勿转载。

    THE END
    分享
    二维码
    < <上一篇
    下一篇>>