网址和邮件地址的转换函数
<%
functionurlconvert (str)
converstr = str
urllocation = instr (convertstr, "http : //")
if (urllocation = 0) 및 (maillocation = 0)
urlconvert = convertstr
종료 기능
endif
ifurllocation <> 0then
Rightstr = str
Dowhileurllocation <> urllocationend
urllocation = instr (오른쪽, "http : //")
urllocationend = instrev (오른쪽, "http : //")
FinalStr = FinalStr & Left (Rightstr, urllocation-1)
midurlstr = mid (오른쪽, urllocation+1,1)
Dowhile (ASC (Midurlstr)> = 45) 및 (ASC (Midurlstr) <= 126)
loopint = loopint+1
midurlstr = mid (오른쪽, urllocation+loopint, 1)
ifmidurlstr = ""thenexitdo
고리
endurlstr = mid (오른쪽, urllocation, loopint)
urlstr = "<ahref ="& endurlstr & ">"& endurlstr & "</a>"
Rightstr = mid (오른쪽, urllocation+loopint)
FinalStr = FinalStr & urlstr
loopint = 1
고리
endif
FinalStr = FinalStr & Rightstr
ConvertStr1 = FinalStr
FinalStr = ""
maillocation = inst (convertstr1, "@")
ifmaillocation <> 0then
dowhilemaillocation <> maillocationend
maillocation = inst (convertstr1, "@")
maillocationend = instrev (convertstr1, "@")
MainMidMailstr = mid (convertstr1, maillocation+1,1)
midmailstr = mainmidmailstr
Dowhile (ASC (Midmailstr)> = 45) 및 (ASC (Midmailstr) <= 126)
loopint1 = loopint1+1
midmailstr = mid (convertstr1, maillocation-loopint1,1)
고리
FirstStr = mid (convertstr1, maillocation-loopint1+1, loopint1-1)
FinalStr = FinalStr & Left (Convertstr1, Maillocation-loopint1)
midmailstr1 = mainmidmailstr
Dowhile (ASC (MidMailStr1)> = 45) 및 (ASC (MidMailSt1) <= 126)
loopint2 = loopint2+1
midmailstr1 = mid (convertstr1, maillocation+loopint2,1)
ifmidmailstr1 = ""thenexitdo
고리
Secondstr = mid (convertstr1, maillocation, loopint2)
endmailstr = firststr & secondstr
mailstr = "<ahref = mailto :"& endmailstr & ">"& endmailstr & "</a>"
FinalStr = FinalStr & Mailstr
convertstr1 = mid (convertstr1, maillocation+loopint2)
loopint1 = 1
loopint2 = 1
고리
endif
FinalStr = FinalStr & ConvertStr1
urlconvert = FinalStr
최종 기능 장애
%>