update.asp

毕业生信息管理系统,做毕业设计也许会有用的

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<div align=center>
<%
  If Session("usernum")="" Then
   Response.Write("您没有权限查看此页,请")
%>
<a href="zhuce.asp"><%Response.Write("登录")%></a>
<%
   Response.Write("后查看！")
%>
<p>
<!--#include file="down.asp"-->
<%   
   Response.End
  End If
%> 
</div>
<%upname=Session("username")%>
<%if Trim(Request("xsnl"))="" then%>
<%Response.Write("您的年龄没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("xsmz"))="" then%>
<%Response.Write("您的民族没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("zzmm"))="" then%>
<%Response.Write("您的政治面貌没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("jkzk"))="" then%>
<%Response.Write("您的健康状况没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("xsxl"))="" then%>
<%Response.Write("您的学历没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("xtxdz"))="" then%>
<%Response.Write("您的现通讯地址没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("xyzbm"))="" then%>
<%Response.Write("您的现邮政编码没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("xdhhm"))="" then%>
<%Response.Write("您的现电话号码没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("lxr"))="" then%>
<%Response.Write("您的单位联系人没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("lxdh"))="" then%>
<%Response.Write("您的单位联系电话没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("dwyzbm"))="" then%>
<%Response.Write("您的档案所寄政编码没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("dwtxdz"))="" then%>
<%Response.Write("您的单位所寄通讯地址没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("dwxz"))="" then%>
<%Response.Write("您的单位性质没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("daxxdz"))="" then%>
<%Response.Write("您的档案转寄详细地址没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%if Trim(Request("dwxz"))="" then%>
<%Response.Write("您的单位性质没有填写!")%>
<%Response.Write("请点")%>
<a href="tijiao.asp">这里</a>
<%Response.Write("返回")%>
<p>
<!--#include file="down.asp"-->
<%Response.End%>
<%End If%>
<%
  cs="Select * from info where xsxm='"+upname+"'"
  Set rs=Server.CreateObject("Adodb.Recordset")
  rs.open cs,conn,1,3
%>
<%if not (rs.eof or rs.bof) then%>
<%
 rs("xsnl")=Trim(Request("xsnl"))
 rs("xsmz")=Trim(Request("xsmz"))
 rs("zzmm")=Trim(Request("zzmm"))
 'rs("pyfs")=Trim(Request("pyfs"))
 rs("jkzk")=Trim(Request("jkzk"))
 rs("xszy")=Trim(Request("xszy"))
 rs("xsxz")=Trim(Request("xsxz"))
 rs("xsxl")=Trim(Request("xsxl"))
 rs("xtxdz")=Trim(Request("xtxdz"))
 rs("xyzbm")=Trim(Request("xyzbm"))
 rs("xdhhm")=Trim(Request("xdhhm"))
 rs("dwmc")=Trim(Request("dwmc"))
 rs("dwls")=Trim(Request("dwls"))
 rs("lxr")=Trim(Request("lxr"))
 rs("lxdh")=Trim(Request("lxdh"))
 rs("dwyzbm")=Trim(Request("dwyzbm"))
 rs("dwtxdz")=Trim(Request("dwtxdz"))
 rs("dwxz")=Trim(Request("dwxz"))
 rs("daxxdz")=Trim(Request("daxxdz"))
 rs("zjyzbm")=Trim(Request("zjyzbm"))
 rs("lhdz")=Trim(Request("mc2"))
 rs("xssyd")=Trim(Request("mc1"))
%>
  <%
     a15=Request.form("dwls")
     a23=Trim(Request("mc2"))
     a25=Trim(Request("mc1"))
  %>
  <%
     fs="Select * from syd where mc='"+a25+"'"
     fs1="Select * from syd where mc='"+a23+"'"
     lsfs="Select * from dwls where lsmc='"+a15+"'"
     Set rs2=Server.CreateObject("Adodb.Recordset")
     Set rs1=Server.CreateObject("Adodb.Recordset")
     Set lsrs=Server.CreateObject("Adodb.Recordset")
     rs2.open fs,conn,1,1
     rs1.open fs1,conn,1,1
     lsrs.open lsfs,conn,1,1
  %>
  <%if not (rs2.eof or rs2.bof) then%>
  <%do while not rs2.eof%>
  <%a26=rs2("dm")%>
  <%rs2.movenext%>
  <%loop%>
  <%end if%>
  <%if not (rs1.eof or rs1.bof) then%>
  <%do while not rs1.eof%>
  <%a27=rs1("dm")%>
  <%rs1.movenext%>
  <%loop%>
  <%end if%>
  <%if not (lsrs.eof or lsrs.bof) then%>
  <%do while not lsrs.eof%>
  <%a28=lsrs("lsdm")%>
  <%lsrs.movenext%>
  <%loop%>
  <%end if%>

<%
 rs("syddm")=a26
 rs("lhddm")=a27
 rs("lsdm")=a28
%>  
<%end if%>
<%
 rs.update
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>
<div align=center>
<%Response.Write("操作成功！！")%>
<%Response.Write("请点")%>
<a href="view.asp">这里</a>
<%Response.Write("返回")%>
</div>
<p>
<!--#include file="down.asp"-->