<%@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 *50
Response.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 *100
next
Response.Write str
pwd=left(str,2)
pwd=pwd & id
pwd=pwd & right(str,2)
pwd=pwd & second(time)
%>
<br>
<%
set mail= server.CreateObject(“cdonts.newmail”)
mail.subject=”Ã¥ÂÂè±é£ÂèÂÂÃ¥ÂÂæ¨é®åÂÂ!”
mail.to = mailid
mail.from =”song@intels.net”
mail.body= “è¿Âæ¯éÂÂé£Âèµ·èÂÂå¯Âç»Âæ¨çÂÂÃ¥ÂÂå§Âå¯Â研 & vbcrlf & “æ¨å¯以éÂÂæ¶修æ¹宔 & vbcrlf &
pwd & vbcrlf & “Ã¥ÂÂ次æÂÂè°¢åÂ
Â临éÂÂé£Âèµ·èÂÂ!”
mail.send
%>
ÃÂ xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
[1]