merpsmshydl.asp

来自「客户管理系统-支持 Ms Sql-Server」· ASP 代码 · 共 66 行

<!--#include file="piaoy.inc"-->
<!--#include file="md5.asp"-->

<%dim smsxm,smsm,verifycode
smsxm=Replace(Replace(Replace(Replace(Replace(Replace(Replace(request("smsxm"),"’",""),"or",""),"and",""),"--",""),";",""),"=",""),"'or'='","")
smsm=Replace(Replace(Replace(Replace(Replace(Replace(Replace(request("smsm"),"’",""),"or",""),"and",""),"--",""),";",""),"=",""),"'or'='","")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from kfgl where kfgldl='"&smsxm&"' and kfglmm='"&smsm&"'and kfglbz='1' " ,conn,1,1
if not(rs.bof and rs.eof) then
session("kfgldl")=trim(rs("kfgldl"))
session("kfglxm")=trim(rs("kfglxm"))
session("kfglid")=trim(rs("kfglid"))
session("kfglzlbm")=trim(rs("kfglzlbm"))
session("kfglfzbm")=trim(rs("kfglfzbm"))
session("kfglsjdxbm")=trim(rs("kfglsjdxbm"))
session("kfglscsjbm")=trim(rs("kfglscsjbm"))
session("kfglgrdxkbm")=trim(rs("kfglgrdxkbm"))
session("kfgldxlsjlbm")=trim(rs("kfgldxlsjlbm"))
session("kfgldxlsjlxxbm")=trim(rs("kfgldxlsjlxxbm"))
session("kfglyfkjlbm")=trim(rs("kfglyfkjlbm"))
session("kfgldxlsjlbm")=trim(rs("kfgldxlsjlbm"))
session("kfgldxlsjlxxbm")=trim(rs("kfgldxlsjlxxbm"))
session("kfglyfkjlbm")=trim(rs("kfglyfkjlbm"))
session("kfglkfxwglbm")=trim(rs("kfglkfxwglbm"))




if rs("kfglbb")="0" then

 sqlsmsrz = "select * from smsrz  "
  Set rssmsrz = Server.CreateObject("ADODB.RecordSet")
  rssmsrz.Open sqlsmsrz,conn,1,2
  rssmsrz.addnew  
  rssmsrz("smsrzczy")=request("smsxm") '操作员
  rssmsrz("smsrzrzlx")="登录"'日志类型
   rssmsrz("smsrzrznr")="短信通标准版用户登录成功，"&"后台账号为:["&request("smsxm")&"]。"'日志内容
  rssmsrz("smsrzczip")=request.ServerVariables("Remote_Addr")'操作IP
    rssmsrz.update
	response.Redirect "main.asp"
else
 sqlsmsrz = "select * from smsrz  "
  Set rssmsrz = Server.CreateObject("ADODB.RecordSet")
  rssmsrz.Open sqlsmsrz,conn,1,2
  rssmsrz.addnew  
  rssmsrz("smsrzczy")=request("smsxm") '操作员
  rssmsrz("smsrzrzlx")="登录"'日志类型
   rssmsrz("smsrzrznr")="短信通企业版用户登录成功，"&"后台账号为:["&request("smsxm")&"]。"'日志内容
  rssmsrz("smsrzczip")=request.ServerVariables("Remote_Addr")'操作IP
    rssmsrz.update
response.Redirect "qymain.asp"
end if
rs.Close
set rs=nothing
else
 sqlsmsrz = "select * from smsrz  "
  Set rssmsrz = Server.CreateObject("ADODB.RecordSet")
  rssmsrz.Open sqlsmsrz,conn,1,2
  rssmsrz.addnew  
  rssmsrz("smsrzczy")=request("smsxm") '操作员
  rssmsrz("smsrzrzlx")="登录"'日志类型
   rssmsrz("smsrzrznr")="短信通用户登录失败，"&"使用账号为:["&request("smsxm")&"]，"&"密码为："&request("smsm")'日志内容
  rssmsrz("smsrzczip")=request.ServerVariables("Remote_Addr")'操作IP
  rssmsrz.update
response.write "<script LANGUAGE='javascript'>alert('温馨小提示：登录失败！');history.go(-1);</script>"
end if%>