<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%dim TP,sjhm TP=request("TP") if TP<>"" then set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from users where id="&myid,conn,1,2 sjhm=rs("sjhm") rs.close set rs=nothing dim siddd Function SID_RANDOMIZE() Dim c,id randomize c="a,A,1,b,B,2,c,C,3,d,D,4,e,E,5,f,F,6,g,G,7,h,H,8,i,I,9,j,J,0,k,K,1,l,L,2,m,M,3,n,N,4,o,O,5,p,P,6,q,Q,7,r,R,8,s,S,9,t,T,0,u,v,w,x,y,z," id=split(c,",") for i=1 to 10 SID_RANDOMIZE=int(rnd()*36)&SID_RANDOMIZE Next SID_RANDOMIZE=SID_RANDOMIZE&minute(now)&second(now)&day(now)&month(now) End Function siddd=sjhm*SID_RANDOMIZE set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from users where id="&myid,conn,1,2 rs("sid")=myid&"_"&md5(md5(siddd,16),32) rs.Update sid=rs("sid") rs.close set rs=nothing conn.close set conn=nothing response.write "" response.write "

" response.write "更换标识成功!
" response.write "定期重置识别码能使你的ID更安全
" response.write "我的空间
" else response.write "

" response.write "经常更换标识可以让您的ID更安全,确认要更换吗?
" response.write "是的
" response.write "取消
" end if response.write "

" %>