主頁(yè) > 知識(shí)庫(kù) > 用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)

用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)

網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)
%
function URLconvert(str)
convertstr=str
urlLocation=instr(convertstr,"http://")

if (urlLocation=0) and (mailLocation=0) then
URLconvert=convertstr
exit function
end if

if urlLocation>0 then
rightstr=str
Do while urlLocation>urlLocationend
urlLocation=instr(rightstr,"http://")
urlLocationend=InStrRev(rightstr,"http://")
finalstr=finalstrleft(rightstr,urlLocation-1)
midurlstr=mid(rightstr,urlLocation+1,1)
do while (asc(midurlstr)>=45) and (asc(midurlstr)=126)
loopint=loopint+1
midurlstr=mid(rightstr,urlLocation+loopint,1)
if midurlstr="" then exit do
loop
endURLstr=mid(rightstr,urllocation,loopint)
URLstr="a href="endURLstr">"endURLstr"/a>"
rightstr=mid(rightstr,urllocation+loopint)
finalstr=finalstrURLstr
loopint=1
Loop
end if
finalstr=finalstrrightstr

convertstr1=finalstr
finalstr=""
mailLocation=instr(convertstr1,"@")
if mailLocation>0 then
Do while mailLocation>mailLocationend
mailLocation=instr(convertstr1,"@")
mailLocationend=InStrRev(convertstr1,"@")
mainmidmailstr=mid(convertstr1,mailLocation+1,1)
midmailstr=mainmidmailstr
do while (asc(midmailstr)>=45) and (asc(midmailstr)=126)
loopint1=loopint1+1
midmailstr=mid(convertstr1,mailLocation-loopint1,1)
loop
firstSTR=mid(convertstr1,mailLocation-loopint1+1,loopint1-1)

finalstr=finalstrleft(convertstr1,mailLocation-loopint1)

midmailstr1=mainmidmailstr
do while (asc(midmailstr1)>=45) and (asc(midmailstr1)=126)
loopint2=loopint2+1
midmailstr1=mid(convertstr1,mailLocation+loopint2,1)
if midmailstr1="" then exit do
loop
secondSTR=mid(convertstr1,mailLocation,loopint2)

endmailstr=firstSTRsecondSTR
mailstr="a href=mailto:"endmailstr">"endmailstr"/a>"
finalstr=finalstrmailstr
convertstr1=mid(convertstr1,maillocation+loopint2)
loopint1=1
loopint2=1
Loop
end if
finalstr=finalstrconvertstr1
URLconvert=finalstr
end function
%>

您可能感興趣的文章:

ASP用JMail、CDO發(fā)送郵件
Jmail組件發(fā)送郵件之絕對(duì)能用的函數(shù)
asp jmail發(fā)郵件詳細(xì)解析
asp.net2.0實(shí)現(xiàn)郵件發(fā)送(測(cè)試成功)
Jmail 圖文安裝教程 asp在線發(fā)送郵件組件
ASP.Net郵箱發(fā)郵件實(shí)例代碼
.net jMail郵件發(fā)送(含抄送、密送、多發(fā)、日志記錄)實(shí)例代碼
asp.net發(fā)郵件的幾種方法匯總
Jmail發(fā)送郵件與帶附件亂碼解決辦法分享
asp.net發(fā)送郵件示例分享
asp.net發(fā)郵件示例
asp.net發(fā)送郵件實(shí)現(xiàn)方法
asp+JMAIL實(shí)現(xiàn)發(fā)送郵件

標(biāo)簽：蚌埠廣元衡水衢州江蘇大理棗莊萍鄉(xiāng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

佳木斯湛栽影视文化发展公司

用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)

QQ咨詢

電話咨詢