重视每一个细节最值得您的信赖 广州信易欢迎您订购产品 感谢您的支持!!! 首 页 服务项目 公司简介 行业产品 印章材料 机器设备 在线订购 联系我们 法规支持 会员登录

管理员登录

邮箱管理

会员登录

姓名：** 密码：** <% '如果没有输入姓名和密码，就不执行下列语句 If Trim(Request("name"))<>"" And Trim(Request("password"))<>"" Then Dim db,strSql,connstr,rs,number '建立Connection对象 Set db=Server.CreateObject("ADODB.Connection") 'db.open"database=ming;DRIVER={MYSQL}" connstr="DBQ="&Server.Mappath("address.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" db.Open connstr '查找判断是否是注册会员 strSql ="Select * From users where name='" & Request("name") & "' And password='" & Request("password") & "'" set rs=db.execute(strsql) if not rs.bof and not rs.eof then session("id")=rs("id") Response.redirect "index.htm" else Response.Write "对不起你不是会员请注册后再登录。立即注册" End If End If %>