<% data_path=""  %>
<!--#include file="conn/conn.asp"-->
<%

Function changechr(fString)
If Not IsNull(fString) Then
fString = trim(fString)
fString = replace(fString, "--", "〞〞")  
fString = replace(fString, "%20", "")    
fString = replace(fString, "==", "")     
fString = replace(fString, "&gt;", ">")
fString = replace(fString, "&lt;", "<")
fString = Replace(fString, CHR(32), " ")		 
fString = Replace(fString, CHR(9), " ")			 
fString = Replace(fString, CHR(39), "&#39;")	 
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
changechr = fString
End If
End Function
'--------------------------------------------------------------------
'ci=1枑尨撈蔚壽敕厙桴˙ci=2壽敕厙桴;ci=0淏都
if weboff_on="" then
 weboff_on=0
end if
ci=cint(weboff_on)
if ci=1 then
 response.Write("document.write('<table border=1 bgcolor=#E7E7E7 bordercolor=#DDDDDD align=center cellpadding=0 cellspacing=0 width="&HOPE_PageWidth&" valign=top><tr><td valign=top>"&changechr(Stopreadme)&"</td></tr></table>')")

elseif ci=2 then
 response.Write("document.write('<script>window.location.href="""&HOPE_InstallDir&"netclosenote.asp"";</script>')")
 else
 response.Write("")
end if

 
%>