2.8w+
社区成员
我的登录页面，谁能帮看看有什么漏洞啊？若有，怎么解决呢？（另：这个论坛找发新帖的入口可真是挺难找的呀！）
如题。反正自已做的这个页面就是不放心，不知会不会让人SQL注入呢？会不会有漏洞啊？有高手路过帮我看一下啦！拜托啦！下面是代码
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="MD5/md5.asp" -->
<!--#include file="../Connections/koko.asp" -->
<%
Dim Reg__strshopID
Reg__strshopID = "x"
If (Request.Form("shopID") <> "") Then
Reg__strshopID = Request.Form("shopID")
End If
%>
<%
Dim Reg__strPassword
Reg__strPassword = "1"
if (Request.Form("Password") <> "") then Reg__strPassword = Request.Form("Password")
%> <%
set Reg = Server.CreateObject("ADODB.Recordset")
Reg.ActiveConnection = MM_koko_STRING
Reg.Source = "SELECT * FROM dbo.shop WHERE shopname = '" + Replace(Reg__strshopID, "'", "''") + "' AND password = '" + md5(trim(Replace(Reg__strPassword, "'", "''")),32) + "'"
Reg.CursorType = 0
Reg.CursorLocation = 2
Reg.LockType = 3
Reg.Open()
Reg_numRows = 0
%> <% If Reg__strshopID <> "x" Then
If Not Reg.EOF Then
Session("kokoshopname")=Reg.Fields.Item("shopname").Value
Session("kokoPass")=Reg.Fields.Item("password").Value
Session("managerlevel")=Reg.Fields.Item("managerlevel").Value
Session("shopID")=Reg.Fields.Item("shopID").Value
Session("shopCategoryID")=Reg.Fields.Item("shopCategoryID").Value
if Session("managerlevel") = "product and news" then
Response.Redirect "manage.asp"
end if
if Session("managerlevel") = "product" then
Response.Redirect "manage11.asp"
end if
if Session("managerlevel") = "news" then
Response.Redirect "manage3.asp"
end if
else
Response.Redirect "loginfail.asp"
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><!-- InstanceBegin template="/Templates/content6.dwt.asp" codeOutsideHTMLIsLocked="false" --><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- InstanceBeginEditable name="doctitle" -->
<title>网站登录页</title>
.........
...................下面省啦！
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="MD5/md5.asp" -->
<!--#include file="../Connections/koko.asp" -->
<%
Dim Reg__strshopID
Reg__strshopID = "x"
If (Request.Form("shopID") <> "") Then
Reg__strshopID = Request.Form("shopID")
End If
%>
<%
Dim Reg__strPassword
Reg__strPassword = "1"
if (Request.Form("Password") <> "") then Reg__strPassword = Request.Form("Password")
%> <%
set Reg = Server.CreateObject("ADODB.Recordset")
Reg.ActiveConnection = MM_koko_STRING
Reg.Source = "SELECT * FROM dbo.shop WHERE shopname = '" + Replace(Reg__strshopID, "'", "''") + "' AND password = '" + md5(trim(Replace(Reg__strPassword, "'", "''")),32) + "'"
Reg.CursorType = 0
Reg.CursorLocation = 2
Reg.LockType = 3
Reg.Open()
Reg_numRows = 0
%> <% If Reg__strshopID <> "x" Then
If Not Reg.EOF Then
Session("kokoshopname")=Reg.Fields.Item("shopname").Value
Session("kokoPass")=Reg.Fields.Item("password").Value
Session("managerlevel")=Reg.Fields.Item("managerlevel").Value
Session("shopID")=Reg.Fields.Item("shopID").Value
Session("shopCategoryID")=Reg.Fields.Item("shopCategoryID").Value
if Session("managerlevel") = "product and news" then
Response.Redirect "manage.asp"
end if
if Session("managerlevel") = "product" then
Response.Redirect "manage11.asp"
end if
if Session("managerlevel") = "news" then
Response.Redirect "manage3.asp"
end if
else
Response.Redirect "loginfail.asp"
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><!-- InstanceBegin template="/Templates/content6.dwt.asp" codeOutsideHTMLIsLocked="false" --><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- InstanceBeginEditable name="doctitle" -->
<title>网站登录页</title>
.........
...................下面省啦！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
QQgenie 2004-08-01
不错，看不出有问题：
sql="select * from table where (user='"&user&"') and (pass='"&md5(pass)&"')"
一般地，加了密码转换后很难用sql注入，“（）”很好用
sql="select * from table where (user='"&user&"') and (pass='"&md5(pass)&"')"
一般地，加了密码转换后很难用sql注入，“（）”很好用
基于微服务框架的旅游门户的设计与实现.rar 内容包括详细设计文档word版，附带开题报告和相关PPT等文档，供大家参考学习。摘要：本系统是基于微服务的，分为后PC端旅游后台管理和PC端旅游门户两部分，其中，旅游门户实现了对景点、酒店、旅游攻略的查看，能够完成游客对旅游团、酒店、景点等消费的预定，公告模块为游客和旅行社之间建立了沟通的桥梁；管理人员登录旅游门户的后台管理系统，对系统进行维护，保证网站能够安全稳定的运行，同时，人们不用花费大量的时间和精神来管理旅游的方方面面，旅游网站可以减少管理人员的精力和时间，能够使管理人员有更多的时间去服务游客，提高了游客的体验。
旅游网站的设计可以促进济宁旅游业的发展，为游客选择旅游目的地，节省
游客和管理人员的时间，提高游客旅游的积极性，让旅游变得异常轻松。
