ybmcl.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:2k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
  2. <% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
  3. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
  4. <wml><%
  5. '====================================================================
  6. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  7. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  8. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  9. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  10. '====================================================================
  11. %> <!--#include file="conn.inc"-->
  12. <!--#include file="cnscu_sb.asp"-->
  13. <%Function UTF2GB(UTFStr) 
  14. Dim Dig 
  15. Dim GBStr 
  16. For Dig = 1 To Len(UTFStr) 
  17. If Mid(UTFStr, Dig, 1) = "%" Then 
  18. If Len(UTFStr) >= Dig + 8 Then 
  19. GBStr = GBStr & ConvChinese(Mid(UTFStr, Dig, 9)) 
  20. Dig = Dig + 8 
  21. Else 
  22. GBStr = GBStr & Mid(UTFStr, Dig, 1) 
  23. End If 
  24. Else 
  25. GBStr = GBStr & Mid(UTFStr, Dig, 1) 
  26. End If 
  27. Next 
  28. UTF2GB = GBStr 
  29. End Function 
  30. %>
  31. <head>
  32. <meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
  33. <meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
  34. </head>
  35. <card id="main" title="编码转换">
  36. <p>
  37. <% 
  38. uuurr=request("iidd")
  39. ffss=request("ffss")%>
  40. <%if ffss="0" then%>
  41. 原内容:<%=uuurr%><br/>
  42. 转换后:<%=UTF2GB(uuurr)%>
  43. <%elseif ffss="1" then%>
  44. 原内容:<%=uuurr%><br/>
  45. 转换后:<%=ConvChinese(uuurr)%>
  46. <%elseif ffss="2" then%>
  47. 原内容:<%=uuurr%><br/>
  48. 拼音:<%=uuurr%>
  49. <%elseif ffss="3" then%>
  50. 原内容:<%=uuurr%><br/>
  51. 转换后:<%=C16To2(uuurr)%>
  52. <%elseif ffss="4" then%>
  53. 原内容:<%=uuurr%><br/>
  54. 转换后:<%=C2To10(uuurr)%>
  55. <%elseif ffss="5" then%>
  56. 原内容:<%=uuurr%><br/>
  57. 转换后:<%=C10To2(uuurr)%>
  58. <%end if%>
  59. <br/>
  60. <a href="ybmzh.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回继续转换</a><br/>
  61. <a href="admin_index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回管理首页</a><br/>
  62. <a href="../index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站首页</a><br/>
  63. </p>
  64. </card>
  65. </wml>