asp xmlhttp post和get
[ 2012-11-28 09:52:47 | 作者: admin ]
post
<%
Dim aa
aa=GetHttpPage("http://localhost/test1.asp?userid=1")
Response.Write(aa)
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl) = True Or Len(HttpUrl)<18 Or HttpUrl = "$False$" Then
GetHttpPage = "$False$"
Exit Function
End If
Dim Http
Set Http = server.CreateObject("MSXML2.XMLHTTP")
Http.Open "Post", HttpUrl, False
Http.setRequestHeader ...
阅读全文…
<%
Dim aa
aa=GetHttpPage("http://localhost/test1.asp?userid=1")
Response.Write(aa)
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl) = True Or Len(HttpUrl)<18 Or HttpUrl = "$False$" Then
GetHttpPage = "$False$"
Exit Function
End If
Dim Http
Set Http = server.CreateObject("MSXML2.XMLHTTP")
Http.Open "Post", HttpUrl, False
Http.setRequestHeader ...
阅读全文…
JavaScript 表单验证
[ 2012-11-28 09:33:57 | 作者: admin ]
<html>
<head>
<script type="text/javascript">
function validate_required(field,alerttxt)
{
with (field)
{
if (value==null||value=="")
{alert(alerttxt);return false}
else {return true}
}
}
function validate_form(thisform)
{
with (thisform)
{
if (validate_required(email,"Email must be filled out!")==false)
{email.focus();return false}
}
}
</script>
</head>
<body>
阅读全文…
1