<%
Dim Conn,Rst
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../sysset/inc/mycs.mdb")
Set Rst = Server.CreateObject("ADODB.Recordset")
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
TxtUid=trim(request.form("TxtUid"))
TxtPwd=trim(request.form("TxtPwd"))
Rst.Open "Select * From Member Where MemberName='" & TxtUid & "'",Conn,2,2
If Not Rst.EOF Then
if Rst("MemberPwd")=TxtPwd then
session("administermember")=0
session("chkuser")="5201314ex"
session("memberpower")=Rst("MemPower")
response.redirect "../softdown.asp"
response.End
end if
end if
Rst.close
set Rst=nothing
Conn.close
set Conn=nothing
sErrMsg = "提示：会员名或密码错误！"
end if
%>
会员登录