Allen 2009-12-26 15:36:10 19165 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