ΆΜΠΕΝ¨Φͺ

<% function CheckStr(str) dim tstr,l,i,ch l=len(str) for i=1 to l ch=mid(str,i,1) if ch="'" then tstr=tstr+"'" end if tstr=tstr+ch next CheckStr=tstr end function if CheckStr(Request.Cookies("HX_USER")("User_Name"))<>"" then sdx=conn.execute("select count(*) from [message] where incept='"&CheckStr(Request.Cookies("HX_USER")("User_Name"))&"' and flag=0")(0) if sdx>0 then Response.Write("") Response.Write(""&sdx&"") end if conn.close set conn=nothing %>