<%
if trim(request.Form("action"))="login" then
errmessage=""
userid=trim(request.Form("username"))
userpwd=trim(request.Form("password"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Taccount where userid=N'"&userid&"'" ,conn,1,1
if ((rs.eof ) and (rs.bof ))then
errmessage="登录信息不正确，请重试！"
else
if trim(rs("userpwd"))<>userpwd then
errmessage="登录信息不正确，请重试！"
else
response.Cookies("userid")=userid
if trim(request.Form("checkbox"))="checkbox" then
Response.Cookies("userid").expires=date+365
else
Response.Cookies("userid").expires=date+1
end if
%>
<%
end if
end if
else
errmessage=""
end if
%>
