一个开源的Asp.net2.0博客系统
Private Sub Command1_Click() If Len(Text1.Text) = 0 Then Text2.Text = "请输入用户名!" Else Text2.Text = Mid((MD5(MD5(UCase(Text1.Text)) & "125" & MD5("125"))), 7, 10) 'MD5模块,"125"也可以是"135" End If End Sub
Powered by MiniBoke v2.0.0.8 Build 0828
Copyright © 2008 迷你博客. All rights reserved.
粤ICP备07500939号