紧急！！！怎么做这个邮局的登陆窗口．．．

hxyman 2005-12-24 01:23:04
http://mail.winfar.net

上面是邮局的入口，我想在网站首页做一个登陆接口．
可是这个页面中隐藏有验证码，密码是经过与验证码拼接后发送到服务器的．问题是怎么得到这个验证码．不知道用xmlhttp可不可以．．．如果解决了，分不够再加．．．谢谢
...全文
135 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
hxyman 2005-12-27
  • 打赏
  • 举报
 回复
呵呵，谢谢版主．．．
jspadmin 2005-12-27
  • 打赏
  • 举报
 回复
下面代码可以帮你取到picnum的值，刷新可以发现这个picnum是动态改变的。然后用encode加密用户密码和picnum，作为表单项目提交，就好了。
f1.pwhidden.value = encode(pwshow.value, parseInt(f1.picnum.value))
function encode(datastr, bassnum) {
var tempstr;
var tchar;
var newdata = "";

for (var i = 0; i < datastr.length; i++)
{
tchar = 65535 + bassnum - datastr.charCodeAt(i);
tchar = tchar.toString();

while(tchar.length < 5)
{
tchar = "0" + tchar;
}

newdata = newdata + tchar;
}

return newdata;
}

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
%>

取picnum值页
<html>
<head>
<title>测试页面</title>
</head>
<body>
<div align="center">
<h2>测试页面</h2>

<%
Dim wstr,str,url,start,over,id
url="http://mail.winfar.net"
wstr=getHTTPPage(url)
start=Newstring(wstr,"<div align=right>")
over=Newstring(wstr,"</div>")
body=mid(wstr,start+221,over-start-342)
response.write body
%>

<br>
<a href="http://www.pifoo.com">蚍蜉中文站（http://www.pifoo.com）</a>
</div>
</body>
</html>
jspadmin 2005-12-26
  • 打赏
  • 举报
 回复
呵呵，人家都给你写的这么仔细了，还不会，无语
jspadmin 2005-12-26
  • 打赏
  • 举报
 回复
的
hxyman 2005-12-26
  • 打赏
  • 举报
 回复
每次刷新页面这个值都是不同的，相当于验证码。
把整个页面拷过来改参数这并不难，可是这个验证码怎么办？
送去服务器端的密码是手工填写的密码再与这个验证码连起来发过去的。
xutao888 2005-12-25
  • 打赏
  • 举报
 回复
实际上我的代码可以直接用了
IamRobat 2005-12-25
  • 打赏
  • 举报
 回复

我晕你.够菜的.呵呵....

直接把代码拷过来(不是保存的方式),然后打到<Form>中的ACTION,在值的前面加上"http://mail.winfar.net"
hxyman 2005-12-24
  • 打赏
  • 举报
 回复
boyd1985
楼上高人可不可以说详细点，谢谢．．．
竹林听雨2005 2005-12-24
  • 打赏
  • 举报
 回复
是哪的东西就从哪取值，前面用变量来取值，value里可用变量来换。
hxyman 2005-12-24
  • 打赏
  • 举报
 回复
谢谢楼上的，
可是
<input type="hidden" name="pwhidden">
<input type="hidden" name="picnum" value="4657">
<input type="hidden" name="saveUser">
<input type="hidden" name="SecEx">

上面那个 picnum　的值我怎么得到呢？
xutao888 2005-12-24
  • 打赏
  • 举报
 回复


<html>
<head>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<title>企业邮局</title>
<LINK href="images\hwem.css" rel=stylesheet>

<SCRIPT LANGUAGE=javascript>
<!--
if (top.location !== self.location) {
top.location=self.location;
}

function window_onload() {

usernameshow.focus();

}

function gook() {

if (usernameshow.value == "")
{
alert("用户名不可为空");
usernameshow.focus();
return ;
}

if (pwshow.value == "")
{
alert("密码不可为空");
pwshow.focus();
return ;
}


f1.saveUser.value = showsaveUser.checked;
f1.username.value = usernameshow.value;

f1.SecEx.value = showSecEx.checked;
f1.pwhidden.value = encode(pwshow.value, parseInt(f1.picnum.value));

f1.submit();
}

function encode(datastr, bassnum) {
var tempstr;
var tchar;
var newdata = "";

for (var i = 0; i < datastr.length; i++)
{
tchar = 65535 + bassnum - datastr.charCodeAt(i);
tchar = tchar.toString();

while(tchar.length < 5)
{
tchar = "0" + tchar;
}

newdata = newdata + tchar;
}

return newdata;
}
//-->
</SCRIPT>
</head>

<body LANGUAGE=javascript onload="return window_onload()">
<table align=center border=0 cellpadding=0 cellspacing=0 width=776>
<tbody>
<tr>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=64></td>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=142></td>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=41></td>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=49></td>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=27></td>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=453></td>
<td><img border=0 height=1 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#edf8fe colspan=6> </td>
<td><img border=0 height=23 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff rowspan=3> </td>
<td bgcolor=#ffffff rowspan=3><img border=0 height=168 name=shetuan_r2_c2
src="images/icon/shetuan_r2_c2.gif" width=142></td>
<td bgcolor=#ffffff colspan=3> </td>
<td bgcolor=#ffffff rowspan=2>
<div align=right>
<form name="f1" method="post" action="http://mail.winfar.net/default.asp">

<input type="hidden" name="username">

<input type="hidden" name="pwhidden">
<input type="hidden" name="picnum" value="4657">
<input type="hidden" name="saveUser">
<input type="hidden" name="SecEx">
</form>
</div>
</td>
<td><img border=0 height=24 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff colspan=3>
<div align=center><font face="Verdana, Arial, Helvetica, sans-serif">winfar.net</font></div>
<a href="/en">    English Edition</a>
</td>
<td><img border=0 height=21 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff> </td>
<td bgcolor=#ffffff rowspan=2><img border=0 height=233 name=shetuan_r4_c4
src="images/icon/shetuan_r4_c4.gif" width=49></td>
<td bgcolor=#ffffff colspan=2 rowspan=2>
<table align=center border=0 cellpadding=0 cellspacing=0 width="99%">
<tbody>
<tr>
<td height=40>
<table cellspacing=0 cellpadding=0 align=center border=0>
<tbody>
<tr>
<td nowrap height="30" width="14"> </td>
<td nowrap colspan="-1"><font class="s">

<b>用户名: </b></font><input type="text" name="usernameshow" maxlength="64" class="textbox" size="13">
<font color=#3399ff><img height=15 src="images/icon/icon1.gif" width=15 1><b><font face="Tahoma">winfar.net</font></b></font>

</td>
</tr>
<tr>
<td nowrap height="30" width="14"></td><td nowrap colspan="-1"><font class="s"><b>密  码: </b></font><input type="password" name="pwshow" maxlength="32" class="textbox" size="13">
<font class="s" color="#000000">

<input type="checkbox" name="showSecEx">
增强安全性  
<input type="checkbox" name="showsaveUser">
记住用户名</font>

</font> </td>
</tr>
<tr>
<td colspan="2" nowrap height="35">        
<input type="image" border="0" name="button_login" src="images/login.gif" onClick="javascript:gook()">
  
<input type="image" border="0" name="button_login" src="images/password.gif" width="67" height="18" onClick="javascript:location.href='forgetbf.asp?GRSN=5076061'"></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td class=d
height=63>
<p style="line-height: 150%">本系统支持<font
face="Verdana, Arial, Helvetica, sans-serif">WEB</font>或者<font
face="Verdana, Arial, Helvetica, sans-serif">POP3</font>收发邮件。<br>
如果要使用<font
face="Verdana, Arial, Helvetica, sans-serif">FoxMail</font>等软件收发邮件，请注意：<br>
<font
face="Verdana, Arial, Helvetica, sans-serif"> SMTP</font>服务器和<font
face="Verdana, Arial, Helvetica, sans-serif">POP3</font>服务器都是
<font color=#ff0000
face="Verdana, Arial, Helvetica, sans-serif">mail.winfar.net</font><br>
<font
face="Verdana, Arial, Helvetica, sans-serif">SMTP</font>服务器需要身份验证，用户名要填
<font color=#ff0000
face="Verdana, Arial, Helvetica, sans-serif">user@winfar.net
</font>
</td>
</tr>
<tr>
<td class=d height=40>
<div align=right><img height=13 src="images/icon/help.gif"
width=36></div>
</td>
</tr>
</tbody>
</table>
</td>
<td><img border=0 height=123 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff rowspan=3><img border=0 height=259 name=shetuan_r5_c1
src="images/icon/shetuan_r5_c1.gif" width=64></td>
<td bgcolor=#ffffff colspan=2><img border=0 height=110 name=shetuan_r5_c2
src="images/icon/shetuan_r5_c2.gif" width=183></td>
<td><img border=0 height=110 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff colspan=2 rowspan=2><img border=0 height=149
name=shetuan_r6_c2 src="images/icon/shetuan_r6_c2.gif" width=183></td>
<td bgcolor=#ffffff colspan=2><img border=0 height=85 name=shetuan_r6_c4
src="images/icon/shetuan_r6_c4.gif" width=76></td>
<td bgcolor=#4994bf> </td>
<td><img border=0 height=85 src="images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff colspan=3>
<div align="center">

没有该邮局的详细信息，请联系网管录入 <html></html>

</div>
</td>
<td><img border=0 height=64 src="images/icon/spacer.gif"
width=1></td>
</tr>
</tbody>
</table>
</body>
</html>


xutao888 2005-12-24
  • 打赏
  • 举报
 回复
照样子做个页面，文本框的名字不能变，再把Action的地址前面加上完整路径，如“http://mail.winfar.net/check.asp”
企业信息化办公软件--汇讯企业版即时通讯
　1、汇讯企业邮局实现邮件感知提醒,打破传统邮件传输格局，支持创建多个邮件账户，并实现“实时新邮件感知提醒”，启动邮局系统后可同时对多个邮箱进行查阅等操作;用户可将“默认邮件账户地址”与“个人资料邮箱...
超全的英语短句汇集
English 900 英语九百句常用职位英文译名超级短句成语集锦打开话匣子PC电脑词汇一百个绝佳句型李阳英语365句托福听力常用短语校园英语迷你惯用语洋话连篇至理名言English 900 英语九百句第一册一、 Greetings ...
SpringBoot2+Mail邮件发送系统(邮箱专题)
3的简称，即邮局协议的第3个版本,它规定怎样将个人计算机连接到Internet的邮件服务器和下载电子邮件的电子协议。它是因特网电子邮件的第一个离线协议标准,POP3允许用户从服务器上把邮件存储到本地主机（即自己的...
English 900 英语九百句
常用职位英文译名超级短句成语集锦打开话匣子PC电脑词汇一百个绝佳句型李阳英语365句托福听力常用短语校园英语迷你惯用语洋话连篇至理名言English 900 英语九百句第一册一、 Greetings 问候语 1. hello! / ...
网络协议与攻防复习
自测一 1.下面关于WWW论述不正确的是( )。 A WWW是全球最大的分布式数据资源系统; ... ...2.内部网关协议RIP是一种广泛使用的基于( )的协议。...A .... B .... C .窗口控制机制 D .自动重发机制 4.TCP连接使用
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章