<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asa"-->
<!--#include file="inc/zzjyz.asp"-->
<!--#include file="home/index.htm"-->

<% 
If Left(Sys_close,1)=1 Then response.write "<BR>"&ShowTable("提示信息","<CENTER>本站暂时关闭，原因："&Right(Sys_close,Len(Sys_close)-1)&"</CENTER>",""): response.End : End If
'=====================================
'这里开始进行函数定义。具体可以参考文档，也可以根据需要进行修改。
'如果需要定制，可以联系站长加油站（有偿服务）。
'如果需要站长加油站协助安装，也可以联系（有偿服务）。
'=====================================

'*************************************
'flash幻灯读取。
'*************************************
Function home_PicFlash(swf_width,swf_height,boardid)
	If swf_width="" Then swf_width=280
	If swf_height="" Then swf_height=222
	GetSonSqlStr=""
	sqlStr=""
	If boardid<>0 Then
		GetSonSqlStr=GetBoardSonStr(BoardID)
		sqlStr="and (boardid="&boardid&" "&GetSonSqlStr&" )"
	End If

set rs1=server.CreateObject("adodb.recordset")
	Rs1.open"select top 5 Id,title,picurl From "&bbstable&" where ischeck=1 and picurl<>'http://' and picurl<>'' "&sqlStr&" order by addtime Desc,id desc",conn,1,1
	if not rs1.eof then
		while not rs1.eof
			title_array=title_array&trim(TitleLeft(rs1("title"),30))&"|"
			pic_array=pic_array&trim(rs1("picurl"))&"|"
			id_array=id_array&"ShowNews.asp?id="&trim(rs1("ID"))&"|"
		Rs1.MoveNext
		wend
	else
		title_array="暂无幻灯"  
		pic_array="images/zanwu.jpg"
		id_array="/"
	end If
	If right(title_array,1)="|" Then title_array=Left(title_array,len(title_array)-1)
	If right(id_array,1)="|" Then id_array=Left(id_array,len(id_array)-1)
	If right(pic_array,1)="|" Then pic_array=Left(pic_array,len(pic_array)-1)
	rs1.close 
	Set rs1=Nothing

	'flash幻灯调用，picflash函数来自function。
	home_PicFlash=picflash(swf_width,swf_height,"",""&pic_array&"",""&id_array&"",""&title_array&"")
End Function
'*************************************
'缩略图展示函数。
'*************************************
Function home_picshow(pic_width,pic_height,pic_num,pic_boardid,pic_isTitle)
	TempStr=""
	If pic_width="" Then pic_width=153
	If pic_height="" Then pic_height=95
	If pic_num="" Then pic_num=5
	GetSonSqlStr=""
	sqlStr=""
	If boardid<>0 Then
		GetSonSqlStr=GetBoardSonStr(BoardID)
		sqlStr="and (boardid="&boardid&" "&GetSonSqlStr&" )"
	End If

	set rs1=server.CreateObject("adodb.recordset")
		Rs1.open"select top 10 Id,title,picurl From "&bbstable&" where ischeck=1 and picurl<>'http://' and picurl<>'' "&sqlStr&" order by addtime Desc,id desc",conn,1,1
		if not rs1.eof then
			while not rs1.eof
				TempStr=TempStr&"<li><a href=""ShowNews.asp?id="&trim(rs1("ID"))&""" target=""_blank""><img src="""&trim(rs1("picurl"))&""" width="&pic_width&" height="&pic_height&" alt="""&trim(TitleLeft(rs1("title"),40))&"""/></a><p><a href=""ShowNews.asp?id="&trim(rs1("ID"))&""" target=""_blank""><font color=>"&trim(TitleLeft(rs1("title"),20))&"</font></a></p></li>"
			Rs1.MoveNext
			wend
		else
			TempStr="暂无图片"
		end If
		rs1.close 
	Set rs1=Nothing
home_picshow=TempStr
End Function


'*************************************
'横向导航菜单
'*************************************
Function home_BoardList(Ast)
	If Not IsArray(Arr_Category) Then GetBoardCache()
	if UBound(Arr_Category,1)=0 then TempStr=TempStr&"<li>还没有分类</li>":exit Function
	If Ast="" Then '如果为空，就读取大分类
		For k=0 To ubound(Arr_Category,2)
			If Arr_Category(5,k)=0 Then  
				TempStr=TempStr&"<li><a href="""&list_page_name&"?boardid="&Arr_Category(1,k)&""">"&Arr_Category(0,k)&"</a></li>"
			End If 
		Next
	Else '否则，请提交分类序列号，1,2,5,8,11格式。
		If InStr(Ast,",")>0 Then Ast_array=Split(Ast,",")
		For i=0 To UBound(Ast_array)
			oneboardid=Ast_array(i)
			For k=0 To ubound(Arr_Category,2)
				If Int(Arr_Category(1,k))=Int(oneboardid) Then  
					TempStr=TempStr&"<li><a href="""&list_page_name&"?boardid="&Arr_Category(1,k)&""">"&Arr_Category(0,k)&"</a></li>"
				End If 
			Next
		Next 
	End If 
	home_BoardList=TempStr&"<li><a href="""&list_page_name&""">全部分类</a></li>"
End Function 

'*************************************
'会员调用函数
'*************************************
Function home_dyhy(ltype,num)
	home_dyhy=""
	Select Case ltype
		Case "new"
			orderby="order by regtime Desc,ID Desc"
		Case "top"
			orderby="order by umoney Desc,ID Desc"
	End Select
	If isnull(num) or num="" then num=10
	If Not IsNumeric(num) Then num=10
	set rs1=server.CreateObject("adodb.recordset")
		Rs1.open"select top "&num&" * From "&usertable&" "&orderby&"",conn,1,1
		SQLQueryNums=SQLQueryNums+1
			if not rs1.eof then
				while not rs1.eof
					home_dyhy=home_dyhy&"<LI><span><a><font color=""#b5cde6"">积分　["&rs1("umoney")&"]</font></a></span><A href=""user.asp?Action=infoshow&username="&rs1("username")&""" target=_blank>"&rs1("username")&"</A></LI>"
				Rs1.MoveNext
				wend
			else
				home_dylist=" <LI> 暂无信息</LI>"    
			end if
	   rs1.close
	   set rs1=nothing
End Function

'*************************************
'头条调用函数------------------具体参数可以自行修改sql语句。
'*************************************
Function home_dytop()
	TempStr=""	
        set rs1=server.CreateObject("adodb.recordset")
		Rs1.open"select top 1 * From "&bbstable&" where istop=2 order by addtime Desc,id desc",conn,1,1
		SQLQueryNums=SQLQueryNums+1
			if not rs1.eof then
				TempStr="<dl><dt><a href=ShowNews.asp?id="&rs1("id")&"  target=""_blank""><font color=ff6600>"&titleleft(rs1("title"),46)&"</font></a></dt><dd class=""text"">"&titleleft(RemoveUBB(rs1("content")),180)&"</dd></dl>"
				Rs1.MoveNext
			else
				TempStr=" <LI> 暂无信息</LI>"    
			end if
	   rs1.close
	   set rs1=Nothing
	home_dytop=TempStr
End Function

'=====================================
'asp函数定义到此结束，下面调用了home页面的模板，具体修改请打开home.htm文件。
'模板制作，就是标准的html文件了，大家可以根据需要进行修改。
'=====================================
%>
