UC知道哪位高手能帮我看看这段ASP代码是什么意思？
来源：百度知道 编辑：UC知道 时间：2024/05/24 23:29:29
<%Function formatierung(strMessage)
'''' Dim strTemp
strTemp = Server.HTMLEncode(strMessage)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, vbCrLf, "<BR>" & vbCrLf, 1, -1, 1)
formatierung = strTemp
End Function
Function copyrights%>
'''' Dim strTemp
strTemp = Server.HTMLEncode(strMessage)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, vbCrLf, "<BR>" & vbCrLf, 1, -1, 1)
formatierung = strTemp
End Function
Function copyrights%>
<%
''''''下面的用了单引号的,后面的都是注释,不被运行.
Function formatierung(strMessage) ''''这里是定义一个函数.
'''' Dim strTemp
strTemp = Server.HTMLEncode(strMessage)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, " ", " ", 1, -1, 1)
'''' strTemp = Replace(strTemp, vbCrLf, "<BR>" & vbCrLf, 1, -1, 1)
formatierung = strTemp ''''函数返回值,凡是函数,必有返回值.
End Function '''''''函数定义结束.
Function copyrights
%>
--------