<!--#include file = "../asp/config.asp"-->
<!--#include file = "button.asp"-->
<%
if Instr(session("AdminPurview"),"|35,")=0 then
  response.write ("<br /><br /><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  response.end
end if
if session("AdminName")="" Or session("UserName")="" Or session("AdminPurview")="" Or session("LoginSystem")<>"Succeed"  Or (EnableSiteManageCode = True And Trim(Request.Cookies("AdminLoginCode")) <> SiteManageCode) then
   Response.Redirect "../../../"
   Response.End
End If

Dim sAction, sPosition
sAction = UCase(Trim(Request.QueryString("action")))
sPosition = "当前位置："


Sub Header()
	Response.Write "<html><head>"
	
	Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & _
		"<title></title>" & _
		"<link rel='stylesheet' type='text/css' href='../../admin/images/admin.css'>" & _
		"<script language='javascript' src='private.js'></script>"
	Response.Write "</head>"
	Response.Write "<body><br />"
	Response.Write "<a name=top></a>"
End Sub

Sub Footer()
	Response.Write "</body></html>"
End Sub

Function IsSafeStr(str)
	Dim s_BadStr, n, i
	s_BadStr = "' 　&<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)
	n = Len(s_BadStr)
	IsSafeStr = True
	For i = 1 To n
		If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then
			IsSafeStr = False
			Exit Function
		End If
	Next
End Function

Function outHTML(str)
	Dim sTemp
	sTemp = str
	outHTML = ""
	If IsNull(sTemp) = True Then
		Exit Function
	End If
	sTemp = Replace(sTemp, "&", "&amp;")
	sTemp = Replace(sTemp, "<", "&lt;")
	sTemp = Replace(sTemp, ">", "&gt;")
	sTemp = Replace(sTemp, Chr(34), "&quot;")
	sTemp = Replace(sTemp, Chr(10), "<br>")
	outHTML = sTemp
End Function

Function inHTML(str)
	Dim sTemp
	sTemp = str
	inHTML = ""
	If IsNull(sTemp) = True Then
		Exit Function
	End If
	sTemp = Replace(sTemp, "&", "&amp;")
	sTemp = Replace(sTemp, "<", "&lt;")
	sTemp = Replace(sTemp, ">", "&gt;")
	sTemp = Replace(sTemp, Chr(34), "&quot;")
	inHTML = sTemp
End Function

Sub GoError(str)
	Response.Write "<script language=javascript>alert('" & str & "\n\n系统将自动返回前一页面…');history.back();</script>"
	Response.End
End Sub

Function GetTrueLen(str)
	Dim l, t, c, i
	l = Len(str)
	t = l
	For i = 1 To l
		c = Asc(Mid(str, i, 1))
		If c < 0 Then c = c + 65536
		If c > 255 Then t = t + 1
	Next
	GetTrueLen = t
End Function

Sub WriteConfig()
	Dim i, n, sConfig
	sConfig = "<" & "%" & Vbcrlf
	sConfig = sConfig & "Dim sUsername, sPassword" & Vbcrlf
	sConfig = sConfig & "sUsername = """ & sUsername & """" & Vbcrlf
	sConfig = sConfig & "sPassword = """ & sPassword & """" & Vbcrlf
	sConfig = sConfig & Vbcrlf

	Dim nConfigStyle, sConfigStyle, aTmpStyle
	Dim nConfigToolbar, sConfigToolbar, aTmpToolbar, sTmpToolbar
	Dim s_Order, s_ID, a_Order, a_ID

	nConfigStyle = 0
	sConfigStyle = ""
	nConfigToolbar = 0
	sConfigToolbar = ""

	For i = 1 To UBound(aStyle)
		If aStyle(i) <> "" Then
			aTmpStyle = Split(aStyle(i), "|||")
			If aTmpStyle(0) <> "" Then
				nConfigStyle = nConfigStyle + 1
				sConfigStyle = sConfigStyle & "aStyle(" & nConfigStyle & ") = """ & aStyle(i) & """" & Vbcrlf

				s_Order = ""
				s_ID = ""
				For n = 1 To UBound(aToolbar)
					If aToolbar(n) <> "" Then
						aTmpToolbar = Split(aToolbar(n), "|||")
						If aTmpToolbar(0) = CStr(i) Then
							If s_ID <> "" Then
								s_ID = s_ID & "|"
								s_Order = s_Order & "|"
							End If
							s_ID = s_ID & CStr(n)
							s_Order = s_Order & aTmpToolbar(3)
						End If
					End If
				Next

				If s_ID <> "" Then
					a_ID = Split(s_ID, "|")
					a_Order = Split(s_Order, "|")
					For n = 0 To UBound(a_Order)
						a_Order(n) = Clng(a_Order(n))
						a_ID(n) = Clng(a_ID(n))
					Next
					a_ID = Sort(a_ID, a_Order)
					For n = 0 To UBound(a_ID)
						nConfigToolbar = nConfigToolbar + 1
						aTmpToolbar = Split(aToolbar(a_ID(n)), "|||")
						sTmpToolbar = nConfigStyle & "|||" & aTmpToolbar(1) & "|||" & aTmpToolbar(2) & "|||" & aTmpToolbar(3)
						sConfigToolbar = sConfigToolbar & "aToolbar(" & nConfigToolbar & ") = """ & sTmpToolbar & """" & Vbcrlf
					Next
				End If

			End If
		End If
	Next
	sConfigStyle = "Dim aStyle()" & Vbcrlf & "Redim aStyle(" & nConfigStyle & ")" & Vbcrlf & sConfigStyle
	sConfigToolbar = "Dim aToolbar()" & Vbcrlf & "Redim aToolbar(" & nConfigToolbar & ")" & Vbcrlf & sConfigToolbar
	sConfig = sConfig & sConfigStyle & Vbcrlf & sConfigToolbar & "%" & ">"

	Call WriteFile("../asp/config.asp", sConfig)

End Sub

Sub WriteFile(s_FileName, s_Text)
	On Error Resume Next
	Dim fso, file
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set file = fso.CreateTextFile(Server.Mappath(s_FileName), True)
	file.Write(s_Text)
	file.Close
	Set file = Nothing
	Set fso = Nothing
End Sub

Function Sort(aryValue, aryOrder)
	Dim i, KeepChecking
	Dim FirstOrder, SecondOrder
	Dim FirstValue, SecondValue
	KeepChecking = TRUE
	Do Until KeepChecking = FALSE
		KeepChecking = FALSE
		For i = 0 to UBound(aryOrder)
			If i = UBound(aryOrder) Then Exit For
			If aryOrder(i) > aryOrder(i+1) Then
				FirstOrder = aryOrder(i)
				SecondOrder = aryOrder(i+1)
				aryOrder(i) = SecondOrder
				aryOrder(i+1) = FirstOrder 
				FirstValue = aryValue(i)
				SecondValue = aryValue(i+1)
				aryValue(i) = SecondValue
				aryValue(i+1) = FirstValue
				KeepChecking = TRUE 
			End If
		Next
	Loop
	Sort = aryValue
End Function 
%>