<%@language=\”vbscript\” %><% set mail= server.CreateObject(\”cdonts.newmail\”) mail.subject=\”恭喜,您在随风起舞注册成功,感谢您的参与!\” mail.to = mailid mail.from =\”song@intels.net\” mail.body= \”这是随风起舞寄给您的初始密码\” & vbcrlf &href=\’mailto:mailid=\”user@intels.net\’>mailid=\”user@intels.net\”address=\”address\”set conn = server.CreateObject(\”adodb.connection\”)conn.Open \”dsn\”,\”uid\”,\”pwd\”set rec= conn.Execute(\”select count(*) from membertable\”)id = cint(rec.fields(0))+1 r=rnd *50Response.Write r & \”<br>\”for i = 0 to 20 if cint(r)>0 and cint(r)<26 then str=str +chr(97 + cint(r)) r=rnd *100next Response.Write strpwd=left(str,2)pwd=pwd & idpwd=pwd & right(str,2)pwd=pwd & second(time)%><br><% set mail= server.CreateObject(\”cdonts.newmail\”)mail.subject=\”千花飞舞向您问候!\”mail.to = mailidmail.from =\”song@intels.net\”mail.body= \”这是随风起舞寄给您的初始密码\” & vbcrlf & \”您可以随时修改它\” & vbcrlf & pwd & vbcrlf & \”再次感谢光临随风起舞!\”mail.send%>
[1]
