自己刚刚学ASP，哎，没有人教，好不爽呀！这不，自己看了几本书后，而且非安全上每期都有分析ASP的文章，代码都看得‘懂’了，于是心痒了，马上跑到百度大叔那里去！下了个浪人文章系统V2.3！慢慢看了起来！
由于没有经验，因此就看先黑箱测试！本地打开一看，呵呵，界面还不错嘛！如图1.
随便点个文章看看，咦，竟然是这种形式的：read.asp?id=120，那还等什么，直接在后面加一个 and 1=1试试,如图2.
哇，直接跳到官方网站去了！怎么回事？看来有东西在监视url传来的数据。这回没辙了，只有硬着头皮去看代码了。于是来到这里,关键代码如下：
以下是代码片段：
<!--#include file="Inc/Config.asp" -->
<%
dim sql
dim rs
dim SortName,SortID,AsSortName,AsSortID
if Request.QueryString("ID")="" then
response.write "没有选择相关文章"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="update "&GuTablePrefix&"_Article set ArticleReadNum=ArticleReadNum+1 where ArticleID="&Request.QueryString("ID")
rs.open sql,conn,1,3
sql="select SortID,AsSortID,ArticleTitle,ArticleWriter,ArticleWriterContact,ArticleFrom,ArticleFromURL,ArticleContent,ArticleCommend,ArticleShow,ArticleReadNum,ArticleDate from "&GuTablePrefix&"_Article where ArticleID="&Request.QueryString("ID")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有找到相关文章"
response.end
else
ArticleTitle=rs("ArticleTitle")
LKeys=rs("ArticleTitle")
SortID=rs("SortID")
AsSortID=rs("AsSortID")
ArticleWriter=rs("ArticleWriter")
ArticleWriterContact=rs("ArticleWriterContact")
ArticleFrom=rs("ArticleFrom")
ArticleFromURL=rs("ArticleFromURL")
ArticleCommend=rs("ArticleCommend")
ArticleReadNum=rs("ArticleReadNum")
ArticleDate=rs("ArticleDate")
ArticleContent=rs("ArticleContent")
set rsC=server.createobject("adodb.recordset")
sql="select SortName from "&GuTablePrefix&"_Sort where SortID="&SortID
rsC.open sql,conn,1,1
SortName=rsC("SortName")
rsC.close
set rsS=server.createobject("adodb.recordset")
sql="select AsSortName from "&GuTablePrefix&"_AsSort where AsSortID="&AsSortID
rsS.open sql,conn,1,1
AsSortName=rsS("AsSortName")
rsS.close
end if
rs.close
%>
|
[1] [2] [3] 下一页 |
