YesYo.com MintState Forums  
뒤로    YesYo.com MintState BBS > Tech > ASP
검색
멤버이름  오토
비밀번호 
 


 
작성일 : 09-10-20 23:34
ASP INFO
 글쓴이 : MintState
조회 : 4,494  
ASP INFO

phpinfo()와 같은 형식으로 출력 해주는 소스

<%
aspinfo()
Sub aspinfo()
Dim strVariable, strASPVersion
Dim strCookie, strKey, strSession
'ASP 버전 정보
strASPVersion = ScriptEngine & " Version " & _
ScriptEngineMajorVersion & "." & _
ScriptEngineMinorVersion
%>
<HTML>
<HEAD>
<style type="text/css"><!--
a { text-decoration: none; }
a:hover { text-decoration: underline; }
h1 { font-family: arial, helvetica, sans-serif; font-size: 18pt; font-weight: bold;}
h2 { font-family: arial, helvetica, sans-serif; font-size: 14pt; font-weight: bold;}
body, td { font-family: arial, helvetica, sans-serif; font-size: 10pt; }
th { font-family: arial, helvetica, sans-serif; font-size: 10pt; font-weight: bold; }
//--></style>
<TITLE>aspinfo()</TITLE></HEAD>
<BODY>
<DIV align="center">

<TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3">
	<TR>
		<TD align="center" valign="top" bgcolor="#FFFFAE" align="left" colspan="2">
			<H3>ASP (<%= strASPVersion %>)</H3>
		</TD>
	</TR>
</TABLE>
<BR>
<HR>
<BR>
<H3>Server Variables</H3>
<TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3">
<%
For Each strVariable In Request.ServerVariables
		Response.write("<TR>")
		Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" align=""left"">" & strVariable & "</TH>")
		Response.write("<TD bgcolor=""#FFFFD9"" align=""left"">" & Request.ServerVariables(strVariable) & " </TD>")
		Response.write("</TR>")
Next 'strVariable
%>
</TABLE>
<BR>
<HR>
 <BR>
<H3>Cookies</H3>
<TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3">
<%
For Each strCookie In Request.Cookies
		if Not Request.Cookies(strCookie).HasKeys Then
				Response.write("<TR>")
				Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" align=""left"">" & strCookie & "</TH>")
				Response.write("<TD bgcolor=""#FFFFD9"" align=""left"">" & Request.Cookies(strCookie) & " </TD>")
				Response.write("</TR>")
		Else
				For Each strKey In Request.Cookies(strCookie)
						Response.write("<TR>")
						Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" align=""left"">" & strCookie & "(" & strKey & ")</TH>")
						Response.write("<TD bgcolor=""#FFFFD9"" align=""left"">" & Request.Cookies(strCookie)(strKey) & " </TD>")
						Response.write("</TR>")
				Next
		End if
Next
%>
</TABLE>
<BR>
<HR>
<BR>
<H3>Session Cookies</H3>
<TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3">
<%
For Each strSession In Session.Contents
		Response.write("<TR>")
		Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" align=""left"">" & strSession & "</TH>")
		Response.write("<TD bgcolor=""#FFFFD9"" align=""left"">" & Session(strSession) & " </TD>")
		Response.write("</TR>")
Next
%>
</TABLE>
<BR>
<HR>
<BR>
<H3>Other variables</H3>
<TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3">
	<TR><TH width="30%" bgcolor="#FFFFAE" align="left">Session.sessionid</TH><TD bgcolor="#FFFFD9"><%= Session.sessionid %></TD></TR>
	<TR><TH width="30%" bgcolor="#FFFFAE" align="left">Server.MapPath</TH><TD bgcolor="#FFFFD9"><%= Server.MapPath ("/") %></TD></TR>
</TABLE>

</DIV>
</BODY>
</HTML>
<%
End Sub
%>
Rated 0/5 (0%) (0 Votes)

(\__/)
(='.'=)
(")_(")~
Search Infomation by MintState
MintState

 
 

Total 5
번호 제   목 글쓴이 날짜 조회
5 성능 및 스타일 향상에 도움이 되는 28가지 ASP 팁 MintState 05-24 5492
4 UTF-8 EUC-KR CODEPAGE MintState 05-24 4559
3 MSSQL 트랜잭션 로그 백업(Transaction Log Backup)에 관하여 MintState 04-12 5455
2 기초 DB 연결 MintState 10-21 4807
1 ASP INFO MintState 10-20 4495

모바일 버전으로 보기
CopyRight ©2004 - 2018, YesYo.com MintState. ™