func.dat

来自「简单留言簿」· DAT 代码 · 共 39 行

<%


guestdata="guestdata"
replydata="replydata"

set fsobj=server.createobject("scripting.filesystemobject")


FUNCTION txtToURL(tekst)
Tekst_temp = tekst
Tekst_temp = Replace(Tekst_temp,"<%","&lt;%")
Tekst_temp = Replace(Tekst_temp,"<script","&lt;script")
txtToURL = Tekst_temp
END FUNCTION

Function StrLen(str)
    lens=0
    For I = 1 To  Len(Str)
    strTest = (Mid(str, I, 1))
        If Asc(strTest) > 0 Then            '不是太精确，反正够用
            lens = lens + 1
        Else
            lens = lens + 2
        End If
    Next
    StrLen=lens
End Function

FUNCTION txtToURLs(tekst)
Tekst_temp = tekst
Tekst_temp = Replace(Tekst_temp,chr(10)&chr(13),"<br>")
Tekst_temp = Replace(Tekst_temp,chr(10),"<br>")
Tekst_temp = Replace(Tekst_temp,chr(13),"<br>")
Tekst_temp = Replace(Tekst_temp,"<br><br>","<br>")
txtToURLs = Tekst_temp
END FUNCTION

%>