<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<!--#include file="../md5.asp"-->
<%

call head()



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
Call cardz("更换标识","show.asp?saytk="&saytk&"&amp;sid="&sid&"")

  response.write "更换标识成功!<br/>"
  response.write "定期重置识别码能使你的ID更安全<br/>"
  response.write "<a href=""show.asp?saytk="&saytk&"&amp;sid="&sid&""">我的空间</a><br/>"
Else
Call saycarda("更换标识")

  response.write "经常更换标识可以让您的ID更安全,确认要更换吗?<br/>"
  response.write "<a href=""sid.asp?TP=1&amp;saytk="&saytk&"&amp;sid="&sid&""">是的</a><br/>"

  response.write "<a href=""show.asp?saytk="&saytk&"&amp;sid="&sid&""">取消</a><br/>"
end if
Call headsay()
%>