Question

求一个ASP无上传漏洞的无组件上传代码

我的网站asp+access，最近老是被黑客植入<script>木马到各个ASP页面。不知道黑客是怎么搞上去的，空间商说除了upfile和Data目录外，其他目录都给我设为只读了，可惜还是被黑了。有人说是因为我用的无组件上传程序比较老，有漏洞，但我不知道怎么修补，所以想找个没有漏洞的修改上去用作后台上传图片（后台除了添加文字信息到mdb外，只准上传jpg和gif图片）。

请提供完整的程序代码或下载，并说明怎样在自己的上传页面上使用。
我后台用的是fckeditor编辑器上传新闻内容中的图片，单独用个无组件上传的ASP程序，用来上传首页新闻flash图片top5链接。

谢谢1楼的回答，我加了验证扩展名的

Answer 1

ASP＋Access的安全隐患及对策

随着Internet的发展，Web技术日新月异。继通用网关接口（CGI）之后，“ASP”(Active Server Pages)作为一种典型的服务器端网页设计技术，被广泛地应用在网上银行、电子商务、搜索引擎等各种互联网应用中。同时Access数据库作为微软推出的以标准JET为引擎的桌面型数据库系统，由于具有操作简单、界面友好等特点，具有较大的用户群体。因此ASP＋Access成为许多中小型网上应用系统的首选方案。但ASP＋Access解决方案在为我们带来便捷的同时，也带来了不容忽视的安全问题。

ASP＋Access的安全隐患ASP＋Access解决方案的主要安全隐患来自Access数据库的安全性，其次在于ASP网页设计过程中的安全漏洞。

1.Access数据库的存储隐患

在ASP＋Access应用系统中，如果获得或者猜到Access数据库的存储路径和数据库名，则该数据库就可以被下载到本地。例如：对于网上书店的Access数据库，人们一般命名为book.mdb、store.mdb等，而存储的路径一般为“URL/database”或干脆放在根目录（“URL/”）下。这样，只要在浏览器地址栏中敲入地址：“URL/database/store.mdb”，就可以轻易地把store.mdb下载到本地的机器中。

2.Access数据库的解密隐患

由于Access数据库的加密机制非常简单，所以即使数据库设置了密码，解密也很容易。该数据库系统通过将用户输入的密码与某一固定密钥进行异或来形成一个加密串，并将其存储在＊.mdb文件中从地址“＆H42”开始的区域内。由于异或操作的特点是“经过两次异或就恢复原值”，因此，用这一密钥与＊.mdb文件中的加密串进行第二次异或操作，就可以轻松地得到Access数据库的密码。基于这种原理，可以很容易地编制出解密程序。

由此可见，无论是否设置了数据库密码，只要数据库被下载，其信息就没有任何安全性可言了。

3.源代码的安全隐患

由于ASP程序采用的是非编译性语言，这大大降低了程序源代码的安全性。任何人只要进入站点，就可以获得源代码，从而造成ASP应用程序源代码的泄露。

4.程序设计中的安全隐患

ASP代码利用表单（form）实现与用户交互的功能，而相应的内容会反映在浏览器的地址栏中，如果不采用适当的安全措施，只要记下这些内容，就可以绕过验证直接进入某一页面。例如在浏览器中敲入“……page.asp?x=1”，即可不经过表单页面直接进入满足“x=1”条件的页面。因此，在设计验证或注册页面时，必须采取特殊措施来避免此类问题的发生。

提高数据库的安全性由于Access数据库加密机制过于简单，因此，如何有效地防止Access数据库被下载,就成了提高ASP＋Access解决方案安全性的重中之重。

1.非常规命名法

防止数据库被找到的简便方法是为Access数据库文件起一个复杂的非常规名字，并把它存放在多层目录下。例如，对于网上书店的数据库文件，不要简单地命名为“book.mdb”或“store.mdb”，而是要起个非常规的名字，例如：

faq19jhsvzbal.mdb，再把它放在如./akkjj16t/kjhgb661/acd/avccx55 之类的深层目录下。这样，对于一些通过猜的方式得到Access数据库文件名的非法访问方法起到了有效的阻止作用。

2.使用ODBC数据源

在ASP程序设计中，应尽量使用ODBC数据源，不要把数据库名直接写在程序中，否则，数据库名将随ASP源代码的失密而一同失密。例如：

DBPath = Server.MapPath(“./akkjj16t/

kjhgb661/acd/avccx55/faq19jhsvzbal.mdb ”)

conn.Open “driver={Microsoft Access Driver (＊.mdb)};dbq=” ＆ DBPath

可见，即使数据库名字起得再怪异，隐藏的目录再深，ASP源代码失密后，数据库也很容易被下载下来。如果使用ODBC数据源，就不会存在这样的问题了：

conn.open “ODBC－DSN名”

作者：studi 2006-8-31 18:07 回复此发言

--------------------------------------------------------------------------------

2 ASP＋Access的安全隐患及对策
对ASP页面进行加密为有效地防止ASP源代码泄露，可以对ASP页面进行加密。一般有两种方法对ASP页面进行加密。一种是使用组件技术将编程逻辑封装入DLL之中；另一种是使用微软的Script Encoder对ASP页面进行加密。笔者认为，使用组件技术存在的主要问题是每段代码均需组件化，操作比较烦琐，工作量较大；而使用Script Encoder对ASP页面进行加密，操作简单、收效良好。
Script Encoder方法具有许多优点：

1.HTML仍具有很好的可编辑性。Script Encoder只加密在HTML页面中嵌入的ASP代码，其他部分仍保持不变，这就使得我们仍然可以使用FrontPage或Dreamweaver等常用网页编辑工具对HTML部分进行修改、完善，只是不能对ASP加密部分进行修改，否则将导致文件失效。

2.操作简单。只要掌握几个命令行参数即可。Script Encoder的运行程序是screnc.exe，其使用方法如下：

screnc [/s] [/f] [/xl] [/l defLanguage ] [/e defExtension] inputfile outputfile

其中的参数含义如下：

s：屏蔽屏幕输出；

f：指定输出文件是否覆盖同名输入文件；

xl：是否在.asp文件的顶部添加@Language指令；

l：defLanguag指定缺省的脚本语言；

e：defExtension 指定待加密文件的扩展名。

3.可以批量加密文件。使用Script Encoder可以对当前目录中的所有的ASP 文件进行加密，并把加密后的文件统一输出到相应的目录中。例如：

screnc ＊.asp c:\temp

4. Script Encoder是免费软件。该加密软件可以从微软网站下载?

http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe。下载后，运行安装即可。

利用Session对象进行注册验证

为防止未经注册的用户绕过注册界面直接进入应用系统，可以采用Session对象进行注册验证。Session对象最大的优点是可以把某用户的信息保留下来，让后续的网页读取。例如，要设计如图1所示的注册页面。

设计要求用户注册成功后系统启动hrmis.asp?page=1页面。如果不采用Session对象进行注册验证，则用户在浏览器中敲入“URL/hrmis.asp?page=1”即可绕过注册界面，直接进入系统。利用Session对象可以有效阻止这一情况的发生。相关的程序代码如下：

<％

' 读取用户输入的账号和密码

UserID = Request(“UserID”)

Password = Request(“Password”)

' 检查UserID 及Password 是否正确（实际程序可能会比较复杂）

If UserID <>“hrmis” Or Password <>

“password” Then

Response.Write “账号错误！”

Response.End

End If

'将Session 对象设置为通过验证状态

Session(“Passed”) = True

％>

进入应用程序后，首先进行验证：

<％

'如果未通过验证，返回Login状态

If Not Session(“Passed”) Then

Response.Redirect “login.htm”

End If

％>

http://studi.3322.org/article/show.asp?articleID=120

Answer 2

现在做网站我想不上传图片是不可能的了。但上传图片一也是最危险的一漏洞。我一直用下面的这样的代码，目前为止很少有被上传木马的（我不敢说不会有漏洞，哈哈。。。）

代码如下：

formPath="/fileupload/"
for each formName in upload.objFile
set file=upload.file(formName)
if file.FileSize>0 then
if file.FileSize>204800 then
call errormsg("您上传的文件大于规定大小(200K),请改变文件大小后再进行上传。")
else
if ucase(right(File.FileName,4))<>".JPG" and ucase(right(File.FileName,4))<>".GIF" then
call errormsg("对不起，你上传文件格式不对。只能上传JPG和GIF格式。")
else
FileName=gsid&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&FileName)
picture=formPath&FileName
sy_chemm(picture)
subjpg(picture)
iCount=iCount+1
end if
end if
set file=nothing
else
picture=""
end if
next

以上代码用的是化境HTTP上传程序 Version 2.0，这个程序你可以在附件中下载。

(附件见参考资料)

Answer 3

你在上传代码上加上验证其扩展名就可以了

Answer 4

找高级网络管理员帮你弄。