我写的一个ASP 程序：Application、Session、Cookie 查看/编辑器

<%@ Language=VBScript codepage=936%>

<%Option Explicit

'########################################################

'-----------------------------------------------------------------------------------'App Name: Sessions Applications Cookies Explorer for ASP

' Version: 2.0.20050320

' LastModified: March,20 2005

' Author: gExplorer

' My Site: http://www.dotNez.com/'

'----| 作品说明

|---------------------------------------------------------------------------------

' 声明：

' 1.本人对3821公司及其所有产品极度反感并对其支持者抱同-样态度。

' 如果你是3821的支持者，请勿使用本人的任何作品！谢谢！

' 2.对于那个什么"我梦里 *

他MM千百度"的那个败毒公司，垃圾一个,我的态度同上

' 3.本人不敢担保本人写的任何程序是绝对安全可靠的，所以对使用-任何本人免费公开的程序引起的任何后果

' 本人将不会负任何责任

' 4.本程序对任何个人、商业公司和任何单位免费。你可以免费使用-、修改。

' 肯定会有那种贱人做这种贱事~`````对于这种人，我的态度同-上面第

2 条

' 5.如有任何疑问或问题，本人欢迎各位使用者与我联系询问相关问-题，联系方法见后

' 说明：

' 编写/调试 ASP 程序时，如果能够随意查看/修改

Session、Application 和 Cookie 变量的话，调试起来

' 就方便多了。于是我就写了那么一个 ASP

程序，专门用来查看/修改 Session、Application 和 Cookie

变量。

' 个人觉得这小东西非常好用非常方便（自家孩子最漂亮

^__^ ）。

' 为了更方便的调试 ASP

程序，我还特意加了一个在远程服务器上运行指定 ASP

程序段（必须是 VBScript 脚本）

' 的功能。使用方法自己找了，别来问我，反正不难。

' 还有，由于写程序的时候懒得把输入法换来换去的，我就把所有的提-示都用了英文，英文不好的朋友别怪我啊

^__^

' 本程序编写过程中参考过的网站（部分）：

http://www.Google.com 当今Internet上最好用、最有名、最强悍的搜索引擎

' 一旦使用过它，你绝对不会再想用别的搜索引擎！

' （你说什么？摆渡？那个我梦里 *

他MM千百度的那个败毒？它算什么东西？！！垃圾。。。）

' http://www.im286.com

国内最有人气的专门讨论网站开发维护的论坛

' 站长们的集散地，强烈推荐，不过注册前提是你要有点底子

^__^

' http://www.csdn.net

国内软件开发技术第一网站，如果你是玩编程的却不知道这个网站的-话。。。

' 联系方法：

' Email: gExplorer#Gmail.com 请把邮件地址中的 #

号改成 @ ，别告诉我连这个你都不知道 ^__^

' QQ#: 9288151

' MSN: gExplorer#Gmail.com

'----------------------------------------------------------------------------------------------------------

'#############################-##############################-##############################-##############

'On Error Resume Next

Response.Buffer = True

Dim sScriptName

sScriptName = Request.ServerVariables("SCRIP-T_NAME")

Dim sMessage

Dim strApplicationKeys,strSessionK-eys,strCookieKeys

Dim strKeyType,strKeyValue

Dim ApplicationKey,SessionKey,Cook-ie,CookieKey

Dim

nKeyValueLenght,nApplicationKe-yCount,nSessionKeyCount,nCooki-eKeyCount

Dim sExecuteScriptPanelText,sExecu-teScriptPanelVisible

Dim sApplicationPanelText,sApplica-tionPanelVisible

Dim sSessionPanelText,sSessionPane-lVisible

Dim sCookiePanelText,sCookiePanelV-isible

Dim sHideText,sShowText,sVisible,s-Hidden

sHideText = "Hide Panel"

sShowText = "Show Panel"

sVisible = "visible"

sHidden = "hidden"

'----------------------------------------------------------------------

nKeyValueLenght = 0

nApplicationKeyCount = 0

nSessionKeyCount = 0

nCookieKeyCount = 0

'----------------------------------------------------------------------------------

Dim

sAction,sKeyToRemove,sCookieTo-Remove,sPanelName,sPanelVisibl-e,sPanelText

Dim sNewKeyName,sNewKeyValue,sNewC-ookieName

sAction = Request.QueryString("Action")

sKeyToRemove = Request.QueryString("Key")

Select Case LCase(sAction)

Case LCase("RemoveApplicationKey")

Call RemoveApplicationKey(sKeyToRem-ove)

Case LCase("RemoveSessionKey")

Call RemoveSessionKey(sKeyToRemove)

Case LCase("RemoveCookie")

sCookieToRemove = Request.QueryString("Cookie")

sKeyToRemove = Request.QueryString("Key")

Call RemoveCookie(sCookieToRemove,s-KeyToRemove)

Case LCase("EditApplicationKey")

sNewKeyName = Request.QueryString("Applicati-onKeyName")

sNewKeyValue = Request.QueryString("Applicati-onKeyValue")

Call EditApplicationKey(sNewKeyName-,sNewKeyValue)

Case LCase("EditSessionKey")

sNewKeyName = Request.QueryString("SessionKe-yName")

sNewKeyValue = Request.QueryString("SessionKe-yValue")

Call EditSessionKey(sNewKeyName,sNe-wKeyValue)

Case LCase("EditCookie")

sNewCookieName = Request.QueryString("CookieNam-e")

sNewKeyName = Request.QueryString("CookieKey-Name")

sNewKeyValue = Request.QueryString("CookieKey-Value")

Call EditCookie(sNewCookieName,sNew-KeyName,sNewKeyValue)

Case LCase("ClearApplicationKeys")

Application.Contents.RemoveAll

Case LCase("ClearSessionKeys")

Session.Contents.RemoveAll

Case LCase("ClearCookies")

Call ClearCookies()

Response.Redirect(sScriptName)

Case LCase("Hide Panel")

sPanelName = Request.QueryString("panelName-")

sPanelVisible = sPanelName & "Visible"

sPanelText = sPanelName & "Text"

Session(sPanelVisible) = sHidden

Session(sPanelText) = sShowText

Response.Redirect(sScriptName)

Case LCase("Show Panel")

sPanelName = Request.QueryString("panelName-")

sPanelVisible = sPanelName & "Visible"

sPanelText = sPanelName & "Text"

Session(sPanelVisible) = sVisible

Session(sPanelText) = sHideText

Response.Redirect(sScriptName)

Case LCase("ExecuteScripts")

Dim sScripts

sScripts = Request("ScriptsToExecute")

Call ExecuteScripts(sScripts)

End Select

Call GetPanelStatus()

Call GetApplicationKeys()

Call GetSessionKeys()

Call GetCookies()

'--------------------------------------------------------------------------------

Function GetPanelText(panelName)

If Session(panelName & "Visible") = sVisible Then

GetPanelText = sHideText

Else

GetPanelText = sShowText

End If

End Function

Function GetPanelStatus()

sExecuteScriptPanelVisible = Session("ExecuteScriptPanelVis-ible")

sApplicationPanelVisible = Session("ApplicationPanelVisib-le")

sSessionPanelVisible = Session("SessionPanelVisible")

sCookiePanelVisible = Session("CookiePanelVisible")

If sExecuteScriptPanelVisible = "" Then

Session("ExecuteScriptPanelVis-ible") = sVisible

Session("ExecuteScriptPanelTex-t") = sHideText

End If

If sApplicationPanelVisible = "" Then

Session("ApplicationPanelVisib-le") = sVisible

Session("ApplicationPanelText"-) = sHideText

End If

If sSessionPanelVisible = "" Then

Session("SessionPanelVisible") = sVisible

Session("SessionPanelText") = sHideText

End If

If sCookiePanelVisible = "" Then

Session("CookiePanelVisible") = sVisible

Session("CookiePanelText") = sHideText

End If

sExecuteScriptPanelVisible = Session("ExecuteScriptPanelVis-ible")

sApplicationPanelVisible = Session("ApplicationPanelVisib-le")

sSessionPanelVisible = Session("SessionPanelVisible")

sCookiePanelVisible = Session("CookiePanelVisible")

sExecuteScriptPanelText = Session("ExecuteScriptPanelTex-t")

sApplicationPanelText = Session("ApplicationPanelText"-)

sSessionPanelText = Session("SessionPanelText")

sCookiePanelText = Session("CookiePanelText")

End Function

'----------------------------------------------------------------------------------

Function RemoveApplicationKey(sKey)

Application.Contents.Remove(sK-ey)

End Function

Function RemoveSessionKey(sKey)

Session.Contents.Remove(sKey)

End Function

Function RemoveCookie(sCookieToRemove,s-Key)

If sCookieToRemove <> "" Then

Response.Cookies(sCookieToRemo-ve)(sKey) = ""

Else

Response.Cookies(sCookieToRemo-ve).Expires = -1

End IF

End Function

'-------------------------------------------------------------------------------

Function EditApplicationKey(sKeyName,Ke-yValue)

If IsObject(KeyValue) Then

Set Application(sKeyName) = KeyValue

Else

Application(sKeyName) = KeyValue

End If

End Function

Function EditSessionKey(sKeyName,KeyVal-ue)

If IsObject(KeyValue) Then

Set Session(sKeyName) = KeyValue

Else

Session(sKeyName) = KeyValue

End If

End Function

Function EditCookie(sCookieName,sKeyNam-e,sKeyValue)

If sCookieName = "" And sKeyName = "" Then

Exit Function

ElseIf sCookieName <> "" And sKeyName <> "" Then

Response.Cookies(sCookieName)(-sKeyName) = sKeyValue

ElseIf sCookieName = "" And sKeyName <> "" Then

'Response.write "cookieName: " & sCookieName & "<br>KeyName: " &

sKeyName

Response.Cookies(sKeyName) = sKeyValue

ElseIf sCookieName <> "" And sKeyName = "" Then

Response.write "cookieName: " & sCookieName & "<br>KeyName: " &

sKeyName

Response.Cookies(sCookieName) = sKeyValue

End If

End Function

'--------------------------------------------------------------------------------

Function GetApplicationKeys()

For Each ApplicationKey In Application.Contents

nApplicationKeyCount = nApplicationKeyCount + 1

strKeyType = TypeName(Application( ApplicationKey ))

If strKeyType = "Object" Or strKeyType = "Nothing" Then

strKeyValue = " - This Key Contains an Object"

Else

strKeyValue = Application(ApplicationKey)

nKeyValueLenght = Len(strKeyValue)

End If

nKeyValueLenght = Len(strKeyValue)

strApplicationKeys = _

strApplicationKeys & _

"<tr><td align=""center"" width=""50"" height=""14"">" & _

"<a href=""?Action=RemoveApplicati-onKey&Key=" & ApplicationKey &

""">Remove</a></td>" & _

"<td width=""50"" height=""14""> " & strKeyType & "</td>" & _

"<td width=""150"" height=""14""> " & ApplicationKey & "</td>"

& VbCrLf &_

"<td height=""14"">[" & nKeyValueLenght & "]" & strKeyValue &

"</td></tr>" & VbCrLf

If strApplicationKeys = "" Then

strApplicationKeys = " There are no Application-Keys stored in

the server."

Else

If sApplicationPanelVisible = sHidden Then

strApplicationKeys = " Click [Show Panel] above to show this

edit panel"

Exit Function

End If

End Function

Function GetSessionKeys()

For Each SessionKey In Session.Contents

nSessionKeyCount = nSessionKeyCount + 1

strKeyType = TypeName(Session( SessionKey ))

If strKeyType = "Object" Or strKeyType = "Nothing" Then

strKeyValue = " - This Key Contains an Object"

Else

strKeyValue = Session( SessionKey )

End If

nKeyValueLenght = Len(strKeyValue)

strSessionKeys = _

strSessionKeys & _

"<tr><td align=""center"" width=""50"" height=""14"">" & _

"<a href=""?Action=RemoveSessionKe-y&Key=" & SessionKey &

""">Remove</a></td>" & _

"<td width=""50"" height=""14""> " & strKeyType & "</td>" &_

"<td width=""150"" height=""14""> " & SessionKey &"</td>" &

VbCrLf & "<td height=""14"">[" & nKeyValueLenght & "]" & strKeyValue &

"</td></tr>" & VbCrLf

If strSessionKeys = "" Then

strSessionKeys = " There are no Session-Keys stored in the

server."

Else

If sSessionPanelVisible = sHidden Then

strSessionKeys = " Click [Show Panel] above to show this edit

panel"

End If

End Function

Function GetCookies()

For Each Cookie In Request.Cookies

If Request.Cookies(Cookie).HasKey-s Then

For Each CookieKey In Request.Cookies(Cookie)

nCookieKeyCount = nCookieKeyCount + 1

strKeyValue = Request.Cookies(Cookie)(Cookie-Key)

strKeyType = "String"

nKeyValueLenght = Len(strKeyValue)

strCookieKeys = _

strCookieKeys & _

"<tr><td align=""center"" width=""50"" height=""14"">" & _

"<a href=""?Action=RemoveCookie&Co-okie=" & Cookie & "&Key=" &

CookieKey & """>Remove</a></td>" & _

"<td width=""50"" height=""14""> " & strKeyType & "</td>"

& _

"<td width=""150"" height=""14""> " & Cookie& "." &

CookieKey &"</td>" & VbCrLf & "<td height=""14"">[" & nKeyValueLenght &

"]" & strKeyValue & "</td></tr>" & VbCrLf

Else

nCookieKeyCount = nCookieKeyCount + 1

strKeyValue = Request.Cookies(Cookie)

strKeyType = "String"

nKeyValueLenght = Len(strKeyValue)

strCookieKeys = _

strCookieKeys & _

"<tr><td align=""center"" width=""50"" height=""14"">" & _

"<a href=""?Action=RemoveCookieKey-&Cookie=""" & Cookie &

""">Remove</a></td>" & _

"<td width=""50"" height=""14""> " & strKeyType & "</td>" &

"<td width=""150"" height=""14""> " & Cookie &"</td>" &

VbCrLf & "<td height=""14"">[" & nKeyValueLenght & "]" & strKeyValue &

"</td></tr>" & VbCrLf

End If

If strCookieKeys = "" Then

strCookieKeys = " There are no Cookies in this computer."

Else

If sCookiePanelVisible = sHidden Then

strCookieKeys = " Click [Show Panel] above to show this edit

panel"

End If

End Function

'----------------------------------------------------------------------------------------------

Function ClearCookies()

For Each Cookie In Request.Cookies

Response.Cookies(Cookie).Expir-es = -1

' If Request.Cookies(Cookie).HasKey-s Then

' For Each CookieKey In Request.Cookies(Cookie)

' Response.Cookies(Cookie)(Cooki-eKey) = ""

' Next

' Else

' Response.Cookies(Cookie) = ""

' End If

End Function

Function ExecuteScripts(sScriptsToExecu-te)

On Error Resume Next

Execute(sScriptsToExecute)

If Err Then

sMessage = " [<font color=""red"">Execute

Message : There are someting wrong in the scripts you

posted.</font>]"

Else

sMessage = " [Execute Message : Script has

been executed succefully.]"

End If

End Function

<html>

<head>

<title>Application Session Cookies Manager 1.0</title>

<style>

body {

color: #FF0000;

font-size: 12px;

background-color:#005593;

font-family: Tahoma, Verdana, "宋体";

scrollbar-darkshadow-color: #808080;

scrollbar-face-color: #EEEEEE;

scrollbar-highlight-color: #FFFFFF;

scrollbar-shadow-color: #DEE3E7;

scrollbar-3dlight-color: #D1D7DC;

scrollbar-arrow-color: #000000;

scrollbar-track-color: #EDEDED; }

input {

border-top-width: 1px;

padding-right: 1px;

padding-left: 1px;

border-left-width: 1px;

border-bottom-width: 1px;

border-right-width: 1px;

padding-bottom: 1px;

padding-top: 1px;

border-left-color: #C0C0C0;

border-bottom-color: #C0C0C0;

border-top-color: #C0C0C0;

border-right-color: #C0C0C0;

font-family: Tahoma, Verdana, "宋体";

font-size: 11px;

height: 18px;

color: #000000;

background-color: #FFFFFF; }

textarea,subject {

padding:4px

border-width: 1px;

border-color: #c0c0c0;

background-color: #FFFFFF;

font-family: Tahoma, Verdana, "宋体";

font-size: 12px;

color: #000000; }

table {

padding:0px;

border-top:0px;

border-bottom:0px;

border-collapse: collapse;

border-color:#111111;

font-family: Tahoma, Verdana, "宋体";

color: #000000;

font-size: 12px;

}

td {

border-collapse: collapse;

border-color:#111111;

font-family: Tahoma, Verdana, "宋体";

color: #000000;

font-size: 12px;

word-break:break-all;

}

a:link,a:visited {

text-decoration: none;

color:#003063;

font-family: Tahoma, Verdana, "宋体";

}

a:hover {

text-decoration: none;

color:#FF0000;

font-family: Tahoma, Verdana, "宋体";

}

</Style>

</head>

<body>

<br>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="20">

<tr>

<a href="http://www.dotNez.com/" target="_BLANK"

class="aa"> dotNez's </a>

</td>

<font color="#FFFFFF"> Sessions Applications Cookies Explorer for

ASP - Version 1.0</font>

</td>

</tr>

</table>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="20">

<tr>

<td width="100%" height="14"

bgcolor="#C0C0C0"> Applic-ation.Contents

- <%=nApplicationKeyCount%> key(s) - | <a

href="?Action=<%=GetPanelText(-"ApplicationPanel")%>&panelNam-e=ApplicationPanel"><%=GetPane-lText("ApplicationPanel")%></a->

| <a href="?Action=ClearApplication-Keys">Remove All</a> |</td>

</tr>

<td width="100%" height="14" bgcolor="#F0F0F0"> Add/Ed-it :

<input type="text" name="ApplicationKeyName" size="15"> =

</td>

</tr></form>

<tr>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="5">

<%=strApplicationKeys%>

</table>

</td>

</tr>

</table>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="20">

<tr>

<td width="100%" height="14" bgcolor="#C0C0C0"> Sessio-n.Contents

- <%=nSessionKeyCount%> key(s) - | <a

href="?Action=<%=GetPanelText(-"SessionPanel")%>&panelName=Se-ssionPanel"><%=GetPanelText("S-essionPanel")%></a>

| <a href="?Action=ClearSessionKeys-">Remove All</a> |</td>

</tr>

<td width="100%" height="14" bgcolor="#F0F0F0"> Add/Ed-it :

<input type="text" name="SessionKeyName" size="15"> =

</td></form>

</tr>

<tr>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="5">

<%=strSessionKeys%>

</table>

</td>

</tr>

</table>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="20">

<tr>

Request.Cookies - <%=nCookieKeyCount%> key(s) - | <a

href="?Action=<%=GetPanelText(-"CookiePanel")%>&panelName=Coo-kiePanel">

<%=GetPanelText("CookiePanel")-%> </a> |<a href="?Action=ClearCookies">

Remove All </a>|

</td>

</tr>

<td width="100%" height="14" bgcolor="#F0F0F0"> Add/Ed-it :

<input type="text" name="CookieName" size="15"> .

<input type="text" name="CookieKeyName" size="15"> =

</td>

</tr></form>

<tr>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="5">

<%=strCookieKeys%>

</table>

</td>

</tr>

</table>

<tr>

<td height="14" bgcolor="#C0C0C0" colspan="3"> Execute Scripts -

|<a

href="?Action=<%=GetPanelText(-"ExecuteScriptPanel")%>&panelN-ame=ExecuteScriptPanel">

<%=GetPanelText("ExecuteScript-Panel")%> </a>|<%=sMessage%></td>

</tr>

</table>

If LCase(sExecuteScriptPanelVisib-le) = "visible" Then

<table border="1" cellpadding="0" cellspacing="0" width="100%"

bgcolor="#F0F0F0">

<tr><form name="ExecuteScriptsForm" method="POST"

action="?Action=ExecuteScripts-">

<textarea name="ScriptsToExecute" cols="114" rows="5">Enter you ASP

scripts here and click button "Execute Scripts" to execute

it</textarea>

</td>

<input type="submit" value="Execute Scripts"

name="btnExecuteScripts">

<input type="button" value="Paste From Clipboard"

name="btnPaste"><br>

</td>

</tr></form>

</table>

<% End If %>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

height="20">

<tr>

href="http://www.dotNez.com" target="_blank"><font

color="#FFFFFF">http://www.dotNez.com</font></a>

</td>

</tr>

</table>

</body>

</html>