短网址跳转长连接时，参数之间的 & 被改为：&

cg5696 2018-08-13 06:43:55

生成的短网址的代码，原来用的好好的，没有做任何修改，最近打开后，跳转的长连接中把 &转义成为：&这样就不通了
也就是说：生成的短网址跳转后，用户名和密码之间本来是 & 连接的，现在改为：& 就出错了
http://www.baidu.net/members/logincheckgt.asp?username=lzfyjd&password=888888

原代码为：



Function BytesToBstr(body,Cset)

    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

'抓取网页内容的函数

Function getPageContent(Url)

    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

    objXMLHTTP.Open "Get", Url, False, "", ""

    objXMLHTTP.Send

    getPageContent = BytesToBstr(objXMLHTTP.ResponseBody,"UTF-8")

    Set objXMLHTTP = Nothing

End Function



set rs = server.createobject("adodb.recordset")

sql="select uid,username,password,dalei1 from weixin_duanxin where dalei1 = '"&request.queryString("dalei1")&"'"

rs.open sql,ZGW_Conn,1,1



	username = trim(rs("username"))

	password = trim(rs("password"))

	tempResult = getPageContent("http://api.ft12.com/api.php?url=" & Server.UrlEncode(" http://www.baidu.net/members/logincheckgt.asp?username="&username&"&password="&password&""))



response.Write tempResult

response.end