问题描述
mailbody=mailbody+"蓝色套装"+lantao+"绿色套装"+lvtao+"红色套装"+hongtao+"干粉"+ganf+"<br>"我用JMAIL组件发邮件,mailbody是邮件的内容.lantao,lvtao都是文本框的值,都是数字.蓝色套装,绿色套装等是值的说明.如果我买了蓝色套装1套,绿色套装3套.文本框的值lantao=1lvtao=3我收到的邮件内容为:蓝色套装1绿色套装3红色套装干粉我希望收到的邮件内容为:蓝色套装(1)+绿色套装(3)我只想收到有值的说明.象红色套装干粉没有值,不想收到.可以根据文本框的值为空来判断有值的文本框出现相应的说明.我是菜鸟,希望高手帮忙!应该怎么实现?
解决方案
解决方案二：
新手不懂,分太少了点,只要问题解决,重开贴加分.
解决方案三：
这个要写if判断再加字符串+了简单的字符串＋估计不行iflantou=1thenmailbody="蓝色套装"+"("+lantao+")"endif以此类推
解决方案四：
lantao>0
解决方案五：
只要有值的都连在一起的显示出来.如蓝色套装(1)+绿色套装(3)+...+...最后怎么让所有结果连在一起放在一个变量mailbody中?
解决方案六：
累加啊iflantou>1thenmailbody=mailbody+"蓝色套装"+"("+lantao+")"endififlvtou>1thenmailbody=mailbody+"绿色套装"+"("+lvtao+")"endif......后面不用我再写了吧
解决方案七：
shawn_yang:这样好象不行,lantou,lvtou都是文本类型!判断文本档为空就行了.应该不是大于0吧
解决方案八：
加了,出现很多数据类型不匹配!
解决方案九：
lantao是数值型还是字符型？是数值型的话要进行转换字符型的判断里是iflantao<>""
解决方案十：
htm:<INPUTname=lantaoid="lantao"size=4maxLength=10>asp:<%id=Request.Form("id")mail=Request.Form("mail")name1=Request.Form("name1")name2=Request.Form("name2")address=Request.Form("address")mobile=Request.Form("mobile")tele=Request.Form("tele")tele0=Request.Form("tele0")money=Request.Form("money")charge=Request.Form("charge")gmxq=Request.Form("gmxq")goodsdate=Request.Form("goodsdate")remarks=Request.Form("remarks")lantao=Request.Form("lantao")money1=Request.Form("money1")lvtao=Request.Form("lvtao")money2=Request.Form("money2")ganf=Request.Form("ganf")money3=Request.Form("money3")mianmz=Request.Form("mianmz")money4=Request.Form("money4")lanrsy=Request.Form("lanrsy")lanwsy=Request.Form("lanwsy")lvrsy=Request.Form("lvrsy")lvwsy=Request.Form("lvwsy")ximn=Request.Form("ximn")money5=Request.Form("money5")ximnsy=Request.Form("ximnsy")jiemnl=Request.Form("jiemnl")money6=Request.Form("money6")jiemnlsy=Request.Form("jiemnlsy")busnl=Request.Form("busnl")money7=Request.Form("money7")busnlsy=Request.Form("busnlsy")ve=Request.Form("ve")money8=Request.Form("money8")vesy=Request.Form("vesy")va=Request.Form("va")money9=Request.Form("money9")vasy=Request.Form("vasy")eye=Request.Form("eye")money10=Request.Form("money10")eyesy=Request.Form("eyesy")lanri=Request.Form("lanri")money11=Request.Form("money11")lanrisy=Request.Form("lanrisy")lanwan=Request.Form("lanwan")money12=Request.Form("money12")lanwansy=Request.Form("lanwansy")lvri=Request.Form("lvri")money13=Request.Form("money13")lvrisy=Request.Form("lvrisy")lvwan=Request.Form("lvwan")money14=Request.Form("money14")lvwansy=Request.Form("lvwansy")jinghua=Request.Form("jinghua")money15=Request.Form("money15")jinghuasy=Request.Form("jinghuasy")phone=Request.Form("phone")date2=Request.Form("date2")date3=Request.Form("date3")D1=Request.Form("D1")D2=Request.Form("D2")D3=Request.Form("D3")D4=Request.Form("D4")D5=Request.Form("D5")Setconn=Server.CreateObject("ADODB.Connection")conn.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&SERVER.MapPath("customer.mdb")setrs=server.createobject("adodb.recordset")sql="select*from[YCC]"rs.opensql,conn,1,3rs.addnewrs("id")=idrs("mail")=mailrs("name1")=name1rs("name2")=name2rs("address")=addressrs("mobile")=mobilers("tele")=telers("tele0")=tele0rs("money")=moneyrs("charge")=chargers("gmxq")=gmxqrs("goodsdate")=now()rs("remarks")=remarksrs("lantao")=lantaors("money1")=money1rs("lvtao")=lvtaors("money2")=money2rs("ganf")=ganfrs("money3")=money3rs("mianmz")=mianmzrs("money4")=money4rs("lanrsy")=lanrsyrs("lanwsy")=lanwsyrs("lvrsy")=lvrsyrs("lvwsy")=lvwsyrs("ximn")=ximnrs("money5")=money5rs("ximnsy")=ximnsyrs("jiemnl")=jiemnlrs("money6")=money6rs("jiemnlsy")=jiemnlsyrs("busnl")=busnlrs("money7")=money7rs("busnlsy")=busnlsyrs("ve")=vers("money8")=money8rs("vesy")=vesyrs("va")=vars("money9")=money9rs("vasy")=vasyrs("eye")=eyers("money10")=money10rs("eyesy")=eyesyrs("lanri")=lanrirs("money11")=money11rs("lanrisy")=lanrisyrs("lanwan")=lanwanrs("money12")=money12rs("lanwansy")=lanwansyrs("lvri")=lvrirs("money13")=money13rs("lvrisy")=lvrisyrs("lvwan")=lvwanrs("money14")=money14rs("lvwansy")=lvwansyrs("jinghua")=jinghuars("money15")=money15rs("jinghuasy")=jinghuasyrs.updaters.closedimCLStr,msg,mailserver,username,password,receiveCLStr=Chr(13)&Chr(10)'请在此修改相关信息mailserver="128.168.100.1"'username="yong@aaaa-1208.com"'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址）password="123"'smtp服务器验证密码（信箱密码）receive="yong@aaaa-1208.com"password="123"'接受反馈信息的email地址（可以是您的任何有效信箱）'修改结束receive2="1007@aaaa-1208.com"dimJMailSetJMail=Server.CreateObject("JMail.Message")JMail.silent=trueJMail.Logging=trueJMail.Charset="gb2312"JMail.ContentType="text/html"JMail.MailServerUserName=usernameJMail.MailServerPassword=passwordJMail.From=usernameJMail.FromName=emailJMail.AddRecipient(receive)JMail.AddRecipient(receive2)JMail.Subject=""+name1+"下单"'Thebodypropertyisbothreadandwrite.'Ifyouwanttoappendtexttothebodyyoucan'useJMail.Body=JMail.Body&"Helloworld!"'oryoucanuseJMail.AppendText"HelloWorld!"'whichinmanycasesiseasiertouse.'mailbody=mailbody+"公司名称："+company+"<br>"'mailbody=mailbody+"公司地址："+add+"<br>"mailbody=mailbody+" <br>"mailbody=mailbody+"地址："+address+"收货时间"+date2+"月"+date3+"送货<br>"mailbody=mailbody+"<br>"mailbody=mailbody+""+charge+"<br>"mailbody=mailbody+"客户电话："+phone+"客户姓名："+name1+"<br>"mailbody=mailbody+"金额"+D1+""+D2+""+D3+""+D4+""+D5+"<br>"a=mailbody+""+money+"<br>"iflantao<>""thenmailbody="蓝色套装"+"("+lantao+")"endififlvtao<>""thenmailbody=mailbody+"绿色套装"+"("+lvtao+")"endififganf<>""thenmailbody=mailbody+"干粉"+"("+ganf+")"endififmianmz<>""thenmailbody=mailbody+"面膜纸"+"("+mianmz+")"endififlanrsy<>""thenmailbody=mailbody+"蓝日试用装"+"("+lanrsy+")"endififlanwsy<>""thenmailbody=mailbody+"蓝晚试用装"+"("+lanwsy+")"endififlvrsy<>""thenmailbody=mailbody+"绿日试用装"+"("+lvrsy+")"endififlvwsy<>""thenmailbody=mailbody+"绿晚试用装"+"("+lvwsy+")"endififximn<>""thenmailbody=mailbody+"洗面奶"+"("+ximn+")"endififximnsy<>""thenmailbody=mailbody+"洗面奶试用包"+"("+ximnsy+")"endififjiemnl<>""thenmailbody=mailbody+"洁面凝露"+"("+jiemnl+")"endififjiemnlsy<>""thenmailbody=mailbody+"洁面凝露试用包"+"("+jiemnlsy+")"endififbusnl<>""thenmailbody=mailbody+"补水凝露"+"("+busnl+")"endififbusnlsy<>""thenmailbody=mailbody+"补水凝露试用包"+"("+busnlsy+")"endififve<>""thenmailbody=mailbody+"VE"+"("+ve+")"endififvesy<>""thenmailbody=mailbody+"VE试用包"+"("+vesy+")"endififva<>""thenmailbody=mailbody+"维A"+"("+va+")"endififvasy<>""thenmailbody=mailbody+"维A试用装"+"("+vasy+")"endififeye<>""thenmailbody=mailbody+"眼部抗皱精华油"+"("+eye+")"endififeyesy<>""thenmailbody=mailbody+"眼部抗皱精华油试用包"+"("+eyesy+")"endififlanri<>""thenmailbody=mailbody+"蓝套日霜"+"("+lanri+")"endififlanrisy<>""thenmailbody=mailbody+"蓝日霜试用包"+"("+lanrisy+")"endififlanwan<>""thenmailbody=mailbody+"蓝晚霜"+"("+lanwan+")"endififlanwansy<>""thenmailbody=mailbody+"蓝晚试用包"+"("+lanwansy+")"endififlvri<>""thenmailbody=mailbody+"绿日霜"+"("+lvri+")"endififlvrisy<>""thenmailbody=mailbody+"绿日试用包"+"("+lvrisy+")"endififlvwan<>""thenmailbody=mailbody+"绿晚霜"+"("+lvwan+")"endififlvwansy<>""thenmailbody=mailbody+"绿晚试用包"+"("+lvwansy+")"endififjinghua<>""thenmailbody=mailbody+"精华素"+"("+jinghua+")"endififjinghuasy<>""thenmailbody=mailbody+"精华素试用包"+"("+jinghuasy+")"endifmailbody=mailbody&aJMail.Body=mailbody'Sendit...JMail.Send(mailserver)Errmsg=Errmsg+"成功发送邮件。"JMail.closesetJMail=nothing'Response.Write(Errmsg)setrs=nothingconn.closesetconn=nothing%>没有加if判断语句没有出现不匹配的情况,加了就有了
解决方案十一：
lantao=trim(Request.Form("lantao"))
解决方案十二：
改了,没有用,还是一样出现类型不匹配.哎,人都要崩溃了.谢谢shawn_yang
解决方案十三：
出错信息是拷贝出来啊
解决方案十四：
shawn_yang,谢谢你了,辛苦了.虽然问题没有完美解决!我慢慢改吧!我给你加分!少了跟我说.
解决方案十五：
交个朋友吧,QQ:276938068
其他方案：
分怎么加不了,提示贴子不到五天时间!
其他方案：
客气了，而且我好像也没帮上你我觉得你这个程序多调试一下，用response.write看看变量，应该很快就通了