html_code.asp

来自「提供企业bug的追踪流程」· ASP 代码 · 共 34 行

<%
function encodestr(str)
	str=trim(str)
	str=replace(str,"&nbsp;","　")
	str=replace(str,"&lt;","<")
	str=replace(str,"&gt;",">")
	str=replace(str,"""","'")
	str=replace(str,"&quot;","""")
	str=replace(str,vbCrLf&vbCrlf,"</p><p>")
	str=replace(str,vbCrLf,"<br>")
	encodestr=replace(str,"  ","　")
end function

function UBBCode(strContent)
if trim(strContent)<>"" then
	strContent=encodestr(strContent)
	else
	strContent="&nbsp;"
	end if
	UBBCode=strContent
end function

function cutstr(mtitle,mlength)
	if len(mtitle)>mlength then
	madd="..."
	else
	madd=""
	end if
	mtitle=mid(mtitle,1,mlength)
	cutstr=mtitle+madd
end function

%>