<%
'生成团队列表静态方法
Function html_To_Team(ID, ke01)
	dim newHtml
	set newHtml = new Html

	Call SiteInfo()
	Set rs = server.CreateObject("adodb.recordset")
	rs.open "select * from keyicms_Team where ID="&ID,conn,1,2
	TeamName = rs("TeamName")
	ClassSeo = rs("ClassSeo")
	Content = rs("Content")
	AddTime = rs("AddTime")
	UpdateTime = rs("UpdateTime")
	Specialty = rs("Specialty")
	TeamBrief = rs("TeamBrief")
	Professional = rs("Professional")
	BigPic = rs("BigPic")
	OtherPic = rs("OtherPic")
	OtherDes = rs("OtherDes")
	
	SortID = rs("SortID")
	SortName = Conn.execute("select * from keyicms_TeamSort where ID="&rs("SortID"))("SortName")
	
	If rs("SeoTitle") <> "" Then
		SeoTitle = rs("SeoTitle")
	Else
		SeoTitle = rs("TeamName")
	End If
	If rs("SeoKeywords") <> "" Then
		SeoKeywords = rs("SeoKeywords")
	Else
		SeoKeywords = rs("TeamName")
	End If
	If rs("SeoDescription") <> "" Then
		SeoDescription = rs("SeoDescription")
	Else
		SeoDescription = rs("TeamName")
	End If
	rs.close : set rs = nothing
	If Ke01 = "PC" Then Flag = "ViewFlag"
	If Ke01 = "Mobile" Then Flag = "MobileFlag"

	set rs = server.CreateObject("adodb.recordset")
	rs.open "select top 1 * from keyicms_Team where ID<" & ID & " and "&Flag&" Order by ID desc", Conn, 1, 2
	if rs.eof then
		PrevLink = "#" : PrevName = "暂无"
	else
		PrevLink = rs("ClassSeo") & Separated & rs("ID") & "." & HTMLName : PrevName = rs("TeamName")
	end if
	rs.close
	rs.open "select top 1 * from keyicms_Team where ID>" & ID & " and "&Flag&" Order by ID asc", Conn, 1, 2
	if rs.eof then
		NextLink = "#" : NextName = "暂无"
	else
		NextLink = rs("ClassSeo") & Separated & rs("ID") & "." & HTMLName : NextName = rs("TeamName")
	end if
	rs.close : set rs = nothing

	If Ke01 = "PC" Then
		replace_code = ReadFromUTF(TemplatePath&"/html/TeamView.dwt","utf-8")
		FilePath = "/"&TeamDir&"/"&ClassSeo&Separated&ID&"."&HTMLName&""
		TemplatePath = TemplatePath
	End If
	If Ke01 = "Mobile" Then
		replace_code = ReadFromUTF(mTemplatePath&"/html/TeamView.dwt","utf-8")
		FilePath = "/m/"&TeamDir&"/"&ClassSeo&Separated&ID&"."&HTMLName&""
		TemplatePath = mTemplatePath
	End If

	If SiteStatus Then
		with newHtml
			.ReadFromUTF TemFilePath & "/TeamView.dwt", "utf-8"
			.Include()
			.Position SortID, 8
			.ReplaceCommon()
			.ReplacePic OtherPic, OtherDes

			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SortName}", SortName)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:ID}", ID)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:TeamName}", TeamName)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:Specialty}", Specialty)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:TeamBrief}", TeamBrief)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:Professional}", Professional)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:BigPic}", BigPic)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SortID}", SortID)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:Content}", Content)

			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SeoTitle}", SeoTitle)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SeoKeywords}", SeoKeywords)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SeoDescription}", SeoDescription)
			
			newHtml.replace_code = ParseTime(newHtml.replace_code, AddTime, "AddTime")
			newHtml.replace_code = ParseTime(newHtml.replace_code, UpdateTime, "UpdateTime")
	
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:PrevName}", PrevName)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:PrevLink}", PrevLink)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:NextName}", NextName)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:NextLink}", NextLink)

			.KE01_If()

			If Ke01 = "PC" Then newHtml.replace_code = newHtml.replace_code & ConstJs
		end with
	Else
		newHtml.replace_code = ExplainJS
	End If
	newHtml.WriteToUTF(FilePath)
	set newHtml = nothing
End Function
%>