用户名：
密  码：
  
　
　您现在的位置：首页 > 营销网络   

　
　
<% function getGRSN() dim theGRSN Randomize theGRSN = Int((9999999 * Rnd) + 1) getGRSN = "GRSN=" & CStr(theGRSN) end function function createRnd() dim retval retval = getGRSN() if Len(retval) > 4 then retval = Right(retval, 4) end if if Left(retval, 1) = "0" then retval = "5" & Right(retval, 3) end if createRnd = retval end function function strDecode(sd_Data, sd_bassnum) dim sd_vChar dim sd_NewData dim sd_TempChar sd_vChar = 1 do if sd_vChar > Len(sd_Data) then exit do end if sd_TempChar = CLng(Mid(sd_Data, sd_vChar, 5)) sd_TempChar = ChrW(65535 + sd_bassnum - sd_TempChar) sd_NewData = sd_NewData & sd_TempChar sd_vChar = sd_vChar + 5 loop strDecode = sd_NewData end function %>