杜绝入侵：八大法则防范ASP网站漏洞 （2）-ASP教程,安全加密

if trim(request. cookies ("uname"))="fqy" and request.cookies("upwd") =”fqy#e3i5.com” then 
　　……..more……… 
　　end if

if not (rs.bof or rs.eof) then 
　　login="true" 
　　session("username"&sessionid) = username 
　　session("password"& sessionid) = password 
　　‘response.cookies(“username”)= username 
　　‘response.cookies(“password”)= password

＜% 
　　server_v1=cstr(request.servervariables("http_referer")) 
　　server_v2=cstr(request.servervariables("server_name")) 
　　if mid(server_v1,8,len(server_v2))＜＞server_v2 then 
　　response.write "＜br＞＜br＞＜center>" 
　　response.write " " 
　　response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱改参数！" 
　　response.write " 

" 
　　response.end 
　　end if 
　　%> 

‘个人感觉上面的代码过滤不是很好，有一些外部提交竟然还能堂堂正正的进来,于是再写一个. 

　　‘这个是过滤效果很好,建议使用.

------------len.reg----------------- 
　　windows registry editor version 5.00 
　　[hkey_current_user\software\microsoft\internet explorer\menuext\扩展(&e)] 
　　@="c:\documents and settings\administrator\桌面\len.htm" 
　　"contexts"=dword:00000004 
　　-----------end---------------------- 
　　-----------len.htm------------------ 
　　 
　　----------end-----------------------

’判断文件类型是否合格 
　　private function checkfileext (fileext) 
　　dim forumupload 
　　forumupload="gif,jpg,bmp,jpeg" 
　　forumupload=split(forumupload,",") 
　　for i=0 to ubound(forumupload) 
　　if lcase(fileext)=lcase(trim(forumupload(i))) then 
　　checkfileext=true 
　　exit function 
　　else 
　　checkfileext=false 
　　end if 
　　next 
　　end function 
　　‘验证文件内容的合法性 

set myfile = server.createobject ("scripting.filesystemobject") 
　　set mytext = myfile.opentextfile (sfile, 1) ’ 读取文本文件 
　　stextall = lcase(mytext.readall): mytext.close 
　　’判断用户文件中的危险操作 
　　sstr ="8　.getfolder　.createfolder　.deletefolder　.createdirectory　 
　　.deletedirectory" 
　　sstr = sstr & "　.saveas　wscript.shell　script.encode" 
　　snostring = split(sstr,"　") 
　　for i = 1 to snostring(0) 
　　if instr(stextall, snostring(i)) ＜＞ 0 then 
　　sfile = upl.path & sfilesave: fs.deletefile sfile 
　　response.write "＜center＞＜br＞＜big＞"& sfilesave &"文件中含有与操作目录等有关的命令"&_ 
　　"＜br＞＜font color=red＞"& mid(snostring(i),2) &"＜/font＞，
    为了安全原因，＜b＞不能上传。＜b＞"&_"＜/big＞＜/center＞＜/html＞" 
　　response.end 
　　end if 
　　next