jmailkt.asp

多用户个人主页系统(ASP)

<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/dataconn.inc"-->
<!--#include file="includes/setup.asp"-->
<%

if adminlogin=session("username") and adminpassword=session("password") then
kt=replace(trim(request.form("kt")),", ","") 
if kt="" then
%>     
<script language=vbs>     
<!--     
MsgBox "您没有选择要登记的用户记录!"
window.location.href="nokt.asp"     
-->     
</script>     
<%
end if
on error resume next
for each x in request.form("kt")
sql="select * from user where num=" & x
set rstemp = Conntemp.Execute(sql)
'creat path
fs.CreateFolder fullpath&hpdirname&"\"&rstemp("username")
set afile=fs.getfile("E:\wwwroot\web\index.int")
afile.copy fullpath&hpdirname&"\"&rstemp("username")&"\index.htm"

mailtmp1="<table width='445' border='0' align='center' cellpadding='0' cellspacing='0'>"
mailtmp2="<tr><td bgcolor='#000000'><table width='445' border='0' align='center' cellpa"
mailtmp3="dding='0' cellspacing='1'><tr><td bgcolor='#FFFFFF' style='line-height:30px'>"
mailtmp4=" <p><font color='#003399'>尊敬的用户，您好！<br><font color='#FF0000'>　　恭喜"
mailtmp5="您在9Cool.Net申请的主页已经通过了审核。</font><br><font color='#FF"
mailtmp6="0000'><strong>　　</strong>您的用户名为:"&rstemp("username")&"</font><br><font color='#FF0000'>"
mailtmp7="　　您的密码为:"&rstemp("password")&"</font><br>　　您的网站"
mailtmp8="地址为：http://www.9cool.net/home/"&rstemp("username")&"<br>　　首页默认文件为"
mailtmp9="index.asp或index.htm <br>　　登陆地址：http://www.j9cool.net</font><font color='#003399'>"
mailtmp10="</font><font color='#003399'><br>　　请在空间开通一月内通过"
mailtmp11="您的用户名及密码登录上传或更新您的网站。</font><font color='#003399'><br>　　您"
mailtmp12="可以随时光顾九酷网络网站了解进一步信息。http://www.9cool.net <br>　　您也可以"
mailtmp13="光临我们九酷网络社区相互交流。<br>　　社区地址:http://bbs.9cool.net"
mailtmp14="</font></p><p><font color='#003399'>九酷网络</font></p></td></tr></table>"
mailtmp15="</td></tr></table>"
mailtmp=mailtmp1&mailtmp2&mailtmp3&mailtmp4&mailtmp5&mailtmp6&mailtmp7&mailtmp8&mailtmp9&mailtmp10&mailtmp11&mailtmp12&mailtmp13&mailtmp14&mailtmp15


Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.Charset = "GB2312"     '邮件的文字编码为国标
jmail.ContentType = "text/html"    '邮件的格式为HTML格式
jmail.AddRecipient rstemp("email")    '邮件的收件人
jmail.From = "发信者邮件地址"   '发件人的E-MAIL地址
jmail.MailServerUserName = "[e-mail]"     '登录邮件服务器所需的用户名,改成你自己的
jmail.MailServerPassword = "123456     '登录邮件服务器所需的密码,改成你自己的
jmail.Subject = "您的免费空间已经开通"    '邮件的标题,改成你自己的
jmail.Body = mailtmp      '邮件的内容
jmail.Send("邮件服务器地址")     '执行邮件发送（如smtp.163.com）
jmail.Close()   '关闭对象

sql="update user set kt='是' where num=" & x
conntemp.execute(sql)
sql="update user set ktdate='"&FormatDateTime(date(),1)&"' where num=" & x
conntemp.execute(sql)
next
else     
%>     
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>     
<%
end if
response.clear 
response.redirect("nokt.asp")
%>