');
Allen 2009-12-26 6892 3 0 0 0

 

  前两天,忽然对字符串与ascii转化有了兴趣,特地编写了以下代码,可以实现字符串与ASCII码的转化,很简单的~~代码贴在下面了。

  由此做了一个“ 传音墙”的页面:http://www.taoyoyo.net/clab/pass/StrToAscW.asp

  你可以把对朋友想说的话,写在页面中,然后把生成的地址,发送给你的朋友!

  都来试试看吧~~

  试验祝福网页:http://www.taoyoyo.net/clab/pass/StrToAsc_1.asp

 

 
ASP代码:
 
<%
^------字符串转化为ASCII
Function StrToAsc(pStr, pSymbol)
 
  Dim pAsc
  Dim i
  
  pAsc = ""
  
  ^逐字符转化ASCII
  For i = 1 To Len(pStr & "")    
    pAsc = pAsc & Asc(Mid(pStr, i, 1)) & pSymbol
^if pDebug="1" then response.write(i & "|" & pAsc & "<br />")
  Next
  
  StrToAsc = pAsc
  if pDebug="1" then response.write("=========" & "|" & StrToAsc & "<br />")
  
End Function
 
^------ASCII转化为字符串
Function AscToStr(pAsc, pSymbol)
  
  Dim i, j
  Dim pStr
  Dim pTxt
  
  pStr = ""
  j = 0
  
  For i = 1 To Len(pAsc)
    If Mid(pAsc, i, 1) = pSymbol Then
      ^分隔取得每段ASCII码
      pTxt = Mid(pAsc, j + 1, i - 1 - j)
      ^转化每段ASCII码
      pStr = pStr & Chr(pTxt)
      j = i
    End If
  Next
  
  AscToStr = pStr
 
End Function
%>
 
VB代码:
 
Function StrToAsc(pStr, pSymbol As String)
 
  Dim pAsc As String
  Dim i As Integer
  
  pAsc = ""
  
  For i = 1 To Len(pStr & "")
    pAsc = pAsc & Asc(Mid(pStr, i, 1)) & pSymbol
  Next
  
  StrToAsc = pAsc
  
End Function
 
Function AscToStr(pAsc, pSymbol As String)
  
  Dim i, j As Integer
  Dim pStr As String
  Dim pTxt As String
  
  pStr = ""
  j = 0
  
  For i = 1 To Len(pAsc)
    If Mid(pAsc, i, 1) = pSymbol Then
      pTxt = Mid(pAsc, j + 1, i - 1 - j)
      pStr = pStr & Chr(pTxt)
      j = i
    End If
  Next
  
  AscToStr = pStr
 
End Function

【版权声明】
本文为原创,遵循CC 4.0 BY-SA版权协议!转载请附上原文出处链接及本声明。
原文链接:https://tdlib.com/am.php?t=nNNv80ksfYNJ
Tag: VB技巧 ASP知识 网页编程 TTTBLOG
我也要发一个   ·   返回首页     ·   返回[Html]   ·    前一个  ·   下一个
评论
Allen#1.  Allen at 2009-12-26 21:03:24(Normal)  分享链接
| 774 | 网络砖家 | 2009-12-26 21:03:24 | [email protected] | http://www.bestrue.cn |
-----
哇,哈,有遇到代码达人了。。。
Allen#2.  Allen at 2009-12-27 17:51:45(Normal)  分享链接
| 780 | zwwooooo | 2009-12-27 17:51:45 | [email protected] | http://zww.me |
-----
这个不太懂,我飘过
Allen#3.  Allen at 2009-12-28 08:59:49(Normal)  分享链接
| 782 | Hobo | 2009-12-28 08:59:49 | [email protected] | http://www.nethobo.com |
-----
如果发的文章过长,GET方式能传下吗?[REVERT=taoether 于 2009-12-28 16:46:36 回复]这个就看地址是不是有长度限制了~~但那个传音墙用了数据库,后面只是用时间和名字加了个ID。 第二个测试的祝福,没有用数据库,完全用转换名字生成网址~~[/REVERT]
顶部     1/1 
未登录,
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[Html]   ·   返回顶部