📄 showlogin.asp

📁 正版创力4.1SQL商业版!!!ASP版。

💻 ASP

字号:

<!--#include file="Conn.asp"-->
<!--#Include File="Inc/Cl_ClsSysTem.asp"-->
<!--#Include File="Inc/Cl_ClsTempLate.asp"-->
<%
Dim Rs,Sql,i,IsAjax
Dim UserLoginStr,sType,Action
Dim ChannelID
ChannelID=Cl.GetClng(Request("ChannelID"))
Action	= Trim(Request("Action"))
sType	= Trim(Request("Type"))
IsAjax	= Cl.GetClng(Request("Ajax"))
Cl.Get_WebSetting
Cl.ChkUserLogin
Cl.Get_ChannelSetting(ChannelID)
UserLoginStr = Template.ShowUserLogin(sType)
UserLoginStr = Cl.ReplaceDir(UserLoginStr)
If IsAjax=1 Then
	Call Cl.WriteAjax(UserLoginStr)
Else
	UserLoginStr="<div id='ShowUserLogin'>" & UserLoginStr & "</div>"
	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 
		response.write "</style>" & VbCrlf
		response.write "</head>" & VbCrlf
		response.write "<body>" & VbCrlf
		response.write UserLoginStr
		response.write "</body>" & VbCrlf
		response.write "</html>"
	Else
		UserLoginStr = Replace(UserLoginStr,vbCrlf,"\n")
		UserLoginStr = Replace(UserLoginStr,Chr(10),"")
		UserLoginStr = Replace(UserLoginStr,Chr(13),"")
		UserLoginStr = Replace(UserLoginStr,Chr(34),"\" & Chr(34))
		Response.Write "document.write (""" & UserLoginStr & """);"
	End If
End if
CloseAllObj
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: support@aspoo.cn		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -