<% dim typeid,indexname typeid = replace(trim(request("typeid")),"'","") if typeid="" then indexname = "局长信箱" elseif typeid="1" then indexname = "教育咨询" else indexname = "局长信箱" end if%> 阜阳教育信息网欢迎您!
搜  索：
类  别：

 

阜阳教育调查问卷

简介：为了加强家长和学校之间的交流，及时了解家长对孩子发展的意见或建议，特制定本调查问卷表，本表不涉及学生和教师评价，希望您能如实认真填写
1.您对您的孩子在校表现满意吗？（单选） *
请选择您对您的孩子在校表现满意吗？（单选）
2.您对你的孩子在家表现满意吗？（单选） *
请选择您对你的孩子在家表现满意吗？（单选）
3.您了解孩子的思想性格、爱好及交友情况吗？（单选） *
请选择您了解孩子的思想性格、爱好及交友情况吗？（单选）
4.您是否与自己的孩子讨论学习问题？（单选） *
请选择您是否与自己的孩子讨论学习问题？（单选）
5.您抽空在家陪孩子一起学习吗？（单选） *
请选择您抽空在家陪孩子一起学习吗？（单选）
6.您是否检查孩子的作业情况？（单选） *
请选择您是否检查孩子的作业情况？（单选）
7.当孩子考出好成绩时，您表扬他吗？（单选） *
请选择当孩子考出好成绩时，您表扬他吗？（单选）
8.当孩子成绩不理想时，您责怪他吗？（单选） *
请选择当孩子成绩不理想时，您责怪他吗？（单选）
9.您是否经常给孩子讲一些激励性的故事？（单选） *
请选择您是否经常给孩子讲一些激励性的故事？（单选）
10.您带您的孩子参加探亲、旅行等外出活动吗？（单选） *
请选择您带您的孩子参加探亲、旅行等外出活动吗？（单选）

 
<% end if %>
【关闭窗口】
主办:阜阳市教育局
地址:双清路8号 邮编:236014　电话:2197267 传真：2197261
承办:阜阳市电化教育馆 皖ICP备06004565号
地址:人民东路58号 邮编:236014　总机:2265696 E-mail:web@fyedu.gov.cn
<% function IsValidEmail(email) IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end Function Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content) Set jmail = Server.CreateObject("JMAIL.Message") jmail.silent = true jmail.logging = true jmail.Charset = "gb2312" jmail.ContentType = "text/html" jmail.AddRecipient mailTo jmail.From = smtpUser jmail.FromName = FromName jmail.Subject = subject jmail.Body = content jmail.Priority = 1 jmail.MailServerUserName = smtpUser jmail.MailServerPassword = smtpPass jmail.Send(smtpHost) jmail.Close() response.write("邮件发送成功") End Function %>