<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit%> <% '****************************************************************** ' 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 id:id=ks.chkclng(ks.s("id")) Dim RS:Set rs=conn.execute("select top 1 picurls from KS_Photo Where ks_type like '%³΅Ιν%' and oid=" & id) dim picurls:picurls="" if not rs.eof then picurls=rs(0) end if rs.close if not ks.isnul(picurls) then dim arr:arr=split(picurls,"|||") dim i,l l=ubound(arr) if l>2 then l=2 dim bigstr,smallstr for i=0 to l dim aarr:aarr=split(arr(i),"|") if i=0 then bigstr="

" else bigstr=bigstr & "

" end if if i=0 then smallstr="

" else smallstr=smallstr & "

" end if next dim str:str="

" & bigstr &"

" str=str & "

"&smallstr &"

" end if if ks.isnul(str) then rs.open "select top 1 photourl from ks_u_mtcxt where id=" & id,conn,1,1 if not rs.eof then str="" end if end if set rs=nothing if ks.isnul(str) then str="" end if ks.die "document.write('" &str &"');" End Sub End Class %>