<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
<%
'******************************************************************
' Software name:KesionCMS X1.0

'******************************************************************
Dim KSCls
Set KSCls = New SiteMaps
KSCls.Kesion()
Set KSCls = Nothing

Class SiteMaps
        Private KS, ID
		Private Sub Class_Initialize()
		 If (Not Response.IsClientConnected)Then
			Response.Clear
			Response.End
		 End If
		  Set KS=New PublicCls
		End Sub
        Private Sub Class_Terminate()
		 Call CloseConn()
		 Set KS=Nothing
		End Sub
		Public Sub Kesion()
		  dim tid:tid=KS.S("Tid")
		  dim id:id=ks.chkclng(ks.s("id"))
		  'Dim RS:Set rs=conn.execute("select picurls from KS_Photo Where otid='" & Tid &"'")
		  Dim RS:Set rs=conn.execute("select picurls from KS_Photo Where oid=" & id &"")
		  Dim num:num=0
		  do while not rs.eof
		   num=num+Ubound(split(RS(0),"|||"))+1
		  rs.movenext
		  loop
		  rs.close
		  set rs=nothing
		  ks.die "document.write('" & num &"');"
				   
				   
		End Sub
		
		
End Class
%>