
<!-- #include file="../dataname.asp" -->
<!-- #include file="md5.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
response.write "<style>td{font-size:9pt}</style>"
m_user=session("m_user")
m_gold=session("m_gold")

if m_user="" or m_gold<"1" then '--------------未登陆begin----------------

	 
	
	response.write "<html><head>"
	response.write "<META HTTP-EQUIV=""Pragma"" CONTENT=""no-cache"">"
	response.write "<META HTTP-EQUIV=""Cache-Control"" CONTENT=""no-cache"">"
	response.write "<META HTTP-EQUIV=""Expires"" CONTENT=""0"">"
	response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
	response.write "<title>"&application("Corporation")&"管理后台：</title></head>"
	response.write "<boby>"
	response.write "<p>&nbsp;</p>"
	response.write "<table width='221' height='298' border='0' align='center' cellpadding='0' cellspacing='0' background='../images/backlogin.jpg'>"
	  response.write "<tr>"
		response.write "<td height='93' valign='top'><div align='center'>"
			response.write "<table width='450' height='289' border='0' align='center' cellpadding='0' cellspacing='1'>"
				if overdue="" then
				response.write "<form name='form1' method='post' action='loginadmin.asp' target='_top'>"
				end if
				response.write "<tr valign='bottom'> "
				  response.write "<td height='126' colspan='2'>"
					response.write "<table width='100%' height='21' border='0' cellpadding='0' cellspacing='0'> "
					response.write "<tr>"
						response.write "<td width='32%'>&nbsp;</td>"
						response.write "<td width='68%'><b>"&application("Corporation")&"</b></td>"
					  response.write "</tr>"
					response.write "</table></td>"
				response.write "</tr>"
				response.write "<tr>"
				  response.write "<td height='23'>&nbsp;</td>"
				  if request.QueryString("f")="1" then
				  response.write "<td><strong><font color='#cc6600'>刚才登陆失败，</font>请重新登陆：</strong></td>"
				  else
				  response.write "<td><strong><font color='#cc6600'>您没有登陆或已自动退出。</font>请登陆：</strong></td>"
				  end if
				response.write "</tr>"
				response.write "<tr>" 
				  response.write "<td width='143' height='32'>&nbsp;</td>"
				  response.write "<td width='304'> 用户名：<input name='h_name' type='text' size='20' style=""height:23px;width:180px;font-size:12pt;font-weight:bold;FONT-FAMILY: 'Times New Roman,宋体';"" onkeydown='if(event.keyCode==13)event.keyCode=9'> "
				  response.write "</td>"
				response.write "</tr>"
				response.write "<tr> "
				  response.write "<td height='28' valign='top'>&nbsp;</td>"
				  response.write "<td> 密&nbsp;&nbsp码：<input name='h_pwd' type='password' size='20' style='height:23px;width:180px;'></td>"
				response.write "</tr>"
				response.write "<tr> "
				  response.write "<td height='28' valign='top'>&nbsp;</td>"
				  response.write "<td>验证码：<input name='verifycode' type='text' size='10' style='height:23px;width:60px;'><img  id='checkcode' src='../GetCode.asp' border='0' width=50 height=15 /></td>"
				response.write "</tr>"
				response.write "<tr>"
				  response.write "<td height='49' colspan='2' valign='bottom'><div align='center'> "
					  response.write "<input type='submit' name='submit' value=' 登 陆 ' style='padding-top:3px;height:27px;width:70px;font-size:14px;font-weight:bold;color:#444444'></div></td>"
				response.write "</tr>"
				response.write "<tr> "
				  response.write "<td height='27' colspan='2'>&nbsp;&nbsp;&nbsp;&nbsp;<a href='../index.asp'>&lt;&lt;返回网店首页</a><br></td>"
				response.write "</tr>"
			  if overdue="" then
			  response.write "</form>"
			  end if
			response.write "</table>"
		  response.write "</div></td>"
	  response.write "</tr>"
	response.write "</table>"

	fromurl0=request.serverVariables("Http_REFERER")
	response.write vbcrlf&"<script>"&vbcrlf&"document.all.h_name.focus()"&vbcrlf&"</script>"&vbcrlf
	response.write "</boby></html>"
	
	response.end
	
end if  '--------------未登陆END-----------------



db="../data/"&mydataname
set conn = server.createobject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};uid=admin;pwd="&mydatapsw&";dbq=" & server.mappath(""&db&"")
conn.open connstr

sub connclose
	conn.close
	set conn=nothing
end sub
sub history
	response.write " <a href=javascript:history.back()>返回</a> "
end sub

function addspace(strfield)	'列表显示	
	if strfield="" or isnull(strfield) or strfield="未知" then 
		addspace="&nbsp;"
	else
		addspace=strfield
	end if
end function
%>

