addresult.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>
</div>
<!--#include file="down.asp"-->
<%   
   Response.End
  End If
%><%
 a1=Trim(Request("xsxm"))
 a2=Request.form("xsxb")
 a3=Request.form("xsnl")
 a4=Request.form("xsmz")
 a5=Request.form("zzmm")
 a6=Request.form("pyfs")
 a7=Request.form("jkzk")
 a8=Request.form("xszy")
 a9=Request.form("xsxz")
 a10=Request.form("xsxl")
 a11=Request.form("xtxdz")
 a12=Request.form("xyzbm")
 a13=Request.form("xdhhm")
 a14=Request.form("dwmc")
 a15=Request.form("dwls")
 a16=Request.form("lxr")
 a17=Request.form("lxdh")
 a18=Request.form("dwyzbm")
 a19=Request.form("dwtxdz")
 a20=Request.form("dwxz")
 a21=Request.form("daxxdz")
 a22=Request.form("zjyzbm")
 a23=Request.form("mc2")
 a24=Trim(Request("xsxh"))
 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 rs=Server.CreateObject("Adodb.Recordset")
 Set rs1=Server.CreateObject("Adodb.Recordset")
 Set lsrs=Server.CreateObject("Adodb.Recordset")
 rs.open fs,conn,1,1
 rs1.open fs1,conn,1,1
 lsrs.open lsfs,conn,1,1
%>
<%if not (rs.eof or rs.bof) then%>
<%do while not rs.eof%>
<%a26=rs("dm")%>
<%rs.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%>

<%
  ts="Insert Into info(xsxm,xsxb,xsnl,xsmz,zzmm,pyfs,jkzk,xszy,xsxz,xsxl,xtxdz,xyzbm,xdhhm,dwmc,dwls,lxr,lxdh,dwyzbm,dwtxdz,dwxz,daxxdz,zjyzbm,lhdz,xsxh,xssyd,lsdm,syddm,lhddm)values('"+a1+"','"+a2+"','"+a3+"','"+a4+"','"+a5+"','"+a6+"','"+a7+"','"+a8+"','"+a9+"','"+a10+"','"+a11+"','"+a12+"','"+a13+"','"+a14+"','"+a15+"','"+a16+"','"+a17+"','"+a18+"','"+a19+"','"+a20+"','"+a21+"','"+a22+"','"+a23+"','"+a24+"','"+a25+"','"+a28+"','"+a26+"','"+a27+"')"
  conn.execute ts
  conn.close
  set conn=nothing  
%>
<%Response.Write("提交成功！")%><%Session("xsxm")=Trim(Request("xsxm"))%><%Response.Redirect "view.asp"%><!--#include file="down.asp"-->