<%
' 执行每天只需处理一次的事件
Call BrandNewDay()
' 初始化数据库连接
Call DBConnBegin()
' 公用变量
Dim sAction, sPosition
sAction = UCase(Trim(Request.QueryString("action")))

Sub Footer()
	' 释放数据连接对象
	Call DBConnEnd()

	Response.Write "<table border=0 cellpadding=0 cellspacing=3 align=center class=footer2>" & _
		"<tr>" & _
			"<td align=center>Copyright  &copy;  2006-2008  <A href='http://www.rencn.cn' target='_blank'><b>www.rencn<font color=#CC0000>.cn</font></b></a>, All Rights Reserved .</td>" & _
		"</tr>" & _
		"</table>"

	Response.Write "</body></html>"
End Sub


' 后台管理模块
Sub Block_Member()
	'Response.Write "<tr><td align=center>" & _
		'"<table class=leftblock border=0 cellpadding=0 cellspacing=0>" & _
		'"" & _
		'"<tr><td>" & _
			'"<table border=0 cellpadding=0 cellspacing=3 align=center width='100%'>" & _
			'"<tr><td>→ <A class=leftnavi href='style.asp'>样式管理</a></td></tr>" & _
			'"</table>" & _
		'"</td></tr>" & _
		'"</table>" & _
		'"</td></tr>"
End Sub

' ===============================================
' 初始化下拉框
'	s_FieldName	: 返回的下拉框名	
'	a_Name		: 定值名数组
'	a_Value		: 定值值数组
'	v_InitValue	: 初始值
'	s_Sql		: 从数据库中取值时,select name,value from table
'	s_AllName	: 空值的名称,如:"全部","所有","默认"
' ===============================================
Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName)
	Dim i
	InitSelect = "<select name='" & s_FieldName & "' size=1>"
	If s_AllName <> "" Then
		InitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>"
	End If
	If s_Sql <> "" Then
		oRs.Open s_Sql, oConn, 0, 1
		Do While Not oRs.Eof
			InitSelect = InitSelect & "<option value=""" & inHTML(oRs(1)) & """"
			If oRs(1) = v_InitValue Then
				InitSelect = InitSelect & " selected"
			End If
			InitSelect = InitSelect & ">" & outHTML(oRs(0)) & "</option>"
			oRs.MoveNext
		Loop
		oRs.Close
	Else
		For i = 0 To UBound(a_Name)
			InitSelect = InitSelect & "<option value=""" & inHTML(a_Value(i)) & """"
			If a_Value(i) = v_InitValue Then
				InitSelect = InitSelect & " selected"
			End If
			InitSelect = InitSelect & ">" & outHTML(a_Name(i)) & "</option>"
		Next
	End If
	InitSelect = InitSelect & "</select>"
End Function
%>

