style.asp

来自「电子公文传输管理系统」· ASP 代码 · 共 71 行

<% 
dim THCOLOR, TDCOLORD, TDCOLORL, TBCOLOR, BGCOLOR
THCOLOR = "#336699"		'表头颜色
TDCOLORD = "#D7E6FF"	'深色表格单元格颜色
TDCOLORL = "#D7E6FF"	'浅色表格单元格颜色
TBCOLOR = "#D7E6FF"		'表格边框颜色
BGCOLOR = "#FEF7ED"		'背景色


dim FIRSTNO, PERPAGE
FIRSTNO = 10	'首页显示新闻个数
PERPAGE = 10	'每页显示记录数

   function htmlencode(str)
    on error resume next
    dim result
    dim l
    if isnull(str) then
       htmlencode=""
       exit function
    end if

    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           'case "<"
	                'result=result+"&lt;"
	           'case ">"
	                'result=result+"&gt;"
	           case chr(34)
	                result=result+"&quot;"
	         '  case "&"
	                result=result+"&amp;"
	           case "'"
	                result=result+"''"
	           case chr(13)
	               result=result+"<br>"
	           case chr(9)
	                result=result+"&nbsp;"
	           case chr(32)	           
	                'result=result+"&nbsp;"
	                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 
       if err.number<>0 then err.clear
       htmlencode=result
   end function


function htmstrcode(str)
      strtxt=""
      strtxt=strtxt&replace(replace(replace(str,"<br>",chr(13)),"&quot;",chr(34)),"&nbsp;",chr(9))
      'strtxt=strtxt&replace(strtxt,"&quot;",chr(34))
      'strtxt=strtxt&replace(strtxt,"&nbsp;",chr(9))
       htmstrcode=strtxt
   end function


 %>