给新闻ID加密后传值

<%
Function rndStr(strLong)
  Dim TempNum
  Randomize
  Do while Len(rndstr)<strLong
  TempNum=CStr(Chr((57-48)*Rnd+48))
  rndStr=rndStr & TempNum
  Loop
  rndStr=rndStr
End Function

Function getID(doAction)
    Dim LastID
 doAction=Mid(doAction,11)
 LastID=Mid(doAction,1,Len(doAction)-10)
 getID=LastID
End Function

'给id加密如:<a href='details.asp?id=" & rndStr(10) & rs1("id") & rndStr(10) &"' >特大新闻 </a>
'给id解密: strid=request.form(id)
'          id=getID(strid)
%>