⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 tijiao.asp

📁 毕业生信息管理系统,做毕业设计也许会有用的
💻 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>
<%Set rs=Server.CreateObject("Adodb.Recordset")%>
<%viewuser=trim(Request("xsxm"))%>
<%
  fs="Select * from info where xsxm ='"+Session("username")+"'"
  rs.open fs,conn,1,1
%>
<html>
<link rel="stylesheet" href="style.css">
<body>
<%if not rs.eof then%>
<table border=1 cellspacing=0 width=70% align=center>
  <form method=post action="update.asp">
    <tr>
      <td background="pic/03.gif" colspan=3> </td>
    </tr>
    <tr>
      <td align=center colspan=3><font color=red>请认真填写下列信息,否则造成的一切后果由本人自负!带有"*"的内容必须填写!</font></td>
    </tr>
    <tr>
      <td rowspan=24 align=center>兰<p>州<p>交<p>通<p>大<p>学<p>毕<p>业<p>生<p>情<p>况</td>
    </tr>
    <tr>
      <td align=right>姓名:</td>
      <td align=left><%=rs("xsxm")%> </td>
    </tr>
    <tr>
      <td align=right>学号:</td>
      <td align=left><%=rs("xsxh")%> </td>
    </tr>
    <tr>
      <td align=right>性别:</td>
      <td align=left><%=rs("xsxb")%> </td>
    </tr>
    <tr>
      <td align=right>生源地:</td>
      <td align=left>
        <select size=1 name=mc1>
          <%
           fs1="Select * from syd"
           Set rs1=Server.CreateObject("Adodb.Recordset")
           rs1.open fs1,conn,1,1
          %>
         <%if not (rs1.eof or rs1.bof) then%>
         <%do while not rs1.eof%>
         <option><%=rs1("mc")%></option> 
         <%rs1.movenext%>
         <%loop%>
         <%end if%>
      </select>&nbsp;&nbsp;<font color=red>请选择!*</font>
      </td>
    </tr>
    <tr>
      <td align=right>年龄:</td>
      <td align=left><input type=text size=4  name=xsnl><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>民族:</td>
      <td align=left><input type=text size=8  name=xsmz><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>政治面貌:</td>
      <td align=left><input type=text size=8  name=zzmm><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>培养方式:</td>
      <td align=left><%=rs("pyfs")%> </td>
    </tr>
    <tr>
      <td align=right>健康状况:</td>
      <td align=left><input type=text size=4  name=jkzk> <font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>专业(方向):</td>
      <td align=left>
      <select size=1 name=xszy>
          <%
           zyfs="Select * from zymc"
           Set zyrs=Server.CreateObject("Adodb.Recordset")
           zyrs.open zyfs,conn,1,1
          %>
         <%if not (zyrs.eof or zyrs.bof) then%>
         <%do while not zyrs.eof%>
         <option><%=zyrs("zymc")%></option> 
         <%zyrs.movenext%>
         <%loop%>
         <%end if%>
      </select>
      <font color=red>请选择!&nbsp;&nbsp;*</font>
      </td>
    </tr>
    <tr>
      <td align=right>学制:</td>
      <td align=left>
      <select size=1 name=xsxz> 
        <option value=4年制>4年制</option>
        <option value=3年制>3年制</option>
      </select>
      <font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>学历:</td>
      <td align=left>
      <select size=1 name=xsxl>
        <option value=本科>本科</option>
        <option value=专科>专科</option>
        <option value=硕士>硕士</option>
      </select>
      <font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>现通讯地址:</td>
      <td>
        <table border=1 cellspacing=0>
          <tr>
            <td align=center><textarea rows=3 cols=20 name=xtxdz><%=rs("xtxdz")%></textarea>&nbsp;&nbsp;&nbsp;<font color=red>&nbsp;&nbsp;*</font></td>
            <td>
              <table border=1 cellspacing=0>
                <tr>
                  <td align=right>邮编:</td>
                  <td align=left><input type=text size=16 name=xyzbm value=<%=rs("xyzbm")%>><font color=red>&nbsp;&nbsp;*</font></td>
                </tr>
                <tr>
                  <td align=right>电话:</td>
                  <td align=left><input type=text size=16 name=xdhhm value=<%=rs("xdhhm")%>><font color=red>&nbsp;&nbsp;*</font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td align=right>单位名称:</td>
      <td align=left><input type=text size=40 name=dwmc value=<%=rs("dwmc")%>><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>单位隶属:</td>
      <td align=left>
      <select size=1 name=dwls>
          <%
           lsfs="Select * from dwls"
           Set lsrs=Server.CreateObject("Adodb.Recordset")
           lsrs.open lsfs,conn,1,1
          %>
         <%if not (lsrs.eof or lsrs.bof) then%>
         <%do while not lsrs.eof%>
         <option><%=lsrs("lsmc")%></option> 
         <%lsrs.movenext%>
         <%loop%>
         <%end if%>
      </select>
      <font color=red>请选择!&nbsp;&nbsp;*</font>
     </td>
    </tr>
    <tr>
      <td align=right>单位联系人:</td>
      <td align=left><input type=text size=10 name=lxr value=<%=rs("lxr")%>><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>单位联系电话:</td>
      <td align=left><input type=text size=14 name=lxdh value=<%=rs("lxdh")%>><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>档案所寄邮编:</td>
      <td align=left><input type=text size=10 name=dwyzbm value=<%=rs("dwyzbm")%>><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>档案所寄通讯地址:</td>
      <td align=left><input type=text size=40 name=dwtxdz value=<%=rs("dwtxdz")%>><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>单位性质:</td>
      <td align=left><input type=text size=8 name=dwxz value=<%=rs("dwxz")%>><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>档案转寄<br>详细地址</td>
      <td align=left><textarea rows=2 cols=40 name=daxxdz><%=rs("daxxdz")%></textarea><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>备 注:</td>
      <td align=left><input type=text size=40 name=zjyzbm value="无"><font color=red>&nbsp;&nbsp;*</font></td>
    </tr>
    <tr>
      <td align=right>落户地址:</td>
      <td align=left>
        <select size=1 name=mc2>
          <%
           fs2="Select * from syd"
           Set rs2=Server.CreateObject("Adodb.Recordset")
           rs2.open fs2,conn,1,1
          %>
         <%if not (rs2.eof or rs2.bof) then%>
         <%do while not rs2.eof%>
         <option><%=rs2("mc")%></option> 
         <%rs2.movenext%>
         <%loop%>
         <%end if%>
       </select>&nbsp;&nbsp;<font color=red>请选择!<font color=red>&nbsp;&nbsp;*</font></font>

      </td>
    </tr>
    <tr>
      <td align=right colspan=2><input type=submit value=提交></td>
      <td align=center><input type=reset value=重置></td>
    </tr>
  </form>
    <tr>
      <td align=center colspan=3>如果您填写好了您的信息请点<font color=red>提交</font></td>
    </tr>
</table>
<table border=1 cellspacing=0 width=70% align=center>
 <tr>
  <td align=center>如果您想修改您的密码请点<font color=red><a href="pwchg.asp"><font color=blue>这里</font></a></font></td>
  <td align=center>如果您想退出本系统请点<font color=red><a href="zhuxiao.asp"><font color=blue>这里</font></a></td>
 </tr>
</table>

<%rs.close%>
<%set rs=nothing%>
<%end if%>
<br>
<!--#include file="down.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -