帮忙解决一下啊 贺卡发送程序啊 看哪有问题啊
<%@ Language=VBScript %>
<%
dim con,rs,sql,id,constr
set rs=server.createobject("ADODB.Recordset")
Set con=Server.CreateObject("ADODB.Connection")
constr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/111.asp")
con.Open constr
sql="select * from card order by id desc"
rs.open sql,con,1,1
id=cstr(rs("ID")+1)
rs.close
con.close
set rs=nothing
set con=nothing
dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = session("sender_email")
mail.To = session("recip_email")
mail.Subject = "您的朋友 "&session("sender_name")&" 给您寄来贺卡"
mail.Body ="您好，"&session("recip_name")&chr(13)&chr(13)&"您的朋友 "&session("sender_name")&" 给您寄来了一封精美的贺卡！"&chr(13)&chr(13)&"现在保存在 贺卡系列中 (将保存90天）。"&chr(13)&chr(13)&"请点击以下地址观看您的贺卡："&chr(13)&chr(13)&"http://www.xhtuonline.net/info/heka/read.asp?id="&id&chr(13)&chr(13)&"愿您今天有份愉快的好心情！"&chr(13)&chr(13)&"***************************************************************"&chr(13)&chr(13)&"http://www.xhtuonline.net/"&chr(13)&chr(13)&"***************************************************************"
mail.Send
' Set objCDOMail = Nothing
' if err then
' SendMail=err.description
' err.clear
' else
' SendMail="OK"
' end if
' set SMTP=Server.CreateObject("Jmail.SMTPMail")
' SMTP.ServerAddress="mail.21cn.com"
' SMTP.Sender=session("sender_email")
' SMTP.AddRecipient session("recip_email")
' SMTP.Subject="您的朋友 "&session("sender_name")&" 给您寄来贺卡"
' SMTP.Body="您好，"&session("recip_name")&chr(13)&chr(13)&"您的朋友 "&session("sender_name")&" 给您寄来了一封精美的贺卡！"&chr(13)&chr(13)&"现在保存在 碧莲清风细雨贺卡系列中 (将保存90天）。"&chr(13)&chr(13)&"请点击以下地址观看您的贺卡："&chr(13)&chr(13)&"http://www.xhtuonline.net/info/heka/dir/read.asp?id="&id&chr(13)&chr(13)&"愿您今天有份愉快的好心情！"&chr(13)&chr(13)&"***************************************************************"&chr(13)&chr(13)&"西高热线网http://www.xhtuonline.net/"&chr(13)&chr(13)&"***************************************************************"
' SMTP.Execute
set con=server.createobject("adodb.connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data/111.asp")
sql="insert into card(cardaddress,xlb,backgd,the_message,textcolor,bgmid,sender_name,sender_email,recip_name,recip_email,时间) values('"&session("cardaddress")&"','"&session("xlb")&"','"&session("backgd")&"','"&session("the_message")&"','"&session("textcolor")&"','"&session("bgmid")&"','"&session("sender_name")&"','"&session("sender_email")&"','"&session("recip_name")&"','"&session("recip_email")&"','"&now()&"')"
con.execute sql
con.close
set con=nothing
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta HTTP-EQUIV="REFRESH" CONTENT="5;URL=index.asp">
<title>贺卡发送成功</title>
<link rel="stylesheet" type="text/css" href="lv.css">
</HEAD>
<BODY>
<div align="center">
<p> </p>
<p>你的贺卡已经寄出，地址为<a href="http://www.xhtuonline.net/info/heka/read.asp?id=<%=id%>">http://www.xhtuonline.net/info/heka/read.asp?id=<%=id%></a></p>
</div>
<hr width="67%">
<p align="center">过3秒你会回到起始页。 </p>
</BODY>
问题点数：0、回复次数：0Top
