showbody.asp

来自「asp的新闻网站」· ASP 代码 · 共 54 行

<%
sub ShowBody(Str)
    
    dim result
    dim l
    dim i
    
    if  str<>"" then
      bb=replace(str,"<","&lt;")
      bb=replace(bb,">","&gt;")
      aa=replace (bb,chr(13)+chr(10),"<br>")
      aa=replace(aa," ","&nbsp;")
      str=aa
    l=Len(str)
    result=""
		for i = 1 to l
	    select case mid(str,i,1)
	           case chr(13)
	                result=result+"<br>"
	           case chr(9)
	                result=result+"&nbsp;&nbsp;&nbsp;&nbsp;"
	           case chr(32)	           
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case else
	                result=result+mid(str,i,1)
         end select
       
       next 
       
       response.write result
    else
       response.write " "
     end if 
   end sub
   '显示更新时间
    sub showtime(stime)
      if stime<>"" then '时间
      stime=replace(stime,"-","/")
      stime=replace(stime," ","/")
      stime=left(stime,len(stime)-3)
      stime=right(stime,len(stime)-5)
      stime="("&stime&")"
      end if
      Response.Write "<font color='#000099'size=1>"&derivation&stime&"</font>"
   end sub
%>