推荐：ASP中检查没有数据提交的页面用户在访问站点时经常遇到一些烦人的信息，比如他们经常不知何故地在没有实际提交数据给表单时就到了下一个页面，或者经常达到一个页面，它是以查询字符串的形式转来的，比如?ID=236454。
如
这个子程序大家可能不太明白，他是用于显示各个房间信息的。
好了，下面是关键的显示页面chatpage.html,它分为三帧，左右为80%，20%，然后再将右面的分为上下80%，20%，左上的部分就是主的显示页面
|
以下为引用的内容：
showpage.asp
<!--
#include virtual="/chat/inc/Convert.inc"
--> <%'将内容记入application数组并调整顺序%>
<!--
#include virtual="/chat/inc/ChangeRoom.inc"
--> <%'处理换房的过程%>
<!--
#include virtual="/chat/inc/Logname.inc"
-->
<!--
#include virtual="/chat/inc/uLogname.inc"
-->
<%
if request.servervariables("Request_Method")="POST" then
if request.form("cmdChangeRoom")="换房" then
application.lock
call changeroom()
application.unlock
else
chat=request.form("txtChat")
who=session("sChater_Name")
towho=request.form("selShow")
common_or_private="common"
chat=who&towho&"说："&chat
if request.form("chkPrivate")="private" then
common_or_private="private"
chat=chat&"[私聊]"
end if
application.lock
call convert(common_or_private&","&who&","&towho&","&chat&"<br>")
application.unlock
end if
end if
%>
<html>
<head>
<title> ShowPage </title>
</head>
<body>
<center>
<%
response.write session("sRoom_Name")
%>
</center>
<%
for i=0 to application(session("sRoom_Name")&"_Number")-1
position_one=instr(application(session("sRoom_Name")&"_Value")(i),",")
position_two=instr(position_one 1,application(session("sRoom_Name")&"_Value")(i),",")
position_three=instr(position_two 1,application(session("sRoom_Name")&"_Value")(i),",")
if mid(application(session("sRoom_Name")&"_Value")(i),1,position_one-1)="common" or session("sChater_Name")=mid(application(session("sRoom_Name")&"_Value")(i),position_one 1,position_two-position_one-1) or session("sChater_Name")=mid(application(session("sRoom_Name")&"_Value")(i),position_two 1,position_three-position_two-1) then
response.write mid(application(session("sRoom_Name")&"_Value")(i),position_three 1)
end if
next
'大家注意了，这里是关键的关键，房间的显示与悄悄话的处理都在这里了
代码是太长了，但若使用好的数据结构应该能大大简化代码，我会用sever端的
javascript来试一试，希望可以
%>
<%
end if
%>
</body>
</html>
|
好长哦，^O^,没办法，高级的功能要付出大的代价，我这里是想告诉大家一种思想。以前你肯定定义过application("var1")这样的变量，但象application(session("sRoom_Name")&"_Value") 这样的呢？？？我会在近期将它做成一个activex控件，那时大家就方便了。
想要的话给我写个mail就行了。。
请作者联系本站，及时附注您的姓名。联系邮箱:mb5u#vip.qq.com（把#改为@）。
分享：ASP后门之终极伪装记得当年asp木马出来的时候号称“永不被杀的木马”，呵呵，时至今日，随便什么杀毒软件都能将其杀得片甲不留^_^呵呵，受到木马换壳躲避杀毒软件思路影响，我们也可以给asp木马“
。