<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
'快问知道
Dim AskD,inHtml
Set AskD = Server.CreateObject("KwAsk.FunAsk")
opendb
	set AskD.myConn =conn
	AskD.myPredb =predb
	AskD.Getsetting()
	AskD.GetUserRole()
	siteinfo=AskD.siteinfo
	setting=AskD.setting
	AskD.GetTemplate("T-zhuan.html")
    inHtml=RexHtml(AskD.tempbody)
    inHtml=RexHtml_IF(inHtml)
    Response.Write(inHtml)
	set AskD.myConn =Nothing
closedb	
Set AskD = Nothing


Function zhuanlist()
  Dim rs,face,zclass,rs1,str
  Set rs=conn.execute("select id,userid,zclass,face from "&predb&"user where usertype=1 order by id desc")
  do while not rs.eof
  face=rs("face")
  zclass=rs("zclass")&","
  zclass=Left(zclass,instr(zclass,",")-1)
  if face&""="" then face="Face/info.gif"
  
  str=str&"<div class=""zhuanp"">"&vbcrlf
  str=str&"<div class=""zbord"">"&vbcrlf
  str=str&"<img src=""UploadFile/"&face&""" width=""90"" height=""120"" border=""0"" alt=""""/>"&vbcrlf
  str=str&"</div>"&vbcrlf
  str=str&"<div class=""ztxt""><a href=""user/userinfo.asp?id="&rs("id")&""" target=""_blank"">"&AskD.Leftstr(rs("userid"),12)&"</a></div>"&vbcrlf
  str=str&"<div class=""ztxt"">"&vbcrlf

		   set rs1=conn.execute("select classname from "&predb&"class where classid="&zclass)
			IF setting(34)=0 Then
  str=str&"<a href=""List.asp?classid="&zclass&""" target=""_blank"">"&AskD.Leftstr(rs1("classname"),12)&"</a>"&vbcrlf
			Else
  str=str&"<a href=""List-"&zclass&".html"" target=""_blank"">"&AskD.Leftstr(rs1("classname"),12)&"</a>"&vbcrlf
			End IF
		   set rs1=nothing
  str=str&"</div>"&vbcrlf
  str=str&"</div>"&vbcrlf
  
   rs.movenext
   loop
   set rs=nothing
   
   zhuanlist=str
End Function
%>