<%@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 username:username=KS.S("UserName")
if ks.isnul(username) then ks.die ""
dim rs:set rs=conn.execute("select distinct b.classid,b.FolderName,b.ClassBasicInfo from KS_JYCX a inner join KS_Class B ON A.bigclassId=b.id where a.username='" & UserName &"'")
dim str
if rs.eof and rs.bof then
str="ÔÝÎ޾ӪƷÅÆ!"
else
do while not rs.eof
dim img:img=split(rs(2)&"||||","||||")(0)
if ks.isnul(img) then img="/images/nopic.gif"
str=str &"![]()
" & rs(1) &"
"
rs.movenext
loop
end if
rs.close
set rs=nothing
ks.die "document.write('" & str &"');"
End Sub
End Class
%>