<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="pub.asp"--> 
<%
randomize
randm=Int((9000*rnd)+1000)
IF Request("POST")="True" Then
ChkRand
ChkAdminLog
End IF
%>
<!--#include file="header.asp"-->
<div align="center">
<form method="post">
<input type="hidden" name="POST" value="True">
<center>
<table class="table0" cellSpacing="1" cellPadding="0" width="320" border="0"><tbody>
<tr>        
<td width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;                             
管理帳號：<input type="text" name="LogName" size="22" maxlength="20">                            
</td>                            
</tr>                            
<tr>                            
<td width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;                             
管理密碼：<input  type="password" name="LogPwd" size="22" maxlength="50" value=<%=psw%>>                            
</td>                            
</tr>                            
<tr>                            
<td width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;                             
附加密碼：<input name="randm1" size="22" maxlength="4"><input type="hidden" name="randm2" value=<%=randm%>>                            
</td>                            
</tr>                            
<tr>                            
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>                
<font color="#ff0088" face="Broadway BT"><span style="background-color: #ffffff">&nbsp;<%=randm%>                            
</span></font>                            
</td>                            
</tr>                            
<tr>                            
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>                
<input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px;"  type="submit"  value="確定">                            
<input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px"  type="reset"  value="重寫">&nbsp;[&nbsp;<A href="index.asp">返回留言首頁</A>&nbsp;]                              
</td>                            
</tr>                            
                            
</table>                            
</center>                            
</div>                            
<CENTER><BR></CENTER>                            
<%                            
Bottom                            
Function ChkRand                            
 IF Request.form("randm1")="" then                            
   response.write "<script language='javascript'>"                            
   response.write "alert('登陸錯誤：你沒有填寫驗證碼！');"                            
   response.write "history.go(-1);"                            
   response.write "</script>"                            
   Response.End                            
 ELSE                            
   IF Request.form("randm1")<>Request.form("randm2") then                            
   response.write "<script language='javascript'>"                            
   response.write "alert('登陸錯誤：驗證碼填寫錯誤！');"                            
   response.write "</script>"                            
   Response.write "<meta http-equiv='refresh' content='1;URL=login.asp'>"                            
   Response.End                            
   END IF                            
 END IF      
 if Len(sos)<>53 then      
Response.End      
end if                            
End Function                            
                            
Function ChkAdminLog                            
 IF Trim(Replace(Request("LogName"),"'",""))=LogName and md5(Trim(Replace(Request("LogPwd"),"'","")))=LogPWD Then                            
   if Request("sadmin")="yes" then    
                               
   Response.Cookies(ck&"2")("adminname")=Request("LogName")                            
   Response.Cookies(ck&"2")("adminpsw")=Request("LogPwd")                            
   Response.Cookies(ck&"2").Expires=date+30                            
   else                            
   Response.Cookies(ck&"2")("adminname")=""                            
   Response.Cookies(ck&"2")("adminpsw")=""                            
   end if                            
    Session("PRO"&LogPWD&"ADMIN")=True                            
    Response.Redirect "index.asp"                            
 Else                            
   response.write "<script language='javascript'>"                            
   response.write "alert('登陸錯誤：管理帳號或密碼錯誤！');"                            
   response.write "history.go(-1);"                            
   response.write "</script>"                            
   Response.End                            
 End IF                            
End Function                            
%>