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

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

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

　　都来试试看吧~~

　　试验祝福网页：http://www.taoyoyo.net/clab/pass/StrToAsc_1.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

%>

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