亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

其中,string=rp(string)令字符串string里的所有"變成"?

其中,string=rp(string)令字符串string里的所有"變成"?

小怪獸愛吃肉 2022-07-19 15:11:42
幫忙設計兩個ASP函數,例如rp(string),nrp(string)。令&變成&令<變成<令>變成>令空格變成 令回車變成<br>而string=nrp(string)是上面那個的逆運算。把*.asp文件發我郵箱吧[email protected]令&變成& a m p ;令<變成& l t ;令>變成& g t ;令空格變成& n b s p令回車變成<br>
查看完整描述

3 回答

?
幕布斯7119047

TA貢獻1794條經驗 獲得超8個贊

<%
function rp(string)
dim str
str=replace(string,chr(34),"&quot;")
str=replace(str,chr(38),"&amp;")
str=replace(str,chr(39),"&#39;")
str=replace(str,"<","&lt;")
str=replace(str,">","&gt;")
str=replace(str,chr(32),"&nbsp;")
str=replace(str,chr(10),"<br>")
str=replace(str,chr(13),"")
rp=str
end function
function nrp(string)
dim str
str=replace(string,"&quot;",chr(34))
str=replace(str,"&#39;",chr(39))
str=replace(str,"&lt;","<")
str=replace(str,"&gt;",">")
str=replace(str,"&nbsp;",chr(32))
str=replace(str,"<br>",chr(13)&chr(10))
str=replace(str,"&amp;",chr(38))'注意這一句必須放在最后,否則就像樓上的那樣,會出現意想不到的結果?
nrp=str
end function
%>
把以上的&符號替換為英文狀態下的&

查看完整回答
反對 回復 2022-07-24
?
動漫人物

TA貢獻1815條經驗 獲得超10個贊

Function rp(s)
Dim t
t = Replace(s, "&", "&amp;")
t = Replace(t, "<", "&lt;")
t = Replace(t, ">", "&gt;")
t = Replace(t, " ", "&nbsp;")
t = Replace(t, vbcrlf, "<br>") '這個是Windows換行符,vbcrlf
rp = t
End Function

Function nrp(s)
Dim t
t = Replace(s, "&amp;", "&")
t = Replace(t, "&lt;", "<")
t = Replace(t, "&gt;", ">")
t = Replace(t, "&nbsp;", " ")
t = Replace(t, "<br>", vbcrlf)
nrp = t
End Function


查看完整回答
反對 回復 2022-07-24
?
慕婉清6462132

TA貢獻1804條經驗 獲得超2個贊

主要就是為了 解決文本域 輸入回車后 在頁面能直接呈現。

查看完整回答
反對 回復 2022-07-24
  • 3 回答
  • 0 關注
  • 139 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號