谁有微信小程序的源码，一个简单介绍页+预约报名表单的功能？

这个要看你做什么样的小程序，你对小程序的功能、框架、定位、交互、UI的要求是什么？这些都要提前计划好的，定制开发一套小程序，价格几万到几十万不等，以下列出价格表：

1、定制开发服务：价格最低5万到几十万不等，适合大企业自用。

2、一键授权开发：小程序一键制作平台，成本5000元左右，一键制作小程序，可视化图形编辑，省时、省力、省钱！后期可以更改，非常适合初创企业和发展中的企业。

'作者：凌陈亮www.lingchenliang.com（QQ：57404811）

'函数名：gw_sendmail()

'作用：利用Jmail4.5组件发送EMail

'参数：

'tomail：收件人email邮箱地址。

'subject：邮件标题。

'body：邮件内容。

'如果发送成功，函数将返回True，否则返回False

function gw_sendmail(tomail,subject,body)

    dim jmail,smail,smail_pwd,fromname

    smail = "57404811@qq.com" '设定发件人邮箱帐号

    smail_pwd = "***" '设定发件人邮箱密码

    fromname = "**网站" '指定发件人，可为email（如：57404811@qq.com），也可为名称（如：**网站）

    set jmail = Server.createobject("jmail.message") '创建JMAIL对象

    jmail.silent = true '屏蔽例外错误，true表示邮件发送会忽略错误，不将错误信息返回给 *** 作系统。

    jmail.logging = true '使用日志

    jmail.charset = "gb2312"

    jmail.contentType = "text/html" 

    jmail.from = smail '设定发件人邮箱

    jmail.fromname = fromname '指定发件人

    jmail.mailserverusername = smail '设定发件人邮箱帐号

    jmail.mailserverpassword = smail_pwd '设定发件人邮箱密码

    jmail.addRecipient tomail '设定收件人邮箱帐号

    jmail.subject = subject '设定邮件的标题

    jmail.body = body '设定邮件的内容

    jmail.returnreceipt=true '当对方收到邮件后发回收条

    'smtp发信服务器名称如：mail.qq.com、smtp.163.com、smtp.163vip.net、smtp.126.com、smtp.sina.com.cn、smtp.gmail.com、smtp.china.com、smtp.sohu.com

    if jmail.send("mail.qq.com")=false then '开始发信并判断发信结果

        gw_sendmail=false '发信失败

    else

        gw_sendmail=true '发信成功

    end if

end function

'用户意见/网站留言发送邮件示例

dim name1,mobile,content,body

name1=trim(request.form("name1"))

mobile=trim(request.form("mobile"))

content=trim(request.form("content"))

body=""

body=body & "<p>留言时间：" & now() & "</p>"

body=body & "<p>留言IP：" & request.ServerVariables("REMOTE_ADDR") & "</p>"

body=body & "<p>客户姓名：" & name1 & "</p>"

body=body & "<p>手机号码：" & mobile & "</p>"

body=body & "<p>留言内容：" & content & "</p>"

if gw_sendmail("57404811@qq.com","**网站留言-" & name1,body)=true then '这里填自己的邮箱

    call alert("发送成功！","/")

else

    call alert("错误：发送失败！","javascript:window.history.back()")

end if

%>