<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
' ============================================
' 判断管理员是否登陆
' ============================================
Sub adminer()
if session("username")="" and session("password")="" then
response.redirect "../"
End If
End Sub
' ============================================
' 判断是否直接输入地址访问本系统的后台管理页面
' ============================================
sub ComeUrl
dim ComeUrl,cUrl
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
'	response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
'	response.end
else
	cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
	if mid(ComeUrl,len(cUrl)+1,1)=":" then
		cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
	end if
	cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
	'if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
	'	response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
	'	response.end
	'end if
end if
end sub
%>

<%
	const iTotalConnections = 1                     '1(初始数据为1,arrDesc()序列的最大值。)
	const cPerPage = 10
	const bEncodeHTML = False
	const lMaxShowLen = 50                             '0(初始数据为0,表示全部数据内容。现更改为每条数据显示50字符。)
	Const bConvertNull = False
	Const bConvertNumericNull = False
	Const bConvertDateNull = False
	redim arrDbs(iTotalConnections)
	redim arrDesc(iTotalConnections)
	redim arrConn(iTotalConnections)
	arrDBs(0) = "#mydatabase.asp"
	arrDBs(1) = "../../Mydatabase/#Company.mdb"	'改为你的数据库路径
	'arrDBs(2) = "/wap1/ebook/gaoxiao/#gaoxiao.mdb"	'改为你的数据库路径(一定要添加)
	'arrDBs(3) = "/wap1/ebook/gaoxiao/#youmo.mdb"	'改为你的数据库路径(一定要添加)

	arrDesc(0) = "用户管理"
	arrDesc(1) = "QuickWAP数据库"
	'arrDesc(2) = "E书快递〉搞笑经典"                        ''改为你的数据库路径(一定要添加)
	'arrDesc(3) = "E书快递〉幽你一默"                        ''改为你的数据库路径(一定要添加)

        for iConnection = 0 to iTotalConnections
		arrConn(iConnection) = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
		"Persist Security Info=False;" &_
		"Data Source=" & Server.MapPath(arrDBs(iConnection))
	next	
%>
<!--#include file="te_includes.asp"--> 

