4-10.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 19 行

<%
Response.Write("<P><B>服务器端变量</B><BR>")
Blank="<P><B>空值的服务器变量</B><BR>"&vbcrlf
quote=CHR(34)
For Each Key in Request.ServerVariables
If instr(Key,"_ALL")+instr(key,"ALL_")=0 Then
   temp=trim(Request.servervariables(Key))
   If len(temp)=0 Then
      B1ankVars=B1ankVars & Key & ", "
   Else
      Response.Write "Request.servervariables(" & QUOTE 
      Response.Write Key  & QUOTE &") "
      Response.Write " =<B>" & temp & "</B><P>" & vbcrlf
   End If
End If
Next
Response.Write mid(Blank,1,len(Blank)-2)
%>