Número de seguimiento expreso de consulta de código fuente de VB
Función kdcx(kd, orderid)
Dim Err, url, kdtime, link, Errcode,
Seleccione caso kd
Caso "shentong"
kd = "shentong"<
Caso "Yuantong"
kd = "yuantong"
Caso "yousu"
kd = "yousu"
Caso "longbang"