<!--#include file="../conn/conn2.asp" -->
<%
H_id=request.QueryString("H_id")

Function Remove_HTML(Str) 
        Dim ilen1, ilen2 
        Do While InStr(1, Str, "<", 1) >0 
                ilen1 = InStr(1, Str, "<", 1) 
                ilen2 = InStr(1, Str, ">", 1) 
                Str = Left(Str, ilen1 -1) & Mid(Str, ilen2 + 1) 
        Loop 
        Remove_HTML = Str 
End Function 

Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from html where H_id="&H_id
rs.open sql,conn,1,1
a=rs("H_content")
s=Remove_HTML(rs("H_content"))
s=replace(s,vbcrlf,"")
s=replace(s,"	","")
rs.close
set rs=nothing

%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>±íµ¥ÏµÍ³</title>
<style type="text/css">
			body { 
			margin:0px;
			<%if left(s,4)="http" then%>
			    OVERFLOW:hidden;
				<%else%>
			  OVERFLOW:auto;
				<%end if%>
				background-color: transparent; 
				font-size:13px;
				line-height:180%;
				font-family:"Î¢ÈíÑÅºÚ";
				
			}
			a{color:#0066ff; text-decoration:none;}
			a:hover {color:#0033ff;text-decoration: underline}
</style>
</head>
<body>
<%
if left(s,4)="http" then
response.Write "<iframe src='"&s&"' frameBorder=0  width='100%' height='100%'></iframe>"
else
response.Write "<div style='margin:10px;'>"&a&"</div>"
end if
%>
</body>
</html>