<% 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 %> ::苏州科普之窗::--会员登录
网站首页


重申网络版权问题

  《互联网著作权行政保护办法》出台了,为了维护本法,我们特此申明:

  1、著作权人如对我们网站内容有版权方面的异议,可以按照《互联网著作权行政保护办法》第八条的要求通知我们,我们收到通知后立即采取措施移除相关内容。

  2、会员要重视和保证科普征文、科普摄影和科普图画创作的原创性,如发生侵权问题,责任自负。

  3、摘录他人内容,务必标明出处及其原作者,如在科普摄影中摘录的内容或参考内容,如发生侵权问题,责任自负。


苏州科普之窗擂台赛组委会
2006年1月1日

 

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