2.htm
<script language=vbscript>
tmpURL=document.URL
tmpPara=mid(tmpURL,Instr(tmpURL,"?")+1)
tmpArr=split(tmpPara,"&")
for i=lbound(tmpArr) to ubound(tmpArr)
tmpValue=split(tmpArr(i),"=")
select case tmpValue(0)
case "UserName":
if ubound(tmpValue)>0 then
UserName=tmpValue(1)
else
UserName=""
end if
case "Password":
if ubound(tmpValue)>0 then
Password=tmpValue(1)
else
Password=""
end if
end select
next
document.write "Username: "&UserName&"<BR>"
document.write "Password: "&Password&"<BR>"