user_infoedit.asp

该软件是用asp编写的

<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/Email.asp"-->
<%
if session("username")="" then
  call mb("对不起，您还没有登陆！","login.asp",1)
end if

if request("action")="save" then
 dim password,mz,sex,email,question,answer
 dim oicq,icq,msn,homepage,tel,zipcode,address,remark,picurl
 dim gk,kc,dq,yq,bc 
 
 password=checkstr(trim(request.form("password")))
 mz=checkstr(trim(request.form("mz")))
 sex=request.form("sex")
 email=checkstr(trim(request.form("email")))
 question=checkstr(trim(request.form("question")))
 answer=checkstr(trim(request.form("answer")))
 
 oicq=checkstr(trim(request.form("oicq")))
 icq=checkstr(trim(request.form("icq")))
 msn=checkstr(trim(request.form("msn")))
 homepage=checkstr(trim(request.form("homepage")))
 tel=checkstr(trim(request.form("tel")))
 zipcode=checkstr(trim(request.form("zipcode")))
 address=checkstr(trim(request.form("address")))
 remark=checkstr(trim(request.form("remark")))
 picurl=checkstr(trim(request.form("picurl")))
 gk=request.form("gk")
 kc=request.form("kc")
 dq=request.form("dq")
 yq=request.form("yq")
 bc=request.form("bc")
 
 '数据检查
 if password="" or strlength(password)>30 then
   call mb("密码不能为空或大于30字长！","",0)
 end if
   if mz="" or strlength(mz)>30 then
   call mb("名字不能为空或大于30字长！","",0)
 end if

 if sex="" then
   sex="男"
 end if
 
 if not isemail(email) then
   call mb("请正确输入电子邮件地址！","",0)
 end if
 
 if question="" or answer="" then
   call mb("请完整输入密码问题与答案！","",0)
 end if
 
 '保存数据
 set rs=server.createobject("adodb.recordset")
 sql="select * from author where username='"&session("username")&"'"
 rs.open sql,conn,1,3
 
 if not(rs.bof and rs.eof) then
   rs("password")=password
   rs("mz")=mz
   rs("sex")=sex
   rs("email")=email
   rs("question")=question
   rs("answer")=answer
   rs("oicq")=oicq
   rs("icq")=icq
   rs("msn")=msn
   rs("tel")=tel
   rs("homepage")=homepage
   rs("zipcode")=zipcode
   rs("address")=address
   rs("remark")=remark
   rs("picurl")=picurl
   rs("gk")=gk
   rs("kc")=kc
   rs("dq")=dq
   rs("yq")=yq
   rs("bc")=bc
   rs.update
 else
   call mb("对不起，找不到您的帐号！","",0)
 end if
 rs.close
 mailtopic="来至长春家教网的通知！"
%>
<!--#include file="inc/email_word2.asp" -->
<%
'
select case EmailSuport
  case 0
   '不支持邮件
  case 1
	call jmail(email,mailtopic,mailbody) 
  case 2
	call Cdonts(email,mailtopic,mailbody)
 case 3
	call aspemail(email,mailtopic,mailbody)
end select

response.write "<script language=javascript>alert('恭喜您，您已经更新信息！');</script>"
%>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
  <TBODY>
  <TR>
    <TD bgColor=#ffa200 class=bodyleft width=7><IMG height=1 
      src="img/blank.gif" width=7></TD>
      <TD 
    width=743 valign="top" 
    style="BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid"><table width="743" border="0" align="center" cellpadding="0" cellspacing="0" class="borders">
          <tr> 
            <td width="190" valign="top" bgcolor="#F7F7F7"> 
              <!--#include file="user_menu.asp" -->
            </td>
            <td width="1" valign="top">　</td>
            <td valign="top" bgcolor="#FFFFFF">　 
              <table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr> 
                  <td height="24" width="55%">&nbsp; 当前位置：-&gt; 资料修改</td>
                  <td height="21" width="45%">&nbsp;</td>
                </tr>
              </table>
              <br> <table align="center" border="0" bordercolor="#000000" cellpadding="0" cellspacing="0" width="100%">
                <tr> 
                  <td background="" width="18%">&nbsp;</td>
                  <td width="79%"><strong>教 师 资 料</strong> - 资料修改</td>
                  <td width="4%">&nbsp;</td>
                </tr>
              </table>
              <table width="91%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                <tr> 
                  <td height="116" align="center" bgcolor="#FFFFFF"><font color="#FF0000">恭 
                    喜 您 ， 修改个人资料成功！</font></td>
                </tr>
              </table></td>
          </tr>
        </table></TD>
    <TD bgColor=#ffa200 class=bodyright width=6><IMG height=1 
      src="img/blank.gif" width=6></TD></TR></TBODY></TABLE>
<%else
set rs=conn.execute("select * from author where username='"&session("username")&"'")
if rs.bof and rs.eof then
  call mb("对不起，找不到您的个人资料信息！","",0)
else
%>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
  <TBODY>
  <TR>
    <TD bgColor=#ffa200 class=bodyleft width=7><IMG height=1 
      src="img/blank.gif" width=7></TD>
      <TD 
    width=743 valign="top" 
    style="BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid"><table width="743" border="0" align="center" cellpadding="0" cellspacing="0" class="borders">
          <tr> 
            <td width="190" valign="top" bgcolor="#F7F7F7"> 
              <!--#include file="user_menu.asp" -->
            </td>
            <td width="1" valign="top">　</td>
            <td valign="top" bgcolor="#FFFFFF"> <table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" height="24" width="100%">
                <tr> 
                  <td height="21" width="55%">&nbsp; 当前位置： -&gt; 资料修改</td>