📄 lyokadd.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统

💻 ASP

字号:

<%
'网络022班孙超的毕业设计
'网络022班孙超的毕业设计
  dim name,user,username
  name = Request("username")
  user = Request("user")
%>
<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style2 {font-size: 16px}
.style9 {font-size: 18px}
-->
</style>
  <BODY BGCOLOR="LightYellow">
    <!-- #include file="../conn.asp" -->
	<%
if session("user")="" then
      Response.write("<center>使用错误,请先登陆")  
      Response.End
end if
%>
    <%
    dim rs, sql
    Set rs=Server.CreateObject("Adodb.RecordSet")   
    sql="select * from lyok"
    rs.Open sql,conn,1,3
	
	    dim add		
		Set add = Conn.Execute("Select com,user from lyok where user='"&Request.QueryString("user")&"' and com='"&session("user")&"'")
		If Not add.Eof then
		    response.write "   <html><head><link rel='stylesheet' href='style.css'></head><body>"
	    	response.write "   <br><br><br>"
	    	response.write "    <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
	    	response.write "      <tr > "
	    	response.write "        <td class='title' colspan='2' height='15'> "
	    	response.write "          <div align='center'><span class='style1'>此人已经被正式录用!</span></div>"
	    	response.write "        </td>"
	    	response.write "      </tr>"
	    	response.write "      <tr> "
	    	response.write "        <td class='tdbg' colspan='2' height='23'> "
	    	response.write "          <div align='center'><br><br>"
	    	response.write "      <span class='style1'>请选择新的用户!!!</span><br><br>"
	    	response.write "        <a href='javascript:onclick=history.go(-1)'><span class='style2'>返回</span></a>"        
	    	response.write "        <br><br></div></td>"
	    	response.write "      </tr></table></body></html>" 
         Response.End
		End If    
    RS.AddNew Array("com", "username", "user","time"), _
              Array(Session("user"), name,user,Now()) 
    RS.Update
       
    '关闭数据库连接并释放对象
    RS.Close         
    Set RS = Nothing 
    Conn.Close         
    Set Conn = Nothing 
    %>
    <CENTER>
    <P class="style1">此人已经被正式录用
    <P class="style1">返回查看正式录用统计情况</P>
    </CENTER>                                                                               
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -