<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim ChannelID
ChannelID=Trim(Request("ChannelID"))
if ChannelID="" or Not IsNumeric(ChannelID) then ChannelID=0
ChannelID=Clng(ChannelID)
%>
<!--#include file="Conn.asp"-->
<!--#Include File="Inc/Cl_ClsSysTem.asp"-->
<%
dim Rs,Sql,i
dim UserLoginStr,sType,Action
Action	= Trim(Request("Action"))
sType	= Trim(Request("Type"))
Cl.GetWeb_Setting
Cl.GetWeb_CSetting(ChannelID)
Cl.ChkUserLogin
Cl.LoadTemplates("")
UserLoginStr=Cl.ShowUserLogin(sType)
UserLoginStr=Cl.ReplaceDir(UserLoginStr)
if Lcase(Action)="iframe" then
response.write "<html>" & VbCrlf
response.write "<head>" & VbCrlf
response.write "<title>ÓÃ»§µÇÂ¼</title>" & VbCrlf
response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" & VbCrlf
response.write "<style type=""text/css"">" & VbCrlf
response.write Cl.Web_Css
response.write "</style>" & VbCrlf
response.write "</head>" & VbCrlf
response.write "<body leftmargin=0 topmargin=0>" & VbCrlf
response.write UserLoginStr
response.write "</body>" & VbCrlf
response.write "</html>"
else
UserLoginStr=Replace(Replace(UserLoginStr,vbCrlf,"\n"),Chr(34),"\" & Chr(34))
response.write "document.write (""" & UserLoginStr & """);"
end if
'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.Net
'
'ÓÊÏä: aspoo@126.com		Info@aspoo.cn
'£Ñ£Ñ: 3315263				596197794
'ÍøÕ¾: www.aspoo.cn			www.aspoo.com
'ÂÛÌ³: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>