<% If Session("KepuLogOn_OK") < 1 then Response.Redirect "error.asp?id=2" If Session("User_ID")="" then Response.Redirect "error.asp?id=3" send = Request("send") If send = "ok" Then password1 = Request("password1") password2 = Request("password2") If Len(password1)<3 then message="错误提示：您输入的密码有误，要求三位以上，请重新输入" If password1 <> password2 then message="错误提示：您两次输入的密码不一致，请重新输入" If message="" then Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("database/member_info.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath sql="select username, password from User where ID=" & Session("User_ID") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql , conn, adOpenDynamic, 3 If Not rs.Eof then If password1 <> "" then rs("password")=password1 rs.Update message="提示：密码修改成功！" End If End If Else Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("database/member_info.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath sql="select username, password from User where ID=" & Session("User_ID") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, adOpenStatic End If %> ::苏州科普之窗::--会员登录
网站首页


2006年三季度科普擂台赛，奖品领取通知！

　　请查看您的“会员编号”，凡“会员编号”在获奖名单内的会员（获奖名单见“2006年第三季度获奖会员名单”），领奖前请在“会员资料”内确认您的真实姓名及有效证件号码，外地会员还要确认邮寄地址及邮政编码，具体领奖办法如下：

　　１、苏州市会员：领奖前请在“会员资料”内确认您的真实姓名及有效证件号码（如需修改，请致电：0512-65151021，联系确认），以上信息错误或资料不全者将视为无效用户，不再发放奖品。并于2006年11月15日-2006年12月15日期间（节假日除外）周一至周五9：00-17：00，凭有效证件领取奖品，过时视作自动放弃。

　　领奖地点：苏州市人民路979号（饮马桥）科技大楼203室。

　　２、外地会员：我们将按照您的注册信息邮寄奖品，请于2006年11月30日前在“会员资料”内确认您的真实姓名、有效证件号码、联系电话、邮寄地址及邮政编码（如需修改，请致电：0512-65151021，联系确认），以上信息错误或资料不全者将视为无效用户，不再发放奖品。

感谢您的参与！欢迎各位网友积级参与，赢取更多奖品！

感谢您的参与！欢迎各位网友积级参与，赢取更多奖品！

咨询电话：0512-65151021
投诉/咨询信箱（Email）：szkp1@szkp.org.cn

2006年11月10日

 
 
　每日科普知识竞答
　每周科普知识竞答
　科普佳作推荐投稿
　科普摄影投稿
　我的摄影参赛作品
   　会员资料管理
　我的佳作推荐文章   　会员密码修改
　我的知识竞答记录   　会员积分查看
最新会员摄影作品展示
最新会员推荐文章