<% Response.Expires= -1 Response.ExpiresAbsolute = Now() - 1 response.CacheControl="no-cache" server.ScriptTimeout=5000 %> <% PreviousId=checkstr(request("PreviousId"),1) PostEmail="" cmd=trim(request("cmd")) RealName=checkstr(trim(request("RealName")),2) Sex=checkstr(request("Sex"),1) Tel=checkstr(trim(request("Tel")),2) Address=checkstr(trim(request("Address")),2) Email=checkstr(trim(request("Email")),2) Remark=checkstr(trim(request("Remark")),2) lessonid=checkstr(trim(request("lessonid")),2) city=checkstr(trim(request("city")),2) if city="" then city="北京" if city="北京" then url="/ms/classlist1.asp?uid="&PreviousId else url="/ms/classlist1.asp?uid="&PreviousId&"&city="&server.URLEncode(city) end if response.redirect url if cmd="add" and RealName<>"" and Tel<>"" and Address<>"" then WebName=request.ServerVariables("HTTP_HOST") '获取域名 Set rs=server.CreateObject("ADODB.Recordset") strSql="Select Top 1 Show_Name From Link_Web Where web_Name='"&WebName&"'" '获取合作网站名称 rs.open strSql,conn,1,3 if not rs.eof then ShowName=rs("Show_Name") end if rs.close Set rs_lesson=server.CreateObject("ADODB.Recordset") strSql="Select lesson from Lessonset where lesson_Id in("&lessonid&")" rs_lesson.Open strSql,conn,1,3 do while not rs_lesson.eof LessonName=LessonName&rs_lesson("Lesson")&"," rs_lesson.movenext loop rs_lesson.close if Instr(Len(LessonName),LessonName,",")>0 then LessonName=left(LessonName,Len(LessonName)-1) end if strSql="Select Top 1 * from Ms_Order where 1=0" rs.Open strSql,conn,1,3 rs.addnew rs("RealName")=RealName rs("Sex")=Sex rs("Tel")=Tel rs("Address")=Address rs("Email")=Email rs("Remark")=Remark rs("LessonId")=LessonId rs("LessonName")=LessonName rs("WebName")=WebName rs("ShowName")=ShowName rs.update rs.close if WebName="passeasy.edu24ol.com" Then PostEmail="zcpass@126.com" elseif WebName="exam8.edu24ol.com" or WebName="kc.exam8.com" Then PostEmail="services@exam8.com" elseif WebName="examres.edu24ol.com" Then PostEmail="webmaster@examres.com" elseif WebName="course.edu24ol.com" Then PostEmail="edu24ol@qq.com" elseif WebName="chuntian.edu24ol.com" Then PostEmail="chuntianorg@yahoo.com.cn" End If if PostEmail<>"" Then SendMail End If response.write "" end if sub SendMail() msubject="

以下是 " & RealName & " 在线订购的课程信息：

" msubject=msubject & "

报名课程：" & LessonName & "

" msubject=msubject & "

真实姓名：" & RealName & "

" if Sex=1 then msubject=msubject & "

性别：男

" else msubject=msubject & "

性别：女

" end if msubject=msubject & "

联系电话:" & Tel & "

" msubject=msubject & "

通信地址:" & Address & "

" msubject=msubject & "

电子邮件：" & Email & "

" msubject=msubject & "

备注：" & Remark & "

" Set jMail = Server.CreateObject("JMail.Message") jMail.Charset="gb2312" jMail.From="hqwx@edu24o1.com" jMail.AddRecipient PostEmail JMail.MailServerUserName = "hqwx@edu24o1.com" JMail.MailServerPassword = "hqwx_2008" jMail.Subject=RealName & " 环球面授课程订购信息" jMail.HTMLBody=msubject jMail.Priority = 1 jMail.Send("mail.edu24o1.com") End Sub %> 课程提交
面授招生信息
面授资讯
<% if city="北京" then sql="select CLASS_TYPE_NAME,classnum from HQFS_CLASS_TYPE where website=3 and isDo=1 and isDel=0 order by class_type_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3 if not(rs.eof or rs.bof) then do while not rs.eof sql_class="SELECT b.lesson_id,b.lesson,a.price,a.r_price,a.o_price FROM classset a left outer join lessonset b on a.lesson_id=b.lesson_id where a.lesson_up="&PreviousId&" and a.website=3 and a.isshow=1 and a.classnum="&rs("classnum") set rs_class=server.createobject("adodb.recordset") rs_class.open sql_class,conn,3 if not(rs_class.eof or rs_class.bof) then %>
<%=rs("CLASS_TYPE_NAME")%>
<% do while not rs_class.eof %> <% rs_class.movenext loop %>
  课程 原价 销售价
" /> <%=rs_class("lesson")%> <%=rs_class("price")%> <%=rs_class("r_price")%>
<% end if rs.movenext loop end if rs.close set rs=nothing end if %>
请您填写下列个人信息以确认订购生效(带星号 * 的为必填项)
真实姓名：
性 别：
联系电话：
通信地址：
电子邮件：
备注：
  *请填写真实的资料，以便工作人员及时回访，为您提供帮助。