<% if Request.QueryString("action")="log" and Request.QueryString("no")="eshop" then Session("userID") = "" Session("userName") = "" Session("password") = "" Session("userSite") = "" Session("diqu") = "" Session("userSiteLink") = "" Session("ismanage") = "" if not (isRightUser(request.form("Pwd"),5,15) and isRightUser(request.form("userName"),5,15)) then %> <% else pwd = md5(request.form("Pwd")) username = request.form("userName") Set rs = Server.CreateObject("ADODB.recordset") sql = "select userID,userName,password,userSite,diqu,userSiteLink,ismanage from wm_user where userName='" &username& "' and password='"&pwd&"' and issh=1" rs.open sql,conn,1,1 If rs.eof Then Response.Redirect "Loginsb.asp?msg=您输入了错误的帐号或口令,请再次输入!" Elseif rs("password")<>pwd then Response.Redirect "Loginsb.asp?msg=您输入了错误的帐号或口令,请再次输入!" else session.Timeout = 60 Session("userID") = rs("userID") Session("userName") = rs("userName") Session("password") = rs("password") Session("userSite") = rs("userSite") Session("diqu") = rs("diqu") Session("userSiteLink") = rs("userSiteLink") Session("ismanage") = rs("ismanage") conn.execute("update wm_user set lastTime="&dateSeparat&year(tmie_max)&"-"&month(tmie_max)&"-"&Day(tmie_max)&" 00:00:00"&dateSeparat&" where userID=" & rs("userID")) Response.Redirect("wm_list.asp") end if end if end if %> 中国地市新闻网联盟会员新闻发布系统
联盟帐号:
联盟密码:
    
申请加入网盟咨询电话:0744-8231300
全国统一咨询QQ:4000380098
本站由 湖南奥凯传媒有限公司 提供技术支持
中国地市新闻网联盟 newswm.com 秘书处 张家界新闻网 版权所有 咨询电话:0744-8231300 技术支持QQ:41526283