Automatic About Form
This code sample allows you to display an About form for your application with a couple of lines of code.
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
'Insert in Event (Like Button_Click)
Call ShellAbout(Me.hwnd, "- About Box Example", "A small example " & "that uses the ShellAbout Function to create an About Box.", Me.Icon)
<html>
<body>
<%
response.write("<H1>Core Dump</H1>")
response.write("<H2>Application</H2>")
For Each item in Application.Contents
If IsArray(item) Then
for each i in item
Response.write(item & " : " & Application.Contents(item) & "<BR>")
Next
Else
Response.write(item & " : " & Application.Contents(item) & "<BR>")
End If
next
response.write("<H2>Session</H2>")
For Each item in Session.Contents
If IsArray(item) Then
for each i in item
Response.write(item & " : " & Session.Contents(item) & "<BR>")
Next
Else
Response.write(item & " : " & Session.Contents(item) & "<BR>")
End If
next
response.write("<H2>Form</H2>")
For Each item in request.form
If IsArray(item) Then
for each i in item
Response.write(item & " : " & Request.Form(item) & "<BR>")
Next
Else
Response.write(item & " : " & Request.Form(item) & "<BR>")
End If
next
response.write("<H2>QueryString</H2>")
For Each item in request.querystring
If IsArray(item) Then
for each i in item
Response.write(item & " : " & Request.querystring(item) & "<BR>")
Next
Else
Response.write(item & " : " & Request.querystring(item) & "<BR>")
End If
next
%>
</body>
</html>
Původní komentáře (3)
Obnoveno z Wayback Machine