急急,怎样获取登陆才能访问的页面的HTML代码??

沙发

nckggood [专家分：1020] 发布于 2007-05-16 13:44:00

session来判断是否登录了，如果是就显示一个介面，如果不是就显示另一个介面。

板凳

无限上网 [专家分：80] 发布于 2007-05-16 17:15:00

可是我登陆成功了呀..只是转到另一个获取HTML代码页又是没登陆,是不是要保持在同一个服务器呀

3 楼

a97191 [专家分：4040] 发布于 2007-05-16 17:52:00

用cookies用session变量

4 楼

无限上网 [专家分：80] 发布于 2007-05-16 18:21:00

看看我的登陆代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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" />
<title>无标题文档</title>
<script   language=javascript>
document.write("<form   name=myForm><input name=id type=text value=fchen id=id><input name=psw type=password value=831104 id=psw><input type=submit name=Submit value=登  陆>");
  var   myForm=document.forms["myForm"]
  myForm.action="http://www.***.com.cn/***.asp?submit=登  陆";
  myForm.method="POST" ;

  myForm.submit();
</script>

</head>

<body>

</body>
</html>

这是我获取HTML的代码:

<!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" />
<title>无标题文档</title>
</head>

<body>
<%
Private Function bytes2BSTR(vIn)
Dim i, ThischrCode, NextchrCode
strReturn = ""
For i = 1 To LenB(vIn)
  ThischrCode = AscB(MidB(vIn, i, 1))
  If ThischrCode < &H80 Then
   strReturn = strReturn & Chr(ThischrCode)
  Else
   NextchrCode = AscB(MidB(vIn, i + 1, 1))
   strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
   i = i + 1
  End If
Next
    bytes2BSTR = strReturn
End Function
Function Geturl(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "get", url, false, "", ""
          .Send
          GetURL = .ResponseText
    GetURL = bytes2BSTR(.Responsebody)
          End With
    Set Retrieval = Nothing

End Function

%><%
response.write Geturl("http://www.***.com.cn/admin.asp")
%>

</body>
</html>

5 楼

无限上网 [专家分：80] 发布于 2007-05-16 18:22:00

我先打开第一个登陆页面,登陆成功..可是再打开另一个获取代码的页面,还是提示未登陆,怎么办?怎么办?急死我了..帮我解决了多给几次最高分

您尚未登录，请登录后再回复。点此登录或注册

主题：急急,怎样获取登陆才能访问的页面的HTML代码??

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段