<%
dim conn
dim connstr'连接字符串
dim dbpath '数据库路径
dbpath="sysset/inc/mycs.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
conn.Open connstr
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 "ColAgent.asp"
response.End
end if
end if
Rst.close
set Rst=nothing
'conn.close
'set Conn=nothing
sErrMsg = "提示：会员名或密码错误！"
end if
%>
创造客服-代理商专栏-创造机电
