confirmok.asp

这是一本关于高级软件工程的书籍

<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<!-- #include file="../class/sendmail.asp" -->
<%
	if session("username") = "" then
		response.Redirect("index.asp")
	end if
	
	if session("buylist") = "" then
		response.Redirect("index.asp")
	end if
	username = session("username")
	uname = managestr(request("uname"))
	phone = managestr(request("phone"))
	email = managestr(request("email"))
	postalcode = managestr(request("postalcode"))
	address = managestr(request("address"))
	remark = managestr(request("remark"))
	uid = managestr(request("uid"))
	total = managestr(request("total"))
	''''''''''更新人员信息''''''''''
	sql = "UPDATE people SET uname ='"&uname&"', phone ='"&phone&"', email ='"&email&"', postalcode ='"&postalcode&"', address ='"&address&"' WHERE (username = '"&session("username")&"')"
	conn.execute(sql)
	''''''''''更新人员信息结束''''''''''
	''''''''''写入订单表及订单子表''''''''''
	sql = "INSERT INTO orderform (uid,total,remark) VALUES ('"&uid&"','"&total&"','"&remark&"')"
	conn.execute(sql)
	sql = "select fid, datetime from orderform WHERE (uid = '"&uid&"') AND (total = '"&total&"') AND (status = 1) ORDER BY fid DESC"
	rs.open sql,conn
	if not rs.eof then
		fid = rs("fid")
		datetime = mid(rs("datetime"),1,9)
	end if
	rs.close
	sql = ""
	suan = mid(session("buylist"),1,len(session("buylist"))-2)
	sstr = split(suan,"*@")
	for i=0 to ubound(sstr)
		sinp = split(sstr(i),"#")
		sql = sql&"INSERT INTO ordersub (fid, pid, pname, price, number) VALUES ('"&fid&"','"&sinp(0)&"','"&sinp(1)&"','"&sinp(2)&"','"&sinp(3)&"')"
		cname = cname&sinp(1)&"x"&sinp(3)&"套、"
	next
	conn.execute(sql)
	cname = mid(cname,1,len(cname)-1)
	''''''''''写入订单表及订单子表结束''''''''''

	''''''''''''''''''发送E-mail''''''''''''''''''
	set objmail=new SendEmail
	body = "<br>&nbsp;&nbsp;&nbsp;&nbsp;尊敬的用户您好：<br><br>"
	body = body&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您于"&datetime&"在意科在线定单系统中预订了"&cname&"，共"&total&"元。为了您能够顺利购物，请在完成汇款后回复此邮件。<br><br>"
	body = body&"&nbsp;&nbsp;&nbsp;&nbsp;谢谢<br><br>意科在线购物系统"
	body = body&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=mailto:[e-mail]?Subject=用户确认yk"&fid&"&body="&datetime&username&"已订"&cname&"共"&total&"元>发送</a>"
	sshow=objmail.SendAspEmail("客户确认信",body,"","[e-mail]",email,"","","","","","")
	set objmail=nothing
	session("buylist") = ""
	session("fid") = ""
	session("fid") = fid
	response.Redirect("lastconfirm.asp")
	''''''''''''''''''发送E-mail结束''''''''''''''''''
%>