t_id=request("id")
sql="select * from learning where articleid="&t_id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
picture=rs("images1")
rs.close
set rs=nothing
conn.close
set conn=nothing
titletext=request.form("titletext")
'picture=request.form("picture")
midifile=request.form("midifile")
bgcolor=request.form("bgcolor")
textcolor=request.form("textcolor")
background=request.form("background")
toname=request.form("toname")
mail=request.form("mail")
myname=request.form("myname")
replyto=request.form("replyto")
message=request.form("message")
message = Replace(message, CHR(10), "")
method=request.form("method")
if toname="" or mail="" or myname="" or replyto="" then
response.write("alert('信息没有填写全');history.go(-1)")
end if
%>
RANDOMIZE
tt=INT((99999999+10000001)*RND)
%>
content="text/html; charset=gb_2312-80">
贺卡传情
if method="preview_card" then
'方法为预览时
%>
codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
ID=Movie1 WIDTH=400 HEIGHT=300 vspace="0" hspace="0" border="0" align="middle">
收件人：
发件人：
if method="send_card" then
'connstr="DBQ="+server.mappath("tu.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="Insert into data(titletext,picture,midifile,bgcolor,textcolor,background,toname,mail,youname,replyto,addtime,pass,message,myname) values ('"&titletext&"','"&picture&"','"&midifile&"','"&bgcolor&"','"&textcolor&"','"&background&"','"&toname&"','"&mail&"','"&myname&"','"&replyto&"','"&now()&"','"&password&"','"&message&"','"&myname&"')"
conn.execute (sql)
set rs=server.createobject("adodb.recordset")
sql = "select * from data"
rs.Open SQL,conn,1,2
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & "贺卡通知"
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & "您有一张贺卡"
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & ""&toname&" 您好! "
strBody=strBody & ""&myname&" 在 "&now()&" 给您发了一张贺卡"
strBody=strBody & " 点击这里领取您的贺卡"
strBody=strBody & ""
strBody=strBody & "您的贺卡我们只保留30天。"
strBody=strBody & ""
strBody=strBody & ""
strBody=strBody & ""
Call SendMail(mail,"您有一张来自Ｘ情网的贺卡！",strBody)
%>
codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
ID=Movie1 WIDTH=400 HEIGHT=300 vspace="0" hspace="0" border="0" align="middle">
收件人：
发件人：
贺卡已经寄往 的 信箱，此贺卡只保留30天。
set rs=nothing
' conn.close
set conn=nothing%>
