save1.asp

该软件是用asp编写的

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/Email.asp"-->
<%
  dim id,xb,gk,kc,dq,dz,dh,yq,bc,to_email
  dim mailbody,mailtopic,sendmail
  
  id=request.form("id")
  xb=request.form("xb")
  gk=request.form("gk")
  kc=request.form("kc")
  dq=request.form("dq")
  dz=request.form("dz")
  dh=request.form("dh")
  yq=request.form("yq")
  bc=request.form("bc")
  to_email=request.form("to_email")

  if id="" or strlength(id)>8 then
    call mb("对不起，您要姓名不能为空或大于4个汉字！","",0)
  end if
    
  if gk="" or strlength(gk)>100 then
    call mb("对不起，您不能本站的会员，个人概况不能为空或大于50个汉字！","",0)
  end if
  
  if kc="" or strlength(kc)>20 then
    call mb("请填写您辅导的课程，由于您不是站会员资料近限10字！","",0)
  end if

  if dz="" or  strlength(kc)>30 then
  call mb("请填写详细地址，由于您不是站会员资料近限15字！","",0)
  end if
  
  if yq="" or strlength(kc)>40 then
    call mb("请填写您的要求，您不是很站的会员仅20字！","",0)
  end if
  
  if bc="" then
    call mb("您选择您付出的报酬","",0)
  end if  
  if not isemail(to_email) then
    call mb("对不起，您的信箱不正确，如果您没有信箱请转到您朋友的信箱下","",0)
  end if

set rs=server.createobject("adodb.recordset")
sql="select * from xyb where id is null"
rs.open sql,conn,1,3

rs.addnew()
'添加祝福
rs("id")=id
rs("xb")=xb
rs("gk")=gk
rs("kc")=kc
rs("dq")=dq
rs("dz")=dz
rs("dh")=dh
rs("yq")=yq
rs("bc")=bc
rs("to_email")=to_email
rs.update

rs.close:set rs=nothing
'发送邮件
mailtopic="来至长春家教网的通知！"
%>
<!--#include file="inc/email_word.asp"-->
<%
'
select case EmailSuport
  case 0
   '不支持邮件
  case 1
	call jmail(to_email,mailtopic,mailbody) 
  case 2
	call Cdonts(to_email,mailtopic,mailbody)
 case 3
	call aspemail(to_email,mailtopic,mailbody)
end select

response.write "<script language=javascript>alert('恭喜您，您已经成功的发布！');</script>"
response.write "<script language=javascript>window.close();</script>"
%>