<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires=0
content=trim(Request.Form("viewbody"))
title=trim(Request.Form("viewtitle"))
%>
<html>
<head>
<title>预览</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 

.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 

A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff0000}

A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff6600;}

A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
-->
</style>
</head>

<body bgcolor="#CFCDC7" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="460" valign=top>
  <tr> 
    <td bgcolor="#CFCDC7" valign=top> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align=center>
        <tr> 
          <td align=center height=10>&nbsp;</td>
        </tr>
        <tr> 
          <td valign=top class=bt1 style="line-height:150%">
			<%=checkstr(content)%>
			<%'=Server.HTMLEncode(checkstr(content))%>
          </td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
function checkstr(str)

    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")

    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>&nbsp;&nbsp;&nbsp;&nbsp;")

	str="&nbsp;&nbsp;&nbsp;&nbsp&nbsp;"+str
    
	checkstr=str
end function	
%>	