xmlhttp发送用户名和密码实现登陆

最新推荐文章于 2024-07-07 19:49:58 发布

wmnmtm

最新推荐文章于 2024-07-07 19:49:58 发布

阅读量1.4k

点赞数

本文链接：https://blog.csdn.net/wmnmtm/article/details/82923456

版权

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">

</style>
</head>
<body>
<%
Response.Write "username="&Request("username")&"<br>"
If Request("username") = "xiaoxiao"Then

Session("UserName") = "xiao"
Response.Write "<br>Current:Session(""UserName"")="&Session("UserName")&"<br>"
Response.Write ""
response.cookies("UserName")="test"

Else
Response.Write "验证错误,用户名或密码有误"
End If
response.cookies("Un")="123"
%>

<%
If Session("UserName") = "xiao" Then

Response.Write "<br>HaveLogin"
End If
%>

trylogin.asp

<%
Function GetResult(urlStr)
Dim xmlHttp
Dim retStr
Set xmlHttp = CreateObject("Msxml2.XMLHTTP") '创建对象
On Error Resume Next '出错处理
xmlHttp.Open "POST", urlStr, False '用POST方式打开连接，异步执行。
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '上传表单
xmlHttp.Send "username=xiaoxiao&userpwd=111111&usercookies=0" '发送指令
If Err.Number = 0 Then '如果连接正确
retStr = xmlHttp.responseText '等待并获得服务端返回的结果字符串
Else
retStr = "Url not found" '否则返回出错信息
End If
Set xmlHttp = nothing '释放对象 GetResult = retStr '返回结果
Response.Write retStr
End Function
%>