用于演示mssql 注入的漏洞代码

最新推荐文章于 2022-07-20 17:34:30 发布

Yatere

最新推荐文章于 2022-07-20 17:34:30 发布

阅读量1.2k

点赞数 1

分类专栏： SQL 技术 Web 服务端 Web 代码注入文章标签： sql server input database border sql action

本文链接：https://blog.csdn.net/yatere/article/details/7720467

版权

SQL 技术同时被 3 个专栏收录

30 篇文章 0 订阅

订阅专栏

Web 代码注入

27 篇文章 0 订阅

订阅专栏

Web 服务端

19 篇文章 0 订阅

订阅专栏

需要演示，所以临时写了一个，主要是介绍原理：

<%

dim conn
	dim connstr
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="driver={SQL Server};server=192.168.1.128;UID=sa;PWD=123;database=123"
   	conn.Open connstr

if Request("name")="" then
response.write( "<FORM METHOD=POST ACTION=''>查询名:<INPUT TYPE='text' NAME='name'><INPUT TYPE='submit' value='ok'></FORM>")
Response.End 
else

name =Request("name")
sql = "select * from adm where suid='"&name&"'"
Set rs= conn.execute(sql)
response.write( "<table width='80%' border='1' align='center'><TR><TH>id</TH><TH>name</TH><TH>password</TH><TH>level</TH></TR>")
While Not rs.eof
%>
<TR>
	<TD align='center'><% =rs("sid")%></TD>
	<TD align='center'><% =rs("suid")%></TD>
	<TD align='center'><% =rs("spwd")%></TD>
	<TD align='center'><% =rs("slevel")%></TD>

</TR>
<%
rs.movenext
wend
end if
%>
</TABLE>