test.asp

这是一款很好的SQL多用户版程序

<% For Each x In Request.Form %>
 Request.Form( <%= x %> ) = <%= Request.Form(x) %> <BR>
<% Next %>
<% For Each y In Request.QueryString %>
 Request.Form( <%= y %> ) = <%= Request.QueryString(y) %> <BR>
<% Next %>
<%
'取得会话变量
Dim sessitem
For Each sessitem in Session.Contents
  Response.write(sessitem & " : " & Session.Contents(sessitem) & "<BR>")
Next 
%>
<%
'取得应用程序变量
Dim appKey
For Each appKey in Application.Contents
  Response.Write appKey&":"&Application(appKey)&"<br>"
Next 
ttt0 = Hour(time)
ttt1=Minute(time)
if ttt1 > 15 Then
	ttt3 = date&" " & ttt0 &":"& ttt1-15 &":00 "
else
	ttt3 = date &" "& ttt0 -1  &" "&  ttt1 +45 &":00 "
end if
  Response.Write cdate(ttt3)
%>