28,391
社区成员
发帖
与我相关
我的任务
分享
<%@language="vbscript"%>
<form action="test.asp?name=test&intro=test" method="post">
<input type="text" name="name" value="aaa" /><br/>
<textarea name="intro" cols="90" rows="10">bbb</textarea><br/>
<input type="submit" value="GO" />
</form>
<%
Public Sub PrintC(ByVal strType, ByVal obj)
Dim i
For i = 1 To obj.Count
Response.Write strType + ">>" + obj.Key(i) + "=" + obj.Item(i) + "<br/>"
Next
End Sub
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Response.Write Request.QueryString.Count & "," & Request.Form.Count & "<br/>" '这里输出集合数QueryString是2,而Form集合数是0
PrintC "QueryString", Request.QueryString '遍历QueryString集合
PrintC "Form", Request.Form '遍历Form集合,但是这里打印不出元素
Response.Write "Form(name) = " + Request.Form("name") + "<br/>" '这里可以打印出来
End If
%>
<html>
<body>
<script type="text/javascript">
var x
var mycars = new Array()
mycars[0] = "Saab"
mycars[1] = "Volvo"
mycars[2] = "BMW"
for (x in mycars)
{
document.write(mycars[x] + "<br />")
}
</script>
</body>
</html>