asp.net-ASP源码问题,添加if语句后无法打开,求帮助

作者:操作系统    发布时间:2020-01-11 19:04     浏览次数 :

[返回]

登录校验代码,想在内插入根据不同的管理员打开不同的页面:数据库字段roleid,为0打开a.asp;为1打开b.asp。如何插入'****************************************************aaa=rs("RoleID")ifaaa="0"thenresponse.redirect("a.asp");elseifaaa="1"thenresponse.redirect("b.asp");'****************************************************上面这段应该如何插入进去?或不用这段怎么写?!--#includefile="conn.asp"--!--#includefile="Sql_Erro.asp"--!--#includefile="md5.asp"--htmlhead%dimsql,rsdimusername,password,CheckCodeusername=replace(trim(request("username")),"'","")password=replace(trim(Request("password")),"'","")CheckCode=replace(trim(Request("CheckCode")),"'","")ifUserName=""thenFoundErr=TrueErrMsg=ErrMsg"brli用户名不能为空!/li"endififPassword=""thenFoundErr=TrueErrMsg=ErrMsg"brli密码不能为空!/li"endififCheckCode=""thenFoundErr=TrueErrMsg=ErrMsg"brli验证码不能为空!/li"endififsession("CheckCode")=""thenFoundErr=TrueErrMsg=ErrMsg"brli你登录时间过长,请重新返回登录页面进行登录。/li"endififCheckCodeCStr(session("CheckCode"))thenFoundErr=TrueErrMsg=ErrMsg"brli您输入的确认码和系统产生的不一致,请重新输入。/li"endififFoundErrTruethenpassword=md5(password)setrs=server.createobject("adodb.recordset")sql="select*fromdatawherepassword='"password"'andusername='"username"'"rs.opensql,conn,1,3ifrs.bofandrs.eofthenFoundErr=TrueErrMsg=ErrMsg"brli用户名或密码错误!!!/li"elseifpasswordrs("password")thenFoundErr=TrueErrMsg=ErrMsg"brli用户名或密码错误!!!/li"elsers("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")rs("LastLoginTime")=now()rs("LoginTimes")=rs("LoginTimes")+1rs.updatesession("AdminName")=rs("username")rs.closesetrs=nothingcallCloseConn()Response.Redirect"Admin_Index.asp"endifendifrs.closesetrs=nothingendififFoundErr=TruethencallWriteErrMsg()endifcallCloseConn()'****************************************************'过程名:WriteErrMsg'作用:显示错误提示信息'参数:无'****************************************************subWriteErrMsg()dimstrErrstrErr=strErr"htmlheadtitle错误信息/titlemeta'Content-Type'content='text/html;charset=gb2312'"vbcrlfstrErr=strErr"linkhref='style.css'rel='stylesheet'type='text/css'/headbody"vbcrlfstrErr=strErr"tablecellpadding=2cellspacing=1border=0width=320class='border'align=center"vbcrlfstrErr=strErr"tralign='center'tdheight='22'class='title'strong错误信息/strong/td/tr"vbcrlfstrErr=strErr"trtdheight='100'class='tdbg'valign='top'b产生错误的可能原因:/bbr"errmsg"/td/tr"vbcrlfstrErr=strErr"tralign='center'tdclass='tdbg'ahref='Admin_Login.asp'lt;lt;返回登录页面/a/td/tr"vbcrlfstrErr=strErr"/table"vbcrlfstrErr=strErr"/body/html"vbcrlfresponse.writestrErrendsub%

ASP源码问题,添加if语句后无法打开,求帮助
原版:<%dim sql,rsdim username,password,CheckCodeusername=replace(trim(request("username")),"'","")password=replace(trim(Request("password")),"'","")CheckCode=replace(trim(Request("CheckCode")),"'","")if UserName="" then FoundErr=True ErrMsg=ErrMsg & "

  • 用户名不能为空!
  • "end ifif Password="" then FoundErr=True ErrMsg=ErrMsg & "
  • 密码不能为空!
  • "end ifif CheckCode="" then FoundErr=True ErrMsg=ErrMsg & "
  • 验证码不能为空!
  • "end ifif session("CheckCode")="" then FoundErr=True ErrMsg=ErrMsg & "
  • 你登录时间过长,请重新返回登录页面进行登录。
  • "end ifif CheckCode<>CStr(session("CheckCode")) then FoundErr=True ErrMsg=ErrMsg & "
  • 您输入的确认码和系统产生的不一致,请重新输入。
  • "end ifif FoundErr<>True then password=md5 set rs=server.createobject("adodb.recordset") sql="select from Admin where password='"&password&"' and username='"&username&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 用户名或密码错误!!!
  • " else if password<>rs("password") then FoundErr=True ErrMsg=ErrMsg & "
  • 用户名或密码错误!!!
  • " else RndPassword=GetRndPassword rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR") rs("LastLoginTime")=now() rs("LoginTimes")=rs("LoginTimes")+1 rs("RndPassword")=RndPassword rs.update session.Timeout=SessionTimeout session("AdminName")=rs("username") session("AdminPassword")=rs("Password") session("RndPassword")=RndPassword rs.close set rs=nothing call CloseConn() Response.Redirect "default.asp" end if end if rs.close set rs=nothingend ifif FoundErr=True then call WriteErrMsg()end ifcall CloseConn()修改后:<%dim sql,rsdim username,password,CheckCode,Groupusername=replace(trim(request("username")),"'","")password=replace(trim(Request("password")),"'","")CheckCode=replace(trim(Request("CheckCode")),"'","")if UserName="" then FoundErr=True ErrMsg=ErrMsg & "
  • 用户名不能为空!
  • "end ifif Password="" then FoundErr=True ErrMsg=ErrMsg & "
  • 密码不能为空!
  • "end ifif CheckCode="" then FoundErr=True ErrMsg=ErrMsg & "
  • 验证码不能为空!
  • "end ifif session("CheckCode")="" then FoundErr=True ErrMsg=ErrMsg & "
  • 你登录时间过长,请重新返回登录页面进行登录。
  • "end ifif CheckCode<>CStr(session("CheckCode")) then FoundErr=True ErrMsg=ErrMsg & "
  • 您输入的确认码和系统产生的不一致,请重新输入。
  • "end ifif FoundErr<>True then password=md5 set rs=server.createobject("adodb.recordset") sql="select
    from Admin where password='"&password&"' and username='"&username&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 用户名或密码错误!!!
  • " else if password<>rs("password") then FoundErr=True ErrMsg=ErrMsg & "
  • 用户名或密码错误!!!
  • " sql="select * from Admin where Group='"&Group&"'" RndPassword=GetRndPassword rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR") rs("LastLoginTime")=now() rs("LoginTimes")=rs("LoginTimes")+1 rs("RndPassword")=RndPassword rs.update session.Timeout=SessionTimeout session("AdminName")=rs("username") session("AdminPassword")=rs("Password") session("RndPassword")=RndPassword rs.close set rs=nothing call CloseConn() else if rs="Admin" then Response.Redirect "Default_admin.asp" else if rs="HR" then Response.Redirect "default_HR.asp" else if rs="SD" then Response.Redirect "default_Sd.asp" else Response.Redirect "default.asp" end if end ifend ifif FoundErr=True then call WriteErrMsg()end ifcall CloseConn()以下部分为新增的: else if rs="Admin" then Response.Redirect "Default_admin.asp" else if rs="HR" then Response.Redirect "default_HR.asp" else if rs="SD" then Response.Redirect "default_Sd.asp" else Response.Redirect "default.asp我想根据数据库中查询的所属组别,判断应该打开什么页面。

    本来新闻系统中有独立的用户管理数据库,后来用户需要直接采用论坛帐号直接登陆.所以就加了个验证.conn.asp里直接连接动网论坛的数据库.代码不是很复杂,主要是一个思路.根据这个原理可以做简单的网站整合.

    <!--#include file="md5.asp"-->
    <%
     dim sql
     dim rs
     dim username
     dim password
     dim access
     access=request.Form("access")
     username=trim(request.Form("username"))
     password=md5(trim(Request.Form("password")))
    %>
    <!--#include file="conn.asp"-->
    <%
    sql="select * from Dv_User where username='"&username&"'"
     rs.open sql,conn,1,1
      if not(rs.bof and rs.eof) then
       if password=rs("userpassword") then
       Session("Sys_Admin") = username ''发送用户名
       Session("Sys_Level") = "1" ''权限等级
       Response.Redirect "admin.asp"
       else
          call Error
       end if
          else
           call Error()
     end if
     rs.close
     conn.close
     set rs=nothing
     set conn=nothing
    %>

    上一篇:没有了
    下一篇:没有了