<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<%call head()
Call saycarda("验证密码")
url=request("url")

if myid<>"" Then
TP=request.form("TP")

If tp<>"" Then
password=request.form("pass")

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where sid='"&sid&"'",conn,1,1
if rs("mm")<>password Then
Response.write "密码错误!请<a href='loginto.asp?sid="&sid&"&amp;url="&url&"&amp;saytk="&saytk&"'>重新验证</a><br/>"
Call head1()
Response.End
Else


response.cookies("TextCookies1")=""
response.cookies("TextCookies1").Path="/" '写入前先去掉缓存
response.cookies("TextCookies1")=sid
response.cookies("TextCookies1").Path="/"
Response.Cookies("TextCookies1").Expires=Now()+0.03

response.redirect ""&Replace(Replace(Replace(url,"sayou=","saytk="),"sidoo=","sid="),"@@","&")&""


End if
rs.close
Set rs=nothing
Else


if saytk>1 Then 
Response.write "<form name=""form"" method=""post"" action=""loginto.asp?url="&url&"&amp;sid="&sid&"&amp;saytk="&saytk&""">" 
end If

Response.Write "由于长时间未操作!<br/>请输入我的密码,重新登陆:<br/>"
Response.Write "<input name=""pass"" type=""password"" format=""*M"" emptyok=""true"" maxlength=""16""/><br/>"

If saytk>1 Then
    response.write "<input type=""hidden"" name=""tp"" value=""1""/>"
    response.write "<input type=""submit"" name=""submit"" value=""确定提交""/></form><br/>"
    Else
    Response.write "<anchor title=""确定提交"">确定提交"
	Response.write "<go href=""loginto.asp?sid="&sid&"&amp;url="&url&"&amp;saytk="&saytk&""" method=""post"">"
	Response.write "<postfield name=""pass"" value=""$(pass)"" />"
	Response.write "<postfield name=""tp"" value=""1"" />"
	Response.write "</go></anchor>"

End if
End if

End If

%>
<!--#include file="fanhui.asp"-->
<%
conn.close
set conn=nothing%>
<%Call headsay()
%>